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