Power-Programmierung/CD1.mdf/fortran/mslang/prefor/scrunch_.fi

Text File | 1993-10-06 | 10KB | 315 lines

      Interface to Integer*4 Function RegisterClass
     1 [stdcall,alias:'_RegisterClassA@4']
     1 (WindowClass)
      structure/wndclass/
        integer*4 style
        integer*4 lpfnWndProc
        integer*4 cbClsExtra
        integer*4 cbWndExtra
        integer*4 hInstance
        integer*4 hIcon
        integer*4 hCursor
        integer*4 hbrBackground
        integer*4 lpszMenuName
        integer*4 lpszClassName
      end structure
      record /wndclass/ windowclass[REFERENCE]
      end
      Interface to Integer*4 Function DeleteDC [stdcall,
     1 alias:'_DeleteDC@4']
     1 (hDC)
      integer*4 hDC[VALUE]
      end
      Interface to Integer*4 Function CreateWindowEx
     1 [stdcall,alias:'_CreateWindowExA@48']
     1 (dwExStyle,
     1 lpszclassname,
     1 lpszcaption,
     2 dwstyle,
     3 nxposition,
     4 nyposition,
     5 nwidth,
     6 nheight,
     7 hWndParent,
     8 hMenu,
     9 hInstance,
     1 lpparam)
      integer*4 dwExStyle[VALUE]
      integer*4 lpszclassname[VALUE]
      integer*4 lpszcaption[VALUE]
      integer*4 dwstyle[VALUE]
      integer*4 nxposition[VALUE]
      integer*4 nyposition[VALUE]
      integer*4 nWidth[VALUE]
      integer*4 nHeight[VALUE]
      integer*4 hWndParent[VALUE]
      integer*4 hMenu[VALUE]
      integer*4 hInstance[VALUE]
      integer*4 lpparam[VALUE]
      end
      Interface to Subroutine ShowWindow
     1 [stdcall,alias:'_ShowWindow@8'] (hWnd,nCmdShow)
      integer*4 hWnd[VALUE]
      integer*4 nCmdShow[VALUE]
      end
      Interface to Subroutine UpdateWindow
     1 [stdcall,alias:'_UpdateWindow@4'] (hWnd)
      integer*4 hWnd[VALUE]
      end
      Interface to Integer*4 Function LoadCursor
     1 [stdcall,alias:'_LoadCursorA@8'] (hInstance,
     1lpszCursor)
      integer*4 hInstance[VALUE]
      Integer*4 lpszCursor[VALUE]
      END
      Interface to Integer*4 Function GetMessage
     1 [stdcall,alias:'_GetMessageA@16'] (msg,
     1 hInsta,wparam1,wparam2)
       structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
       End Structure
       Record /tagmsg/ msg [REFERENCE]
       integer*4 hInsta[VALUE]
       integer*4 wparam1[VALUE]
       integer*4 wparam2[VALUE]
       End
       Interface to Subroutine TranslateMessage
     1 [stdcall,alias:'_TranslateMessage@4'] (msg)
       structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
       End Structure
       Record /tagmsg/ msg [REFERENCE]
       End
       Interface to Subroutine DispatchMessage
     1 [stdcall,alias:'_DispatchMessageA@4'] (msg)
       structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
       End Structure
       Record /tagmsg/ msg [REFERENCE]
       End
       Interface to Integer*4 Function SetFocus
     1  [stdcall,alias:'_SetFocus@4'] (hWnd)
       integer*4 hWnd[VALUE]
       END
       Interface to integer*4 function DefWindowProc
     1  [stdcall,alias:'_DefWindowProcA@16']
     1 (hWnd,wMsg,wParam,lParam)
        integer*4 hWnd [VALUE]
        Integer*4 wMsg [VALUE]
        Integer*4 wParam [VALUE]
        Integer*4 lParam [VALUE]
       END
       Interface to subroutine PostQuitMessage
     1  [stdcall,alias:'_PostQuitMessage@4']
     1  (nExitCode)
        integer*4 nExitCode [VALUE]
       END
       Interface to Integer*4 Function ReleaseDC
     1  [stdcall,alias:'_ReleaseDC@8']
     1  (hWnd,hDC)
        integer*4 hWnd [VALUE]
        integer*4 hDC [VALUE]
       END
       Interface to Integer*4 Function GetDC [stdcall,alias:'_GetDC@4']
     1  (hWnd)
        integer*4 hWnd [VALUE]
       END
       Interface to Integer*4 Function GetStockObject
     1  [stdcall,alias:'_GetStockObject@4']
     1  (nIndex)
        integer*4 nIndex [VALUE]
       END
       Interface to Integer*4 Function SelectObject
     1  [stdcall,alias:'_SelectObject@8']
     1  (hDC,hObject)
        integer*4 hDC [VALUE]
        integer*4 hObject [VALUE]
       END
       Interface to Integer*4 Function GetTextMetrics
     1  [stdcall,alias:'_GetTextMetricsA@8']
     1  (hDC,tm)
        integer*4 hDC [VALUE]
        structure /tagTextMetric/
          integer*4 tmHeight
          integer*4 tmAscent
          integer*4 tmDescent
          integer*4 tmInternalLeading
          integer*4 tmExternalLeading
          integer*4 tmAveCharWidth
          integer*4 tmMaxCharWidth
          integer*4 tmWeight
          INTEGER*1 tmItalic
          INTEGER*1 tmUnderlined
          INTEGER*1 tmStruckOut
          INTEGER*1 tmFirstChar
          INTEGER*1 tmLastChar
          INTEGER*1 tmDefaultChar
          INTEGER*1 tmBreakChar
          INTEGER*1 tmPitchAndFamily
          INTEGER*1 tmCharSet
          integer*4 tmOverhang
          integer*4 tmDigitizedAspectX
          integer*4 tmDigitizedAspectY
        end structure
        RECORD /tagTEXTMETRIC/ tm[REFERENCE]
       END
       Interface to Integer*4 Function SetTextColor
     1  [stdcall,alias:'_SetTextColor@8'] (hDC,
     1 crColor)
        integer*4 hDC [VALUE]
        Integer*4 crColor [VALUE]
       END
       Interface to Integer*4 Function SetBkColor
     1  [stdcall,alias:'_SetBkColor@8'] (hDC,
     1 crColor)
        integer*4 hDC [VALUE]
        Integer*4 crColor [VALUE]
       END
       Interface to Integer*4 Function SetBkMode
     1  [stdcall,alias:'_SetBkMode@8'] (hDC,
     1 nBkMode)
        integer*4 hDC [VALUE]
        integer*4 nBkMode [VALUE]
       END
       Interface to Integer*4 Function GetSysColor
     1  [stdcall,alias:'_GetSysColor@4'] (nIndex)
        integer*4 nIndex [VALUE]
       END
       Interface to Subroutine InvalidateRect
     1  [stdcall,alias:'_InvalidateRect@12'] (hWnd,
     1 lpRect,bErase)
       integer*4 hWnd [VALUE]
       INTEGER*4 lpRect [VALUE]
       integer*4 bErase [VALUE]
       END
       Interface to Integer*4 Function BeginPaint
     1  [stdcall,alias:'_BeginPaint@8'] (hWnd,
     1 lpPaint)
       integer*4 hWnd [VALUE]
       structure /tagRect/
          integer*4 left
          integer*4 top
          integer*4 right
          integer*4 bottom
       end structure
       structure /tagPAINTSTRUCT/
          integer*4 hdc
          integer*4 fErase
          record /tagRect/ rcPaint
          integer*4 fRestore
          integer*4 fIncUpdate
          integer*1 rgbReserved(16)
       end structure
       record /tagPAINTSTRUCT/ lpPAINT [REFERENCE]
       END
       Interface to Subroutine EndPaint
     1  [stdcall,alias:'_EndPaint@8'] (hWnd,
     1 lpPaint)
       integer*4 hWnd [VALUE]
       structure /tagRect/
          integer*4 left
          integer*4 top
          integer*4 right
          integer*4 bottom
       end structure
       structure /tagPAINTSTRUCT/
          integer*4 hdc
          integer*4 fErase
          record /tagRect/ rcPaint
          integer*4 fRestore
          integer*4 fIncUpdate
          integer*1 rgbReserved(16)
       end structure
       record /tagPAINTSTRUCT/ lpPAINT [REFERENCE]
       END
       Interface to Integer*4 Function GetWindowText
     1  [stdcall,alias:'_GetWindowTextA@12'] (hWnd,
     1  lpstring,nMaxCount)
        integer*4 hWnd [VALUE]
        Character*80 lpstring[REFERENCE]
        integer*4 nMaxCount [VALUE]
       END
       Interface to Subroutine SetWindowText
     1  [stdcall,alias:'_SetWindowTextA@8'] (hWnd,
     1  lpstring)
        integer*4 hWnd [VALUE]
        Character*80 lpstring[REFERENCE]
       END
       Interface to Integer*4 Function SendMessage
     1  [stdcall,alias:'_SendMessageA@16'] (hWnd,
     1 wMsg,wParam,lParam)
        integer*4 hWnd [VALUE]
        integer*4 wMsg [VALUE]
        integer*4 wParam [VALUE]
        Integer*4 lParam [VALUE]
       END
       Interface to Integer*4 Function DestroyWindow
     1  [stdcall,alias:'_DestroyWindow@4'] (hWnd)
        integer*4 hWnd [VALUE]
       END
       Interface to Integer*4 Function CreateSolidBrush
     1  [stdcall,alias:'_CreateSolidBrush@4'] (brush)
        Integer*4 brush [VALUE]
       END
       Interface to Subroutine DeleteObject
     1  [stdcall,alias:'_DeleteObject@4'] (hObject)
        integer*4 hObject [VALUE]
       END
       Interface to Integer*4 Function CreatePenIndirect
     1  [stdcall,alias:'_CreatePenIndirect@4']
     1 (pen)
       structure /tagLOGPEN/
          INTEGER*4 style
          INTEGER*4 x
          INTEGER*4 y
          INTEGER*4 color
       end structure
       Record /tagLOGPEN/ pen [REFERENCE]
       END
      Interface to Integer*4 Function CreateDIBitmap [stdcall,
     1 alias:'_CreateDIBitmap@24']
     1 (hDC,lpbmih,dwInit,lpvBits,lpbmi,fnColorUse)
      Integer*4 hDC[VALUE]
      integer*4 lpbmih[VALUE]
      integer*4 dwInit[VALUE]
      integer*4 lpvBits[VALUE]
      integer*4 lpbmi[VALUE]
      Integer*4 fnColorUse[VALUE]
      end
      Interface to Integer*4 Function BitBlt [stdcall,
     1 alias:'_BitBlt@36']
     1 (hDCdest,nXDest,nYDest,nWidth,nHeight,hdcSrc,nXSrc,nYSrc,dwRop)
      integer*4 hDCdest[VALUE]
      integer*4 nXDest[VALUE]
      integer*4 nYDest[VALUE]
      integer*4 nWidth[VALUE]
      integer*4 nHeight[VALUE]
      integer*4 hDCSRC[VALUE]
      integer*4 nXSrc[VALUE]
      integer*4 nYSrc[VALUE]
      integer*4 dwRop[VALUE]
      end
      Interface to Integer*4 Function CreateCompatibleDC [stdcall,
     1 alias:'_CreateCompatibleDC@4']
     1 (hDC)
      Integer*4 hDC[VALUE]
      end