Topspeed_JPI/TS-V3/INCLUDE/STDIO.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  STDIO.DEF - Modula-2 interface to STDIO.H                               *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE stdio;
   18  
   19  IMPORT CoreFile;
   20  
   21  TYPE
   22    File = CoreFile.File;
*****                    ^ not supported yet
   23    FileInf = CoreFile.FileInf;
*****                       ^ not supported yet
   24  
   25  
   26  CONST
   27      _IOFBF = 0;
   28      _IOLBF = 1;
   29      _IONBF = 2;
   30      EOF = -1;
   31      OPEN_MAX = 20;
   32      SYS_OPEN = 20;
   33  
   34  CONST
   35    _F_READ = {0};			(* Read only file *)
*****               ^ not supported yet
   36    _F_WRIT = {1};			(* Write only file *)
*****               ^ not supported yet
   37    _F_UBUF = {2};			(* User allocated buffer *)
*****               ^ not supported yet
   38    _F_APP  = {3};			(* Append data *)
*****               ^ not supported yet
   39    _F_ERR  = {4};			(* Error *)
*****               ^ not supported yet
   40    _F_EOF  = {5};			(* EOF *)
*****               ^ not supported yet
   41    _F_BIN  = {6};			(* Binary file *)
*****               ^ not supported yet
   42    _F_IN	  = {7};			(* Data is incoming *)
*****         	     ^ not supported yet
   43    _F_OUT  = {8};			(* Data is outgoing *)
*****               ^ not supported yet
   44    _F_DEV  = {9};			(* File is terminal *)
*****               ^ not supported yet
   45    _F_RST  = {10};			(* Newly opened stream *)
*****               ^ not supported yet
   46    _F_LBUF = {11};			(* line buffered stream *)
*****               ^ not supported yet
   47    _F_CTZ  = {12};
*****               ^ not supported yet
   48    _F_RDWR = {0..1};			(* Read/write  *)
*****               ^ not supported yet
*****                  ^ not supported yet
   49  
   50      BUFSIZ = 512;
   51      SEEK_SET = 0;
   52      SEEK_CUR = 1;
   53      SEEK_END = 2;
   54  
   55  PROCEDURE clearerr(_st: FileInf);
   56  PROCEDURE fclose(_st: FileInf): INTEGER;
   57  PROCEDURE fflush(_st: FileInf): INTEGER;
   58  PROCEDURE fgetc(_st: FileInf): INTEGER;
   59  PROCEDURE fgets(VAR s: ARRAY OF CHAR; _n: CARDINAL; _st: FileInf): ADDRESS;
*****                                  ^ not supported yet
*****                                                                     ^ undeclared identifier
   60  PROCEDURE fopen(_path,_mode: ARRAY OF CHAR): FileInf;
*****                                        ^ not supported yet
   61  PROCEDURE fputc(_c: INTEGER; _st: FileInf): INTEGER;
   62  PROCEDURE fputs(_s: ARRAY OF CHAR; st: FileInf): INTEGER;
*****                               ^ not supported yet
   63  PROCEDURE fread(_ptr: ADDRESS; _size,_n: CARDINAL; _st: FileInf): CARDINAL;
*****                        ^ undeclared identifier
   64  PROCEDURE freopen(_path,_mode: ARRAY OF CHAR; _oldfile: FileInf): FileInf;
*****                                          ^ not supported yet
   65  PROCEDURE fseek(_st: FileInf; _offset: LONGINT; _whence: INTEGER): INTEGER;
   66  PROCEDURE ftell(_st: FileInf): INTEGER;
   67  PROCEDURE fwrite(_ptr: ADDRESS; _size,_n: CARDINAL; _st: FileInf): CARDINAL;
*****                         ^ undeclared identifier
   68  PROCEDURE gets(VAR _s: ARRAY OF CHAR): ADDRESS;
*****                                  ^ not supported yet
*****                                         ^ undeclared identifier
   69  PROCEDURE perror(_s: ARRAY OF CHAR);
*****                                ^ not supported yet
   70  PROCEDURE puts(_s: ARRAY OF CHAR): INTEGER;
*****                              ^ not supported yet
   71  PROCEDURE rename(_oldname,_newname: ARRAY OF CHAR): INTEGER;
*****                                               ^ not supported yet
   72  PROCEDURE rewind(_st: FileInf);
   73  PROCEDURE rmtmp(): INTEGER;
   74  PROCEDURE setbuf(st: FileInf; _buf: ADDRESS);
*****                                      ^ undeclared identifier
   75  PROCEDURE setvbuf(_st: FileInf; _buf: ADDRESS; _type: INTEGER; _size: CARDINAL): INTEGER;
*****                                        ^ undeclared identifier
   76  PROCEDURE strerror(_errnum: INTEGER): ADDRESS;
