Programming Languages Suite/ProgLangD.iso/FORTRAN/DISK6/OS2DEF.FD$/OS2DEF.bin

Text File | 1989-02-04 | 7KB | 244 lines

C***************************************************************************\
C
C Module Name: OS2DEF.FD
C
C OS/2 Common Definitions file
C
C Copyright (c) 1987-1989  IBM Corporation
C
C***************************************************************************/

C* Severity codes
    INTEGER*2 SEVERITY_NOERROR, SEVERITY_WARNING, SEVERITY_ERROR,
     + SEVERITY_SEVERE, SEVERITY_UNRECOVERABLE

    PARAMETER(SEVERITY_NOERROR                    =#0000)
    PARAMETER(SEVERITY_WARNING                    =#0004)
    PARAMETER(SEVERITY_ERROR                      =#0008)
    PARAMETER(SEVERITY_SEVERE                     =#000C)
    PARAMETER(SEVERITY_UNRECOVERABLE              =#0010)

C* Base component error values

    INTEGER*2 WINERR_BASE, GPIERR_BASE, DEVERR_BASE, SPLERR_BASE

    PARAMETER(WINERR_BASE     =#1000)   ! Window Manager
    PARAMETER(GPIERR_BASE     =#2000)   ! Graphics Presentation Interface
    PARAMETER(DEVERR_BASE     =#3000)   ! Device Manager
    PARAMETER(SPLERR_BASE     =#4000)   ! Spooler

C*** Common types used across components

    STRUCTURE/POINTL_/     ! ptl
       INTEGER*4  x
       INTEGER*4  y
    END STRUCTURE

    STRUCTURE/POINTS_/  ! pts
       INTEGER*2 x
       INTEGER*2 y
    END STRUCTURE

    STRUCTURE/RECTL_/       ! rcl
       INTEGER*4  xLeft
       INTEGER*4  yBottom
       INTEGER*4  xRight
       INTEGER*4  yTop
    END STRUCTURE

$IF .NOT. defined(INCL_SAADEFS)
C* common DOS/SHL types

C* File time and date types

C      STRUCTURE/FTIME_/          ! ftime
C    unsigned twosecs : 5         ! FORTRAN doesn't support bit fields
C    unsigned minutes : 6
C    unsigned hours   : 5
C      END STRUCTURE
C
C      STRUCTURE/FDATE_/          ! fdate
C    unsigned day     : 5         ! FORTRAN doesn't support bit fields
C    unsigned month   : 4
C    unsigned year    : 7
C      END STRUCTURE
C
    STRUCTURE/FILEFINDBUF_/    ! findbuf
       INTEGER*2  fdateCreation
       INTEGER*2  ftimeCreation
       INTEGER*2  fdateLastAccess
       INTEGER*2  ftimeLastAccess
       INTEGER*2  fdateLastWrite
       INTEGER*2  ftimeLastWrite
       INTEGER*4 cbFile                   ! End of file data
       INTEGER*4 cbFileAlloc              ! File size allocated
       INTEGER*2 attrFile                 ! File attribute
       INTEGER*1 cchName                  ! Length of null-terminated name
       CHARACTER*13 achName               ! Null-terminated name
    END STRUCTURE

$ENDIF   ! .NOT.INCL_SAADEFS

C*** common DEV/SPL types

C* structure for Device Driver data

    STRUCTURE/DRIVDATA_/       ! driv
       INTEGER*4 cb
       INTEGER*4 lVersion
       CHARACTER*(32) szDeviceName
       INTEGER*1 abGeneralData(1)
    END STRUCTURE

C* array indices for array parameter for DevOpenDC, SplQmOpen or SplQpOpen

    INTEGER*4 ADDRESS
    PARAMETER(ADDRESS          =0)

$IF .NOT.defined(INCL_SAADEFS)
    INTEGER*4 DRIVER_NAME, DRIVER_DATA, DATA_TYPE, COMMENT,
     + PROC_NAME, PROC_PARAMS, SPL_PARAMS, NETWORK_PARAMS

    PARAMETER(DRIVER_NAME      =1)
    PARAMETER(DRIVER_DATA      =2)
    PARAMETER(DATA_TYPE        =3)
    PARAMETER(COMMENT          =4)
    PARAMETER(PROC_NAME        =5)
    PARAMETER(PROC_PARAMS      =6)
    PARAMETER(SPL_PARAMS       =7)
    PARAMETER(NETWORK_PARAMS   =8)

C* structure definition as an alternative of the array parameter

C    STRUCTURE/DEVOPENSTRUC_/     ! dop
C       INTEGER*4 pszLogAddress         ! These need to be LOCFAR()'s
C       INTEGER*4 pszDriverName         ! of CHARACTER variables.
C       RECORD/DRIVDATA_/ pdriv
C       INTEGER*4 pszDataType           ! All these guys too
C       INTEGER*4 pszComment
C       INTEGER*4 pszQueueProcName
C       INTEGER*4 pszQueueProcParams
C       INTEGER*4 pszSpoolerParams
C       INTEGER*4 pszNetworkParams
C    END STRUCTURE

$ENDIF   ! .NOT.INCL_SAADEFS

C*** common AVIO/GPI types

C* values of fsSelection field of FATTRS structure
    INTEGER*2 FATTR_SEL_ITALIC, FATTR_SEL_UNDERSCORE,
     + FATTR_SEL_STRIKEOUT, FATTR_SEL_BOLD

    PARAMETER(FATTR_SEL_ITALIC        =#0001)
    PARAMETER(FATTR_SEL_UNDERSCORE    =#0002)
    PARAMETER(FATTR_SEL_STRIKEOUT     =#0010)
    PARAMETER(FATTR_SEL_BOLD          =#0020)

C* values of fsType field of FATTRS structure
    INTEGER*2 FATTR_TYPE_FIXED, FATTR_TYPE_KERNING

    PARAMETER(FATTR_TYPE_FIXED        =#0002)
    PARAMETER(FATTR_TYPE_KERNING      =#0004)

C* values of fsFontUse field of FATTRS structure
    INTEGER*2 FATTR_FONTUSE_NOMIX, FATTR_FONTUSE_OUTLINE,
     + FATTR_FONTUSE_TRANSFORMABLE

    PARAMETER(FATTR_FONTUSE_NOMIX         =#0002)
    PARAMETER(FATTR_FONTUSE_OUTLINE       =#0004)
    PARAMETER(FATTR_FONTUSE_TRANSFORMABLE =#0008)
C* size for fields in the font structures

    INTEGER*4 FACESIZE
    PARAMETER(FACESIZE =32)

C* font struct for Vio/GpiCreateLogFont

    STRUCTURE/FATTRS_/           ! fat
       INTEGER*2 usRecordLength
       INTEGER*2 fsSelection
       INTEGER*4 lMatch
       CHARACTER*(FACESIZE) szFacename
       INTEGER*2 idRegistry
       INTEGER*2 usCodePage
       INTEGER*4 lMaxBaselineExt
       INTEGER*4 lAveCharWidth
       INTEGER*2 fsType
       INTEGER*2 fsFontUse
    END STRUCTURE

C* font metrics returned by GpiQueryFonts and others

    STRUCTURE/FONTMETRICS_/    ! fm
       CHARACTER*(FACESIZE) szFamilyname
       CHARACTER*(FACESIZE) szFacename
       INTEGER*2 idRegistry
       INTEGER*2 usCodePage
       INTEGER*4 lEmHeight
       INTEGER*4 lXHeight
       INTEGER*4 lMaxAscender
       INTEGER*4 lMaxDescender
       INTEGER*4 lLowerCaseAscent
       INTEGER*4 lLowerCaseDescent
       INTEGER*4 lInternalLeading
       INTEGER*4 lExternalLeading
       INTEGER*4 lAveCharWidth
       INTEGER*4 lMaxCharInc
       INTEGER*4 lEmInc
       INTEGER*4 lMaxBaselineExt
       INTEGER*2 sCharSlope
       INTEGER*2 sInlineDir
       INTEGER*2 sCharRot
       INTEGER*2 usWeightClass
       INTEGER*2 usWidthClass
       INTEGER*2 sXDeviceRes
       INTEGER*2 sYDeviceRes
       INTEGER*2 sFirstChar
       INTEGER*2 sLastChar
       INTEGER*2 sDefaultChar
       INTEGER*2 sBreakChar
       INTEGER*2 sNominalPointSize
       INTEGER*2 sMinimumPointSize
       INTEGER*2 sMaximumPointSize
       INTEGER*2 fsType
       INTEGER*2 fsDefn
       INTEGER*2 fsSelection
       INTEGER*2 fsCapabilities
       INTEGER*4 lSubscriptXSize
       INTEGER*4 lSubscriptYSize
       INTEGER*4 lSubscriptXOffset
       INTEGER*4 lSubscriptYOffset
       INTEGER*4 lSuperscriptXSize
       INTEGER*4 lSuperscriptYSize
       INTEGER*4 lSuperscriptXOffset
       INTEGER*4 lSuperscriptYOffset
       INTEGER*4 lUnderscoreSize
       INTEGER*4 lUnderscorePosition
       INTEGER*4 lStrikeoutSize
       INTEGER*4 lStrikeoutPosition
       INTEGER*2 sKerningPairs
       INTEGER*2 sReserved
       INTEGER*4 lMatch
    END STRUCTURE

C*** Common WIN types

    STRUCTURE/WRECT_/     ! wrc
       INTEGER*2 xLeft
       INTEGER*2 dummy1
       INTEGER*2 yBottom
       INTEGER*2 dummy2
       INTEGER*2 xRight
       INTEGER*2 dummy3
       INTEGER*2 yTop
       INTEGER*2 dummy4
    END STRUCTURE

    STRUCTURE/WPOINT_/    ! wpt
       INTEGER*2 x
       INTEGER*2 dummy1
       INTEGER*2 y
       INTEGER*2 dummy2
    END STRUCTURE