pmord.fi
来自「开放源码的编译器open watcom 1.6.0版的源代码」· FI 代码 · 共 708 行 · 第 1/2 页
FI
708 行
parameter (GSIA_COLOR = '00000001'x)
integer GSIA_BCOLOR
parameter (GSIA_BCOLOR = '00000002'x)
integer GSIA_MIX
parameter (GSIA_MIX = '00000003'x)
integer GSIA_BMIX
parameter (GSIA_BMIX = '00000004'x)
integer GSIA_LINE
parameter (GSIA_LINE = '00000001'x)
integer GSIA_CHAR
parameter (GSIA_CHAR = '00000002'x)
integer GSIA_MARKER
parameter (GSIA_MARKER = '00000003'x)
integer GSIA_PATTERN
parameter (GSIA_PATTERN = '00000004'x)
integer GSIA_IMAGE
parameter (GSIA_IMAGE = '00000005'x)
integer GSIA_SPECIFY
parameter (GSIA_SPECIFY = '00000000'x)
integer GSIA_SPECIAL
parameter (GSIA_SPECIAL = '00000040'x)
integer GSIA_DEFAULT
parameter (GSIA_DEFAULT = '00000080'x)
integer GSIA_BLACK
parameter (GSIA_BLACK = 1)
integer GSIA_WHITE
parameter (GSIA_WHITE = 2)
integer GSIA_ONES
parameter (GSIA_ONES = 4)
integer GSIA_ZEROES
parameter (GSIA_ZEROES = 5)
integer GSTM_ML
parameter (GSTM_ML = 16)
structure /ORDERS_GSTM/
integer*1 uchReserved
integer*1 fbFlags
integer*2 fsMask
integer*2 asMatrix(GSTM_ML)
end structure
structure /ORDERL_GSTM/
integer*1 uchReserved
integer*1 fbFlags
integer*2 fsMask
integer*4 alMatrix(GSTM_ML)
end structure
integer GSTM_M11
parameter (GSTM_M11 = '00008000'x)
integer GSTM_M12
parameter (GSTM_M12 = '00004000'x)
integer GSTM_M13
parameter (GSTM_M13 = '00002000'x)
integer GSTM_M14
parameter (GSTM_M14 = '00001000'x)
integer GSTM_M21
parameter (GSTM_M21 = '00000800'x)
integer GSTM_M22
parameter (GSTM_M22 = '00000400'x)
integer GSTM_M23
parameter (GSTM_M23 = '00000200'x)
integer GSTM_M24
parameter (GSTM_M24 = '00000100'x)
integer GSTM_M31
parameter (GSTM_M31 = '00000080'x)
integer GSTM_M32
parameter (GSTM_M32 = '00000040'x)
integer GSTM_M33
parameter (GSTM_M33 = '00000020'x)
integer GSTM_M34
parameter (GSTM_M34 = '00000010'x)
integer GSTM_M41
parameter (GSTM_M41 = '00000008'x)
integer GSTM_M42
parameter (GSTM_M42 = '00000004'x)
integer GSTM_M43
parameter (GSTM_M43 = '00000002'x)
integer GSTM_M44
parameter (GSTM_M44 = '00000001'x)
integer GSTM_UNITY
parameter (GSTM_UNITY = '00000000'x)
integer GSTM_AFTER
parameter (GSTM_AFTER = '00000001'x)
integer GSTM_BEFORE
parameter (GSTM_BEFORE = '00000002'x)
integer GSTM_OVERWRITE
parameter (GSTM_OVERWRITE = '00000003'x)
integer GSTV_OVERWRITE
parameter (GSTV_OVERWRITE = '00000000'x)
integer GSTV_AFTER
parameter (GSTV_AFTER = '00000004'x)
integer GSSB_ML
parameter (GSSB_ML = 4)
structure /ORDERS_GSSB/
integer*1 fbFlags
integer*1 fbMask
integer*2 alMatrix(GSSB_ML)
end structure
structure /ORDERL_GSSB/
integer*1 fbFLags
integer*1 fbMask
integer*4 alMatrix(GSSB_ML)
end structure
integer GSSB_XLEFT
parameter (GSSB_XLEFT = '00000020'x)
integer GSSB_XRIGHT
parameter (GSSB_XRIGHT = '00000010'x)
integer GSSB_YBOTTOM
parameter (GSSB_YBOTTOM = '00000008'x)
integer GSSB_YTOP
parameter (GSSB_YTOP = '00000004'x)
integer GSVW_INTERSECT
parameter (GSVW_INTERSECT = '00000000'x)
integer GSVW_REPLACE
parameter (GSVW_REPLACE = '00000080'x)
integer GSGCH_ML
parameter (GSGCH_ML = 254)
structure /ORDER_GSGCH/
integer*1 uchIdent
integer*1 auchData(GSGCH_ML)
end structure
structure /ORDERS_GSSLW/
integer*1 fbFlags
integer*1 uchReserved
integer*2 LineWidth
end structure
structure /ORDERL_GSSLW/
integer*1 fbFlags
integer*1 uchReserved
integer*4 LineWidth
end structure
integer GSSLW_DEFAULT
parameter (GSSLW_DEFAULT = '00000080'x)
integer GSSLW_SPECIFY
parameter (GSSLW_SPECIFY = '00000000'x)
integer GCSFLT_SMF
parameter (GCSFLT_SMF = 21)
integer GSFLT_SMF
parameter (GSFLT_SMF = 20)
structure /ORDERS_GCSFLT/
record /POINTS/ apt(2*GCSFLT_SMF)
integer*4 afxSharpness(GCSFLT_SMF)
end structure
integer GCSFLT_LMF
parameter (GCSFLT_LMF = 12)
integer GSFLT_LMF
parameter (GSFLT_LMF = 12)
structure /ORDERL_GCSFLT/
record /POINTL/ apt(2*GCSFLT_SMF)
integer*4 afxSharpness(GCSFLT_SMF)
end structure
structure /ORDERS_GBBLT/
integer*2 fsFlags
integer*2 usMix
integer*4 hbmSrc
integer*4 lOptions
record /RECT1S/ rcsTargetRect
record /RECTL/ rclSourceRect
end structure
structure /ORDERL_GBBLT/
integer*2 fsFlags
integer*2 usMix
integer*4 hbmSrc
integer*4 lOptions
record /RECTL/ rclTargetRect
record /RECTL/ rclSourceRect
end structure
structure /ORDER_GSCE/
integer*1 fbFlags
integer*1 uchReserved
integer*4 ufxextra
end structure
structure /ORDER_GPSCE/
integer*1 fbFlags
integer*1 uchReserved
integer*4 ufxextra
end structure
structure /ORDER_GSCBE/
integer*1 fbFlags
integer*1 uchReserved
integer*4 ufxextra
end structure
structure /ORDER_GPSCBE/
integer*1 fbFlags
integer*1 uchReserved
integer*4 ufxextra
end structure
integer GESCP_ML
parameter (GESCP_ML = 253)
structure /ORDER_GESCP/
integer*1 uchType
integer*1 uchIdent
integer*1 auchData(GESCP_ML)
end structure
integer GESCP_REG
parameter (GESCP_REG = '00000080'x)
integer GEBB_REGID
parameter (GEBB_REGID = '00000002'x)
integer ETYPE_GEBB
parameter (ETYPE_GEBB = '800200D5'x)
integer GEBB_LMP
parameter (GEBB_LMP = 29)
structure /ORDERL_GEBB/
integer*1 fbFlags
integer*2 usMix
integer*1 cPoints
integer*4 hbmSrc
integer*4 lReserved
integer*4 lOptions
record /POINTL/ aptPoints(GEBB_LMP)
end structure
integer GEPEL_REGID
parameter (GEPEL_REGID = '00000001'x)
integer ETYPE_GEPEL
parameter (ETYPE_GEPEL = '800100D5'x)
integer GEDB_REGID
parameter (GEDB_REGID = '00000004'x)
integer ETYPE_GEDB
parameter (ETYPE_GEDB = '800400D5'x)
structure /ORDERL_GEDB/
integer*2 fsFlags
integer*2 usMix
integer*4 pBits
integer*4 pbmi
integer*4 lOptions
record /RECTL/ rclTargetRect
record /RECTL/ rclSourceRect
end structure
integer GEFF_REGID
parameter (GEFF_REGID = '00000003'x)
integer ETYPE_GEFF
parameter (ETYPE_GEFF = '800300D5'x)
structure /ORDERL_GEFF/
integer*1 fsFlags
integer*1 auchColor(3)
end structure
integer ETYPE_LINEBUNDLE
parameter (ETYPE_LINEBUNDLE = '0000FD01'x)
integer ETYPE_CHARBUNDLE
parameter (ETYPE_CHARBUNDLE = '0000FD02'x)
integer ETYPE_MARKERBUNDLE
parameter (ETYPE_MARKERBUNDLE = '0000FD03'x)
integer ETYPE_AREABUNDLE
parameter (ETYPE_AREABUNDLE = '0000FD04'x)
integer ETYPE_IMAGEBUNDLE
parameter (ETYPE_IMAGEBUNDLE = '0000FD05'x)
logical VLONG_ORDER
external VLONG_ORDER
integer VORDER_ML
parameter (VORDER_ML = 65531)
structure /VORDER/
integer*1 idCode
integer*1 uchQualifier
record /SWPUSHORT/ uchLength
integer*1 uchData(VORDER_ML)
end structure
integer ETYPE_GCCHSTE
parameter (ETYPE_GCCHSTE = '0000FEB0'x)
integer ETYPE_GCHSTE
parameter (ETYPE_GCHSTE = '0000FEF0'x)
structure /ORDERS_GCCHSTE/
integer*1 fbFlags
integer*1 uchReserved
record /POINTS/ ptRect(2)
record /SWPUSHORT/ cchString
integer*1 achString(1)
integer*2 adx(1)
end structure
structure /ORDERL_GCCHSTE/
integer*1 fbFlags
integer*1 uchReserved
record /POINTL/ ptRect(2)
record /SWPUSHORT/ cchString
integer*1 achString(1)
integer*4 adx(1)
end structure
integer GCCHSTE_DRAWRECT
parameter (GCCHSTE_DRAWRECT = '00000080'x)
integer GCCHSTE_NORECT
parameter (GCCHSTE_NORECT = '00000000'x)
integer GCCHSTE_CLIP
parameter (GCCHSTE_CLIP = '00000040'x)
integer GCCHSTE_NOCLIP
parameter (GCCHSTE_NOCLIP = '00000000'x)
integer GCCHSTE_DEEMPHASIZE
parameter (GCCHSTE_DEEMPHASIZE = '00000020'x)
integer GCCHSTE_NODEEMPHASIZE
parameter (GCCHSTE_NODEEMPHASIZE = '00000000'x)
integer GCCHSTE_LEAVEPOS
parameter (GCCHSTE_LEAVEPOS = '00000010'x)
integer GCCHSTE_MOVEPOS
parameter (GCCHSTE_MOVEPOS = '00000000'x)
integer GCCHSTE_UNDERSCORE
parameter (GCCHSTE_UNDERSCORE = '00000008'x)
integer GCCHSTE_NOUNDERSCORE
parameter (GCCHSTE_NOUNDERSCORE = '00000000'x)
integer GCCHSTE_STRIKEOUT
parameter (GCCHSTE_STRIKEOUT = '00000004'x)
integer GCCHSTE_NOSTRIKEOUT
parameter (GCCHSTE_NOSTRIKEOUT = '00000000'x)
integer GEESCP_ML
parameter (GEESCP_ML = 65533)
structure /ORDER_GEESCP/
integer*1 uchType
integer*1 uchIdent
integer*1 auchData(GEESCP_ML)
end structure
c$include pmocodes.fi
c$reference
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?