Topspeed_JPI/TS-V3/INCLUDE/DEV.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  DEV.DEF - Modula-2 OS/2 API Dev... interface                            *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  (*# call(o_a_size => off,
   11           o_a_copy=>off,
   12           result_optional=>on,
   13           reg_saved => (si, di, ds, st1, st2),
   14           reg_param => (),
   15           seg_name => none,
   16           near_call => off,
   17           ds_eq_ss => off) *)
   18  (*# module(implementation=>off, init_code => off) *)
   19  (*# name(prefix => os2_lib) *)
   20  (*# data(near_ptr => off) *)
   21  
   22  DEFINITION MODULE Dev;
   23  
   24  (**)
   25  (**--- OS/2 Presentation Manager Dev ---------------------------------------*)
   26  (**)
   27  
   28  
   29  FROM OS2DEF IMPORT HDC,HMF,HAB,STR8,STR16,STR32,STR64,DRIVDATA;
   30  
   31  CONST
   32  (* General DEV return values *)
   33      DEV_ERROR               = 0;
   34      DEV_OK                  = 1;
   35  
   36  (* DC type for DevOpenDC *)
   37      OD_QUEUED               = 2;
   38      OD_DIRECT               = 5;
   39      OD_INFO                 = 6;
   40      OD_METAFILE             = 7;
   41      OD_MEMORY               = 8;
   42      OD_METAFILE_NOQUERY     = 9;
   43  
   44  
   45  (* Codes for DevQueryCaps *)
   46      CAPS_FAMILY                     = 0;
   47      CAPS_IO_CAPS                    = 1;
   48      CAPS_TECHNOLOGY                 = 2;
   49      CAPS_DRIVER_VERSION             = 3;
   50      CAPS_WIDTH                      = 4;
   51      CAPS_HEIGHT                     = 5;
   52      CAPS_WIDTH_IN_CHARS             = 6;
   53      CAPS_HEIGHT_IN_CHARS            = 7;
   54      CAPS_HORIZONTAL_RESOLUTION      = 8;
   55      CAPS_VERTICAL_RESOLUTION        = 9;
   56      CAPS_CHAR_WIDTH                 = 10;
   57      CAPS_CHAR_HEIGHT                = 11;
   58      CAPS_SMALL_CHAR_WIDTH           = 12;
   59      CAPS_SMALL_CHAR_HEIGHT          = 13;
   60      CAPS_COLORS                     = 14;
   61      CAPS_COLOR_PLANES               = 15;
   62      CAPS_COLOR_BITCOUNT             = 16;
   63      CAPS_COLOR_TABLE_SUPPORT        = 17;
   64      CAPS_MOUSE_BUTTONS              = 18;
   65      CAPS_FOREGROUND_MIX_SUPPORT     = 19;
   66      CAPS_BACKGROUND_MIX_SUPPORT     = 20;
   67      CAPS_DEVICE_WINDOWING           = 31;
   68      CAPS_ADDITIONAL_GRAPHICS        = 32;
   69      CAPS_VIO_LOADABLE_FONTS         = 21;
   70      CAPS_WINDOW_BYTE_ALIGNMENT      = 22;
   71      CAPS_BITMAP_FORMATS             = 23;
   72      CAPS_RASTER_CAPS                = 24;
   73      CAPS_MARKER_HEIGHT              = 25;
   74      CAPS_MARKER_WIDTH               = 26;
   75      CAPS_DEVICE_FONTS               = 27;
   76      CAPS_GRAPHICS_SUBSET            = 28;
   77      CAPS_GRAPHICS_VERSION           = 29;
   78      CAPS_GRAPHICS_VECTOR_SUBSET     = 30;
   79      CAPS_PHYS_COLORS                = 33;
   80      CAPS_COLOR_INDEX                = 34;
   81      CAPS_GRAPHICS_CHAR_WIDTH        = 35;
   82      CAPS_GRAPHICS_CHAR_HEIGHT       = 36;
   83      CAPS_HORIZONTAL_FONT_RES        = 37;
   84      CAPS_VERTICAL_FONT_RES          = 38;
   85      CAPS_DEVICE_FONT_SIM            = 39;
   86  
   87  (* Constants for CAPS_IO_CAPS *)
   88      CAPS_IO_DUMMY                   = 1;
   89      CAPS_IO_SUPPORTS_OP             = 2;
   90      CAPS_IO_SUPPORTS_IP             = 3;
   91      CAPS_IO_SUPPORTS_IO             = 4;
   92  
   93  (* Constants for CAPS_TECHNOLOGY *)
   94      CAPS_TECH_UNKNOWN               = 0;
   95      CAPS_TECH_VECTOR_PLOTTER        = 1;
   96      CAPS_TECH_RASTER_DISPLAY        = 2;
   97      CAPS_TECH_RASTER_PRINTER        = 3;
   98      CAPS_TECH_RASTER_CAMERA         = 4;
   99      CAPS_TECH_POSTSCRIPT            = 5;
  100  
  101  (* Constants for CAPS_COLOR_TABLE_SUPPORT *)
  102      CAPS_COLTABL_RGB_8              = 1;
  103      CAPS_COLTABL_RGB_8_PLUS         = 2;
  104      CAPS_COLTABL_TRUE_MIX           = 4;
  105      CAPS_COLTABL_REALIZE            = 8;
  106  
  107  (* Constants for CAPS_FOREGROUND_MIX_SUPPORT *)
  108      CAPS_FM_OR                      = 1;
  109      CAPS_FM_OVERPAINT               = 2;
  110      CAPS_FM_XOR                     = 8;
  111      CAPS_FM_LEAVEALONE             = 16;
  112      CAPS_FM_AND                    = 32;
  113      CAPS_FM_GENERAL_BOOLEAN        = 64;
  114  
  115  (* Constants for CAPS_BACKGROUND_MIX_SUPPORT *)
  116      CAPS_BM_OR                      = 1;
  117      CAPS_BM_OVERPAINT               = 2;
  118      CAPS_BM_XOR                     = 8;
  119      CAPS_BM_LEAVEALONE             = 16;
  120  
  121  (* Constants for CAPS_DEVICE_WINDOWING *)
  122      CAPS_DEV_WINDOWING_SUPPORT      = 1;
  123  
  124  (* Constants for CAPS_ADDITIONAL_GRAPHICS *)
  125      CAPS_GRAPHICS_KERNING_SUPPORT   = 2;
  126      CAPS_FONT_OUTLINE_DEFAULT       = 4;
  127      CAPS_FONT_IMAGE_DEFAULT         = 8;
  128      CAPS_SCALED_DEFAULT_MARKERS    = 64;
  129  
  130  (* Constants for CAPS_WINDOW_BYTE_ALIGNMENT *)
  131      CAPS_BYTE_ALIGN_REQUIRED       = 0;
  132      CAPS_BYTE_ALIGN_RECOMMENDED    = 1;
  133      CAPS_BYTE_ALIGN_NOT_REQUIRED   = 2;
  134  
  135  (* Constants for CAPS_RASTER_CAPS *)
  136      CAPS_RASTER_BITBLT             = 1;
  137      CAPS_RASTER_BANDING            = 2;
  138      CAPS_RASTER_BITBLT_SCALING     = 4;
  139      CAPS_RASTER_SET_PEL            = 16;
  140      CAPS_RASTER_FONTS              = 32;
  141  
  142  PROCEDURE OpenDC(a: HAB; t: LONGINT; n: ARRAY OF CHAR; c: LONGCARD; d: FarADDRESS; h:HDC): HDC;
*****                                                   ^ not supported yet
*****                                                            ^ undeclared identifier
*****                                                                         ^ undeclared identifier
  143  
  144  PROCEDURE CloseDC(h: HDC): HMF;
  145  PROCEDURE QueryCaps(h: HDC; s,c: LONGCARD; VAR a:ARRAY OF LONGINT): BOOLEAN;
*****                                   ^ undeclared identifier
*****                                                            ^ not supported yet
  146  
  147  CONST
  148  (* Return codes for Escape *)
  149      ESC_ERROR            =-1;
  150      ESC_NOTIMPLEMENTED   = 0;
  151  
  152  (* Codes for Escape *)
  153      ESC_QUERYESCSUPPORT   = 0;
  154      ESC_GETSCALINGFACTOR  = 1;
  155      ESC_QUERYVIOCELLSIZES = 2;
  156      ESC_STARTDOC          = 8150;
  157      ESC_ENDDOC            = 8151;
  158      ESC_NEXTBAND          = 8152;
  159      ESC_ABORTDOC          = 8153;
  160      ESC_NEWFRAME          = 16300;
  161      ESC_DRAFTMODE         = 16301;
  162      ESC_FLUSHOUTPUT       = 16302;
  163      ESC_RAWDATA           = 16303;
  164  
  165  (* Dev Escape code 16304 is reserved *)
  166      ESC_DBE_FIRST         = 24450;
  167      ESC_DBE_LAST          = 24455;
  168  
  169  (* DevEscape codes for adding extra space to character strings *)
  170      ESC_CHAR_EXTRA        = 16998;
  171      ESC_BREAK_EXTRA       = 16999;
  172  
  173  (* Codes for Escape PM_Q_ESC spool files *)
  174      ESC_STD_JOURNAL      = 32600;
  175  
  176  (* Return codes for PostDeviceModes *)
  177      DPDM_ERROR              = -1;
  178      DPDM_NONE               =  0;
  179  
  180  (* codes for DevPostDeviceModes *)
  181      DPDM_POSTJOBPROP        = 0;
  182      DPDM_CHANGEPROP         = 1;
  183      DPDM_QUERYJOBPROP       = 2;
  184  
  185  (* Return code for  QueryHardcopyCaps *)
  186      DQHC_ERROR              = -1;
  187  
  188  (* Codes for QueryHardcopyCaps *)
  189      HCAPS_CURRENT           =  1;
  190      HCAPS_SELECTABLE        =  2;
  191  
  192  
  193  TYPE
  194      HCINFO = RECORD
  195                 formname     : STR32;
  196                 cx,cy        : LONGINT;
  197                 xLeftClip    : LONGINT;
  198                 yBottomClip  : LONGINT;
  199                 xRightClip   : LONGINT;
  200                 yTopClip     : LONGINT;
  201                 xPels        : LONGINT;
  202                 yPels        : LONGINT;
  203                 flAttributes : LONGINT;
  204               END;
*****               ^ not supported yet
  205  
  206  
  207  PROCEDURE Escape(h:HDC;e:LONGINT;c:LONGCARD;b:ARRAY OF BYTE;VAR oc:LONGCARD;VAR ob :ARRAY OF BYTE):LONGINT;
*****                                     ^ undeclared identifier
*****                                                         ^ undeclared identifier
*****                                                                     ^ undeclared identifier
*****                                                                                               ^ undeclared identifier
  208  PROCEDURE QueryDeviceNames(a:HAB; drn:ARRAY OF CHAR;VAR dn:LONGCARD; VAR dns: ARRAY OF STR32; VAR dds:ARRAY OF STR64;
*****                                                 ^ not supported yet
*****                                                             ^ undeclared identifier
*****                                                                                         ^ not supported yet
*****                                                                                                                 ^ not supported yet
  209                                VAR dt : LONGCARD; VAR dts: ARRAY OF STR16):BOOLEAN;
*****                                         ^ undeclared identifier
*****                                                                     ^ not supported yet
  210  
  211  PROCEDURE QueryHardcopyCaps(h:HDC;s:LONGINT;f:LONGINT;VAR i:HCINFO):LONGINT;
  212  PROCEDURE PostDeviceModes(a:HAB;VAR d:DRIVDATA;drn,den,n:ARRAY OF CHAR):LONGINT;
*****                                                                    ^ not supported yet
  213  
  214  END Dev.
*****      ^ not supported yet

   18 errors