Topspeed_JPI/TS-V3/INCLUDE/STDLIB.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  STDLIB.DEF - Modula-2 interface to STDLIB.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 stdlib;
   18  
   19  TYPE
   20      ldiv_t = RECORD
   21                   quot,
   22                   rem: LONGINT;
   23               END;
*****               ^ not supported yet
   24      div_t = RECORD
   25                  quot,
   26                  rem: INTEGER;
   27              END;
*****              ^ not supported yet
   28      CompProc = PROCEDURE(ADDRESS, ADDRESS): INTEGER;
*****                 ^ not supported yet
*****                           ^ undeclared identifier
*****                                    ^ undeclared identifier
*****                                              ^ not supported yet
   29  
   30  PROCEDURE abort;
   31  PROCEDURE abs(_num: INTEGER): INTEGER;
   32  PROCEDURE atexit(_func: PROC): INTEGER;
*****                          ^ undeclared identifier
   33  PROCEDURE atof(_nptr: ARRAY OF CHAR): LONGREAL;
*****                                 ^ not supported yet
   34  PROCEDURE atoi(_nptr: ARRAY OF CHAR): INTEGER;
*****                                 ^ not supported yet
   35  PROCEDURE atol(_nptr: ARRAY OF CHAR): LONGINT;
*****                                 ^ not supported yet
   36  PROCEDURE atoul(_nptr: ARRAY OF CHAR): LONGCARD;
*****                                  ^ not supported yet
*****                                         ^ undeclared identifier
   37  PROCEDURE bsearch(_key,_base: ADDRESS;
*****                                ^ undeclared identifier
   38                    _num,_width: CARDINAL;
   39                    _compare: CompProc): ADDRESS;
*****                                         ^ undeclared identifier
   40  PROCEDURE calloc(_num,_size: CARDINAL): ADDRESS;
*****                                          ^ undeclared identifier
   41  PROCEDURE delay(_tm: CARDINAL);
   42  PROCEDURE div(_numer,_denom: INTEGER): div_t;
   43  PROCEDURE exit(_code: INTEGER);
   44  PROCEDURE free(_block: ADDRESS);
*****                         ^ undeclared identifier
   45  PROCEDURE getenv(_name: ARRAY OF CHAR): ADDRESS;
*****                                   ^ not supported yet
*****                                          ^ undeclared identifier
   46  PROCEDURE labs(_j: LONGINT): LONGINT;
   47  PROCEDURE ldiv(_numer,_denom: LONGINT): ldiv_t;
   48  PROCEDURE malloc(_size: CARDINAL): ADDRESS;
*****                                     ^ undeclared identifier
   49  PROCEDURE qsort(_base: ADDRESS;
*****                         ^ undeclared identifier
   50                  _num,_width: CARDINAL;
   51                  _compare: CompProc);
   52  PROCEDURE rand(): INTEGER;
   53  PROCEDURE randomize;
   54  PROCEDURE realloc(_block: ADDRESS; _size: CARDINAL): ADDRESS;
*****                            ^ undeclared identifier
*****                                                       ^ undeclared identifier
   55  PROCEDURE srand(_seed: CARDINAL);
   56  PROCEDURE system(_string: ARRAY OF CHAR): INTEGER;
*****                                     ^ not supported yet
   57  
   58  CONST
   59      MS_CUR_MAX = 1;
   60  
   61  PROCEDURE mblen(_s: ARRAY OF CHAR; _n: CARDINAL): INTEGER;
*****                               ^ not supported yet
   62  PROCEDURE mbtowc(VAR _pwc: ARRAY OF CHAR; _s: ARRAY OF CHAR; _n: CARDINAL): INTEGER;
*****                                      ^ not supported yet
*****                                                         ^ not supported yet
   63  PROCEDURE wctomb(_s: ARRAY OF CHAR; _wchar: CHAR): INTEGER;
*****                                ^ not supported yet
   64  PROCEDURE mbstowcs(VAR _pwcs: ARRAY OF CHAR; _s: ARRAY OF CHAR; _n: CARDINAL): CARDINAL;
*****                                         ^ not supported yet
*****                                                            ^ not supported yet
   65  PROCEDURE wcstombs(VAR _s: ARRAY OF CHAR; _pwcs: ARRAY OF CHAR; _n: CARDINAL): CARDINAL;
