Return to getws CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / apl / apl.vax / lib

Annotation of 43BSDTahoe/new/apl/apl.vax/lib/getws, revision 1.1.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.