pmddim.fi

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

c$noreference

c$ifdef INCL_GRE_ARCS

        integer GreGetArcParameters
        external GreGetArcParameters
        integer  NGreGetArcParameters
        parameter (NGreGetArcParameters = '00004000'x)

        integer GreSetArcParameters
        external GreSetArcParameters
        integer  NGreSetArcParameters
        parameter (NGreSetArcParameters = '00004001'x)

        integer GreArc
        external GreArc
        integer  NGreArc
        parameter (NGreArc = '00004002'x)

        integer GreParialArc
        external GreParialArc
        integer  NGrePartialArc
        parameter (NGrePartialArc = '00004003'x)

        integer GreFillArcInterior
        external GreFillArcInterior
        integer  NGreFullArcInterior
        parameter (NGreFullArcInterior = '00004004'x)

        integer GreFullArcBoundary
        external GreFullArcBoundary
        integer  NGreFullArcBoundary
        parameter (NGreFullArcBoundary = '00004005'x)

        integer GreFullArcBoth
        external GreFullArcBoth
        integer  NGreFullArcBoth
        parameter (NGreFullArcBoth = '00004006'x)

        integer GreBoxInterior
        external GreBoxInterior
        integer  NGreBoxInterior
        parameter (NGreBoxInterior = '00004007'x)

        integer GreBoxBoundary
        external GreBoxBoundary
        integer  NGreBoxBoundary
        parameter (NGreBoxBoundary = '00004008'x)

        integer GreBoxBoth
        external GreBoxBoth
        integer  NGreBoxBoth
        parameter (NGreBoxBoth = '00004009'x)

        integer GrePolyFillet
        external GrePolyFillet
        integer  NGrePolyFillet
        parameter (NGrePolyFillet = '0000400A'x)

        integer GrePolyFilletSharp
        external GrePolyFilletSharp
        integer  NGrePolyFilletSharp
        parameter (NGrePolyFilletSharp = '0000400B'x)

        integer GrePolySpline
        external GrePolySpline
        integer  NGrePolySpline
        parameter (NGrePolySpline = '0000400C'x)

        integer GreDrawConicsInPath
        external GreDrawConicsInPath
        integer  NGreDrawConicsInPath
        parameter (NGreDrawConicsInPath = '0000400D'x)

        integer GreCookWholePath
        external GreCookWholePath
        integer  NGreCookWholePath
        parameter (NGreCookWholePath = '0000400E'x)

        integer GreCookPathCurves
        external GreCookPathCurves
        integer  NGreCookPathCurves
        parameter (NGreCookPathCurves = '0000400F'x)

        integer GreRenderPath
        external GreRenderPath
        integer  NGreRenderPath
        parameter (NGreRenderPath = '00004011'x)

c$endif

c$ifdef INCL_GRE_LINES

        integer GreDisjointLines
        external GreDisjointLines
        integer  NGreDisjointLines
        parameter (NGreDisjointLines = '00004016'x)

        integer GreGetCurrentPosition
        external GreGetCurrentPosition
        integer  NGreGetCurrentPosition
        parameter (NGreGetCurrentPosition = '00004017'x)

        integer GreSetCurrentPosition
        external GreSetCurrentPosition
        integer  NGreSetCurrentPosition
        parameter (NGreSetCurrentPosition = '00004018'x)

        integer GrePolyLine
        external GrePolyLine
        integer  NGrePolyLine
        parameter (NGrePolyLine = '00004019'x)

        integer GreDrawLinesInPath
        external GreDrawLinesInPath
        integer  NGreDrawLinesInPath
        parameter (NGreDrawLinesInPath = '0000401A'x)

        integer GrePolyShortLine
        external GrePolyShortLine
        integer  NGrePolyShortLine
        parameter (NGrePolyShortLine = '0000401B'x)

c$endif

c$ifdef INCL_GRE_SCANS

        integer GrePolyScanline
        external GrePolyScanline
        integer  NGrePolyScanline
        parameter (NGrePolyScanline = '0000401C'x)

c$endif

