Topspeed_JPI/TS-V3/INCLUDE/OS2DEF.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  OS2DEF.DEF - Modula-2 OS/2 Common Definitions file                      *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  Copyright (c) 1988  Microsoft Corporation                               *
    8  *  All Rights Reserved                                                     *
    9  *  This file is compatible with OS/2 version 1.2.                          *
   10  *                                                                          *
   11  *--------------------------------------------------------------------------*)
   12  
   13  (*# call(o_a_size => off,
   14           o_a_copy=>off,
   15           result_optional=>on,
   16           reg_saved => (si, di, es, ds, st1, st2),
   17           reg_param => (),
   18           seg_name => none,
   19           near_call => off,
   20           ds_eq_ss => off) *)
   21  (*# module(implementation=>off, init_code => off) *)
   22  (*# name(prefix => os2_lib) *)
   23  (*# data(near_ptr => off) *)
   24  
   25  DEFINITION MODULE OS2DEF;
   26  
   27  TYPE
   28    SHANDLE   = CARDINAL;
   29    LHANDLE   = LONGCARD;
*****                ^ undeclared identifier
   30    SEL       = CARDINAL;
   31    ERRORID   = LONGCARD;
*****                ^ undeclared identifier
   32    LSET      = SET OF [0..31];
*****                             ^ not supported yet
   33  (*# save, data(var_enum_size=>off) *)
   34    BOOL      = (B_FALSE,B_TRUE);        (* ie 2 byte BOOLEAN for parameters *)
   35  (*# restore *)
   36  CONST
   37    SEVERITY_NOERROR       = 00H;
   38    SEVERITY_WARNING       = 04H;
   39    SEVERITY_ERROR         = 08H;
   40    SEVERITY_SEVERE        = 0CH;
   41    SEVERITY_UNRECOVERABLE = 010H;
   42  
   43  TYPE
   44  
   45    HMODULE = CARDINAL;
   46    PID     = CARDINAL;
   47    TID     = CARDINAL;
   48    HSEM    = FarADDRESS;
*****              ^ undeclared identifier
   49    HAB     = LHANDLE;
   50    HPS     = LHANDLE;
   51    PHPS    = FarADDRESS;
*****              ^ undeclared identifier
   52    HDC     = LHANDLE;
   53    HRGN    = LHANDLE;
   54    HBITMAP = LHANDLE;
   55    HMF     = LHANDLE;
   56    COLOR   = LONGINT;
   57    POINTL  = RECORD
   58                x,y : LONGINT;
   59              END;
*****              ^ not supported yet
   60    POINTS  = RECORD
   61                x,y : INTEGER;
   62              END;
*****              ^ not supported yet
   63      WPOINT              = RECORD
   64                              x          : INTEGER;
   65                              dummy1     : WORD;
*****                                           ^ undeclared identifier
   66                              y          : INTEGER;
   67                              dummy2     : WORD;
*****                                           ^ undeclared identifier
   68                            END; (*WPOINT*)
*****                            ^ not supported yet
   69    RECTL   = RECORD
   70                xLeft : LONGINT;
   71                yBottom : LONGINT;
   72                xRight : LONGINT;
   73                yTop : LONGINT;
   74              END;
*****              ^ not supported yet
   75      WRECT               = RECORD
   76                              xLeft      : INTEGER;
   77                              dummy1     : WORD;
*****                                           ^ undeclared identifier
   78                              yBottom    : INTEGER;
   79                              dummy2     : WORD;
*****                                           ^ undeclared identifier
   80                              xRight     : INTEGER;
   81                              dummy3     : WORD;
*****                                           ^ undeclared identifier
   82                              yTop       : INTEGER;
   83                              dummy4     : WORD;
*****                                           ^ undeclared identifier
   84                            END; (*WRECT*)
*****                            ^ not supported yet
   85    STR8    = ARRAY [0..7]  OF CHAR;
*****                        ^ not supported yet
*****                               ^ not supported yet
   86    STR16   = ARRAY [0..15] OF CHAR;
*****                        ^ not supported yet
*****                               ^ not supported yet
   87    STR32   = ARRAY [0..31] OF CHAR;
*****                        ^ not supported yet
*****                               ^ not supported yet
   88    STR64   = ARRAY [0..63] OF CHAR;
*****                        ^ not supported yet
*****                               ^ not supported yet
   89    LPSTR   = POINTER TO STR64;
*****                         ^ not supported yet
   90  
   91  (* Structure for Device Driver data *)
   92    DRIVDATA = RECORD
   93                 b             : LONGINT;
   94                 Version       : LONGINT;
   95                 DeviceName    : ARRAY [0..31] OF CHAR;
*****                                           ^ not supported yet
*****                                                  ^ not supported yet
   96                 GeneralData   : ARRAY [0..0] OF CHAR;
*****                                           ^ not supported yet
*****                                                 ^ not supported yet
   97               END;
*****               ^ not supported yet
   98  
   99  
  100  TYPE
  101  
  102  
  103    HWND = LONGCARD;
*****           ^ undeclared identifier
  104  
  105  
  106  CONST
  107     NULL = 0;
  108  VAR
  109     NullStr[0:0] : ARRAY[0..0] OF CHAR;  (* Null addresses for VAR parameters *)
*****             ^ not supported yet
*****               ^ not supported yet
*****                             ^ not supported yet
*****                                   ^ not supported yet
  110     NullVar[0:0] : ARRAY[0..0] OF BYTE;
*****             ^ not supported yet
*****               ^ not supported yet
*****                             ^ not supported yet
*****                                   ^ undeclared identifier
  111     NullAdr[0:0] : FarADDRESS;
*****             ^ not supported yet
*****               ^ not supported yet
*****                    ^ undeclared identifier
  112  
  113  END OS2DEF.
*****      ^ not supported yet
  114  

   43 errors