Return to getws CVS log

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

Annotation of 43BSD/contrib/apl/lib/getws, revision 1.1

1.1     ! root        1: n��*.KB�&       H asaveasave asave0;asave1;asave2;asave3;asave4;asave5
        !             2:   asave4 { 420 Lcreat asave0
        !             3:   asave5 { 0
        !             4:   asave1 { Lnl 2 3
        !             5: asave8:  asave0 { asave1[asave5+?1;]
        !             6:   }(^/'asave'=5Yasave0)/asave9
        !             7:   asave0 { (asave0 # ' ')/asave0
        !             8:   asave2 { asave4 Lwrite R,asave0
        !             9:   asave2 { asave4 Lwrite asave0
        !            10:   }(2=Lnc asave0)/asave7
        !            11:   asave0 { Lcr asave0
        !            12:   asave3 { 'f'
        !            13:   }asave6
        !            14: asave7:  asave0 { BJ asave0
        !            15:   asave3 { 'nc'[(?1) + ' 'E(,0)\0Rasave0]
        !            16: asave6:  asave2 { asave4 Lwrite asave3
        !            17:   asave2 { asave4 Lwrite (RRasave0),Rasave0
        !            18:   asave2 { asave4 Lwrite asave0
        !            19: asave9: }((1YRasave1) > asave5{asave5+1)/asave8
        !            20:   asave2 { Lclose asave4
        !            21:       load load fdload9;typeload9;rankload9;shapeload9;mload9;rload9;lenload9;nameload9;nload9
        !            22: CJ change the '8' in line 2 to '4' for apl2
        !            23:   lenload9 { 8
        !            24: fdload9 { 2 Lopen fdload9
        !            25:   nameload9 { Lfloat fdload9 Lread lenload9
        !            26:   }(0 = Rnameload9)/exit
        !            27: okload9: nameload9 { fdload9 Lread nameload9
        !            28:   typeload9 { ('fcn' = fdload9 Lread 1)/1 2 3
        !            29:   rankload9 { Lfloat fdload9 Lread lenload9
        !            30:   shapeload9 { Lfloat fdload9 Lread X/lenload9,rankload9
        !            31:   rload9 { ''
        !            32:   mload9 { nload9 { X/shapeload9,(typeload9 = 3)/lenload9
        !            33: nextload9: rload9 { rload9, fdload9 Lread mload9
        !            34:   } (0 # mload9 { nload9-Rrload9)/nextload9
        !            35:   } (3#typeload9)/rshapeload9
        !            36:   rload9 { Lfloat rload9
        !            37: rshapeload9: rload9 { shapeload9 Rrload9
        !            38:   }(1=typeload9)/funload9
        !            39:   rload9 {BJ nameload9,' { rload9'
        !            40:   }21
        !            41: funload9: nameload9 {nameload9, Lfx rload9
        !            42: nameload9
        !            43: }(0#Rnameload9)/4
        !            44: exit: nameload9 { Lclose fdload9
        !            45: 

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