c$ifdef INCL_GRE_BITMAPS

        integer GreDrawBits
        external GreDrawBits
        integer  NGreDrawBits
        parameter (NGreDrawBits = '00004022'x)

        integer GreDeviceCreateBitmap
        external GreDeviceCreateBitmap
        integer  NGreDeviceCreateBitmap
        parameter (NGreDeviceCreateBitmap = '00004023'x)

        integer GreDeviceDeleteBitmap
        external GreDeviceDeleteBitmap
        integer  NGreDeviceDeleteBitmap
        parameter (NGreDeviceDeleteBitmap = '00004024'x)

        integer GreDeviceSelectBitmap
        external GreDeviceSelectBitmap
        integer  NGreDeviceSelectBitmap
        parameter (NGreDeviceSelectBitmap = '00004025'x)

        integer GreBitblt
        external GreBitblt
        integer  NGreBitblt
        parameter (NGreBitblt = '00004026'x)

        integer GreGetPel
        external GreGetPel
        integer  NGreGetPel
        parameter (NGreGetPel = '00004027'x)

        integer GreSetPel
        external GreSetPel
        integer  NGreSetPel
        parameter (NGreSetPel = '00004028'x)

        integer GreImageData
        external GreImageData
        integer  NGreImageData
        parameter (NGreImageData = '00004029'x)

        integer GreSaveScreenBits
        external GreSaveScreenBits
        integer  NGreSaveScreenBits
        parameter (NGreSaveScreenBits = '0000402C'x)

        integer GreRestoreScreenBits
        external GreRestoreScreenBits
        integer  NGreRestoreScreenBits
        parameter (NGreRestoreScreenBits = '0000402D'x)

        integer GreDrawBorder
        external GreDrawBorder
        integer  NGreDrawBorder
        parameter (NGreDrawBorder = '0000402E'x)

        integer GreDeviceSetCursor
        external GreDeviceSetCursor
        integer  NGreDeviceSetCursor
        parameter (NGreDeviceSetCursor = '0000402F'x)

        integer GreGetBitmapBits
        external GreGetBitmapBits
        integer  NGreGetBitmapBits
        parameter (NGreGetBitmapBits = '00004030'x)

        integer GreSetBitmapBits
        external GreSetBitmapBits
        integer  NGreSetBitmapBits
        parameter (NGreSetBitmapBits = '00004031'x)

c$endif

c$ifdef INCL_WINPOINTERS

        integer GreSetColorCursor
        external GreSetColorCursor
        integer  NGreSetColorCursor
        parameter (NGreSetColorCursor = '00004032'x)

c$endif

c$ifdef INCL_GRE_STRINGS

        integer GreCharString
        external GreCharString
        integer  NGreCharString
        parameter (NGreCharString = '00004035'x)

        integer GreCharStringPos
        external GreCharStringPos
        integer  NGreCharStringPos
        parameter (NGreCharStringPos = '00004036'x)

        integer GreQueryTextBox
        external GreQueryTextBox
        integer  NGreQueryTextBox
        parameter (NGreQueryTextBox = '00004037'x)

        integer GreQueryCharPositions
        external GreQueryCharPositions
        integer  NGreQueryCharPositions
        parameter (NGreQueryCharPositions = '00004038'x)

        integer GreQueryWidthTable
        external GreQueryWidthTable
        integer  NGreQueryWidthTable
        parameter (NGreQueryWidthTable = '00004039'x)

c$endif

c$ifdef INCL_GRE_MARKERS

        integer GrePolyMarker
        external GrePolyMarker
        integer  NGrePolyMarker
        parameter (NGrePolyMarker = '0000403A'x)

c$endif

c$ifdef INCL_GRE_STRINGS

        integer GreCharRect
        external GreCharRect
        integer  NGreCharRect
        parameter (NGreCharRect = '0000403B'x)

        integer GreCharStr
        external GreCharStr
        integer  NGreCharStr
        parameter (NGreCharStr = '0000403C'x)

        integer GreScrollRect
        external GreScrollRect
        integer  NGreScrollRect
        parameter (NGreScrollRect = '0000403D'x)

        integer GreUpdateCursor
        external GreUpdateCursor
        integer  NGreUpdateCursor
        parameter (NGreUpdateCursor = '0000403E'x)

c$endif