*****                                      ^ not supported yet
*****                                                            ^ not supported yet
   66  
   67  VAR
   68      _fmode: CARDINAL;
   69      sys_nerr: INTEGER;
   70  
   71  CONST
   72      EXIT_SUCCESS = 0;
   73      EXIT_FAILURE = 0FFH;
   74      RAND_MAX     = 32767;
   75  
   76  PROCEDURE ecvt(_value: LONGREAL; _digits: INTEGER; VAR _dec,_sign: INTEGER): ADDRESS;
*****                                                                               ^ undeclared identifier
   77  PROCEDURE _exit(_status: INTEGER);
   78  PROCEDURE fcvt(_value: LONGREAL; _digits: INTEGER; VAR _dec,_sign: INTEGER): ADDRESS;
*****                                                                               ^ undeclared identifier
   79  PROCEDURE gcvt(_value: LONGREAL; _ndec: INTEGER; VAR _buf: ARRAY OF CHAR): ADDRESS;
*****                                                                      ^ not supported yet
*****                                                                             ^ undeclared identifier
   80  PROCEDURE itoa(_value: INTEGER; VAR _string: ARRAY OF CHAR; _radix: INTEGER): ADDRESS;
*****                                                        ^ not supported yet
*****                                                                                ^ undeclared identifier
   81  PROCEDURE lfind(_key,_base: ADDRESS;
*****                              ^ undeclared identifier
   82                  _num,_width: CARDINAL;
   83                  _compare: CompProc): ADDRESS;
*****                                       ^ undeclared identifier
   84  
   85  PROCEDURE _lrotl(_val: LONGCARD; _count: INTEGER): LONGCARD;
*****                         ^ undeclared identifier
*****                                                     ^ undeclared identifier
   86  PROCEDURE _lrotr(_val: LONGCARD; _count: INTEGER): LONGCARD;
*****                         ^ undeclared identifier
*****                                                     ^ undeclared identifier
   87  
   88  PROCEDURE lsearch(_key,_base: ADDRESS;
*****                                ^ undeclared identifier
   89                    _num,_width: CARDINAL;
   90                    _compare: CompProc): ADDRESS;
*****                                         ^ undeclared identifier
   91  PROCEDURE ltoa(_value: LONGINT; VAR _s: ARRAY OF CHAR; _radix: INTEGER): ADDRESS;
*****                                                   ^ not supported yet
*****                                                                           ^ undeclared identifier
   92  PROCEDURE putenv(_name: ARRAY OF CHAR): INTEGER;
*****                                   ^ not supported yet
   93  PROCEDURE _searchenv(_name, _env: ARRAY OF CHAR; VAR _path: ARRAY OF CHAR);
*****                                             ^ not supported yet
*****                                                                       ^ not supported yet
   94  
   95  PROCEDURE _rotl(_value: LONGCARD; _count: INTEGER): CARDINAL;
*****                          ^ undeclared identifier
   96  PROCEDURE _rotr(_value: LONGCARD; _count: INTEGER): CARDINAL;
*****                          ^ undeclared identifier
   97  
   98  PROCEDURE swab(_from: ARRAY OF CHAR; VAR _to: ARRAY OF CHAR; _num: INTEGER);
*****                                 ^ not supported yet
*****                                                         ^ not supported yet
   99  PROCEDURE ultoa(_value: LONGCARD; VAR _s: ARRAY OF CHAR; _radix: INTEGER): ADDRESS;
*****                          ^ undeclared identifier
*****                                                     ^ not supported yet
*****                                                                             ^ undeclared identifier
  100  
  101  CONST
  102      _MAX_PATH  = 128;  (* max length of full pathname *)
  103      _MAX_DRIVE = 3;    (* max length of drive component *)
  104      _MAX_DIR   = 130;  (* max length of path component *)
  105      _MAX_FNAME = 9;    (* max length of file name component *)
  106      _MAX_EXT   = 5;    (* max length of extension component *)
  107  
  108  PROCEDURE _makepath(VAR _path: ARRAY OF CHAR; _drive,_dir,_name,_ext: ARRAY OF CHAR);
*****                                          ^ not supported yet
*****                                                                                 ^ not supported yet
  109  PROCEDURE _slitpath(_path: ARRAY OF CHAR; VAR _drive,_dir,_name,_ext: ARRAY OF CHAR);
*****                                      ^ not supported yet
*****                                                                                 ^ not supported yet
  110  
  111  END stdlib.
*****      ^ not supported yet

   62 errors