Return to load CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib / fn

Annotation of 43BSD/contrib/apl/lib/fn/load, revision 1.1.1.1

1.1       root        1:  load fdload9;typeload9;rankload9;shapeload9;mload9;rload9;lenload9;nameload9;nload9
                      2: CJ change the '8' in line 2 to '4' for apl2
                      3:   lenload9 { 8
                      4: fdload9 { 2 Lopen fdload9
                      5:   nameload9 { Lfloat fdload9 Lread lenload9
                      6:   }(0 = Rnameload9)/exit
                      7: okload9: nameload9 { fdload9 Lread nameload9
                      8:   typeload9 { ('fcn' = fdload9 Lread 1)/1 2 3
                      9:   rankload9 { Lfloat fdload9 Lread lenload9
                     10:   shapeload9 { Lfloat fdload9 Lread X/lenload9,rankload9
                     11:   rload9 { ''
                     12:   mload9 { nload9 { X/shapeload9,(typeload9 = 3)/lenload9
                     13: nextload9: rload9 { rload9, fdload9 Lread mload9
                     14:   } (0 # mload9 { nload9-Rrload9)/nextload9
                     15:   } (3#typeload9)/rshapeload9
                     16:   rload9 { Lfloat rload9
                     17: rshapeload9: rload9 { shapeload9 Rrload9
                     18:   }(1=typeload9)/funload9
                     19:   rload9 {BJ nameload9,' { rload9'
                     20:   }21
                     21: funload9: nameload9 {nameload9, Lfx rload9
                     22: nameload9
                     23: }(0#Rnameload9)/4
                     24: exit: nameload9 { Lclose fdload9

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.