Topspeed_JPI/TS-V3/INCLUDE/MOU.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  MOU.DEF - Modula-2 OS/2 API Mouse functions                             *
    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           same_ds => off,
   18           near_call => off,
   19           ds_eq_ss => off) *)
   20  (*# module(implementation=>off, init_code => off) *)
   21  (*# name(prefix => os2_lib) *)
   22  (*# data(near_ptr => off) *)
   23  
   24  DEFINITION MODULE Mou;
   25  
   26  TYPE
   27    HMOU = CARDINAL;
   28    PTRLOC = RECORD
   29               row : CARDINAL;
   30               col : CARDINAL;
   31             END;
*****             ^ not supported yet
   32    PTRSHAPE = RECORD
   33                 cb : CARDINAL;
   34                 col : CARDINAL;
   35                 row : CARDINAL;
   36                 colHot : CARDINAL;
   37                 rowHot : CARDINAL;
   38               END;
*****               ^ not supported yet
   39    EVENTINFO = RECORD
   40                  fs   : BITSET;
*****                         ^ undeclared identifier
   41                  time : LONGCARD;
*****                         ^ undeclared identifier
   42                  row  : CARDINAL;
   43                  col  : CARDINAL;
   44                END;
*****                ^ not supported yet
   45    QUEINFO = RECORD
   46                   events    : CARDINAL;
   47                   maxEvents : CARDINAL;
   48                 END;
*****                 ^ not supported yet
   49    SCALEFACT = RECORD
   50                  rowScale : CARDINAL;
   51                  colScale : CARDINAL;
   52                END;
*****                ^ not supported yet
   53    NOPTRRECT = RECORD
   54                  row : CARDINAL;
   55                  col : CARDINAL;
   56                  cRow : CARDINAL;
   57                  cCol : CARDINAL;
   58                END;
*****                ^ not supported yet
   59  CONST
   60    MHK_BUTTON1 = 01H;  MHK_BUTTON2 = 02H;  MHK_BUTTON3 = 04H;
   61    MOU_NODRAW  = 01H;  MOU_DRAW    = 00H;
   62    MOU_MICKEYS = 02H;  MOU_PELS 	  = 00H;
   63  
   64  
   65  
   66  PROCEDURE FlushQue(handle:HMOU) : CARDINAL;
   67  PROCEDURE GetPtrPos(VAR pos:PTRLOC; handle:HMOU) : CARDINAL;
   68  PROCEDURE SetPtrPos(VAR pos:PTRLOC; handle:HMOU) : CARDINAL;
   69  PROCEDURE SetPtrShape(VAR pbuff:ARRAY OF BYTE; VAR pdef:PTRSHAPE; handle:HMOU) : CARDINAL;
*****                                           ^ undeclared identifier
   70  PROCEDURE GetPtrShape(VAR pbuff:ARRAY OF BYTE; VAR pdef:PTRSHAPE; handle:HMOU) : CARDINAL;
*****                                           ^ undeclared identifier
   71  PROCEDURE GetDevStatus(VAR status:BITSET; handle:HMOU) : CARDINAL;
*****                                    ^ undeclared identifier
   72  PROCEDURE GetNumButtons(VAR buttons:CARDINAL; handle:HMOU) : CARDINAL;
   73  PROCEDURE GetNumMickeys(VAR mickeys:CARDINAL; handle:HMOU) : CARDINAL;
   74  PROCEDURE ReadEventQue(VAR buffer:EVENTINFO; VAR type:CARDINAL; handle:HMOU) : CARDINAL;
   75  PROCEDURE GetNumQueEl(VAR qdata:QUEINFO; handle:HMOU) : CARDINAL;
   76  PROCEDURE GetEventMask(VAR mask:BITSET; handle:HMOU) : CARDINAL;
*****                                  ^ undeclared identifier
   77  PROCEDURE SetEventMask(VAR mask:BITSET; handle:HMOU) : CARDINAL;
*****                                  ^ undeclared identifier
   78  PROCEDURE GetScaleFact(VAR scale:SCALEFACT; handle:HMOU) : CARDINAL;
   79  PROCEDURE SetScaleFact(VAR scale:SCALEFACT; handle:HMOU) : CARDINAL;
   80  PROCEDURE Open(dname:ARRAY OF CHAR; VAR handle:HMOU) : CARDINAL;
*****                                ^ not supported yet
   81  PROCEDURE Close(handle:HMOU) : CARDINAL;
   82  PROCEDURE RemovePtr(VAR area:NOPTRRECT; handle:HMOU) : CARDINAL;
   83  PROCEDURE DrawPtr(handle:HMOU) : CARDINAL;
   84  PROCEDURE SetDevStatus(VAR status:BITSET; handle:HMOU) : CARDINAL;
*****                                    ^ undeclared identifier
   85  PROCEDURE InitReal(dname:ARRAY OF CHAR) : CARDINAL;
*****                                    ^ not supported yet
   86  PROCEDURE Synch(iow :CARDINAL) : CARDINAL;
   87  
   88  TYPE MOUFUNC = (GETNUMBUTTONS,GETNUMMICKEYS,GETDEVSTATUS,GETNUMQUEEL,
   89  	        READEVENTQUE,GETSCALEFACT,GETEVENTMASK,SETSCALEFACT,
   90  		SETEVENTMASK,OPEN,CLOSE,GETPTRSHAPE,SETPTRSHAPE,
   91  		DRAWPTR,REMOVEPTR,GETPTRPOS,SETPTRPOS,INITREAL,
   92  	        SETDEVSTATUS,_m19,_m20,_m21,_m22,_m23,_m24,_m25,
   93  		_m26,_m27,_m28,_m29,_m30,_m31);
   94  
   95       MOUFUNCSET = SET OF MOUFUNC ;
*****                           ^ not supported yet
   96  
   97  PROCEDURE Register(module,entry:ARRAY OF CHAR; mask:MOUFUNCSET) : CARDINAL;
*****                                           ^ not supported yet
   98  PROCEDURE DeRegister() : CARDINAL;
   99  
  100  END Mou.
*****      ^ not supported yet

   19 errors