home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / C++-7 / DISK7 / SOURCE / STARTUP / WIN / NOQWIN.AS$ / NOQWIN
Encoding:
Text File  |  1991-11-06  |  3.2 KB  |  185 lines
  1.     page    ,132
  2.     title    noqwin - QuickWin (QWIN) Stub Module
  3. ;***
  4. ;noqwin.asm - QuickWin (QWIN) Stub Module
  5. ;
  6. ;    Copyright (c) 1990-1992, Microsoft Corporation.  All rights reserved.
  7. ;
  8. ;Purpose:
  9. ;    This source is used by programs that want to use the Win/C
  10. ;    libraries but do NOT want the QWIN functionality.
  11. ;
  12. ;    Note: Currently, this module is model independent so a single
  13. ;    object can be used to stub out the QWIN system regardless of model.
  14. ;
  15. ;*******************************************************************************
  16.  
  17. include version.inc
  18. .xlist
  19. include cmacros.inc
  20. include rterr.inc
  21. .list
  22.  
  23. ;
  24. ; Externals
  25. ;
  26.  
  27. externNP    _amsg_exit    ; fatal termination
  28.  
  29. ;
  30. ; Data
  31. ;
  32.  
  33. sBegin    data
  34. assumes ds,data
  35.  
  36. globalW     _qwinused,0    ; 0 means QWIN layer NOT used
  37.  
  38. sEnd
  39.  
  40.  
  41. sBegin    code
  42. assumes cs,code
  43.  
  44.  
  45. page
  46. ;***
  47. ; QWIN Public Stubs - Public Stubs for QWIN Routines
  48. ;
  49. ;Purpose:
  50. ;    This entry stubs out QWIN externs to publics.
  51. ;
  52. ;Entry: <not applicable>
  53. ;
  54. ;Exit:    <not applicable>
  55. ;
  56. ;Exceptions:
  57. ;
  58. ;*******************************************************************************
  59.  
  60. public    __wiobused
  61.     __wiobused = 0
  62.  
  63.  
  64. page
  65. ;***
  66. ; QWIN Return Stubs - Return Stubs for QWIN Routines
  67. ;
  68. ;Purpose:
  69. ;    This entry stubs out QWIN routines that may be called if
  70. ;    _qwinused is 0 but which don't do anything in that model.
  71. ;
  72. ;    *** Note:  This routine is NEAR regardless of model.
  73. ;
  74. ;Entry: <void>
  75. ;
  76. ;Exit:    <void>
  77. ;
  78. ;Exceptions:
  79. ;
  80. ;*******************************************************************************
  81.  
  82. labelNP <PUBLIC, _wcinit>
  83.  
  84. cProc    _wcexit,<PUBLIC,NEAR>,<>
  85. cBegin <nolocals>
  86. cEnd <nolocals>
  87.  
  88.  
  89. page
  90. ;***
  91. ; QWIN Fatal Stubs - Fatally Stubs out QWIN routines
  92. ;
  93. ;Purpose:
  94. ;    This entry stubs out all the QWIN references.  They should
  95. ;    never be called if _qwinused is 0.  If for some reason one
  96. ;    IS called, the program terminates with an appropriate error.
  97. ;
  98. ;Entry: <void>
  99. ;
  100. ;Exit:
  101. ;    <NEVER RETURNS>
  102. ;
  103. ;Exceptions:
  104. ;
  105. ;*******************************************************************************
  106.  
  107. ;
  108. ; C runtime entries
  109. ;
  110.  
  111. labelNP <PUBLIC, _wabout>
  112.  
  113. labelNP <PUBLIC, _wclose>
  114.  
  115. labelNP <PUBLIC, _wgetfocus>
  116.  
  117. labelNP <PUBLIC, _wgetscreenbuf>
  118.  
  119. labelNP <PUBLIC, _wgetsize>
  120.  
  121. labelNP <PUBLIC, _wmenuclick>
  122.  
  123. labelNP <PUBLIC, _wopen>
  124.  
  125. labelNP <PUBLIC, _wread>
  126.  
  127. labelNP <PUBLIC, _wsetfocus>
  128.  
  129. labelNP <PUBLIC, _wsetscreenbuf>
  130.  
  131. labelNP <PUBLIC, _wsetsize>
  132.  
  133. labelNP <PUBLIC, _wwrite>
  134.  
  135. labelNP <PUBLIC, _wterm>
  136.  
  137.  
  138. ;
  139. ; QWIN API entries
  140. ;
  141.  
  142. labelNP <PUBLIC, _QWINClose>
  143.  
  144. labelNP <PUBLIC, _QWINGetBuffSize>
  145.  
  146. labelNP <PUBLIC, _QWINGetFocus>
  147.  
  148. labelNP <PUBLIC, _QWINGetSize>
  149.  
  150. labelNP <PUBLIC, _QWINExit>
  151.  
  152. labelNP <PUBLIC, _QWINInit>
  153.  
  154. labelNP <PUBLIC, _QWINIsQWINin>
  155.  
  156. labelNP <PUBLIC, _QWINMenuClick>
  157.  
  158. labelNP <PUBLIC, _QWINOpen>
  159.  
  160. labelNP <PUBLIC, _QWINRead>
  161.  
  162. labelNP <PUBLIC, _QWINSetAboutString>
  163.  
  164. labelNP <PUBLIC, _QWINSetBuffSize>
  165.  
  166. labelNP <PUBLIC, _QWINSetFocus>
  167.  
  168. labelNP <PUBLIC, _QWINSetSize>
  169.  
  170. labelNP <PUBLIC, _QWINTerm>
  171.  
  172. labelNP <PUBLIC, _QWINYield>
  173.  
  174. labelNP <PUBLIC, _QWINWrite>
  175.  
  176. ;
  177. ; Die with a fatal error message
  178. ;
  179.  
  180.     mov    ax,_RT_QWIN    ; QuickWin error
  181.     jmp    _amsg_exit    ; die
  182.  
  183. sEnd
  184.     End
  185.