Topspeed_JPI/TS-V3/INCLUDE/PASLIB.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  PASLIB.DEF - Modula-2 interface to PASLIB.ITF                           *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tspas='on'") *)
   12  (*# call(o_a_copy => off, o_a_size=>off) *)
   13  (*# module(implementation=>off) *)
   14  (*%F _fdata *)
   15  (*# call(seg_name => null) *)
   16  (*# data(seg_name => null) *)
   17  (*%E *)
   18  
   19  DEFINITION MODULE PasLib;
   20  
   21  TYPE
   22    String80  = ARRAY [0..80] OF CHAR;  (* Byte 0 contains length *)
*****                          ^ not supported yet
*****                                 ^ not supported yet
   23    maxstring = ARRAY [0..256] OF CHAR; (* Byte 0 contains length *)
*****                          ^ not supported yet
*****                                  ^ not supported yet
   24    convstring = String80;              (* Byte 0 contains length *)
   25    namestring = String80;              (* Byte 0 contains length *)
   26    cmpres    = [-1..1];
   27    ifilemode = (rm,wm);
   28    States    = (Initialized, TextFile, TempFile, EOLinBuffer, Device, Assigned, ACrt, App);
   29    filetype  = RECORD
   30                  bufferptr: ADDRESS;  (* must be first field of RECORD          *)
*****                             ^ undeclared identifier
   31                  objectsize:CARDINAL;    (* must be second field of RECORD         *)
   32                  state: SET OF States;   (* must be third 3 field of RECORD, zero  *)
*****                                ^ not supported yet
   33                                     (* length name indicates a temporary file *)
   34                  mode: ifilemode;
   35                  handle: CARDINAL;
   36                  name:   String80;
   37                  stream: ADDRESS;
*****                          ^ undeclared identifier
   38                END;
*****                ^ not supported yet
   39  
   40  VAR
   41    _input: filetype;
*****            ^ not supported yet
   42    _output: filetype;
*****             ^ not supported yet
   43    winio: BOOLEAN;
   44    ClearOnAllocate :BOOLEAN;
   45    IOCheck   : BOOLEAN;
   46    IsoFormatting: BOOLEAN;
   47    HeapError : PROCEDURE(CARDINAL): INTEGER;
*****                ^ not supported yet
*****                          ^ not supported yet
*****                                     ^ not supported yet
   48    RandSeed  : LONGINT;
   49    IOBufferSize : CARDINAL;
   50    FileMode  : CARDINAL;
   51  
   52  CONST
   53    DefaultBufferSize = 512;
   54  
   55  PROCEDURE _allocate(VAR p:ADDRESS; s:CARDINAL);
*****                            ^ undeclared identifier
   56  PROCEDURE _deallocate(p:ADDRESS; s:CARDINAL);
*****                          ^ undeclared identifier
   57  PROCEDURE HALT;
   58  
   59  PROCEDURE _wrint(i:LONGINT;w:INTEGER);
   60  PROCEDURE _wrbool(b:BOOLEAN;w:INTEGER);
   61  PROCEDURE _wrchar(c:CHAR;w:INTEGER);
   62  PROCEDURE _wrastr(size, low, high: CARDINAL; s: ARRAY OF CHAR;w:INTEGER);
*****                                                           ^ not supported yet
   63  PROCEDURE _wrreal(r:LONGREAL;w:INTEGER;d:INTEGER);
   64  PROCEDURE _wrcstr(l:INTEGER; s: ADDRESS; w:INTEGER);
*****                                  ^ undeclared identifier
   65  PROCEDURE _wrln;
   66  PROCEDURE _page;
   67  PROCEDURE  _eoln():BOOLEAN;
   68  PROCEDURE  _eof():BOOLEAN;
   69  
   70  PROCEDURE _f_wrint(VAR f:filetype;i:LONGINT;w:INTEGER);
   71  PROCEDURE _f_wrbool(VAR f:filetype;b:BOOLEAN;w:INTEGER);
   72  PROCEDURE _f_wrchar(VAR f:filetype;c:CHAR;w:INTEGER);
   73  PROCEDURE _f_wrastr(VAR f:filetype;size, low, high: CARDINAL; s: ARRAY OF CHAR;w:INTEGER);
*****                                                                            ^ not supported yet
   74  PROCEDURE _f_wrcstr(VAR f:filetype;l:INTEGER;s: ADDRESS;w:INTEGER);
*****                                                  ^ undeclared identifier
   75  PROCEDURE _f_wrbin(VAR f:filetype;v: ADDRESS);
*****                                       ^ undeclared identifier
   76  PROCEDURE _f_wrreal(VAR f:filetype;r:LONGREAL;w:INTEGER;d:INTEGER);
   77  PROCEDURE _f_wrln(VAR f:filetype);
   78  PROCEDURE _f_page(VAR f:filetype);
   79  PROCEDURE  _f_eoln(VAR f:filetype):BOOLEAN;
   80  PROCEDURE  _f_eof(VAR f:filetype):BOOLEAN;
   81  
   82  PROCEDURE _rdint(VAR i:LONGINT);
   83  PROCEDURE _rdchar(VAR c:CHAR);
   84  PROCEDURE _rdbool(VAR b:BOOLEAN);
   85  PROCEDURE _rdstr(size: BYTE; VAR s:maxstring;len:INTEGER);
*****                         ^ undeclared identifier
   86  PROCEDURE _rdreal(VAR r:LONGREAL);
   87  PROCEDURE _rdln;
   88  
   89  PROCEDURE _f_rdint(VAR f:filetype;VAR i:LONGINT);
   90  PROCEDURE _f_rdchar(VAR f:filetype;VAR c:CHAR);
   91  PROCEDURE _f_rdbool(VAR f:filetype;VAR b:BOOLEAN;w:INTEGER);
   92  PROCEDURE _f_rdstr(VAR f:filetype;size: BYTE; VAR s:maxstring;len: INTEGER);
*****                                          ^ undeclared identifier
   93  PROCEDURE _f_rdbin(VAR f:filetype;v: ADDRESS);
*****                                       ^ undeclared identifier
   94  PROCEDURE _f_rdreal(VAR f:filetype;VAR r:LONGREAL);
   95  PROCEDURE _f_rdln(VAR f:filetype);
   96  
   97  PROCEDURE _rewrite(VAR f:filetype;rs:CARDINAL; IsText: BOOLEAN);
   98  PROCEDURE _append(VAR f:filetype;rs:CARDINAL; IsText: BOOLEAN);
   99  PROCEDURE _reset(VAR f:filetype;rs:CARDINAL; IsText: BOOLEAN);
  100  
  101  PROCEDURE assign(VAR f:filetype; size: BYTE; name: namestring);
*****                                         ^ undeclared identifier
  102  PROCEDURE put(VAR f:filetype);
  103  PROCEDURE get(VAR f:filetype);
  104  PROCEDURE close(VAR f:filetype);
  105  
  106  (* I/O extensions *)
  107  
  108  PROCEDURE  FilePos(VAR f: filetype): LONGINT;
  109  PROCEDURE  FileSize(VAR f: filetype): LONGINT;
  110  PROCEDURE  Seek(VAR f: filetype; pos: LONGINT);
  111  PROCEDURE  Flush(VAR f: filetype);
  112  PROCEDURE  IOresult(): CARDINAL;
  113  
  114  PROCEDURE  Rename(VAR f: filetype; size: BYTE; newname: ARRAY OF CHAR );
*****                                           ^ undeclared identifier
*****                                                                   ^ not supported yet
  115  PROCEDURE  Truncate(VAR f: filetype);
  116  PROCEDURE  Exists(VAR f: filetype): BOOLEAN;
  117  PROCEDURE  Erase(VAR f: filetype);
  118  
  119  TYPE
  120    DateTime = RECORD
  121                 Year, Month, Day, Hour, Min, Sec: CARDINAL;
  122               END;
*****               ^ not supported yet
  123  
  124  PROCEDURE PackTime(VAR DT: DateTime; VAR Time: LONGINT);
  125  PROCEDURE UnpackTime(Time: LONGINT; VAR DT: DateTime);
  126  PROCEDURE GetFTime(f: ADDRESS; VAR Time: LONGINT);
*****                        ^ undeclared identifier
  127  PROCEDURE SetFTime(f: ADDRESS; Time: LONGINT);
*****                        ^ undeclared identifier
  128  
  129  PROCEDURE GetFAttr(f: ADDRESS; VAR Attr: CARDINAL);
*****                        ^ undeclared identifier
  130  PROCEDURE SetFAttr(f: ADDRESS; Attr: CARDINAL);
*****                        ^ undeclared identifier
  131  
  132  PROCEDURE SetIOR(code: CARDINAL);
  133  
  134  (******************)
  135  
  136  PROCEDURE  _strcompare(s1,s2: ADDRESS):cmpres;
*****                                ^ undeclared identifier
  137  
  138  PROCEDURE _bindfile(VAR f:filetype;n:CARDINAL);
  139  
  140  (*# save *)
  141  (*# call(seg_name=>null) *)
  142  
  143  PROCEDURE   sin(r:LONGREAL):LONGREAL;
  144  PROCEDURE   cos(r:LONGREAL):LONGREAL;
  145  PROCEDURE   exp(r:LONGREAL):LONGREAL;
  146  PROCEDURE   log10(r:LONGREAL):LONGREAL;
  147  PROCEDURE   pow(x, y:LONGREAL):LONGREAL;
  148  PROCEDURE   ln(r:LONGREAL):LONGREAL;
  149  PROCEDURE   sqrt(r:LONGREAL):LONGREAL;
  150  PROCEDURE   arctan(r:LONGREAL):LONGREAL;
  151  PROCEDURE   frac(r:LONGREAL):LONGREAL;
  152  PROCEDURE   sqr(r:LONGREAL):LONGREAL;
  153  
  154  (* Math Extensions *)
  155  
  156  PROCEDURE   arccos(x: LONGREAL): LONGREAL;
  157  PROCEDURE   arcsin(x: LONGREAL): LONGREAL;
  158  PROCEDURE   arctan2(x: LONGREAL; y: LONGREAL): LONGREAL;
  159  PROCEDURE   cosh(x: LONGREAL): LONGREAL;
  160  PROCEDURE   sinh(x: LONGREAL): LONGREAL;
  161  PROCEDURE   tanh(x: LONGREAL): LONGREAL;
  162  PROCEDURE   tan(x: LONGREAL): LONGREAL;
  163  
  164  PROCEDURE   frexp(x: LONGREAL; VAR expo: INTEGER): LONGREAL;
  165  
  166  PROCEDURE   hypot(x, y: LONGREAL): LONGREAL;
  167  
  168  (*# restore *)
  169  
  170  PROCEDURE randomize;
  171  PROCEDURE random(range: CARDINAL): CARDINAL;
  172  
  173  PROCEDURE FreeMem(VAR p: ADDRESS; size: CARDINAL);
*****                           ^ undeclared identifier
  174  PROCEDURE GetMem(VAR p: ADDRESS; size: CARDINAL);
*****                          ^ undeclared identifier
  175  PROCEDURE  MaxAvail(): LONGINT;
  176  PROCEDURE  MemAvail(): LONGINT;
  177  
  178  PROCEDURE FillChar(x: ADDRESS; count: CARDINAL; ch: BYTE);
*****                        ^ undeclared identifier
*****                                                      ^ undeclared identifier
  179  PROCEDURE Move(source, dest: ADDRESS; count: CARDINAL);
*****                               ^ undeclared identifier
  180  PROCEDURE  Compare(Source: ADDRESS; Dest: ADDRESS; Len: CARDINAL) : CARDINAL;
*****                             ^ undeclared identifier
*****                                            ^ undeclared identifier
  181  PROCEDURE  ScanR(Dest: ADDRESS; Count: CARDINAL; Value: SHORTCARD) : CARDINAL;
*****                         ^ undeclared identifier
  182  PROCEDURE  ScanL(Dest: ADDRESS; Count: CARDINAL; Value: SHORTCARD) : CARDINAL;
*****                         ^ undeclared identifier
  183  PROCEDURE  ScanNeR(Dest: ADDRESS; Count: CARDINAL; Value: SHORTCARD) : CARDINAL;
*****                           ^ undeclared identifier
  184  PROCEDURE  ScanNeL(Dest: ADDRESS; Count: CARDINAL; Value: SHORTCARD) : CARDINAL;
*****                           ^ undeclared identifier
  185  
  186  CONST
  187  (*%T _fptr *)
  188    Ret = 0CBH;
  189  (*%E *)
  190  (*%F _fptr *)
  191    Ret = 0C3H;
  192  (*%E *)
  193  TYPE
  194    A7 = ARRAY [0..6] OF SHORTCARD;
*****                   ^ not supported yet
*****                         ^ not supported yet
  195    A5 = ARRAY [0..4] OF SHORTCARD;
*****                   ^ not supported yet
*****                         ^ not supported yet
  196  (*# save *)
  197  (*%F _fptr *)
  198  (*# call(reg_param=>(si,di,cx),reg_saved=>(ds,st1,st2), inline=>on) *)
  199  INLINE PROCEDURE FastMove(source, dest: ADDRESS; num: CARDINAL)=A5(1EH,07H,0F3H,0A4H,Ret);
  200  (*%E *)
  201  (*%T _fptr *)
  202  (*# call(reg_param=>(si,dx,es,di,cx),reg_saved=>(ds,st1,st2), inline=>on) *)
  203  INLINE PROCEDURE FastMove(source, dest: ADDRESS; num: CARDINAL)=A7(1EH,8EH,0DAH,0F3H,0A4H,1FH,Ret);
  204  (*%E *)
  205  (*# restore *)
  206  
  207  PROCEDURE IntToStr(V: LONGINT; size: BYTE; VAR S: convstring; Base: CARDINAL; VAR OK: BOOLEAN);
  208  
  209  PROCEDURE  StrToInt(size: BYTE; VAR S: ARRAY OF CHAR; Base: CARDINAL; VAR OK: BOOLEAN) : LONGINT;
  210  
  211  PROCEDURE  StrToReal(size: BYTE; VAR S: ARRAY OF CHAR; VAR OK: BOOLEAN) : LONGREAL;
  212  
  213  PROCEDURE RealToStr(RN: LONGREAL; Digits: INTEGER; VAR Width: INTEGER;
  214                     size: BYTE; VAR S: ARRAY OF CHAR;
  215                     VAR OK: BOOLEAN);
  216  
  217  PROCEDURE  Caps(size: BYTE; VAR s1: ARRAY OF CHAR);
  218  PROCEDURE  CharPos(size: BYTE; Source: ARRAY OF CHAR; c: CHAR) : CARDINAL;
  219  PROCEDURE  Delete(size: BYTE; VAR s: ARRAY OF CHAR; index: CARDINAL; count: CARDINAL);
  220  PROCEDURE  Insert(size: BYTE; source: ARRAY OF CHAR; size: BYTE; VAR s: ARRAY OF CHAR; index: CARDINAL);
  221  PROCEDURE  Lows(size: BYTE; VAR s1: ARRAY OF CHAR);
  222  PROCEDURE  Match(size: BYTE; Source: ARRAY OF CHAR; Psize: BYTE; Pattern: ARRAY OF CHAR) : BOOLEAN;
  223  PROCEDURE  NextPos(size: BYTE; substr: ARRAY OF CHAR; size: BYTE; s: ARRAY OF CHAR; place: SHORTCARD): SHORTCARD;
  224  PROCEDURE  Pos(size: BYTE; substr: ARRAY OF CHAR; size: BYTE; s: ARRAY OF CHAR): SHORTCARD;
  225  PROCEDURE  RCharPos(size: BYTE; Source: ARRAY OF CHAR; c: CHAR) : CARDINAL;
  226  
  227  END PasLib.
  228  

   47 errors