Topspeed_JPI/TS-V3/INCLUDE/DOS.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  DOS.DEF - Modula-2 OS/2 API Dos...  API interface                       *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# call(o_a_size => off,
   12           o_a_copy=>off,
   13           result_optional=>on,
   14           reg_saved => (bx, cx, dx, si, di, es, ds, st1, st2),
   15           reg_param => (),
   16           seg_name => none,
   17           near_call => off,
   18           ds_eq_ss => off) *)
   19  (*# module(implementation=>off, init_code => off) *)
   20  (*# name(prefix => os2_lib) *)
   21  (*# data(near_ptr => off) *)
   22  DEFINITION MODULE Dos;
   23  
   24  (**)
   25  (**--- OS/2 Kernel Dos calls -----------------------------------------------*)
   26  (**)
   27  
   28  (**)
   29  (*--- Conditional sections, set to TRUE if required ------------------------*)
   30  (**)
   31  
   32  CONST
   33    i_PROCESS         = TRUE;     (* Threads & Processes *)
   34    i_INFOSEG         = TRUE;     (* Info Segment *)
   35    i_FILEMGR         = TRUE;     (* File Manager *)
   36    i_MEMMGR          = TRUE;     (* Memory Manager *)
   37    i_SEMAPHORE       = TRUE;     (* Semaphores *)
   38    i_DATETIME        = TRUE;     (* Date & Time *)
   39    i_MODULEMGR       = TRUE;     (* Module Manager *)
   40    i_RESOURCE        = TRUE;     (* Resource Manager *)
   41    i_NLS             = TRUE;     (* National Language Support *)
   42    i_SIGNAL          = TRUE;     (* Signal Manager *)
   43    i_MONITOR         = TRUE;     (* Device monitors *)
   44    i_QUEUES          = TRUE;     (* Pipes and queues *)
   45    i_MISC            = TRUE;     (* Miscellaneous dos services *)
   46    i_SESSION         = TRUE;     (* Session Manager *)
   47    i_DEVICE          = TRUE;     (* Device support *)
   48    i_NMPIPES         = TRUE;     (* Named pipes *)
   49    i_FONT            = TRUE;     (* Font support *)
   50  
   51  TYPE
   52    HSEM        = FarADDRESS;     (* Used in more than one section *)
*****                  ^ undeclared identifier
   53    Os2ProcType = PROCEDURE();
*****                  ^ not supported yet
   54  
   55  (**)
   56  (**--Dos General Services--------------------------------------------------*)
   57  (**)
   58  PROCEDURE Beep(frqncy,duratn:CARDINAL) : CARDINAL;
   59  PROCEDURE Exit(action,result:CARDINAL);
   60  CONST
   61    EXIT_THREAD        = 0;  EXIT_PROCESS       = 1;
   62  
   63  (**)
   64  (*--Process routines-------------------------------------------------------*)
   65  (**)
   66  (*%T i_PROCESS *)
   67  
   68  TYPE
   69    PIDINFO = RECORD
   70                pid : CARDINAL;
   71                tid : CARDINAL;
   72                pidParent : CARDINAL;
   73              END;
*****              ^ not supported yet
   74  (*# save *)
   75  (*# call(reg_saved => (ds,si,di,st1,st2),
   76           near_call=>off) *)
   77    THREAD     = PROCEDURE ();
*****                 ^ not supported yet
   78    EXITLIST   = PROCEDURE (CARDINAL);
*****                 ^ not supported yet
*****                            ^ not supported yet
   79  (*# restore *)
   80  
   81  PROCEDURE CreateThread(paddr:THREAD; VAR thread:CARDINAL; staddr:FarADDRESS) : CARDINAL;
*****                                                                   ^ undeclared identifier
   82  PROCEDURE ResumeThread(thread:CARDINAL) : CARDINAL;
   83  PROCEDURE SuspendThread(thread:CARDINAL) : CARDINAL;
   84  
   85  (* Values/types for DosCWait and DosExecPgm *)
   86  CONST
   87    DCWA_PROCESS       = 0;  DCWA_PROCESSTREE   = 1;
   88    DCWW_WAIT          = 0;  DCWW_NOWAIT        = 1;
   89  
   90  TYPE
   91    RESULTCODES = RECORD
   92                    codeTerminate : CARDINAL;
   93                    codeResult : CARDINAL;
   94                  END;
*****                  ^ not supported yet
   95  PROCEDURE CWait(action,wait:CARDINAL; VAR tcodes:RESULTCODES; VAR procadd:CARDINAL; process:CARDINAL) : CARDINAL;
   96  PROCEDURE Sleep(time:LONGCARD) : CARDINAL;
*****                       ^ undeclared identifier
   97  PROCEDURE EnterCritSec();
   98  PROCEDURE ExitCritSec();
   99  
  100  CONST
  101  (* codeTerminate values *)
  102    TC_EXIT            = 0;  TC_HARDERROR       = 1;
  103    TC_TRAP            = 2;  TC_KILLPROCESS     = 3;
  104  (*DosExitList functions *)
  105    EXLST_ADD          = 1;  EXLST_REMOVE       = 2;  EXLST_EXIT         = 3;
  106  PROCEDURE ExitList(fcncode:CARDINAL; rtnaddr:EXITLIST) : CARDINAL;
  107  
  108  PROCEDURE ExecPgm(   VAR buff:ARRAY OF CHAR; buflen:INTEGER;
*****                                         ^ not supported yet
  109                       eflag:CARDINAL; args:ARRAY OF CHAR;
*****                                                     ^ not supported yet
  110                       environ:ARRAY OF CHAR; VAR result:RESULTCODES;
*****                                        ^ not supported yet
  111                       pgmfile:ARRAY OF CHAR) : CARDINAL;
*****                                        ^ not supported yet
  112  
  113  CONST (* ExecPgm functions *)
  114    EXEC_SYNC          = 0;  EXEC_ASYNC         = 1;
  115    EXEC_ASYNCRESULT   = 2;  EXEC_TRACE         = 3;
  116    EXEC_BACKGROUND    = 4;  EXEC_LOAD          = 5;
  117  
  118  PROCEDURE GetPID(VAR parea:PIDINFO);
  119  PROCEDURE GetPPid(ChildId: CARDINAL; VAR ParentId: CARDINAL): CARDINAL;
  120  PROCEDURE GetPrty(scope:CARDINAL; VAR prty:CARDINAL; procid:CARDINAL) : CARDINAL;
  121  PROCEDURE SetPrty(scope,class:CARDINAL; delta:INTEGER; procid:CARDINAL) : CARDINAL;
  122  
  123  CONST (* Priority scopes, classes & deltas *)
  124    PRTYS_PROCESS      = 0;  PRTYS_PROCESSTREE  = 1;  PRTYS_THREAD       = 2;
  125    PRTYC_NOCHANGE     = 0;  PRTYC_IDLETIME     = 1;
  126    PRTYC_REGULAR      = 2;  PRTYC_TIMECRITICAL = 3;
  127    PRTYC_FOREGROUNDSERVER = 4;
  128    PRTYD_MINIMUM = -31;
  129    PRTYD_MAXIMUM = 31;
  130  
  131  PROCEDURE KillProcess(action,procid:CARDINAL) : CARDINAL;
  132  CONST (* Values for DosKillProcess *)
  133    DKP_PROCESSTREE    = 0;  DKP_PROCESS        = 1;
  134  
  135  (*%E *)
  136  (**)
  137  (*-- Dos Info Segment support ----------------------------------------------*)
  138  (**)
  139  (*%T i_INFOSEG *)
  140  
  141  TYPE
  142  (* Global info seg *)
  143    GINFOSEG = RECORD
  144                 time               : LONGCARD;
*****                                      ^ undeclared identifier
  145                 msecs              : LONGCARD;
*****                                      ^ undeclared identifier
  146                 hour               : SHORTCARD;
  147                 minutes            : SHORTCARD;
  148                 seconds            : SHORTCARD;
  149                 hundredths         : SHORTCARD;
  150                 timezone           : CARDINAL;
  151                 usecTimerInterval  : CARDINAL;
  152                 day                : SHORTCARD;
  153                 month              : SHORTCARD;
  154                 year               : CARDINAL;
  155                 weekday            : SHORTCARD;
  156                 majorVersion       : SHORTCARD;
  157                 minorVersion       : SHORTCARD;
  158                 revisionLetter     : SHORTCARD;
  159                 current            : SHORTCARD;
  160                 gMax               : SHORTCARD;
  161                 hugeShift          : SHORTCARD;
  162                 protectModeOnly    : BOOLEAN;
  163                 pidForeground      : CARDINAL;
  164                 dynamicSched       : BOOLEAN;
  165                 secMaxWait         : SHORTCARD;
  166                 msecMinSlice       : CARDINAL;
  167                 msecMaxSlice       : CARDINAL;
  168                 bootdrive          : CARDINAL;
  169                 amecRAS            : ARRAY [0..31] OF SHORTCARD;
*****                                                ^ not supported yet
*****                                                       ^ not supported yet
  170                 windowableVioMax   : SHORTCARD;
  171                 PMMax              : SHORTCARD;
  172               END;
*****               ^ not supported yet
  173    PGINFOSEG = POINTER TO GINFOSEG;
*****                           ^ not supported yet
  174    (* Local Info Seg *)
  175    LINFOSEG = RECORD
  176                 pidCurrent     : CARDINAL;
  177                 pidParent      : CARDINAL;
  178                 prtyCurrent    : CARDINAL;
  179                 tidCurrent     : CARDINAL;
  180                 sgCurrent      : CARDINAL;
  181                 rfProcStatus   : SHORTCARD;
  182                 dummy1         : SHORTCARD;
  183                 foreground     : CARDINAL;
  184                 typeProcess    : SHORTCARD;
  185                 dummy2         : SHORTCARD;
  186                 selEnvironment : CARDINAL;
  187                 offCmdLine     : CARDINAL;
  188                 dataSegment    : CARDINAL;
  189                 stack          : CARDINAL;
  190                 cbHeap         : CARDINAL;
  191                 hmod           : CARDINAL;
  192                 selDS          : CARDINAL;
  193               END;
*****               ^ not supported yet
  194    PLINFOSEG = POINTER TO LINFOSEG;
*****                           ^ not supported yet
  195  
  196  CONST
  197  (* Values for local typeProcess field *)
  198    PT_FULLSCREEN     = 0;      (* Full screen app.          *)
  199    PT_REALMODE       = 1;      (* Real mode process         *)
  200    PT_WINDOWABLEVIO  = 2;      (* VIO windowable app.       *)
  201    PT_PM             = 3;      (* Presentation Manager app. *)
  202    PT_DETACHED       = 4;      (* Detached app.             *)
  203  
  204  (* Values for local rfProgStatus field *)
  205    PS_EXITLIST       = 1;      (* Thread is in exitlist routine *)
  206  
  207  PROCEDURE GetInfoSeg(VAR global,local:CARDINAL);
  208  
  209  (*%E *)
  210  (**)
  211  (*-- File Manager support ------------------------------------------------*)
  212  (**)
  213  (*%T i_FILEMGR *)
  214  
  215  CONST
  216  (* DosChgFilePtr() file position codes *)
  217  
  218    FILE_BEGIN      = 00H;  (* Move relative to beginning of file     *)
  219    FILE_CURRENT    = 01H;  (* Move relative to current fptr position *)
  220    FILE_END        = 02H;  (* Move relative to end of file           *)
  221  
  222  (* DosFindFirst/Next Directory handle types *)
  223  
  224    HDIR_SYSTEM  = 1;       (* Use system handle (1)         *)
  225    HDIR_CREATE  = 0FFFFH;  (* Allocate a new, unused handle *)
  226  
  227  (* DosCopy control bits; may be or'ed together *)
  228    DCPY_EXISTING   = 01H;         (* Copy even if target exists *)
  229    DCPY_APPEND     = 02H;         (* Append to existing file,   *)
  230                                   (* do not replace             *)
  231  
  232  (* Dosopen/DosQFHandState/DosQueryFileInfo et al file attributes; also *)
  233  (* known as Dso File Mode bits... *)
  234  
  235    FILE_NORMAL     = 00H;
  236    FILE_READONLY   = 01H;
  237    FILE_HIDDEN     = 02H;
  238    FILE_SYSTEM     = 04H;
  239    FILE_DIRECTORY  = 010H;
  240    FILE_ARCHIVED   = 020H;
  241  
  242  (* DosOpen() actions *)
  243  
  244    FILE_EXISTED    = 01H;
  245    FILE_CREATED    = 02H;
  246    FILE_TRUNCATED  = 03H;
  247  
  248  (* DosOpen() open flags *)
  249  
  250    FILE_OPEN       = 01H;
  251    FILE_TRUNCATE   = 02H;
  252    FILE_CREATE     = 010H;
  253  
  254  (*     this nibble applies if file already exists                xxxx *)
  255  
  256    OPEN_ACTION_FAIL_IF_EXISTS     = 00H;  (* ---- ---- ---- 0000 *)
  257    OPEN_ACTION_OPEN_IF_EXISTS     = 01H;  (* ---- ---- ---- 0001 *)
  258    OPEN_ACTION_REPLACE_IF_EXISTS  = 02H;  (* ---- ---- ---- 0010 *)
  259  
  260  (*     this nibble applies if file does not exist           xxxx      *)
  261  
  262    OPEN_ACTION_FAIL_IF_NEW        = 00H;  (* ---- ---- 0000 ---- *)
  263    OPEN_ACTION_CREATE_IF_NEW      = 010H;  (* ---- ---- 0001 ---- *)
  264  
  265  (* DosOpen/DosSetFHandState flags *)
  266  
  267    OPEN_ACCESS_READONLY        = 00H;    (* ---- ---- ---- -000 *)
  268    OPEN_ACCESS_WRITEONLY       = 01H;    (* ---- ---- ---- -001 *)
  269    OPEN_ACCESS_READWRITE       = 02H;    (* ---- ---- ---- -010 *)
  270    OPEN_SHARE_DENYREADWRITE    = 010H;   (* ---- ---- -001 ---- *)
  271    OPEN_SHARE_DENYWRITE        = 020H;   (* ---- ---- -010 ---- *)
  272    OPEN_SHARE_DENYREAD         = 030H;   (* ---- ---- -011 ---- *)
  273    OPEN_SHARE_DENYNONE         = 040H;   (* ---- ---- -100 ---- *)
  274    OPEN_FLAGS_NOINHERIT        = 080H;   (* ---- ---- 1--- ---- *)
  275    OPEN_FLAGS_NO_LOCALITY      = 000H;   (* ---- -000 ---- ---- *)
  276    OPEN_FLAGS_SEQUENTIAL       = 0100H;  (* ---- -001 ---- ---- *)
  277    OPEN_FLAGS_RANDOM           = 0200H;  (* ---- -010 ---- ---- *)
  278    OPEN_FLAGS_RANDOMSEQUENTIAL = 0300H;  (* ---- -011 ---- ---- *)
  279    OPEN_FLAGS_NO_CACHE         = 01000H; (* ---1 ---- ---- ---- *)
  280    OPEN_FLAGS_FAIL_ON_ERROR    = 02000H; (* --1- ---- ---- ---- *)
  281    OPEN_FLAGS_WRITE_THROUGH    = 04000H; (* -1-- ---- ---- ---- *)
  282    OPEN_FLAGS_DASD             = 08000H; (* 1--- ---- ---- ---- *)
  283  
  284  (* DosSearchPath() constants *)
  285  
  286    SEARCH_PATH            = 00H;
  287    SEARCH_CUR_DIRECTORY   = 01H;
  288    SEARCH_ENVIRONMENT     = 02H;
  289    SEARCH_IGNORENETERRS   = 04H;
  290  
  291  (* File IO command words *)
  292    FIO_LOCK        = 0;       (* Lock Files          *)
  293    FIO_UNLOCK      = 1;       (* Unlock Files        *)
  294    FIO_SEEK        = 2;       (* Seek (set file ptr) *)
  295    FIO_READ        = 3;       (* File Read           *)
  296    FIO_WRITE       = 4;       (* File Write          *)
  297  
  298  (* Lock Sharing Modes *)
  299    FIO_NOSHARE     = 0;       (* None      *)
  300    FIO_SHAREREAD   = 1;       (* Read-Only *)
  301  
  302  TYPE
  303    FIOLOCKCMD = RECORD                (* FLC  FileLockCmd prefix *)
  304                   Cmd    : CARDINAL;  (* Cmd = FIO_LOCK           *)
  305                   LockCnt: CARDINAL;  (* Lock records that follow *)
  306                   TimeOut: LONGCARD;  (* in Msec                  *)
*****                            ^ undeclared identifier
  307                 END;
*****                 ^ not supported yet
  308  
  309    FIOLOCKREC = RECORD                (* FLR FileLockRecord              *)
  310                   fShare: CARDINAL;   (* FIO_NOSHARE or FIO_SHAREREAD    *)
  311                   Start: LONGCARD;    (* Starting offset for lock region *)
*****                          ^ undeclared identifier
  312                   Length: LONGCARD;   (* Length of lock region           *)
*****                           ^ undeclared identifier
  313                 END;
*****                 ^ not supported yet
  314  
  315    FIOUNLOCKCMD = RECORD                 (* FUC FileUnlockCmd prefix   *)
  316                     Cmd: CARDINAL;       (* Cmd = FIO_UNLOCK           *)
  317                     UnlockCnt: CARDINAL; (* Unlock records that follow *)
  318                   END;
*****                   ^ not supported yet
  319  
  320  
  321    FIOUNLOCKREC = RECORD                 (* FUR FileUnlockRecord              *)
  322                     Start: LONGCARD;     (* Starting offset for unlock region *)
*****                            ^ undeclared identifier
  323                     Length: LONGCARD;    (* Length of unlock region           *)
*****                             ^ undeclared identifier
  324                   END;
*****                   ^ not supported yet
  325  
  326    FIOSEEKCMD = RECORD                   (* Seek command structure             *)
  327                   Cmd: CARDINAL;         (* Cmd = FIO_SEEK                     *)
  328                   Method: CARDINAL;      (* One of : FPM_BEGINNING,            *)
  329                                          (* FPM_CURRENT,or FPM_END             *)
  330                   Distance: LONGCARD;    (* Byte offset for seek               *)
*****                             ^ undeclared identifier
  331                   NewPosition: LONGCARD; (* Bytes from start of file after     *)
*****                                ^ undeclared identifier
  332                                          (* seek                               *)
  333                 END;
*****                 ^ not supported yet
  334  
  335    FIOREADWRITE = RECORD                 (* RWC Read&Write command structure *)
  336                     Cmd: CARDINAL;       (* Cmd = FIO_READ or FIO_WRITE      *)
  337                     pBuffer: FarADDRESS; (* Pointer to data buffer           *)
*****                              ^ undeclared identifier
  338                     BufferLen: CARDINAL; (* Bytes in buffer or max size      *)
  339                     ActualLen: CARDINAL; (* Bytes actually read/written      *)
  340                   END;
*****                   ^ not supported yet
  341  
  342  (************************************************************
  343  EA Info Levels & Find First/Next
  344  =========================================
  345  API's: DosFindFirst, DosQueryFileInfo, DosQueryPathInfo, DosSetFileInfo,
  346         DosSetPathInfo
  347  ************************************************************)
  348  
  349  CONST
  350  (* File info levels: All listed API's *)
  351    FIL_STANDARD          = 1;      (* Info level 1, standard file info *)
  352    FIL_QUERYEASIZE       = 2;      (* Level 2, return Full EA size     *)
  353    FIL_QUERYEASFROMLIST  = 3;      (* Level 3, return requested EA's   *)
  354  
  355  (* File info levels: Dos...PathInfo only *)
  356    FIL_QUERYFULLNAME     = 5;      (* Level 5, return fully qualified  *)
  357                                          (* name of file                     *)
  358    FIL_NAMEISVALID       = 6;      (* Level 6, check validity of file/path
  359                                             name for this FSD                *)
  360  
  361  
  362  
  363  (* DosFindNotifyFirst() *)
  364    FNOTIL_STANDARD = 1;    (* Find-Notify Info level 1: Return
  365                                     standard directory change info *)
  366  
  367  
  368  (* DosFsAttach() *)
  369  (* Attact or detach *)
  370    FSATTACH     = 0;      (* Attach file server *)
  371    FSDETACH     = 1;      (* Detach file server *)
  372  
  373  
  374  (* DosFsCtl() *)
  375  (* Routing type *)
  376    FSCTL_HANDLE   = 1;    (* File Handle directs req routing *)
  377    FSCTL_PATHNAME = 2;    (* Path Name directs req routing   *)
  378    FSCTL_FSDNAME  = 3;    (* FSD Name directs req routing    *)
  379  
  380  
  381  (* DosQueryFSAttach() *)
  382  (* Information level types (defines method of query) *)
  383    FSAIL_QUERYNAME = 1;       (* Return data for a Drive or Device *)
  384    FSAIL_DEVNUMBER = 2;       (* Return data for Ordinal Device #  *)
  385    FSAIL_DRVNUMBER = 3;       (* Return data for Ordinal Drive #   *)
  386  
  387  (* Item types (from data structure item "iType") *)
  388    FSAT_CHARDEV   = 1;       (* Resident character device    *)
  389    FSAT_PSEUDODEV = 2;       (* Pusedu-character device      *)
  390    FSAT_LOCALDRV  = 3;       (* Local drive                  *)
  391    FSAT_REMOTEDRV = 4;       (* Remote drive attached to FSD *)
  392  
  393  (***********
  394  File System Drive Information&gml DosQueryFSInfo DosSetFSInfo
  395  ***********)
  396  
  397  (* FS Drive Info Levels *)
  398    FSIL_ALLOC     = 1;       (* Drive allocation info (Query only) *)
  399    FSIL_VOLSER    = 2;       (* Drive Volum/Serial info            *)
  400  
  401  (* DosQueryFHType() *)
  402  (* Handle classes (low 8 bits of Handle Type) *)
  403    FHT_DISKFILE    = 00H;          (* Disk file handle        *)
  404    FHT_CHRDEV      = 01H;          (* Character device handle *)
  405    FHT_PIPE        = 02H;          (* Pipe handle             *)
  406  
  407  (* Handle bits (high 8 bits of Handle Type) *)
  408    FHB_DSKREMOTE        = 08000H;  (* Remote disk             *)
  409    FHB_CHRDEVREMOTE     = 08000H;  (* Remote character device *)
  410    FHB_PIPEREMOTE       = 08000H;  (* Remote pipe             *)
  411  
  412  TYPE
  413    HFILE = CARDINAL;
  414    FDATE = CARDINAL;
  415    FTIME = CARDINAL;
  416  
  417    FILEFINDBUF = RECORD
  418                    fdateCreation   : FDATE;
  419                    ftimeCreation   : FTIME;
  420                    fdateLastAccess : FDATE;
  421                    ftimeLastAccess : FTIME;
  422                    fdateLastWrite  : FDATE;
  423                    ftimeLastWrite  : FTIME;
  424                    fileSize        : LONGCARD;
*****                                      ^ undeclared identifier
  425                    fileAlloc       : LONGCARD;
*****                                      ^ undeclared identifier
  426                    attrFile        : CARDINAL;
  427                    cname           : SHORTCARD;
  428                    name            : ARRAY [0..12] OF CHAR;
*****                                                ^ not supported yet
*****                                                       ^ not supported yet
  429                  END;
*****                  ^ not supported yet
  430  
  431    FILEFINDBUF2= RECORD
  432                    fdateCreation   : FDATE;
  433                    ftimeCreation   : FTIME;
  434                    fdateLastAccess : FDATE;
  435                    ftimeLastAccess : FTIME;
  436                    fdateLastWrite  : FDATE;
  437                    ftimeLastWrite  : FTIME;
  438                    fileSize        : LONGCARD;
*****                                      ^ undeclared identifier
  439                    fileAlloc       : LONGCARD;
*****                                      ^ undeclared identifier
  440                    attrFile        : CARDINAL;
  441                    cbList          : LONGCARD;
*****                                      ^ undeclared identifier
  442                    cname           : SHORTCARD;
  443                    name            : ARRAY [0..12] OF CHAR;
*****                                                ^ not supported yet
*****                                                       ^ not supported yet
  444                  END;
*****                  ^ not supported yet
  445  
  446  (* extended attribute structures *)
  447  
  448    GEA = RECORD
  449            cbName: SHORTCARD;          (* name length not including NULL *)
  450            Name: ARRAY [0..0] OF CHAR; (* attribute name                 *)
*****                            ^ not supported yet
*****                                  ^ not supported yet
  451          END;
*****          ^ not supported yet
  452  
  453    GEALIST = RECORD
  454                cbList: LONGCARD; (* total bytes of structure including full list *)
*****                        ^ undeclared identifier
  455                list: ARRAY [0..0] OF GEA;  (* variable length GEA structures               *)
*****                                ^ not supported yet
*****                                      ^ not supported yet
  456              END;
*****              ^ not supported yet
  457  
  458    FEA = RECORD
  459            fea: SHORTCARD;    (* flags                          *)
  460            cbName: SHORTCARD; (* name length not including NULL *)
  461            cbValue: CARDINAL; (* value length                   *)
  462          END;
*****          ^ not supported yet
  463  
  464  
  465  (* flags for _FEA.fea *)
  466  CONST
  467    FEA_NEEDEA = 080H;     (* need EA bit *)
  468  
  469  TYPE
  470    FEALIST = RECORD
  471                cbList: LONGCARD; (* total bytes of structure including full list *)
*****                        ^ undeclared identifier
  472                list: ARRAY [0..0] OF FEA;  (* variable length FEA structures     *)
*****                                ^ not supported yet
*****                                      ^ not supported yet
  473              END;
*****              ^ not supported yet
  474  
  475    EAOP = RECORD
  476             GEAList: FarADDRESS;     (* general EA list *)
*****                      ^ undeclared identifier
  477             FEAList: FarADDRESS;     (* full EA list    *)
*****                      ^ undeclared identifier
  478             Error: LONGCARD;
*****                    ^ undeclared identifier
  479           END;
*****           ^ not supported yet
  480  
  481  (*
  482   * Equates for the types of EAs that follow the convention that we have
  483   * established.
  484   *
  485   * Values 0xFFFE thru 0x8000 are reserved.
  486   * Values 00 thru 0x7fff are user definable.
  487   *)
  488  
  489  CONST
  490    EAT_BINARY   = 0FFFEH; (* length preceeded binary            *)
  491    EAT_ASCII    = 0FFFDH; (* length preceeded ASCII             *)
  492    EAT_BITMAP   = 0FFFBH; (* length preceeded bitmap            *)
  493    EAT_METAFILE = 0FFFAH; (* length preceeded metafile          *)
  494    EAT_ICON     = 0FFF9H; (* length preceeded icon              *)
  495    EAT_EA       = 0FFEEH; (* length preceeded ASCII ext. attr.  *)
  496                           (* name of associated data (#include) *)
  497    EAT_MVMT     = 0FFDFH; (* multi-valued, multi-typed field    *)
  498    EAT_MVST     = 0FFDEH; (* multi-valued, single-typed field   *)
  499    EAT_ASN1     = 0FFDDH; (* ASN.1 field                        *)
  500  
  501  PROCEDURE Open(name:ARRAY OF CHAR; VAR handle:HFILE; VAR action:CARDINAL; size:LONGCARD;
*****                               ^ not supported yet
*****                                                                                 ^ undeclared identifier
  502                 attrib,flag,mode:CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                                  ^ undeclared identifier
  503  PROCEDURE Open2(name:ARRAY OF CHAR; VAR handle:HFILE; VAR action:CARDINAL; size:LONGCARD;
*****                                ^ not supported yet
*****                                                                                  ^ undeclared identifier
  504                  attrib,flag:CARDINAL;mode:LONGCARD; VAR EA: EAOP; rsrvd:LONGCARD) : CARDINAL;
*****                                            ^ undeclared identifier
*****                                                                          ^ undeclared identifier
  505  PROCEDURE Close(handle:HFILE) : CARDINAL;
  506  PROCEDURE Read(handle:HFILE; buffer:FarADDRESS; bufflng:CARDINAL; VAR read:CARDINAL) : CARDINAL;
*****                                      ^ undeclared identifier
  507  PROCEDURE Write(handle:HFILE;buffer:FarADDRESS; bufflng:CARDINAL; VAR write:CARDINAL) : CARDINAL;
*****                                      ^ undeclared identifier
  508  PROCEDURE Shutdown(rsrvd:LONGCARD): CARDINAL;
*****                           ^ undeclared identifier
  509  
  510  TYPE
  511    FILESTATUS = RECORD
  512                   fdateCreation   : FDATE;
  513                   ftimeCreation   : FTIME;
  514                   fdateLastAccess : FDATE;
  515                   ftimeLastAccess : FTIME;
  516                   fdateLastWrite  : FDATE;
  517                   ftimeLastWrite  : FTIME;
  518                   fileSize        : LONGCARD;
*****                                     ^ undeclared identifier
  519                   fileAlloc       : LONGCARD;
*****                                     ^ undeclared identifier
  520                   attrFile        : CARDINAL;
  521                 END;
*****                 ^ not supported yet
  522  
  523    FILESTATUS2 = RECORD
  524                    fdateCreation   : FDATE;
  525                    ftimeCreation   : FTIME;
  526                    fdateLastAccess : FDATE;
  527                    ftimeLastAccess : FTIME;
  528                    fdateLastWrite  : FDATE;
  529                    ftimeLastWrite  : FTIME;
  530                    fileSize        : LONGCARD;
*****                                      ^ undeclared identifier
  531                    fileAlloc       : LONGCARD;
*****                                      ^ undeclared identifier
  532                    attrFile        : CARDINAL;
  533                    ListSize        : LONGCARD;
*****                                      ^ undeclared identifier
  534                 END;
*****                 ^ not supported yet
  535  
  536    FSALLOCATE = RECORD
  537                   idFileSystem : LONGCARD;
*****                                  ^ undeclared identifier
  538                   sectorUnit   : LONGCARD;
*****                                  ^ undeclared identifier
  539                   unit         : LONGCARD;
*****                                  ^ undeclared identifier
  540                   unitAvail    : LONGCARD;
*****                                  ^ undeclared identifier
  541                   sector       : CARDINAL;
  542                 END;
*****                 ^ not supported yet
  543  
  544    VOLUMELABEL = RECORD
  545                    count: SHORTCARD;
  546                    VolLabel: ARRAY [0..11] OF CHAR;
*****                                        ^ not supported yet
*****                                               ^ not supported yet
  547                  END;
*****                  ^ not supported yet
  548  
  549    FSINFO = RECORD
  550               fdateCreation: FTIME;
  551               ftimeCreation: FTIME;
  552               vol: VOLUMELABEL;
  553             END;
*****             ^ not supported yet
  554  
  555    FILELOCK = RECORD
  556                 Offset : LONGINT;
  557                 Range  : LONGINT;
  558               END;
*****               ^ not supported yet
  559  
  560    LOCKRANGE  = RECORD
  561                   pos,len   : LONGCARD;
*****                               ^ undeclared identifier
  562                 END ;
*****                 ^ not supported yet
  563  
  564    HDIR = CARDINAL;
  565  
  566  CONST
  567  (* HANDTYPE values *)
  568    HANDTYPE_FILE    = 00H;
  569    HANDTYPE_DEVICE  = 01H;
  570    HANDTYPE_PIPE    = 02H;
  571    HANDTYPE_NETWORK = 08000H;
  572  
  573  PROCEDURE Delete(path:ARRAY OF CHAR; rsrvd:LONGCARD) : CARDINAL;
*****                                 ^ not supported yet
*****                                             ^ undeclared identifier
  574  PROCEDURE DupHandle(ohandle :HFILE; VAR nhandle:HFILE) : CARDINAL;
  575  PROCEDURE QFHandState(handle :HFILE; VAR state:CARDINAL) : CARDINAL;
  576  PROCEDURE SetFHandState(handle :HFILE; state:CARDINAL) : CARDINAL;
  577  PROCEDURE QHandType(handle :HFILE; VAR type,flag:CARDINAL) : CARDINAL;
  578  PROCEDURE ReadAsync(handle :HFILE; ramsem : HSEM; VAR result:CARDINAL; buffer:FarADDRESS; bufflng:CARDINAL;
*****                                                                                ^ undeclared identifier
  579                      VAR bytread:CARDINAL) : CARDINAL;
  580  PROCEDURE WriteAsync(handle :HFILE; ramsem : HSEM; VAR result:CARDINAL; buffer:FarADDRESS; bufflng:CARDINAL;
*****                                                                                 ^ undeclared identifier
  581                       VAR bytwrt:CARDINAL) : CARDINAL;
  582  PROCEDURE FindFirst(file:ARRAY OF CHAR; VAR handle:HDIR; attrib:CARDINAL; VAR result:FILEFINDBUF;
*****                                    ^ not supported yet
  583                      reslng:CARDINAL; VAR count:CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                                                 ^ undeclared identifier
  584  PROCEDURE FindFirst2(file:ARRAY OF CHAR; VAR handle:HDIR; attrib:CARDINAL; result: FarADDRESS;
*****                                     ^ not supported yet
*****                                                                                     ^ undeclared identifier
  585                       reslng:CARDINAL; VAR count:CARDINAL; InfoLevel: CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                                                                       ^ undeclared identifier
  586  PROCEDURE FindNext(handle:HDIR; VAR result:FILEFINDBUF; reslng:CARDINAL;
  587                     VAR count:CARDINAL) : CARDINAL;
  588  PROCEDURE FindClose(handle:HDIR) : CARDINAL;
  589  
  590  PROCEDURE FindNotifyFirst (Path:ARRAY OF CHAR; VAR h:HDIR; Attr:CARDINAL;
*****                                           ^ not supported yet
  591                             Buf:FarADDRESS; BufSize:CARDINAL; VAR Chg:CARDINAL;
*****                                 ^ undeclared identifier
  592                             InfoLevel:CARDINAL; TimeOut: LONGCARD; resvd: LONGCARD): CARDINAL;
*****                                                          ^ undeclared identifier
*****                                                                           ^ undeclared identifier
  593  PROCEDURE FindNotifyNext (h:HDIR; Buf:FarADDRESS; BufSize:CARDINAL; VAR Chg:CARDINAL;
*****                                        ^ undeclared identifier
  594                            TimeOut:LONGCARD): CARDINAL;
*****                                    ^ undeclared identifier
  595  PROCEDURE FindNotifyClose (h:HDIR): CARDINAL;
  596  
  597  PROCEDURE FSAttach (Dev,FSD:ARRAY OF CHAR; Data:FarADDRESS; Datasize:CARDINAL;
*****                                       ^ not supported yet
*****                                                  ^ undeclared identifier
  598                      Op:CARDINAL; resvd:LONGCARD): CARDINAL;
*****                                         ^ undeclared identifier
  599  PROCEDURE QFSAttach (Dev:ARRAY OF CHAR; ord:CARDINAL; InfoLevel:CARDINAL;
*****                                    ^ not supported yet
  600                       AttBuf:FarADDRESS; VAR BufSize:CARDINAL; resvd:LONGCARD): CARDINAL;
*****                              ^ undeclared identifier
*****                                                                      ^ undeclared identifier
  601  PROCEDURE FSCtl (date:FarADDRESS; Datamax:CARDINAL; VAR datalen:CARDINAL;
*****                        ^ undeclared identifier
  602                   Parms:FarADDRESS; Parmmax:CARDINAL; VAR parmlen:CARDINAL;
*****                         ^ undeclared identifier
  603                   fcode:CARDINAL; h:HFILE; Route:CARDINAL; resvd:LONGCARD): CARDINAL;
*****                                                                  ^ undeclared identifier
  604  
  605  PROCEDURE NewSize(handle:HFILE; size:LONGCARD) : CARDINAL;
*****                                       ^ undeclared identifier
  606  PROCEDURE BufReset(handle:HFILE) : CARDINAL;
  607  PROCEDURE ChgFilePtr(handle:HFILE; distance:LONGINT; method:CARDINAL;
  608                       VAR newloc:LONGCARD) : CARDINAL;
*****                                  ^ undeclared identifier
  609  PROCEDURE FileLocks(handle:HFILE; VAR unlock,lock:LOCKRANGE) : CARDINAL;
  610  PROCEDURE Move(oldnam,newnam:ARRAY OF CHAR; rsrvd:LONGCARD) : CARDINAL;
*****                                        ^ not supported yet
*****                                                    ^ undeclared identifier
  611  PROCEDURE Copy(srcnam,dstnam:ARRAY OF CHAR; mode:CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                        ^ not supported yet
*****                                                                   ^ undeclared identifier
  612  PROCEDURE EditName(Level: CARDINAL; Erc,Edit: ARRAY OF CHAR; VAR Dst: ARRAY OF CHAR;
*****                                                         ^ not supported yet
*****                                                                                 ^ not supported yet
  613                      DstSize: CARDINAL): CARDINAL;
  614  PROCEDURE FileIO(h:HFILE; Cmd:FarADDRESS; CmdLen:CARDINAL; VAR error:LONGINT):CARDINAL;
*****                                ^ undeclared identifier
  615  PROCEDURE MkDir(name:ARRAY OF CHAR; rsrvd:LONGCARD) : CARDINAL;
*****                                ^ not supported yet
*****                                            ^ undeclared identifier
  616  PROCEDURE MkDir2(name:ARRAY OF CHAR; Buf:FarADDRESS; rsrvd:LONGCARD) : CARDINAL;
*****                                 ^ not supported yet
*****                                           ^ undeclared identifier
*****                                                             ^ undeclared identifier
  617  PROCEDURE RmDir(name:ARRAY OF CHAR; rsrvd:LONGCARD) : CARDINAL;
*****                                ^ not supported yet
*****                                            ^ undeclared identifier
  618  PROCEDURE SelectDisk(drive:CARDINAL) : CARDINAL;
  619  PROCEDURE QCurDisk(VAR drive:CARDINAL; VAR map:LONGCARD) : CARDINAL;
*****                                                 ^ undeclared identifier
  620  PROCEDURE ChDir(dirnam:ARRAY OF CHAR; rsrvd:LONGCARD) : CARDINAL;
*****                                  ^ not supported yet
*****                                              ^ undeclared identifier
  621  PROCEDURE QCurDir(drive:CARDINAL; buffer:FarADDRESS; VAR length:CARDINAL) : CARDINAL;
*****                                           ^ undeclared identifier
  622  PROCEDURE QFSInfo(drive,level:CARDINAL; buffer:FarADDRESS; bufflng:CARDINAL) : CARDINAL;
*****                                                 ^ undeclared identifier
  623  
  624  (* N.B. Misspeled version for compatibility with older programs only *)
  625  PROCEDURE QFsInfo(drive,level:CARDINAL; buffer:FarADDRESS; bufflng:CARDINAL) : CARDINAL;
*****                                                 ^ undeclared identifier
  626  
  627  PROCEDURE SetFSInfo(drive,level:CARDINAL; buffer:FarADDRESS; size:CARDINAL) : CARDINAL;
*****                                                   ^ undeclared identifier
  628  PROCEDURE QVerify(VAR verify:CARDINAL) : CARDINAL;
  629  PROCEDURE SetVerify(verify:CARDINAL) : CARDINAL;
  630  PROCEDURE SetMaxFH(handles:CARDINAL) : CARDINAL;
  631  PROCEDURE QFileInfo(drive,level:CARDINAL; buffer:FarADDRESS; bufflng:CARDINAL) : CARDINAL;
*****                                                   ^ undeclared identifier
  632  PROCEDURE SetFileInfo(drive,level:CARDINAL; buffer:FarADDRESS; bufflng:CARDINAL) : CARDINAL;
*****                                                     ^ undeclared identifier
  633  PROCEDURE QPathInfo(Path:ARRAY OF CHAR; InfoLevel:CARDINAL; InfoBuf:FarADDRESS;
*****                                    ^ not supported yet
*****                                                                      ^ undeclared identifier
  634                      BufSize:CARDINAL; resvd:LONGCARD):CARDINAL;
*****                                              ^ undeclared identifier
  635  PROCEDURE SetPathInfo(Path:ARRAY OF CHAR; InfoLevel:CARDINAL; InfoBuf:FarADDRESS;
*****                                      ^ not supported yet
*****                                                                        ^ undeclared identifier
  636                        BufSize:CARDINAL; Flags:CARDINAL; resvd:LONGCARD):CARDINAL;
*****                                                                ^ undeclared identifier
  637  PROCEDURE QFileMode(name:ARRAY OF CHAR; VAR attrib:CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                    ^ not supported yet
*****                                                                     ^ undeclared identifier
  638  PROCEDURE SetFileMode(name:ARRAY OF CHAR; attrib:CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                      ^ not supported yet
*****                                                                   ^ undeclared identifier
  639  PROCEDURE EnumAttribute(Type:CARDINAL; buf:FarADDRESS; Start:LONGCARD;
*****                                             ^ undeclared identifier
*****                                                               ^ undeclared identifier
  640                          buf1:FarADDRESS; buf1size:LONGCARD; VAR entries:LONGCARD;
*****                               ^ undeclared identifier
*****                                                    ^ undeclared identifier
*****                                                                          ^ undeclared identifier
  641                          infolevel:CARDINAL; resvd:CARDINAL):CARDINAL;
  642  
  643  (* level 1 info returned from DosEnumAttribute *)
  644  TYPE
  645    DENA1 = RECORD
  646              reserved: SHORTCARD;          (* 0                             *)
  647              cbName: SHORTCARD;            (* length of name exculding NULL *)
  648              cbValue: CARDINAL;            (* length of value               *)
  649              Name: ARRAY [0..0] OF CHAR;   (* variable length asciiz name   *)
*****                              ^ not supported yet
*****                                    ^ not supported yet
  650            END;
*****            ^ not supported yet
  651  
  652  (*%E *)
  653  (**)
  654  (*-- Memory Manager support ----------------------------------------------*)
  655  (**)
  656  (*%T i_MEMMGR *)
  657  
  658  PROCEDURE AllocSeg(size:CARDINAL; VAR select:CARDINAL; aflag:CARDINAL) : CARDINAL;
  659  PROCEDURE ReallocSeg(size,select:CARDINAL) : CARDINAL;
  660  PROCEDURE FreeSeg(select:CARDINAL) : CARDINAL;
  661  PROCEDURE GiveSeg(handle,procid:CARDINAL; VAR receive:CARDINAL) : CARDINAL;
  662  PROCEDURE GetSeg(select:CARDINAL) : CARDINAL;
  663  PROCEDURE SizeSeg(select:CARDINAL; VAR size:LONGCARD) : CARDINAL;
*****                                              ^ undeclared identifier
  664  
  665  CONST
  666  (* Segment attribute flags *)
  667    SEG_NONSHARED   = 00H;
  668    SEG_GIVEABLE    = 01H;
  669    SEG_GETTABLE    = 02H;
  670    SEG_DISCARDABLE = 04H;
  671  
  672  PROCEDURE AllocHuge(numseg,size:CARDINAL; VAR select:CARDINAL; maxseg,share:CARDINAL) : CARDINAL;
  673  PROCEDURE ReallocHuge(numseg,size,select:CARDINAL) : CARDINAL;
  674  PROCEDURE GetHugeShift(VAR shift:CARDINAL);
  675  PROCEDURE AllocShrSeg(size:CARDINAL; name:ARRAY OF CHAR; VAR select:CARDINAL) : CARDINAL;
*****                                                     ^ not supported yet
  676  PROCEDURE LockSeg(select:CARDINAL) : CARDINAL;
  677  PROCEDURE UnlockSeg(select:CARDINAL) : CARDINAL;
  678  PROCEDURE GetShrSeg(name:ARRAY OF CHAR; VAR select:CARDINAL) : CARDINAL;
*****                                    ^ not supported yet
  679  PROCEDURE MemAvail(VAR size:LONGCARD) : CARDINAL;
*****                              ^ undeclared identifier
  680  PROCEDURE CreateCSAlias(datasel:CARDINAL; VAR codesel:CARDINAL) : CARDINAL;
  681  PROCEDURE SubAlloc(segment:CARDINAL; VAR block:CARDINAL; size:CARDINAL) : CARDINAL;
  682  PROCEDURE SubFree(segment,block,size:CARDINAL) : CARDINAL;
  683  PROCEDURE SubSet(segment,flag,size:CARDINAL) : CARDINAL;
  684  
  685  (*%E *)
  686  (**)
  687  (*-- Semaphore support ----------------------------------------------------*)
  688  (**)
  689  (*%T i_SEMAPHORE *)
  690  
  691  CONST
  692    SEM_INDEFINITE_WAIT = -1;   SEM_IMMEDIATE_RETURN = 0;
  693    CSEM_PRIVATE        = 0;    CSEM_PUBLIC          = 1;
  694  
  695  PROCEDURE SemClear(handle:HSEM) : CARDINAL;
  696  PROCEDURE SemSet(handle:HSEM) : CARDINAL;
  697  PROCEDURE SemWait(handle:HSEM; timeout:LONGINT) : CARDINAL;
  698  PROCEDURE SemSetWait(handle:HSEM; timeout:LONGINT) : CARDINAL;
  699  PROCEDURE SemRequest(handle:HSEM; timeout:LONGINT) : CARDINAL;
  700  PROCEDURE CreateSem(excl:CARDINAL; VAR handle:HSEM; name:ARRAY OF CHAR) : CARDINAL;
*****                                                                    ^ not supported yet
  701  PROCEDURE OpenSem(VAR handle:HSEM; name:ARRAY OF CHAR) : CARDINAL;
*****                                                   ^ not supported yet
  702  PROCEDURE CloseSem(handle:HSEM) : CARDINAL;
  703  
  704  TYPE
  705    MUXSEM = RECORD
  706               zero : CARDINAL;
  707               sem  : HSEM;
  708             END;
*****             ^ not supported yet
  709    MUXSEMLIST = RECORD
  710                   cmxs : CARDINAL;
  711                   amxs : ARRAY [0..15] OF MUXSEM;
*****                                    ^ not supported yet
*****                                           ^ not supported yet
  712                 END;
*****                 ^ not supported yet
  713    DOSFSRSEM  = RECORD
  714                   len       : CARDINAL;
  715                   pid,tid   : CARDINAL;
  716                   use       : CARDINAL;
  717                   client    : CARDINAL;
  718                   ramsem    : HSEM;
  719                 END;
*****                 ^ not supported yet
  720  
  721  PROCEDURE MuxSemWait(VAR index:CARDINAL; list:FarADDRESS; timeout:LONGINT) : CARDINAL;
*****                                                ^ undeclared identifier
  722  PROCEDURE FSRamSemRequest(VAR s:DOSFSRSEM; to:LONGINT) : CARDINAL;
  723  PROCEDURE FSRamSemClear(VAR s:DOSFSRSEM) : CARDINAL;
  724  
  725  (*%E *)
  726  (**)
  727  (*-- Time support ---------------------------------------------------------*)
  728  (**)
  729  (*%T i_DATETIME *)
  730  
  731  TYPE
  732    DATETIME = RECORD
  733                 hours      : SHORTCARD;
  734                 minutes    : SHORTCARD;
  735                 seconds    : SHORTCARD;
  736                 hundredths : SHORTCARD;
  737                 day        : SHORTCARD;
  738                 month      : SHORTCARD;
  739                 year       : CARDINAL;
  740                 timezone   : INTEGER;
  741                 weekday    : SHORTCARD;
  742               END;
*****               ^ not supported yet
  743  
  744  PROCEDURE GetDateTime(VAR data:DATETIME) : CARDINAL;
  745  PROCEDURE SetDateTime(VAR data:DATETIME) : CARDINAL;
  746  
  747  TYPE
  748    HTIMER   = CARDINAL;
  749  
  750  PROCEDURE TimerAsync(interval:LONGCARD; semaphore:HSEM; VAR handle:HTIMER) : CARDINAL;
*****                                ^ undeclared identifier
  751  PROCEDURE TimerStart(interval:LONGCARD; semaphore:HSEM; VAR handle:HTIMER) : CARDINAL;
*****                                ^ undeclared identifier
  752  PROCEDURE TimerStop(handle:HTIMER) : CARDINAL;
  753  
  754  (*%E *)
  755  (**)
  756  (*-- Module Manager -------------------------------------------------------*)
  757  (**)
  758  (*%T i_MODULEMGR *)
  759  
  760  PROCEDURE LoadModule(buffaddr:FarADDRESS; bufflen:CARDINAL; name:ARRAY OF CHAR; VAR handle:CARDINAL) : CARDINAL;
*****                                ^ undeclared identifier
*****                                                                            ^ not supported yet
  761  PROCEDURE FreeModule(handle:CARDINAL) : CARDINAL;
  762  PROCEDURE GetProcAddr(handle:CARDINAL; name:ARRAY OF CHAR; VAR addr: Os2ProcType) : CARDINAL;
*****                                                       ^ not supported yet
  763  PROCEDURE GetModHandle(name:ARRAY OF CHAR; VAR handle:CARDINAL) : CARDINAL;
*****                                       ^ not supported yet
  764  PROCEDURE GetModName(handle,bufflng:CARDINAL; VAR buffer:ARRAY OF CHAR) : CARDINAL;
*****                                                                    ^ not supported yet
  765  
  766  (*%E *)
  767  (**)
  768  (*-- Resource support -----------------------------------------------------*)
  769  (**)
  770  (*%T i_RESOURCE *)
  771  
  772  CONST
  773    RT_POINTER = 1;  RT_BITMAP    = 2;  RT_MENU         = 3;  RT_DIALOG     = 4;
  774    RT_STRING  = 5;  RT_FONTDIR   = 6;  RT_FONT         = 7;  RT_ACCELTABLE = 8;
  775    RT_RCDATA  = 9;  RT_MESSAGE   = 10; RT_DLGINCLUDE   = 11; RT_VKEYTBL    = 12;
  776    RT_KEYTBL  = 13; RT_CHARTBL   = 14; RT_DISPLAYINFO  = 15; RT_FKASHORT   = 16;
  777    RT_FKALONG = 17; RT_HELPTABLE = 18; RT_HELPSUBTABLE = 19; RT_FDDIR      = 20;
  778    RT_FD      = 21; RT_MAX       = 22;
  779  
  780  PROCEDURE GetResource(m:CARDINAL; t,n:CARDINAL; VAR sel:CARDINAL):CARDINAL;
  781  PROCEDURE GetResource2(m:CARDINAL; t,n:CARDINAL; VAR data: FarADDRESS):CARDINAL;
*****                                                             ^ undeclared identifier
  782  PROCEDURE FreeResource(pData: FarADDRESS): CARDINAL;
*****                                ^ undeclared identifier
  783  
  784  (*%E*)
  785  (**)
  786  (**--- National Language Support -------------------------------------------*)
  787  (**)
  788  (*%T i_NLS*)
  789  
  790  TYPE
  791    COUNTRYCODE = RECORD
  792                    country  : CARDINAL;
  793                    codepage : CARDINAL;
  794                  END;
*****                  ^ not supported yet
  795    COUNTRYINFO = RECORD
  796                    country            : CARDINAL;
  797                    codepage           : CARDINAL;
  798                    dateFmt            : CARDINAL;
  799                    currency           : ARRAY [0..4] OF CHAR;
*****                                                   ^ not supported yet
*****                                                         ^ not supported yet
  800                    thousandsSeparator : ARRAY [0..1] OF CHAR;
*****                                                   ^ not supported yet
*****                                                         ^ not supported yet
  801                    decimal            : ARRAY [0..1] OF CHAR;
*****                                                   ^ not supported yet
*****                                                         ^ not supported yet
  802                    dateSeparator      : ARRAY [0..1] OF CHAR;
*****                                                   ^ not supported yet
*****                                                         ^ not supported yet
  803                    timeSeparator      : ARRAY [0..1] OF CHAR;
*****                                                   ^ not supported yet
*****                                                         ^ not supported yet
  804                    currencyFmt        : SHORTCARD;
  805                    decimalPlace       : SHORTCARD;
  806                    timeFmt            : SHORTCARD;
  807                    reserved1          : ARRAY [0..1] OF CARDINAL;
*****                                                   ^ not supported yet
*****                                                         ^ not supported yet
  808                    dataSeparator      : ARRAY [0..1] OF CHAR;
*****                                                   ^ not supported yet
*****                                                         ^ not supported yet
  809                    reserved2          : ARRAY [0..4] OF CARDINAL;
*****                                                   ^ not supported yet
*****                                                         ^ not supported yet
  810                  END;
*****                  ^ not supported yet
  811  
  812  PROCEDURE GetCtryInfo(length:CARDINAL; VAR cntry:COUNTRYCODE; VAR buffer:COUNTRYINFO; VAR retlngth:CARDINAL) : CARDINAL;
  813  PROCEDURE GetDBCSEv(length:CARDINAL; VAR cntry:COUNTRYCODE; buffer:FarADDRESS) : CARDINAL;
*****                                                                     ^ undeclared identifier
  814  PROCEDURE CaseMap(length:CARDINAL; VAR cntry:COUNTRYCODE; binstrg:FarADDRESS) : CARDINAL;
*****                                                                    ^ undeclared identifier
  815  PROCEDURE GetCollate(length:CARDINAL; VAR cntry:COUNTRYCODE; buffer:FarADDRESS; VAR rlng:CARDINAL) : CARDINAL;
*****                                                                      ^ undeclared identifier
  816  PROCEDURE GetCp(length:CARDINAL; VAR cplist,rlng:CARDINAL) : CARDINAL;
  817  PROCEDURE SetCp(cpage,rsrvd:CARDINAL) : CARDINAL;
  818  PROCEDURE SetProcCp(cpage,rsrvd:CARDINAL) : CARDINAL;
  819  
  820  (*%E*)
  821  (**)
  822  (**--- Signal manager -----------------------------------------------------*)
  823  (**)
  824  (*%T i_SIGNAL *)
  825  
  826  CONST
  827  (* Signal Numbers for DosSetSigHandler  *)
  828    SIG_CTRLC          = 1;  SIG_BROKENPIPE     = 2;  SIG_KILLPROCESS    = 3;
  829    SIG_CTRLBREAK      = 4;  SIG_PFLG_A         = 5;  SIG_PFLG_B         = 6;
  830    SIG_PFLG_C         = 7;  SIG_CSIGNALS       = 8;
  831  (* Flag Numbers for DosFlagProcess      *)
  832    PFLG_A             = 0;  PFLG_B             = 1;  PFLG_C             = 2;
  833  (* Signal actions *)
  834    SIGA_KILL          = 0;  SIGA_IGNORE        = 1;  SIGA_ACCEPT        = 2;
  835    SIGA_ERROR         = 3;  SIGA_ACKNOWLEDGE   = 4;
  836  (* DosHoldSignal constants *)
  837    HLDSIG_ENABLE      = 0;  HLDSIG_DISABLE     = 1;
  838  (* DosFlagProcess codes *)
  839    FLGP_SUBTREE       = 0;  FLGP_PID           = 1;
  840  
  841  (*# save *)
  842  (*# call(reg_saved => (ds,si,di,st1,st2),
  843           near_call=>off) *)
  844  TYPE
  845    SIGHANDLER = PROCEDURE (CARDINAL,CARDINAL);
*****                 ^ not supported yet
*****                            ^ not supported yet
*****                                     ^ not supported yet
  846  (*# restore *)
  847  
  848  PROCEDURE SetSigHandler(raddr:SIGHANDLER; VAR paddr:SIGHANDLER; VAR paction:CARDINAL; action,signbr:CARDINAL) : CARDINAL;
  849  PROCEDURE FlagProcess(procid,action,flagnum,flagarg:CARDINAL) : CARDINAL;
  850  PROCEDURE HoldSignal(action:CARDINAL) : CARDINAL;
  851  PROCEDURE SendSignal(pid,signum:CARDINAL) : CARDINAL;
  852  
  853  (*%E*)
  854  (**)
  855  (**--- Device Monitors -----------------------------------------------------*)
  856  (**)
  857  (*%T i_MONITOR*)
  858  
  859  TYPE
  860    HMONITOR = CARDINAL;
  861  
  862  PROCEDURE MonOpen(name:ARRAY OF CHAR; VAR handle:HMONITOR) : CARDINAL;
*****                                  ^ not supported yet
  863  PROCEDURE MonClose(handle:HMONITOR) : CARDINAL;
  864  PROCEDURE MonReg(handle:HMONITOR; buffi,buffo : FarADDRESS;flag,indx:CARDINAL) : CARDINAL;
*****                                                  ^ undeclared identifier
  865  PROCEDURE MonRead(inbuffs :FarADDRESS; wait:CARDINAL; doffs:FarADDRESS;  VAR bytcnt:CARDINAL) : CARDINAL;
*****                             ^ undeclared identifier
*****                                                              ^ undeclared identifier
  866  PROCEDURE MonWrite(inbuffs :FarADDRESS; doffs:FarADDRESS;  bytcnt :CARDINAL) : CARDINAL;
*****                              ^ undeclared identifier
*****                                                ^ undeclared identifier
  867  
  868  (*%E*)
  869  (**)
  870  (**--- Pipe and Queue support ---------------------------------------------*)
  871  (**)
  872  (*%T i_QUEUES *)
  873  
  874  TYPE
  875    HQUEUE = CARDINAL;
  876    QINFO  = RECORD
  877               pid       : CARDINAL;
  878               app       : CARDINAL;
  879             END ;
*****             ^ not supported yet
  880  
  881  CONST
  882  (* Values for CreateQueue *)
  883    QUE_FIFO = 0; QUE_LIFO = 1; QUE_PRIORITY = 2;
  884  
  885  PROCEDURE MakePipe(VAR rhandle,whandle:CARDINAL; size:CARDINAL) : CARDINAL;
  886  PROCEDURE CloseQueue(handle:HQUEUE) : CARDINAL;
  887  PROCEDURE CreateQueue(VAR handle:HQUEUE; priority:CARDINAL; name:ARRAY OF CHAR) : CARDINAL;
*****                                                                            ^ not supported yet
  888  PROCEDURE OpenQueue(VAR owner:CARDINAL; VAR handle:HQUEUE; name:ARRAY OF CHAR) : CARDINAL;
*****                                                                           ^ not supported yet
  889  PROCEDURE PeekQueue(handle:HQUEUE;VAR rqst:QINFO; VAR lng:CARDINAL; VAR addr:FarADDRESS;
*****                                                                               ^ undeclared identifier
  890                         VAR code: CARDINAL; wait :CARDINAL; VAR prty: CARDINAL; sem: HSEM ) : CARDINAL ;
  891  PROCEDURE PurgeQueue(handle:HQUEUE) : CARDINAL;
  892  PROCEDURE QueryQueue(handle:HQUEUE; VAR number:CARDINAL) : CARDINAL;
  893  PROCEDURE ReadQueue(handle:HQUEUE;VAR rqst:QINFO; VAR lng:CARDINAL; VAR addr:FarADDRESS;
*****                                                                               ^ undeclared identifier
  894                         code,wait :CARDINAL; VAR prty: CARDINAL; sem: HSEM ) : CARDINAL ;
  895  PROCEDURE WriteQueue(handle:HQUEUE;rqst,length:CARDINAL; data :FarADDRESS;prty:CARDINAL) : CARDINAL ;
*****                                                                 ^ undeclared identifier
  896  
  897  (*%E*)
  898  (**)
  899  (**--- Miscellanous Dos services ------------------------------------------*)
  900  (**)
  901  (*%T i_MISC *)
  902  
  903  PROCEDURE Error(flag:CARDINAL) : CARDINAL;
  904  PROCEDURE SetVec(vector:CARDINAL; routin: Os2ProcType; VAR prev: Os2ProcType) : CARDINAL;
  905  PROCEDURE GetMessage(vartab:FarADDRESS; varcnt:CARDINAL; VAR data:ARRAY OF CHAR; length:CARDINAL;
*****                              ^ undeclared identifier
*****                                                                             ^ not supported yet
  906                          msgnbr:CARDINAL; msgfile:ARRAY OF CHAR; VAR msglng:CARDINAL) : CARDINAL;
*****                                                            ^ not supported yet
  907  PROCEDURE ErrClass(ecode:CARDINAL; VAR eclass,action,locus:CARDINAL);
  908  PROCEDURE InsMessage(table:FarADDRESS;count:CARDINAL;input:FarADDRESS;
*****                             ^ undeclared identifier
*****                                                             ^ undeclared identifier
  909                          inlength:CARDINAL; data:FarADDRESS ;
*****                                                  ^ undeclared identifier
  910                          length:CARDINAL; VAR mlength:CARDINAL) : CARDINAL;
  911  PROCEDURE PutMessage(handle:HFILE; length:CARDINAL; buffer:ARRAY OF CHAR) : CARDINAL;
*****                                                                      ^ not supported yet
  912  PROCEDURE PTrace(b : FarADDRESS):CARDINAL;
*****                       ^ undeclared identifier
  913  
  914  CONST
  915    (* definition for DOSQSYSINFO *)
  916    Q_MAX_PATH_LENGTH = 0;     (* index for query max path length *)
  917  PROCEDURE QSysInfo (index:CARDINAL; Buf:FarADDRESS; bufsize:CARDINAL):CARDINAL;
*****                                          ^ undeclared identifier
  918  
  919  PROCEDURE GetEnv(VAR environ,cmdoff:CARDINAL) : CARDINAL;
  920  PROCEDURE ScanEnv(environ:ARRAY OF CHAR; VAR cmdoff:FarADDRESS) : CARDINAL;
*****                                     ^ not supported yet
*****                                                      ^ undeclared identifier
  921  PROCEDURE SearchPath(cntrl:CARDINAL; path:ARRAY OF CHAR;
*****                                                     ^ not supported yet
  922                          file:ARRAY OF CHAR; rbuff:FarADDRESS ; buflen:CARDINAL) : CARDINAL;
*****                                        ^ not supported yet
*****                                                    ^ undeclared identifier
  923  PROCEDURE GetVersion(VAR vnumber:CARDINAL);
  924  PROCEDURE GetMachineMode(VAR mode:CARDINAL);
  925  (*%E*)
  926  (**)
  927  (**--- Session Manager Routines --------------------------------------------*)
  928  (**)
  929  (*%T i_SESSION*)
  930  
  931  TYPE
  932    STARTDATA = RECORD
  933                  length      : CARDINAL;
  934                  related     : CARDINAL;
  935                  fgBg        : CARDINAL;
  936                  traceOpt    : CARDINAL;
  937                  pgmTitle    : FarADDRESS;
*****                                ^ undeclared identifier
  938                  pgmName     : FarADDRESS;
*****                                ^ undeclared identifier
  939                  pgmInputs   : FarADDRESS;
*****                                ^ undeclared identifier
  940                  termQ       : FarADDRESS;
*****                                ^ undeclared identifier
  941                  env         : FarADDRESS;
*****                                ^ undeclared identifier
  942                  inherit     : CARDINAL;
  943                  sesstype    : CARDINAL;
  944                  iconfile    : FarADDRESS;
*****                                ^ undeclared identifier
  945                  pgmhandle   : FarADDRESS;
*****                                ^ undeclared identifier
  946                  pgmcontrol  : CARDINAL;
  947                  initX,initY : CARDINAL;
  948                  initXsize   : CARDINAL;
  949                  initYsize   : CARDINAL;
  950                END;
*****                ^ not supported yet
  951  
  952    STATUSDATA = RECORD
  953                   length    : CARDINAL;
  954                   selectInd : CARDINAL;
  955                   bondInd   : CARDINAL;
  956                 END;
*****                 ^ not supported yet
  957  
  958    REGISTERDATA = RECORD
  959                     Length: CARDINAL;     (* length of this data structure *)
  960                     NotifType: CARDINAL;  (* type of notification          *)
  961                     DDName: FarADDRESS;   (* pointer to device driver name *)
*****                             ^ undeclared identifier
  962                   END;
*****                   ^ not supported yet
  963  
  964  CONST
  965    STARTDATASIZE0     = VSIZE(STARTDATA.termQ); (* Size for V1.0 *)
*****                         ^ undeclared identifier
*****                                         ^ not supported yet
  966  
  967  PROCEDURE StartSession(VAR sdata:STARTDATA; VAR sessid,pid:CARDINAL) : CARDINAL;
  968  PROCEDURE SetSession(sessid:CARDINAL; VAR status:STATUSDATA) : CARDINAL;
  969  PROCEDURE SelectSession(sessid:CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                                 ^ undeclared identifier
  970  PROCEDURE StopSession(target,sessid:CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                                      ^ undeclared identifier
  971  PROCEDURE SmRegisterDD(VAR rdata: REGISTERDATA) : CARDINAL;
  972  PROCEDURE QAppType(n:ARRAY OF CHAR; VAR t:CARDINAL) : CARDINAL;
*****                                ^ not supported yet
  973  
  974  
  975  (*%E*)
  976  (**)
  977  (**--- Device Support -----------------------------------------------------*)
  978  (**)
  979  (*%T i_DEVICE*)
  980  
  981  PROCEDURE DevConfig(device:FarADDRESS; item,rsrvd:CARDINAL) : CARDINAL;
*****                             ^ undeclared identifier
  982  PROCEDURE DevIOCtl(data:FarADDRESS; parms:FarADDRESS; functn,categry,device:CARDINAL) : CARDINAL;
*****                          ^ undeclared identifier
*****                                            ^ undeclared identifier
  983  PROCEDURE DevIOCtl2(data:FarADDRESS; datalen:CARDINAL;
*****                           ^ undeclared identifier
  984                      parms:FarADDRESS; parmlen:CARDINAL; functn,categry,device:CARDINAL) : CARDINAL;
*****                            ^ undeclared identifier
  985  PROCEDURE CLIAccess();
  986  PROCEDURE PortAccess(rsrvd,type,first,last:CARDINAL) : CARDINAL;
  987  PROCEDURE PhysicalDisk(func:CARDINAL; buff:FarADDRESS;blng:CARDINAL; parms:FarADDRESS; plng:CARDINAL) : CARDINAL;
*****                                             ^ undeclared identifier
*****                                                                             ^ undeclared identifier
  988  PROCEDURE CallBack (p : Os2ProcType);
  989  PROCEDURE R2StackRealloc(ns:CARDINAL):CARDINAL;
  990  
  991  (*%E*)
  992  (**)
  993  (**--- Dos Named Pipes -----------------------------------------------------*)
  994  (**)
  995  (*%T i_NMPIPES*)
  996  
  997  TYPE
  998    HPIPE = CARDINAL;
  999    AVAILBUF = RECORD buffered,curmsg : CARDINAL END;
*****                                                 ^ not supported yet
 1000  
 1001  PROCEDURE CallNmPipe(fn:ARRAY OF CHAR; ib:ARRAY OF BYTE; il:CARDINAL; VAR ob:ARRAY OF BYTE; ol:CARDINAL; VAR r:CARDINAL; to:LONGCARD) : CARDINAL;
*****                                   ^ not supported yet
*****                                                     ^ undeclared identifier
*****                                                                                        ^ undeclared identifier
*****                                                                                                                              ^ undeclared identifier
 1002  PROCEDURE ConnectNmPipe(p:HPIPE) : CARDINAL;
 1003  PROCEDURE DisConnectNmPipe(p:HPIPE) : CARDINAL;
 1004  PROCEDURE MakeNmPipe(fn:ARRAY OF CHAR; VAR p:HPIPE; om,pm,obs,ibs:CARDINAL; to:LONGCARD) : CARDINAL;
*****                                   ^ not supported yet
*****                                                                                 ^ undeclared identifier
 1005  PROCEDURE PeekNmPipe(p:HPIPE; VAR ob:ARRAY OF BYTE; bl:CARDINAL; VAR r:CARDINAL; VAR a:AVAILBUF; VAR ps:CARDINAL) : CARDINAL;
*****                                                ^ undeclared identifier
 1006  PROCEDURE QNmPHandState(p:HPIPE; VAR ps:CARDINAL) : CARDINAL;
 1007  PROCEDURE QNmPipeInfo(p:HPIPE; il:CARDINAL; VAR ib:ARRAY OF BYTE; ibs:CARDINAL) : CARDINAL;
*****                                                              ^ undeclared identifier
 1008  PROCEDURE QNmPipeSemState(s:HSEM; VAR ib:ARRAY OF BYTE; ibs:CARDINAL) : CARDINAL;
*****                                                    ^ undeclared identifier
 1009  PROCEDURE SetNmPHandState(p:HPIPE; s:CARDINAL) : CARDINAL;
 1010  PROCEDURE SetNmPipeSem(p:HPIPE; s:HSEM; kh:CARDINAL) : CARDINAL;
 1011  PROCEDURE TransactNmPipe(p:HPIPE; ib:ARRAY OF BYTE; ibl:CARDINAL; VAR ob:ARRAY OF BYTE; obl:CARDINAL; VAR r:CARDINAL) : CARDINAL;
*****                                                ^ undeclared identifier
*****                                                                                    ^ undeclared identifier
 1012  PROCEDURE WaitNmPipe(n:ARRAY OF CHAR; to:LONGCARD) : CARDINAL;
*****                                  ^ not supported yet
*****                                           ^ undeclared identifier
 1013  
 1014  (* Data structures and constants used with named pipes *)
 1015  
 1016  TYPE
 1017    npi_data1 = RECORD                     (* PipeInfo data block (returned, level 1) *)
 1018                  npi_obuflen : CARDINAL;  (* length of outgoing I/O buffer *)
 1019                  npi_ibuflen : CARDINAL;  (* length of incoming I/O buffer *)
 1020                  npi_maxicnt : SHORTCARD; (* maximum number of instances   *)
 1021                  npi_curicnt : SHORTCARD; (* current number of instances   *)
 1022                  npi_namlen  : SHORTCARD; (* length of pipe name           *)
 1023                  npi_name    : ARRAY[0..0] OF CHAR;   (* start of name     *)
*****                                         ^ not supported yet
*****                                               ^ not supported yet
 1024                END;
*****                ^ not supported yet
 1025  
 1026    npss = RECORD                      (* QNmPipeSemState information record *)
 1027             npss_status : SHORTCARD;  (* type of record, 0=EOI, 1=read ok, 2 = write ok, 3 = pipe closed    *)
 1028             npss_flag   : SHORTCARD;  (* additional info, 01=waiting thread *)
 1029             npss_key    : CARDINAL;   (* user's key value                   *)
 1030             npss_avail  : CARDINAL;   (* available data/space if status=1/2 *)
 1031           END;
*****           ^ not supported yet
 1032  
 1033  CONST
 1034  (* values in npss_status *)
 1035    NPSS_EOI    = 0;              (* End Of Information    *)
 1036    NPSS_RDATA  = 1;              (* read data available   *)
 1037    NPSS_WSPACE = 2;              (* write space available *)
 1038    NPSS_CLOSE  = 3;              (* pipe in CLOSING state *)
 1039  
 1040  (* values in npss_flag *)
 1041    NPSS_WAIT   = 01H;              (* waiting thread on other end of pipe *)
 1042  
 1043  (* defined bits in pipe mode *)
 1044    NP_NBLK     = 08000H;           (* non-blocking read/write *)
 1045    NP_SERVER   = 04000H;           (* set if server end       *)
 1046    NP_WMESG    = 00400H;           (* write messages          *)
 1047    NP_RMESG    = 00100H;           (* read as messages        *)
 1048    NP_ICOUNT   = 000FFH;           (* instance count field    *)
 1049  
 1050  (* Values for named pipe state *)
 1051  
 1052    NP_DISCONNECTED = 1;    (* after pipe creation or Disconnect *)
 1053    NP_LISTENING    = 2;    (* after DosNmPipeConnect            *)
 1054    NP_CONNECTED    = 3;    (* after Client open                 *)
 1055    NP_CLOSING      = 4;    (* after Client or Server close      *)
 1056  
 1057  (*%E*)
 1058  (**)
 1059  (**--- Dos Font Support ----------------------------------------------------*)
 1060  (**)
 1061  (*%T i_FONT*)
 1062  TYPE
 1063    HSPL = FarADDRESS;
*****           ^ undeclared identifier
 1064  
 1065  PROCEDURE PFSActivate(s:HSPL; VAR w:LONGCARD; n:ARRAY OF CHAR; c,i,f:CARDINAL; z:LONGCARD) : CARDINAL;
*****                                      ^ undeclared identifier
*****                                                           ^ not supported yet
*****                                                                                   ^ undeclared identifier
 1066  PROCEDURE PFSCloseUser(n:ARRAY OF CHAR; f:CARDINAL; z:LONGCARD) : CARDINAL;
*****                                    ^ not supported yet
*****                                                        ^ undeclared identifier
 1067  PROCEDURE PFSInit(pl:ARRAY OF CARDINAL; fn,pt1,pt2:ARRAY OF CHAR; i:CARDINAL; z:LONGCARD) : CARDINAL;
*****                                ^ not supported yet
*****                                                              ^ not supported yet
*****                                                                                  ^ undeclared identifier
 1068  PROCEDURE PFSQueryAct(n:ARRAY OF CHAR; VAR c,i:CARDINAL; f:CARDINAL; z:LONGCARD) : CARDINAL;
*****                                   ^ not supported yet
*****                                                                         ^ undeclared identifier
 1069  PROCEDURE PFSVerifyFont(n:ARRAY OF CHAR; c,i:CARDINAL; z:LONGCARD) : CARDINAL;
*****                                     ^ not supported yet
*****                                                           ^ undeclared identifier
 1070  
 1071  (*%E*)
 1072  
 1073  VAR
 1074    NULL [0:0] : BYTE ; (* equivalent of NIL for VAR params *)
*****          ^ not supported yet
*****            ^ not supported yet
*****                 ^ undeclared identifier
 1075  
 1076  END Dos.
*****      ^ not supported yet

  288 errors