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