Return to vrd CVS log

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

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

1.1       root        1: data { vrd name ;fd ;tm
                      2:  fd { 260 Lopen name
                      3:  data { 0 0R ' '
                      4: next: tm {  Lrd fd
                      5:  }(0=Rtm)/done
                      6:  }((Rtm)$1URdata)/sm
                      7:  data { data,((1YRdata),((Rtm)-1URdata))R' '
                      8:  data {data,[I1]tm
                      9:  }next
                     10: sm: data { data,[I1]tm,((1URdata)-Rtm)R' '
                     11:  }next
                     12:  } (0#Rtm)/next
                     13: done: fd { Lclose fd

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