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