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     ! 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.