Return to edtxt CVS log

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

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

1.1       root        1:  edtxt;fd;name;vr;r
                      2: L'{'variable name? '
                      3: name { L'
                      4: fd { 390 Lcreat 'apltxt.tmp'
                      5: }(fd < 0)/error
                      6: r  { fd Lwrite BJ name
                      7: fd { Lclose fd
                      8: Lrun 'xed apltxt.tmp'
                      9: fd { 260 Lopen 'apltxt.tmp'
                     10: }(fd<0)/error
                     11: vr { ''
                     12: more: vr { vr,r { fd Lread 256
                     13: } (0#Rr)/more
                     14: fd { Lclose fd
                     15: r { BJ name,' { vr'
                     16: Lrun 'rm apltxt.tmp'
                     17: }0
                     18: error: 'Can''t open file: apltxt.tmp'

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