pmord.fi

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FI 代码 · 共 708 行 · 第 1/2 页

c$noreference

        structure /RECT1S/
            integer*2 xLeft
            integer*2 yBottom
            integer*2 xRight
            integer*2 yTop
        end structure

        structure /ODPOINT/
            integer*1 dx
            integer*1 dy
        end structure

        structure /SIZES/
            integer*2 cx
            integer*2 cy
        end structure

        structure /SWPUSHORT/
            integer*1 HiByte
            integer*1 LoByte
        end structure

        logical BYTE_ORDER
        external BYTE_ORDER

        logical SHORT_ORDER
        external SHORT_ORDER

        structure /ORDER/
            integer*1 idCode
            integer*1 uchData
        end structure

        integer  GBAR_RESERVED
        parameter (GBAR_RESERVED = '00000080'x)
        integer  GBAR_BOUNDARY
        parameter (GBAR_BOUNDARY = '000000C0'x)
        integer  GBAR_NOBOUNDARY
        parameter (GBAR_NOBOUNDARY = '00000080'x)
        integer  GBAR_WINDING
        parameter (GBAR_WINDING = '000000A0'x)
        integer  GBAR_ALTERNATE
        parameter (GBAR_ALTERNATE = '00000080'x)

        integer  GSCR_PRECISION
        parameter (GSCR_PRECISION = '0000000F'x)

        logical LONG_ORDER
        external LONG_ORDER

        integer  LORDER_ML
        parameter (LORDER_ML = 253)
        structure /LORDER/
            integer*1 idCode
            integer*1 uchLength
            integer*1 uchData(LORDER_ML)
        end structure

        integer  GCCHST_MC
        parameter (GCCHST_MC = 255)

        integer  GCHST_SMC
        parameter (GCHST_SMC = 251)
        integer  GCHST_LMC
        parameter (GCHST_LMC = 247)

        integer  GCCHSTM_MC
        parameter (GCCHSTM_MC = 255)

        integer  GCHSTM_SMC
        parameter (GCHSTM_SMC = 251)
        integer  GCHSTM_LMC
        parameter (GCHSTM_LMC = 247)

        integer  GCOMT_ML
        parameter (GCOMT_ML = 255)

        integer  GIMD_ML
        parameter (GIMD_ML = 255)

        integer  GCBEZ_SMB
        parameter (GCBEZ_SMB = 21)
        integer  GCBEZ_LMB
        parameter (GCBEZ_LMB = 10)

        integer  GBEZ_SMB
        parameter (GBEZ_SMB = 20)
        integer  GBEZ_LMB
        parameter (GBEZ_LMB = 10)

        integer  GCFLT_SMP
        parameter (GCFLT_SMP = 63)
        integer  GCFLT_LMP
        parameter (GCFLT_LMP = 31)

        integer  GFLT_SMP
        parameter (GFLT_SMP = 62)
        integer  GFLT_LMP
        parameter (GFLT_LMP = 30)

        integer  GCLINE_SMP
        parameter (GCLINE_SMP = 63)
        integer  GCLINE_LMP
        parameter (GCLINE_LMP = 31)

        integer  GLINE_SMP
        parameter (GLINE_SMP = 62)
        integer  GLINE_LMP
        parameter (GLINE_LMP = 30)

        integer  GCMRK_SMP
        parameter (GCMRK_SMP = 63)
        integer  GCMRK_LMP
        parameter (GCMRK_LMP = 31)

        integer  GMRK_SMP
        parameter (GMRK_SMP = 62)
        integer  GMRK_LMP
        parameter (GMRK_LMP = 30)

        integer  GCRLINE_MP
        parameter (GCRLINE_MP = 127)

        integer  GRLINE_SMP
        parameter (GRLINE_SMP = 125)
        integer  GRLINE_LMP
        parameter (GRLINE_LMP = 123)

        integer  SECOL_DEFAULT0
        parameter (SECOL_DEFAULT0 = '00000000'x)
        integer  SECOL_DEFAULT1
        parameter (SECOL_DEFAULT1 = '0000FF00'x)
        integer  SECOL_NEUTRAL
        parameter (SECOL_NEUTRAL = '0000FF07'x)
        integer  SECOL_RESET
        parameter (SECOL_RESET = '0000FF08'x)

        structure /ORDERS_GCARC/
            record /POINTS/ ptInter
            record /POINTS/ ptEnd
        end structure

        structure /ORDERL_GCARC/
            record /POINTL/ ptInter
            record /POINTL/ ptEnd
        end structure

        integer  GBEL_DL
        parameter (GBEL_DL = 251)
        structure /ORDER_GBEL/
            integer*4 lElementType
            integer*1 achDesc(GBEL_DL)
        end structure

        structure /ORDER_GCBIMG/
            integer*1 uchFormat
            integer*1 uchReserved
            record /SWPUSHORT/ cx
            record /SWPUSHORT/ cy
        end structure

        structure /ORDER_GBPTH/
            integer*2 usReserved
            integer*4 idPath
        end structure

        structure /ORDERS_GCBOX/
            integer*1 fbFlags
            integer*1 uchReserved
            record /POINTS/ ptCorner
            integer*2 hAxis
            integer*2 vAxis
        end structure

        structure /ORDERL_GCBOX/
            integer*1 fbFlags
            integer*1 uchReserved
            record /POINTL/ ptCorner
            integer*4 hAxis
            integer*4 vAxis
        end structure

        integer  GCBOX_FILL
        parameter (GCBOX_FILL = '00000040'x)
        integer  GCBOX_BOUNDARY
        parameter (GCBOX_BOUNDARY = '00000020'x)

        structure /ORDER_GCALLS/
            integer*2 sReserved
            integer*4 idSegment
        end structure

        structure /ORDER_GFPTH/
            integer*1 fbFlags
            integer*1 uchReserved
            integer*4 idPath
        end structure

        integer  GFPTH_ALTERNATE
        parameter (GFPTH_ALTERNATE = '00000000'x)
        integer  GFPTH_WINDING
        parameter (GFPTH_WINDING = '00000040'x)
        integer  GFPTH_MODIFY
        parameter (GFPTH_MODIFY = '00000020'x)

        structure /ORDER_GOPTH/
            integer*1 fbFlags
            integer*1 uchReserved
            integer*4 idPath
        end structure

        structure /ORDER_GMPTH/
            integer*1 uchMode
            integer*1 uchReserved
            integer*4 idPath
        end structure

        integer  GMPTH_STROKE
        parameter (GMPTH_STROKE = '00000006'x)

        structure /ORDERS_GCPARC/
            record /POINTS/ ptCenter
            integer*2 ufx88Multiplier
            integer*4 usStartAngle
            integer*4 usSweepAngle
        end structure

        structure /ORDERL_GCPARC/
            record /POINTL/ ptCenter
            integer*4 ufxMultiplier
            integer*4 usStartAngle
            integer*4 usSweepAngle
        end structure

        structure /ORDER_GSCPTH/
            integer*1 fbFlags
            integer*1 uchReserved
            integer*4 idPath
        end structure

        integer  GSCPTH_ALTERNATE
        parameter (GSCPTH_ALTERNATE = '00000000'x)
        integer  GSCPTH_WINDING
        parameter (GSCPTH_WINDING = '00000040'x)
        integer  GSCPTH_RESET
        parameter (GSCPTH_RESET = '00000000'x)
        integer  GSCPTH_INTERSECT
        parameter (GSCPTH_INTERSECT = '00000020'x)

        structure /ORDERS_GSAP/
            integer*2 p
            integer*2 q
            integer*2 r
            integer*2 s
        end structure

        structure /ORDERL_GSAP/
            integer*4 p
            integer*4 q
            integer*4 r
            integer*4 s
        end structure

        structure /ORDER_GSBICOL/
            integer*1 fbFlags
            integer*1 auchColor(3)
        end structure

        integer  SICOL_SPECIFY
        parameter (SICOL_SPECIFY = '00000000'x)
        integer  SICOL_SPECIAL
        parameter (SICOL_SPECIAL = '00000040'x)
        integer  SICOL_DEFAULT
        parameter (SICOL_DEFAULT = '00000080'x)
        integer  SICOL_BLACK
        parameter (SICOL_BLACK = 1)
        integer  SICOL_WHITE
        parameter (SICOL_WHITE = 2)
        integer  SICOL_ONES
        parameter (SICOL_ONES = 4)
        integer  SICOL_ZEROES
        parameter (SICOL_ZEROES = 5)

        structure /ORDERS_GSCC/
            integer*2 cxInt
            integer*2 cyInt
            integer*2 cxFract
            integer*2 cyFract
            integer*1 fbFlags
            integer*1 uchReserved
        end structure

        structure /ORDERL_GSCC/
            integer*4 cxInt
            integer*4 cyInt
            integer*2 cxFract
            integer*2 cyFract
            integer*1 fbFlags
            integer*1 uchReserved
        end structure

        integer  GSCC_ZERODEF
        parameter (GSCC_ZERODEF = '00000000'x)
        integer  GSCC_ZEROZERO
        parameter (GSCC_ZEROZERO = '00000080'x)

        structure /ORDERS_GSMC/
            integer*2 cx
            integer*2 cy
            integer*1 fbFlags
            integer*1 uchReserved
        end structure

        structure /ORDERL_GSMC/
            integer*4 cx
            integer*4 cy
            integer*1 fbFlags
            integer*1 uchReserved
        end structure

        integer  GSMC_ZERODEF
        parameter (GSMC_ZERODEF = '00000000'x)
        integer  GSMC_ZEROZERO
        parameter (GSMC_ZEROZERO = '00000080'x)

        structure /ORDERS_GSPRP/
            integer*1 fbFlags
            integer*1 uchReserved
            record /POINTS/ ptPos
        end structure

        structure /ORDERL_GSPRP/
            integer*1 fbFlags
            integer*1 uchReserved
            record /POINTL/ ptPos
        end structure

        integer  GSPRP_DEFAULT
        parameter (GSPRP_DEFAULT = '00000080'x)
        integer  GSPRP_SPECIFY
        parameter (GSPRP_SPECIFY = '00000000'x)

        integer  GSIA_VL
        parameter (GSIA_VL = 3)
        structure /ORDER_GSIA/
            integer*1 uchAttrType
            integer*1 uchPrimType
            integer*1 fbFlags
            integer*1 auchValue(GSIA_VL)
        end structure

        integer  GSIA_COLOR