| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 |
- Listing:
- 1 (* Release 3.00 *)
- 2 (* Copyright (C) 1989..1991 Jensen & Partners International *)
- 3 (*# call(o_a_size => off,
- 4 o_a_copy=>off,
- 5 c_conv=>on,
- 6 result_optional=>on) *)
- 7 (*# module(implementation=>off, init_code => off) *)
- 8
- 9 (*# name(prefix => c) *)
- 10
- 11 DEFINITION MODULE CoreFile;
- 12
- 13 TYPE
- 14 File = CARDINAL;
- 15 StreamPtr = POINTER TO CHAR;
- ***** ^ not supported yet
- 16 CStream = RECORD
- 17 Ptr: StreamPtr; (* current char pointer *)
- 18 Cnt: INTEGER; (* buffer free space *)
- 19 Size: INTEGER; (* buffer size *)
- 20 Base: StreamPtr; (* buffer address *)
- 21 Flag: BITSET; (* file attrib flag *)
- ***** ^ undeclared identifier
- 22 Handle: INTEGER; (* file handle *)
- 23 Pback: INTEGER; (* ungot char if no buffer *)
- 24 Sem: LONGCARD;
- ***** ^ undeclared identifier
- 25 Ctrl: SHORTCARD;
- 26 SCnt: SHORTCARD;
- 27 END;
- ***** ^ not supported yet
- 28 FileInf = POINTER TO CStream;
- ***** ^ not supported yet
- 29
- 30 CONST
- 31 MaxHandles = 20; (* This must be changed if you alter CoreFile.a *)
- 32
- 33 VAR
- 34 _openfd: ARRAY [0..MaxHandles-1] OF BITSET;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 35 _iob : ARRAY [0..MaxHandles-1] OF CStream;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 36 _open_max: CARDINAL;
- 37 BufInf : ARRAY [0..MaxHandles-1] OF FileInf;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 38 _tmpfiles: ARRAY [0..MaxHandles-1] OF ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 39 _tmpfptrs: ARRAY [0..MaxHandles-1] OF FileInf;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 40
- 41 END CoreFile.
- ***** ^ not supported yet
- 16 errors
|
