Topspeed_JPI/TS-V3/INCLUDE/PASDOS.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  PASDOS.DEF - Modula-2 interface to PASDOS.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_size=>off, o_a_copy=>off) *)
   13  (*%F _fdata *)
   14  (*# call(seg_name => null) *)
   15  (*# data(seg_name => null) *)
   16  (*%E *)
   17  (*# module(implementation=>off) *)
   18  
   19  DEFINITION MODULE PasDos;
   20  
   21  IMPORT PasLib, CoreFile, CoreMath;
   22  
   23  VAR
   24    AssignBuffer : PROCEDURE(VAR PasLib.filetype, BOOLEAN);
*****                   ^ not supported yet
*****                                        ^ not supported yet
*****                                                  ^ not supported yet
   25    read         : PROCEDURE (INTEGER, CoreFile.StreamPtr, INTEGER): INTEGER;
*****                   ^ not supported yet
*****                              ^ not supported yet
*****                                                ^ not supported yet
*****                                                           ^ not supported yet
*****                                                                     ^ not supported yet
   26    write        : PROCEDURE(INTEGER, CoreFile.StreamPtr, INTEGER): INTEGER;
*****                   ^ not supported yet
*****                             ^ not supported yet
*****                                               ^ not supported yet
*****                                                          ^ not supported yet
*****                                                                    ^ not supported yet
   27  
   28    RunTimeError: PROCEDURE(LONGINT, CARDINAL, SHORTCARD, ARRAY OF CHAR);
*****                  ^ not supported yet
*****                            ^ not supported yet
*****                                     ^ not supported yet
*****                                               ^ not supported yet
*****                                                                   ^ not supported yet
   29  
   30  
   31  TYPE
   32    Registers = RECORD
   33                  CASE : BOOLEAN OF
*****                  ^ not supported yet
*****                                 ^ 'POINTER' expected
   34                    | FALSE: AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags: CARDINAL;
   35                    | TRUE:  AL,AH,BL,BH,CL,CH,DL,DH: SHORTCARD;
   36                  END;
   37                END;
   38    ProcType = PROCEDURE;
   39  
   40  CONST
   41     ZeroFlag  = 040H;
   42  
   43  PROCEDURE  ParamCount(): CARDINAL;
   44  
   45  PROCEDURE  SysErrno(): CARDINAL;
   46  
   47  PROCEDURE  EnvCount(): LONGINT;
   48  
   49  (*# save *)
   50  (*# call(seg_name=>null) *)
   51  PROCEDURE Exec(Psize: BYTE; Path: ARRAY OF CHAR; Csize: BYTE; Command: ARRAY OF CHAR);
   52  (*# restore *)
   53  
   54  PROCEDURE DosExitCode(): CARDINAL;
   55  
   56  PROCEDURE SetExitCode(code: CARDINAL);
   57  
   58  PROCEDURE GetDate(VAR Year, Month, Day, DayOfWeek: CARDINAL);
   59  
   60  PROCEDURE SetDate(Year, Month, Day : CARDINAL);
   61  
   62  PROCEDURE GetTime(VAR Hour, Minute, Second, Hund: CARDINAL);
   63  
   64  PROCEDURE SetTime(Hour, Minute, Second, Hund: CARDINAL);
   65  
   66  PROCEDURE Intr(IntNo: SHORTCARD; VAR Regs: Registers);
   67  
   68  PROCEDURE MsDos(VAR Regs: Registers);
   69  
   70  PROCEDURE GetInProgramFlag(): SHORTCARD;
   71  
   72  PROCEDURE SetInProgramFlag(f: SHORTCARD);
   73  
   74  PROCEDURE Terminate(P : ProcType; VAR C: ProcType);
   75  
   76  TYPE
   77    CommandStr = ARRAY [0..127] OF CHAR;
   78  (*# save *)
   79  (*# data(near_ptr => off) *)
   80    CommandType = POINTER TO CommandStr;
   81  (*# restore *)
   82  
   83  TYPE
   84    PackedBcd   = ARRAY[0..9] OF SHORTCARD;
   85  
   86  (*# save *)
   87  (*# call(reg_param => (ax,bx,cx,dx), reg_saved => (ds,si,di,st1,st2)) *)
   88  PROCEDURE LongToBcd(A: REAL)  : PackedBcd;
   89  PROCEDURE BcdToLong(A: PackedBcd) : REAL;
   90  (*# restore *)
   91  
   92  (*# save *)
   93  (*# call(near_call=>off) *)
   94  TYPE
   95    HardHandler = PROCEDURE(CARDINAL, CARDINAL,  FarADDRESS);
   96  (*# restore *)
   97  PROCEDURE harderr(handler: HardHandler);
   98  PROCEDURE hardresume(code: CARDINAL);
   99  PROCEDURE hardretn(code: CARDINAL);
  100  PROCEDURE ProtectedMode(): BOOLEAN;
  101  
  102  TYPE
  103    CpuKind = (cpu_Unknown,cpu_V20,cpu_V30,cpu_8088,cpu_8086,
  104               cpu_80188,cpu_80186,
  105               cpu_80286,cpu_80386);
  106  
  107    FpuKind = (fpu_none,fpu_8087,fpu_80287,fpu_80387);
  108  
  109    CpuRec = RECORD
  110                cpu : CpuKind;
  111                fpu : FpuKind;
  112             END;
  113  
  114  PROCEDURE CpuId (VAR r : CpuRec );
  115  
  116  PROCEDURE EnableBreakCheck;
  117  PROCEDURE DisableBreakCheck;
  118  PROCEDURE Delay(ms: CARDINAL);
  119  
  120  VAR
  121    LastChar : CHAR ;
  122    LastScan : SHORTCARD ;
  123  
  124  PROCEDURE  KeyPressed(): BOOLEAN ;
  125  PROCEDURE  RdKey(): CHAR ;
  126  PROCEDURE  RdChar(): CHAR ;
  127  
  128  TYPE
  129    KBF = ( RShift, LShift, Ctrl, Alt, Scroll, Num, Cap, Ins );
  130    KBFlagSet = SET OF KBF ;
  131  
  132  PROCEDURE  KBFlags(): KBFlagSet ;
  133  
  134  (*
  135  TYPE
  136    Exception = RECORD
  137      etype: CARDINAL;
  138      Name: address;
  139      arg1, arg2, retval: REAL;
  140    END;
  141  VAR
  142    matherr: PROCEDURE (VAR E: Exception): CARDINAL;
  143  *)
  144  
  145  CONST
  146    matherr   ::= CoreMath.matherr;
  147    Exception ::= CoreMath.Exception;
  148  
  149    ReadOnly  = 01H;
  150    Hidden    = 02H;
  151    SysFile   = 04H;
  152    VolumeID  = 08H;
  153    Directory = 10H;
  154    Archive   = 20H;
  155    AnyFile   = 3FH;
  156  
  157  TYPE
  158    SearchRec = RECORD
  159                  Fill: ARRAY [1..21] OF SHORTCARD;
  160                  Attr: SHORTCARD;
  161                  Time: LONGINT;
  162                  Size: LONGINT;
  163                  Name: ARRAY [0..12] OF CHAR;
  164                END;
  165  
  166  
  167  PROCEDURE FindFirst(size: BYTE; Path: ARRAY OF CHAR; Attr: CARDINAL; VAR S: SearchRec);
  168  PROCEDURE FindNext(VAR S: SearchRec);
  169  PROCEDURE ChDir(size: BYTE; s: ARRAY OF CHAR);
  170  PROCEDURE GetDir(d: SHORTCARD; size: BYTE; VAR s: ARRAY OF CHAR);
  171  PROCEDURE MkDir(size: BYTE; s: ARRAY OF CHAR);
  172  PROCEDURE RmDir(size: BYTE; s: ARRAY OF CHAR);
  173  
  174  END PasDos.

   20 errors