|
|
1.1 ! root 1: ! 2: #define VAX 11/780 ! 3: ! 4: ! 5: #ifdef VAX ! 6: typedef int longint; ! 7: #else ! 8: typedef long longint; ! 9: #include <retrofit.h> ! 10: #endif ! 11: ! 12: #include <sys/types.h> ! 13: #include <sys/stat.h> ! 14: #include <stdio.h> ! 15: ! 16: #define LNAME 80 ! 17: #define NEW flist; flist = flist -> next ! 18: #define LLEAF 010 ! 19: #define RLEAF 04 ! 20: #define SEEN 02 ! 21: #define FBIT 01 ! 22: #define COMPACTED 017777 ! 23: #define PACKED 017437 ! 24: #define EF 0400 ! 25: #define NC 0401 ! 26: ! 27: struct charac { ! 28: char lob; ! 29: char hib; ! 30: }; ! 31: ! 32: union cio { ! 33: struct charac chars; ! 34: int integ; ! 35: }; ! 36: ! 37: struct fpoint { ! 38: struct node *fp; ! 39: int flags; ! 40: } in [258]; ! 41: ! 42: struct index { ! 43: struct node *pt; ! 44: struct index *next; ! 45: } dir [514], *head, *flist, *dirp, *dirq; ! 46: ! 47: union treep { ! 48: struct node *p; ! 49: int ch; ! 50: }; ! 51: ! 52: struct node { ! 53: struct fpoint fath; ! 54: union treep sp [2]; ! 55: struct index *top [2]; ! 56: longint count [2]; ! 57: } dict [258], *bottom; ! 58: ! 59: longint oc; ! 60: ! 61: FILE *cfp, *uncfp; ! 62: ! 63: struct stat status;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.