|
|
1.1 root 1: (* Copyright (c) 1979 Regents of the University of California *)
2:
3: const
4: sccsid = '@(#)unixio.h 1.1 6/17/81';
5:
6: type
7: fileptr = record
8: cnt :integer
9: end;
10:
11: function TELL(
12: var fptr :text)
13: {returns} :fileptr;
14:
15: external;
16:
17: procedure SEEK(
18: var fptr :text;
19: var cnt :fileptr);
20:
21: external;
22:
23: procedure APPEND(
24: var fptr :text);
25:
26: external;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.