c$ifdef INCL_GRE_PATHS

        integer GreBeginArea
        external GreBeginArea
        integer  NGreBeginArea
        parameter (NGreBeginArea = '00004046'x)

        integer GreEndArea
        external GreEndArea
        integer  NGreEndArea
        parameter (NGreEndArea = '00004047'x)

        integer GreBeginPath
        external GreBeginPath
        integer  NGreBeginPath
        parameter (NGreBeginPath = '00004048'x)

        integer GreEndPath
        external GreEndPath
        integer  NGreEndPath
        parameter (NGreEndPath = '00004049'x)

        integer GreCloseFigure
        external GreCloseFigure
        integer  NGreCloseFigure
        parameter (NGreCloseFigure = '0000404A'x)

        integer GreFillPath
        external GreFillPath
        integer  NGreFillPath
        parameter (NGreFillPath = '0000404B'x)

        integer GreOutlinePath
        external GreOutlinePath
        integer  NGreOutlinePath
        parameter (NGreOutlinePath = '0000404C'x)

        integer GreModifyPath
        external GreModifyPath
        integer  NGreModifyPath
        parameter (NGreModifyPath = '0000404D'x)

        integer GreStrokePath
        external GreStrokePath
        integer  NGreStrokePath
        parameter (NGreStrokePath = '0000404E'x)

        integer GreSelectClipPath
        external GreSelectClipPath
        integer  NGreSelectClipPath
        parameter (NGreSelectClipPath = '0000404F'x)

        integer GreSavePath
        external GreSavePath
        integer  NGreSavePath
        parameter (NGreSavePath = '00004050'x)

        integer GreRestorePath
        external GreRestorePath
        integer  NGreRestorePath
        parameter (NGreRestorePath = '00004051'x)

        integer GreClip1DPath
        external GreClip1DPath
        integer  NGreClip1DPath
        parameter (NGreClip1DPath = '00004052'x)

        integer GreDrawRawPath
        external GreDrawRawPath
        integer  NGreDrawRawPath
        parameter (NGreDrawRawPath = '00004053'x)

        integer GreDrawCookedPath
        external GreDrawCookedPath
        integer  NGreDrawCookedPath
        parameter (NGreDrawCookedPath = '00004054'x)

        integer GreAreaSetAttributes
        external GreAreaSetAttributes
        integer  NGreAreaSetAttributes
        parameter (NGreAreaSetAttributes = '00004055'x)

c$endif

c$ifdef INCL_GRE_REGIONS

        integer GreGetRegionBox
        external GreGetRegionBox
        integer  NGreGetRegionBox
        parameter (NGreGetRegionBox = '0000405D'x)

        integer GreGetRegionRects
        external GreGetRegionRects
        integer  NGreGetRegionRects
        parameter (NGreGetRegionRects = '0000405E'x)

        integer GreOffsetRegion
        external GreOffsetRegion
        integer  NGreOffsetRegion
        parameter (NGreOffsetRegion = '0000405F'x)

        integer GrePtInRegion
        external GrePtInRegion
        integer  NGrePtInRegion
        parameter (NGrePtInRegion = '00004060'x)

        integer GreRectInRegion
        external GreRectInRegion
        integer  NGreRectInRegion
        parameter (NGreRectInRegion = '00004061'x)

        integer GreCreateRectRegion
        external GreCreateRectRegion
        integer  NGreCreateRectRegion
        parameter (NGreCreateRectRegion = '00004062'x)

        integer GreDestroyRegion
        external GreDestroyRegion
        integer  NGreDestroyRegion
        parameter (NGreDestroyRegion = '00004063'x)

        integer GreSetRectRegion
        external GreSetRectRegion
        integer  NGreSetRectRegion
        parameter (NGreSetRectRegion = '00004064'x)

        integer GreCombineRegion
        external GreCombineRegion
        integer  NGreCombineRegion
        parameter (NGreCombineRegion = '00004065'x)

        integer GreCombineRectRegion
        external GreCombineRectRegion
        integer  NGreCombineRectRegion
        parameter (NGreCombineRectRegion = '00004066'x)

        integer GreCombineShortLineRegion
        external GreCombineShortLineRegion
        integer  NGreCombineShortLineRegion
        parameter (NGreCombineShortLineRegion = '00004067'x)

        integer GreEqualRegion
        external GreEqualRegion
        integer  NGreEqualRegion
        parameter (NGreEqualRegion = '00004068'x)

        integer GrePaintRegion
        external GrePaintRegion
        integer  NGrePaintRegion
        parameter (NGrePaintRegion = '00004069'x)

        integer GreSetRegionOwner
        external GreSetRegionOwner
        integer  NGreSetRegionOwner
        parameter (NGreSetRegionOwner = '0000406A'x)

        integer GreFrameRegion
        external GreFrameRegion
        integer  NGreFrameRegion
        parameter (NGreFrameRegion = '0000406B'x)

c$endif

c$ifdef INCL_GRE_CLIP

        integer GreGetClipBox
        external GreGetClipBox
        integer  NGreGetClipBox
        parameter (NGreGetClipBox = '0000406E'x)