*****                                        ^ undeclared identifier
   77  PROCEDURE tmpfile(): FileInf;
   78  PROCEDURE tmpname(_s: ARRAY OF CHAR): ADDRESS;
*****                                 ^ not supported yet
*****                                        ^ undeclared identifier
   79  PROCEDURE tempnam(_dir,_prefix: ARRAY OF CHAR): ADDRESS;
*****                                           ^ not supported yet
*****                                                  ^ undeclared identifier
   80  PROCEDURE ungetc(_c: INTEGER; _st: FileInf): INTEGER;
   81  
   82  
   83  (*# save *)
   84  (*# call(c_conv=>on, var_arg=>on, reg_param=>()) *)
   85  PROCEDURE fprintf(_st: FileInf; _format: ARRAY OF CHAR): INTEGER;
*****                                                    ^ not supported yet
   86  PROCEDURE fscanf(_st: FileInf; _format: ARRAY OF CHAR): INTEGER;
*****                                                   ^ not supported yet
   87  PROCEDURE printf(_format: ARRAY OF CHAR): INTEGER;
*****                                     ^ not supported yet
   88  PROCEDURE sprintf(_s,_format: ARRAY OF CHAR): INTEGER;
*****                                         ^ not supported yet
   89  PROCEDURE sscanf(_s,_format: ARRAY OF CHAR): INTEGER;
*****                                        ^ not supported yet
   90  PROCEDURE scanf(_format: ARRAY OF CHAR): INTEGER;
*****                                    ^ not supported yet
   91  PROCEDURE vfprintf(_st: FileInf; _format: ARRAY OF CHAR; _argptr: ADDRESS): INTEGER;
*****                                                     ^ not supported yet
*****                                                                    ^ undeclared identifier
   92  PROCEDURE vfscanf(_st: FileInf; _format: ARRAY OF CHAR; _argptr: ADDRESS): INTEGER;
*****                                                    ^ not supported yet
*****                                                                   ^ undeclared identifier
   93  PROCEDURE vprintf(_format: ARRAY OF CHAR; _argptr: ADDRESS): INTEGER;
*****                                      ^ not supported yet
*****                                                     ^ undeclared identifier
   94  PROCEDURE vscanf(_format: ARRAY OF CHAR; _argptr: ADDRESS): INTEGER;
*****                                     ^ not supported yet
*****                                                    ^ undeclared identifier
   95  (*# restore *)
   96  
   97  PROCEDURE fcloseall(): INTEGER;
   98  PROCEDURE fdopen(_handle: INTEGER; _type: ARRAY OF CHAR): FileInf;
*****                                                     ^ not supported yet
   99  PROCEDURE fgetchar(): INTEGER;
  100  PROCEDURE fgetpos(_st: FileInf; VAR _fp: LONGINT): INTEGER;
  101  PROCEDURE fsetpos(_st: FileInf; VAR _fp: LONGINT): INTEGER;
  102  PROCEDURE flushall(): INTEGER;
  103  PROCEDURE fputchar(_c: INTEGER): INTEGER;
  104  PROCEDURE getw(_st: FileInf): INTEGER;
  105  PROCEDURE putw(_w: INTEGER; _st: FileInf): INTEGER;
  106  PROCEDURE _strerror(_s: ARRAY OF CHAR): ADDRESS;
*****                                   ^ not supported yet
*****                                          ^ undeclared identifier
  107  PROCEDURE unlink(_path: ARRAY OF CHAR): INTEGER;
*****                                   ^ not supported yet
  108  PROCEDURE _filbuf(_stt: FileInf): INTEGER;
  109  PROCEDURE _flsbuf(_c: INTEGER; _stt: FileInf): INTEGER;
  110  
  111  PROCEDURE putchar(_c: INTEGER): INTEGER;
  112  PROCEDURE getchar(): INTEGER;
  113  PROCEDURE putc(_c: INTEGER; _st: FileInf): INTEGER;
  114  PROCEDURE getc(_st: FileInf): INTEGER;
  115  PROCEDURE remove(_path: ARRAY OF CHAR): INTEGER;
*****                                   ^ not supported yet
  116  PROCEDURE fileno(_st: FileInf): CARDINAL;
  117  PROCEDURE feof(_st: FileInf): INTEGER;
  118  PROCEDURE ferror(_st: FileInf): INTEGER;
  119  
  120  CONST
  121      P_tmpdir = '\';
  122      L_tmpname = SIZE(P_tmpdir)+13;
*****                  ^ undeclared identifier
*****                               ^ not supported yet
  123      FOPEN_MAX = 15;
  124      FILENAME_MAX = 80;
  125      TMP_MAX = 10000;
  126  
  127  
  128  END stdio.
*****      ^ not supported yet

   58 errors