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