开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 模拟服务器 > 查看源码
WinLua.h
资源名称：SwordOnline.rar　[点击查看]
上传用户：dzyhzl
上传日期：2019-04-29
资源大小：56270k
文件大小：36k
源码类别：

模拟服务器

开发平台：

C/C++

WinLua.h：源码内容
  1. /*****************************************************************************/
  2. /* winlua.h   - include file for LUA API.                                    */
  3. /*                                                                           */
  4. /* (C) Copyright Data Connection Ltd. 1990 - 2000                            */
  5. /* Copyright (c) Microsoft Corporation.  All rights reserved.                */
  6. /*****************************************************************************/
  8. #ifndef LUA_CH_INCLUDED
  9. #define LUA_CH_INCLUDED
  11. #ifdef __cplusplus
  12. extern "C" {
  13. #endif
  15. /*****************************************************************************/
  16. /* define type conversion macros                                             */
  17. /*****************************************************************************/
  18. #define LUA_LO_UC(w)    ((unsigned char)(((unsigned short)(w)) & 0xFF))
  19. #define LUA_HI_UC(w)    ((unsigned char)(((unsigned short)(w) >> 8)  
  20.                             & 0xff))
  21. #define LUA_MAKUS(l, h) (((unsigned short)(l)) |                     
  22.                           ((unsigned short)(h)) << 8)
  23. #define LUA_MAKUL(l, h) ((unsigned long)(((unsigned short)(l))|      
  24.                           ((unsigned long)((unsigned short)(h))) << 16))
  25. #define LUA_LO_US(l)   ((unsigned short)(((unsigned long)(l)) & 0xFFFF))
  26. #define LUA_HI_US(l)    ((unsigned short)(((unsigned long)(l) >> 16) 
  27.                            & 0xffff))
  29. /*****************************************************************************/
  30. /* IF non-Intel THEN                                                         */
  31. /*   set flipping to nop for now                                             */
  32. /*   reverse order of bit fields                                             */
  33. /*****************************************************************************/
  34. #ifdef NON_INTEL_BYTE_ORDER
  35. #define LUA_FLIPI(X)  (X)
  36. #define LUA_FLIPL(X)  (X)
  37. #define LUA_FLIPRQD
  39. /*****************************************************************************/
  40. /* ELSE (Intel environment)                                                  */
  41. /*   define flipping macros                                                  */
  42. /*****************************************************************************/
  43. #else
  44. #define LUA_FLIPI(X) LUA_MAKUS(LUA_HI_UC(X),LUA_LO_UC(X))
  45. #define LUA_FLIPL(X) LUA_MAKUL(LUA_FLIPI(LUA_HI_US(X)),           
  46.                                  LUA_FLIPI(LUA_LO_US(X)))
  47. #endif
  50. /*****************************************************************************/
  51. /* Keywords used for single sign-on.                                         */
  52. /*****************************************************************************/
  53. #define SSO_3270_USERNAME      "MS$SAMEU"
  54. #define SSO_3270_PASSWORD      "MS$SAMEP"
  56. /*****************************************************************************/
  57. /* LUA VERB TYPES                                                            */
  58. /*****************************************************************************/
  59. #define LUA_VERB_RUI                      LUA_FLIPI(0x5200)
  60. #define LUA_VERB_SLI                      LUA_FLIPI(0x5200)
  62. /*****************************************************************************/
  63. /* LUA OPCODES ( RUI and SLI )                                               */
  64. /*****************************************************************************/
  65. #define LUA_OPCODE_RUI_INIT               LUA_FLIPI(0x0180)
  66. #define LUA_OPCODE_RUI_TERM               LUA_FLIPI(0x0280)
  67. #define LUA_OPCODE_RUI_READ               LUA_FLIPI(0x0380)
  68. #define LUA_OPCODE_RUI_WRITE              LUA_FLIPI(0x0480)
  69. #define LUA_OPCODE_RUI_PURGE              LUA_FLIPI(0x0580)
  70. #define LUA_OPCODE_RUI_BID                LUA_FLIPI(0x0680)
  72. #define LUA_OPCODE_SLI_OPEN               LUA_FLIPI(0x0100)
  73. #define LUA_OPCODE_SLI_CLOSE              LUA_FLIPI(0x0200)
  74. #define LUA_OPCODE_SLI_RECEIVE            LUA_FLIPI(0x0300)
  75. #define LUA_OPCODE_SLI_SEND               LUA_FLIPI(0x0400)
  76. #define LUA_OPCODE_SLI_PURGE              LUA_FLIPI(0x0500)
  77. #define LUA_OPCODE_SLI_BID                LUA_FLIPI(0x0600)
  78. #define LUA_OPCODE_SLI_SEND_EX            LUA_FLIPI(0x0700)
  79. #define LUA_OPCODE_SLI_RECEIVE_EX         LUA_FLIPI(0x0800)
  80. #define LUA_OPCODE_SLI_BIND_ROUTINE       LUA_FLIPI(0x1100)
  81. #define LUA_OPCODE_SLI_STSN_ROUTINE       LUA_FLIPI(0x1200)
  82. #define LUA_OPCODE_SLI_CRV_ROUTINE        LUA_FLIPI(0x1300)
  84. /*****************************************************************************/
  85. /* LUA PRIMARY RETURN CODES                                                  */
  86. /*****************************************************************************/
  87. #define LUA_OK                            0x0000
  88. #define LUA_PARAMETER_CHECK               LUA_FLIPI(0x0001)
  89. #define LUA_STATE_CHECK                   LUA_FLIPI(0x0002)
  90. #define LUA_SESSION_FAILURE               LUA_FLIPI(0x000F)
  91. #define LUA_UNSUCCESSFUL                  LUA_FLIPI(0x0014)
  92. #define LUA_NEGATIVE_RSP                  LUA_FLIPI(0x0018)
  93. #define LUA_CANCELLED                     LUA_FLIPI(0x0021)
  94. #define LUA_IN_PROGRESS                   LUA_FLIPI(0x0030)
  95. #define LUA_STATUS                        LUA_FLIPI(0x0040)
  96. #define LUA_COMM_SUBSYSTEM_ABENDED        LUA_FLIPI(0xF003)
  97. #define LUA_COMM_SUBSYSTEM_NOT_LOADED     LUA_FLIPI(0xF004)
  98. #define LUA_INVALID_VERB_SEGMENT          LUA_FLIPI(0xF008)
  99. #define LUA_UNEXPECTED_DOS_ERROR          LUA_FLIPI(0xF011)
  100. #define LUA_STACK_TOO_SMALL               LUA_FLIPI(0xF015)
  101. #define LUA_INVALID_VERB                  0xFFFF
  103. /*****************************************************************************/
  104. /* LUA SECONDARY RETURN CODES                                                */
  105. /*****************************************************************************/
  106. #define LUA_SEC_RC_OK                     LUA_FLIPL(0x00000000)
  107. #define LUA_INVALID_LUNAME                LUA_FLIPL(0x00000001)
  108. #define LUA_BAD_SESSION_ID                LUA_FLIPL(0x00000002)
  109. #define LUA_DATA_TRUNCATED                LUA_FLIPL(0x00000003)
  110. #define LUA_BAD_DATA_PTR                  LUA_FLIPL(0x00000004)
  111. #define LUA_DATA_SEG_LENGTH_ERROR         LUA_FLIPL(0x00000005)
  112. #define LUA_RESERVED_FIELD_NOT_ZERO       LUA_FLIPL(0x00000006)
  113. #define LUA_INVALID_POST_HANDLE           LUA_FLIPL(0x00000007)
  114. #define LUA_PURGED                        LUA_FLIPL(0x0000000C)
  115. #define LUA_BID_VERB_SEG_ERROR            LUA_FLIPL(0x0000000F)
  116. #define LUA_NO_PREVIOUS_BID_ENABLED       LUA_FLIPL(0x00000010)
  117. #define LUA_NO_DATA                       LUA_FLIPL(0x00000011)
  118. #define LUA_BID_ALREADY_ENABLED           LUA_FLIPL(0x00000012)
  119. #define LUA_VERB_RECORD_SPANS_SEGMENTS    LUA_FLIPL(0x00000013)
  120. #define LUA_INVALID_FLOW                  LUA_FLIPL(0x00000014)
  121. #define LUA_NOT_ACTIVE                    LUA_FLIPL(0x00000015)
  122. #define LUA_VERB_LENGTH_INVALID           LUA_FLIPL(0x00000016)
  123. #define LUA_REQUIRED_FIELD_MISSING        LUA_FLIPL(0x00000019)
  124. #define LUA_READY                         LUA_FLIPL(0x00000030)
  125. #define LUA_NOT_READY                     LUA_FLIPL(0x00000031)
  126. #define LUA_INIT_COMPLETE                 LUA_FLIPL(0x00000032)
  127. #define LUA_SESSION_END_REQUESTED         LUA_FLIPL(0x00000033)
  128. #define LUA_NO_SLI_SESSION                LUA_FLIPL(0x00000034)
  129. #define LUA_SESSION_ALREADY_OPEN          LUA_FLIPL(0x00000035)
  130. #define LUA_INVALID_OPEN_INIT_TYPE        LUA_FLIPL(0x00000036)
  131. #define LUA_INVALID_OPEN_DATA             LUA_FLIPL(0x00000037)
  132. #define LUA_UNEXPECTED_SNA_SEQUENCE       LUA_FLIPL(0x00000038)
  133. #define LUA_NEG_RSP_FROM_BIND_ROUTINE     LUA_FLIPL(0x00000039)
  134. #define LUA_NEG_RSP_FROM_CRV_ROUTINE      LUA_FLIPL(0x0000003A)
  135. #define LUA_NEG_RSP_FROM_STSN_ROUTINE     LUA_FLIPL(0x0000003B)
  136. #define LUA_CRV_ROUTINE_REQUIRED          LUA_FLIPL(0x0000003C)
  137. #define LUA_STSN_ROUTINE_REQUIRED         LUA_FLIPL(0x0000003D)
  138. #define LUA_INVALID_OPEN_ROUTINE_TYPE     LUA_FLIPL(0x0000003E)
  139. #define LUA_MAX_NUMBER_OF_SENDS           LUA_FLIPL(0x0000003F)
  140. #define LUA_SEND_ON_FLOW_PENDING          LUA_FLIPL(0x00000040)
  141. #define LUA_INVALID_MESSAGE_TYPE          LUA_FLIPL(0x00000041)
  142. #define LUA_RECEIVE_ON_FLOW_PENDING       LUA_FLIPL(0x00000042)
  143. #define LUA_DATA_LENGTH_ERROR             LUA_FLIPL(0x00000043)
  144. #define LUA_CLOSE_PENDING                 LUA_FLIPL(0x00000044)
  145. #define LUA_NEGATIVE_RSP_CHASE            LUA_FLIPL(0x00000046)
  146. #define LUA_NEGATIVE_RSP_SHUTC            LUA_FLIPL(0x00000047)
  147. #define LUA_NEGATIVE_RSP_RSHUTD           LUA_FLIPL(0x00000048)
  148. #define LUA_NO_RECEIVE_TO_PURGE           LUA_FLIPL(0x0000004A)
  149. #define LUA_CANCEL_COMMAND_RECEIVED       LUA_FLIPL(0x0000004D)
  150. #define LUA_RUI_WRITE_FAILURE             LUA_FLIPL(0x0000004E)
  151. #define LUA_SLI_BID_PENDING               LUA_FLIPL(0x00000051)
  152. #define LUA_SLI_PURGE_PENDING             LUA_FLIPL(0x00000052)
  153. #define LUA_PROCEDURE_ERROR               LUA_FLIPL(0x00000053)
  154. #define LUA_INVALID_SLI_ENCR_OPTION       LUA_FLIPL(0x00000054)
  155. #define LUA_RECEIVED_UNBIND               LUA_FLIPL(0x00000055)
  156. #define LUA_DATA_INCOMPLETE               LUA_FLIPL(0x00000060)
  157. #define LUA_SLI_LOGIC_ERROR               LUA_FLIPL(0x0000007F)
  158. #define LUA_TERMINATED                    LUA_FLIPL(0x00000080)
  159. #define LUA_NO_RUI_SESSION                LUA_FLIPL(0x00000081)
  160. #define LUA_DUPLICATE_RUI_INIT            LUA_FLIPL(0x00000082)
  161. #define LUA_INVALID_PROCESS               LUA_FLIPL(0x00000083)
  162. #define LUA_API_MODE_CHANGE               LUA_FLIPL(0x00000085)
  163. #define LUA_COMMAND_COUNT_ERROR           LUA_FLIPL(0x00000087)
  164. #define LUA_NO_READ_TO_PURGE              LUA_FLIPL(0x00000088)
  165. #define LUA_MULTIPLE_WRITE_FLOWS          LUA_FLIPL(0x00000089)
  166. #define LUA_DUPLICATE_READ_FLOW           LUA_FLIPL(0x0000008A)
  167. #define LUA_DUPLICATE_WRITE_FLOW          LUA_FLIPL(0x0000008B)
  168. #define LUA_LINK_NOT_STARTED              LUA_FLIPL(0x0000008C)
  169. #define LUA_INVALID_ADAPTER               LUA_FLIPL(0x0000008D)
  170. #define LUA_ENCR_DECR_LOAD_ERROR          LUA_FLIPL(0x0000008E)
  171. #define LUA_ENCR_DECR_PROC_ERROR          LUA_FLIPL(0x0000008F)
  172. #define LUA_NEG_NOTIFY_RSP                LUA_FLIPL(0x000000BE)
  173. #define LUA_RUI_LOGIC_ERROR               LUA_FLIPL(0x000000BF)
  174. #define LUA_LU_INOPERATIVE                LUA_FLIPL(0x000000FF)
  176. /*****************************************************************************/
  177. /* THE FOLLOWING SECONDARY RETURN CODES ARE SNA SENSE CODES                  */
  178. /*****************************************************************************/
  179. #define LUA_NON_UNIQ_ID                   LUA_FLIPL(0xC0001001)
  180. #define LUA_NON_UNIQ_NAU_AD               LUA_FLIPL(0xC0001002)
  181. #define LUA_INV_NAU_ADDR                  LUA_FLIPL(0xC0002001)
  182. #define LUA_INV_ADPT_NUM                  LUA_FLIPL(0xC0002002)
  184. #define LUA_RESOURCE_NOT_AVAILABLE        LUA_FLIPL(0x08010000)
  185. #define LUA_SESSION_LIMIT_EXCEEDED        LUA_FLIPL(0x08050000)
  186. #define LUA_SLU_SESSION_LIMIT_EXCEEDED    LUA_FLIPL(0x0805000A)
  187. #define LUA_MODE_INCONSISTENCY            LUA_FLIPL(0x08090000)
  188. #define LUA_BRACKET_RACE_ERROR            LUA_FLIPL(0x080B0000)
  189. #define LUA_INSUFFICIENT_RESOURCES        LUA_FLIPL(0x08120000)
  190. #define LUA_BB_REJECT_NO_RTR              LUA_FLIPL(0x08130000)
  191. #define LUA_BB_REJECT_RTR                 LUA_FLIPL(0x08140000)
  192. #define LUA_RECEIVER_IN_TRANSMIT_MODE     LUA_FLIPL(0x081B0000)
  193. #define LUA_REQUEST_NOT_EXECUTABLE        LUA_FLIPL(0x081C0000)
  194. #define LUA_INVALID_SESSION_PARAMETERS    LUA_FLIPL(0x08210000)
  195. #define LUA_UNIT_OF_WORK_ABORTED          LUA_FLIPL(0x08240000)
  196. #define LUA_FM_FUNCTION_NOT_SUPPORTED     LUA_FLIPL(0x08260000)
  197. #define LUA_LU_COMPONENT_DISCONNECTED     LUA_FLIPL(0x08310000)
  198. #define LUA_INVALID_PARAMETER_FLAGS       LUA_FLIPL(0x08330000)
  199. #define LUA_INVALID_PARAMETER             LUA_FLIPL(0x08350000)
  200. #define LUA_NEGOTIABLE_BIND_ERROR         LUA_FLIPL(0x08350001)
  201. #define LUA_BIND_FM_PROFILE_ERROR         LUA_FLIPL(0x08350002)
  202. #define LUA_BIND_TS_PROFILE_ERROR         LUA_FLIPL(0x08350003)
  203. #define LUA_BIND_LU_TYPE_ERROR            LUA_FLIPL(0x0835000E)
  204. #define LUA_CRYPTOGRAPHY_INOPERATIVE      LUA_FLIPL(0x08480000)
  205. #define LUA_REQ_RESOURCES_NOT_AVAIL       LUA_FLIPL(0x084B0000)
  206. #define LUA_SSCP_LU_SESSION_NOT_ACTIVE    LUA_FLIPL(0x08570000)
  207. #define LUA_SYNC_EVENT_RESPONSE           LUA_FLIPL(0x08670000)
  208. #define LUA_REC_CORR_TABLE_FULL           LUA_FLIPL(0x08780001)
  209. #define LUA_SEND_CORR_TABLE_FULL          LUA_FLIPL(0x08780002)
  210. #define LUA_SESSION_SERVICE_PATH_ERROR    LUA_FLIPL(0x087D0000)
  212. #define LUA_RU_DATA_ERROR                 LUA_FLIPL(0x10010000)
  213. #define LUA_RU_LENGTH_ERROR               LUA_FLIPL(0x10020000)
  214. #define LUA_FUNCTION_NOT_SUPPORTED        LUA_FLIPL(0x10030000)
  215. #define LUA_HDX_BRACKET_STATE_ERROR       LUA_FLIPL(0x10050121)
  216. #define LUA_RESPONSE_ALREADY_SENT         LUA_FLIPL(0x10050122)
  217. #define LUA_EXR_SENSE_INCORRECT           LUA_FLIPL(0x10050123)
  218. #define LUA_RESPONSE_OUT_OF_ORDER         LUA_FLIPL(0x10050124)
  219. #define LUA_CHASE_RESPONSE_REQUIRED       LUA_FLIPL(0x10050125)
  220. #define LUA_CATEGORY_NOT_SUPPORTED        LUA_FLIPL(0x10070000)
  222. #define LUA_INCORRECT_SEQUENCE_NUMBER     LUA_FLIPL(0x20010000)
  223. #define LUA_CHAINING_ERROR                LUA_FLIPL(0x20020000)
  224. #define LUA_BRACKET                       LUA_FLIPL(0x20030000)
  225. #define LUA_DIRECTION                     LUA_FLIPL(0x20040000)
  226. #define LUA_DATA_TRAFFIC_RESET            LUA_FLIPL(0x20050000)
  227. #define LUA_DATA_TRAFFIC_QUIESCED         LUA_FLIPL(0x20060000)
  228. #define LUA_DATA_TRAFFIC_NOT_RESET        LUA_FLIPL(0x20070000)
  229. #define LUA_NO_BEGIN_BRACKET              LUA_FLIPL(0x20080000)
  230. #define LUA_SC_PROTOCOL_VIOLATION         LUA_FLIPL(0x20090000)
  231. #define LUA_IMMEDIATE_REQ_MODE_ERROR      LUA_FLIPL(0x200A0000)
  232. #define LUA_QUEUED_RESPONSE_ERROR         LUA_FLIPL(0x200B0000)
  233. #define LUA_ERP_SYNC_EVENT_ERROR          LUA_FLIPL(0x200C0000)
  234. #define LUA_RSP_BEFORE_SENDING_REQ        LUA_FLIPL(0x200D0000)
  235. #define LUA_RSP_CORRELATION_ERROR         LUA_FLIPL(0x200E0000)
  236. #define LUA_RSP_PROTOCOL_ERROR            LUA_FLIPL(0x200F0000)
  238. #define LUA_INVALID_SC_OR_NC_RH           LUA_FLIPL(0x40010000)
  239. #define LUA_BB_NOT_ALLOWED                LUA_FLIPL(0x40030000)
  240. #define LUA_EB_NOT_ALLOWED                LUA_FLIPL(0x40040000)
  241. #define LUA_EXCEPTION_RSP_NOT_ALLOWED     LUA_FLIPL(0x40060000)
  242. #define LUA_DEFINITE_RSP_NOT_ALLOWED      LUA_FLIPL(0x40070000)
  243. #define LUA_PACING_NOT_SUPPORTED          LUA_FLIPL(0x40080000)
  244. #define LUA_CD_NOT_ALLOWED                LUA_FLIPL(0x40090000)
  245. #define LUA_NO_RESPONSE_NOT_ALLOWED       LUA_FLIPL(0x400A0000)
  246. #define LUA_CHAINING_NOT_SUPPORTED        LUA_FLIPL(0x400B0000)
  247. #define LUA_BRACKETS_NOT_SUPPORTED        LUA_FLIPL(0x400C0000)
  248. #define LUA_CD_NOT_SUPPORTED              LUA_FLIPL(0x400D0000)
  249. #define LUA_INCORRECT_USE_OF_FI           LUA_FLIPL(0x400F0000)
  250. #define LUA_ALTERNATE_CODE_NOT_SUPPORT    LUA_FLIPL(0x40100000)
  251. #define LUA_INCORRECT_RU_CATEGORY         LUA_FLIPL(0x40110000)
  252. #define LUA_INCORRECT_REQUEST_CODE        LUA_FLIPL(0x40120000)
  253. #define LUA_INCORRECT_SPEC_OF_SDI_RTI     LUA_FLIPL(0x40130000)
  254. #define LUA_INCORRECT_DR1I_DR2I_ERI       LUA_FLIPL(0x40140000)
  255. #define LUA_INCORRECT_USE_OF_QRI          LUA_FLIPL(0x40150000)
  256. #define LUA_INCORRECT_USE_OF_EDI          LUA_FLIPL(0x40160000)
  257. #define LUA_INCORRECT_USE_OF_PDI          LUA_FLIPL(0x40170000)
  259. #define LUA_NAU_INOPERATIVE               LUA_FLIPL(0x80030000)
  260. #define LUA_NO_SESSION                    LUA_FLIPL(0x80050000)
  262. /*****************************************************************************/
  263. /* LUA_RH.RUC masks                                                          */
  264. /*****************************************************************************/
  265. #define  LUA_RH_FMD                       0
  266. #define  LUA_RH_NC                        1
  267. #define  LUA_RH_DFC                       2
  268. #define  LUA_RH_SC                        3
  270. /*****************************************************************************/
  271. /* LUA MESSAGE TYPES                                                         */
  272. /*****************************************************************************/
  273. #define LUA_MESSAGE_TYPE_LU_DATA          0x01
  274. #define LUA_MESSAGE_TYPE_SSCP_DATA        0x11
  275. #define LUA_MESSAGE_TYPE_RSP              0x02
  276. #define LUA_MESSAGE_TYPE_BID              0xC8
  277. #define LUA_MESSAGE_TYPE_BIND             0x31
  278. #define LUA_MESSAGE_TYPE_BIS              0x70
  279. #define LUA_MESSAGE_TYPE_CANCEL           0x83
  280. #define LUA_MESSAGE_TYPE_CHASE            0x84
  281. #define LUA_MESSAGE_TYPE_CLEAR            0xA1
  282. #define LUA_MESSAGE_TYPE_CRV              0xD0
  283. #define LUA_MESSAGE_TYPE_LUSTAT_LU        0x04
  284. #define LUA_MESSAGE_TYPE_LUSTAT_SSCP      0x14
  285. #define LUA_MESSAGE_TYPE_QC               0x81
  286. #define LUA_MESSAGE_TYPE_QEC              0x80
  287. #define LUA_MESSAGE_TYPE_RELQ             0x82
  288. #define LUA_MESSAGE_TYPE_RQR              0xA3
  289. #define LUA_MESSAGE_TYPE_RTR              0x05
  290. #define LUA_MESSAGE_TYPE_SBI              0x71
  291. #define LUA_MESSAGE_TYPE_SHUTD            0xC0
  292. #define LUA_MESSAGE_TYPE_SIGNAL           0xC9
  293. #define LUA_MESSAGE_TYPE_SDT              0xA0
  294. #define LUA_MESSAGE_TYPE_STSN             0xA2
  295. #define LUA_MESSAGE_TYPE_UNBIND           0x32
  297. /*****************************************************************************/
  298. /* LUA INIT TYPES (Used for SLI only)                                        */
  299. /*****************************************************************************/
  300. #define LUA_INIT_TYPE_SEC_IS              0x01
  301. #define LUA_INIT_TYPE_SEC_LOG             0x02
  302. #define LUA_INIT_TYPE_PRIM                0x03
  303. #define LUA_INIT_TYPE_PRIM_SSCP           0x04
  305. /*****************************************************************************/
  306. /* LUA SLI_OPEN EXTENSION ROUTINE TYPES                                      */
  307. /*****************************************************************************/
  308. #define LUA_ROUTINE_TYPE_BIND             0x01
  309. #define LUA_ROUTINE_TYPE_CRV              0x02
  310. #define LUA_ROUTINE_TYPE_STSN             0x03
  311. #define LUA_ROUTINE_TYPE_END              0x00
  313. /*****************************************************************************/
  314. /* LUA VERB RECORD STRUCTURES                                                */
  315. /*****************************************************************************/
  318. /*****************************************************************************/
  319. /* If Win32 environment then ensure that packing is correct                  */
  320. /*****************************************************************************/
  321. #ifdef WIN32
  322. #pragma pack(4)
  323. #endif
  326. /*****************************************************************************/
  327. /* Transmission header structure                                             */
  328. /*****************************************************************************/
  329. struct LUA_TH
  330.       {
  331. #ifdef LUA_FLIPRQD
  332.       unsigned char    flags_fid  : 4;        /* Format Identification Type 2*/
  333.       unsigned char    flags_mpf  : 2;        /* Segmenting Mapping Field    */
  334.       unsigned char    flags_odai : 1;        /* OAF-DAF Assignor Indicator  */
  335.       unsigned char    flags_efi  : 1;        /* Expedited Flow Indicator    */
  336. #else
  337.       unsigned char    flags_efi  : 1;        /* Expedited Flow Indicator    */
  338.       unsigned char    flags_odai : 1;        /* OAF-DAF Assignor Indicator  */
  339.       unsigned char    flags_mpf  : 2;        /* Segmenting Mapping Field    */
  340.       unsigned char    flags_fid  : 4;        /* Format Identification Type 2*/
  341. #endif
  342.       unsigned char               : 8;        /* Reserved Field              */
  343.       unsigned char    daf;                   /* Destination Address Field   */
  344.       unsigned char    oaf;                   /* Originating Address Field   */
  345.       unsigned char    snf[2];                /* Sequence Number Field       */
  346.       };
  348. /*****************************************************************************/
  349. /* Request/Response unit header strcuture                                    */
  350. /*****************************************************************************/
  351. struct LUA_RH
  352.       {
  353. #ifdef LUA_FLIPRQD
  354.       unsigned char    rri  : 1;              /* Request-Response Indicator  */
  355.       unsigned char    ruc  : 2;              /* RU Category                 */
  356.       unsigned char         : 1;              /* Reserved Field              */
  357.       unsigned char    fi   : 1;              /* Format Indicator            */
  358.       unsigned char    sdi  : 1;              /* Sense Data Included Ind     */
  359.       unsigned char    bci  : 1;              /* Begin Chain Indicator       */
  360.       unsigned char    eci  : 1;              /* End Chain Indicator         */
  361. #else
  362.       unsigned char    eci  : 1;              /* End Chain Indicator         */
  363.       unsigned char    bci  : 1;              /* Begin Chain Indicator       */
  364.       unsigned char    sdi  : 1;              /* Sense Data Included Ind     */
  365.       unsigned char    fi   : 1;              /* Format Indicator            */
  366.       unsigned char         : 1;              /* Reserved Field              */
  367.       unsigned char    ruc  : 2;              /* RU Category                 */
  368.       unsigned char    rri  : 1;              /* Request-Response Indicator  */
  369. #endif
  371. #ifdef LUA_FLIPRQD
  372.       unsigned char    dr1i : 1;              /* DR 1 Indicator              */
  373.       unsigned char         : 1;              /* Reserved Field              */
  374.       unsigned char    dr2i : 1;              /* DR 2 Indicator              */
  375.       unsigned char    ri   : 1;              /* Response Indicator          */
  376.       unsigned char         : 2;              /* Reserved Field              */
  377.       unsigned char    qri  : 1;              /* Queued Response Indicator   */
  378.       unsigned char    pi   : 1;              /* Pacing Indicator            */
  379. #else
  380.       unsigned char    pi   : 1;              /* Pacing Indicator            */
  381.       unsigned char    qri  : 1;              /* Queued Response Indicator   */
  382.       unsigned char         : 2;              /* Reserved Field              */
  383.       unsigned char    ri   : 1;              /* Response Indicator          */
  384.       unsigned char    dr2i : 1;              /* DR 2 Indicator              */
  385.       unsigned char         : 1;              /* Reserved Field              */
  386.       unsigned char    dr1i : 1;              /* DR 1 Indicator              */
  387. #endif
  389. #ifdef LUA_FLIPRQD
  390.       unsigned char    bbi  : 1;              /* Begin Bracket Indicator     */
  391.       unsigned char    ebi  : 1;              /* End Bracket Indicator       */
  392.       unsigned char    cdi  : 1;              /* Change Direction Indicator  */
  393.       unsigned char         : 1;              /* Reserved Field              */
  394.       unsigned char    csi  : 1;              /* Code Selection Indicator    */
  395.       unsigned char    edi  : 1;              /* Enciphered Data Indicator   */
  396.       unsigned char    pdi  : 1;              /* Padded Data Indicator       */
  397.       unsigned char         : 1;              /* Reserved Field              */
  398. #else
  399.       unsigned char         : 1;              /* Reserved Field              */
  400.       unsigned char    pdi  : 1;              /* Padded Data Indicator       */
  401.       unsigned char    edi  : 1;              /* Enciphered Data Indicator   */
  402.       unsigned char    csi  : 1;              /* Code Selection Indicator    */
  403.       unsigned char         : 1;              /* Reserved Field              */
  404.       unsigned char    cdi  : 1;              /* Change Direction Indicator  */
  405.       unsigned char    ebi  : 1;              /* End Bracket Indicator       */
  406.       unsigned char    bbi  : 1;              /* Begin Bracket Indicator     */
  407. #endif
  408.       };
  410. /*****************************************************************************/
  411. /* Structure for LUA_FLAG1                                                   */
  412. /*****************************************************************************/
  413. struct LUA_FLAG1                              /* LUA_FLAG1                   */
  414.       {
  415. #ifdef LUA_FLIPRQD
  416.       unsigned char  bid_enable  : 1;         /* Bid Enabled Indicator       */
  417.       unsigned char  reserv1     : 1;         /* reserved                    */
  418.       unsigned char  close_abend : 1;         /* Close Immediate Flag        */
  419.       unsigned char  nowait      : 1;         /* Don't Wait for Data Flag    */
  420.       unsigned char  sscp_exp    : 1;         /* SSCP expedited flow         */
  421.       unsigned char  sscp_norm   : 1;         /* SSCP normal flow            */
  422.       unsigned char  lu_exp      : 1;         /* LU expedited flow           */
  423.       unsigned char  lu_norm     : 1;         /* lu normal flow              */
  424. #else
  425.       unsigned char  lu_norm     : 1;         /* lu normal flow              */
  426.       unsigned char  lu_exp      : 1;         /* LU expedited flow           */
  427.       unsigned char  sscp_norm   : 1;         /* SSCP normal flow            */
  428.       unsigned char  sscp_exp    : 1;         /* SSCP expedited flow         */
  429.       unsigned char  nowait      : 1;         /* Don't Wait for Data Flag    */
  430.       unsigned char  close_abend : 1;         /* Close Immediate Flag        */
  431.       unsigned char  reserv1     : 1;         /* reserved                    */
  432.       unsigned char  bid_enable  : 1;         /* Bid Enabled Indicator       */
  433. #endif
  434.       };
  435. /*****************************************************************************/
  436. /* Structure for LUA_FLAG2                                                   */
  437. /*****************************************************************************/
  438. struct LUA_FLAG2                              /* LUA_FLAG2                   */
  439.       {
  440. #ifdef LUA_FLIPRQD
  441.       unsigned char  bid_enable  : 1;         /* Bid Enabled Indicator       */
  442.       unsigned char  async       : 1;         /* flags asynchronous verb
  443.                                                  completion                  */
  444.       unsigned char              : 2;         /* reserved                    */
  445.       unsigned char  sscp_exp    : 1;         /* SSCP expedited flow         */
  446.       unsigned char  sscp_norm   : 1;         /* SSCP normal flow            */
  447.       unsigned char  lu_exp      : 1;         /* LU expedited flow           */
  448.       unsigned char  lu_norm     : 1;         /* lu normal flow              */
  449. #else
  450.       unsigned char  lu_norm     : 1;         /* lu normal flow              */
  451.       unsigned char  lu_exp      : 1;         /* LU expedited flow           */
  452.       unsigned char  sscp_norm   : 1;         /* SSCP normal flow            */
  453.       unsigned char  sscp_exp    : 1;         /* SSCP expedited flow         */
  454.       unsigned char              : 2;         /* reserved                    */
  455.       unsigned char  async       : 1;         /* flags asynchronous verb
  456.                                                  completion                  */
  457.       unsigned char  bid_enable  : 1;         /* Bid Enabled Indicator       */
  458. #endif
  459.       };
  461. /*****************************************************************************/
  462. /* Structure for common verb header                                          */
  463. /*****************************************************************************/
  464.    struct LUA_COMMON
  465.      {
  466.     unsigned short lua_verb;                   /* Verb Code                  */
  467.     unsigned short lua_verb_length;            /* Length of Verb Record      */
  468.     unsigned short lua_prim_rc;                /* Primary Return Code        */
  469.     unsigned long  lua_sec_rc;                 /* Secondary Return Code      */
  470.     unsigned short lua_opcode;                 /* Verb Operation Code        */
  471.     unsigned long  lua_correlator;             /* User Correlation Field     */
  472.     unsigned char  lua_luname[8];              /* Local LU Name              */
  473.     unsigned short lua_extension_list_offset;  /* Offset of DLL Extention Lis*/
  474.     unsigned short lua_cobol_offset;           /* Offset of Cobol Extension  */
  475.     unsigned long  lua_sid;                    /* Session ID                 */
  476.     unsigned short lua_max_length;             /* Receive Buffer Length      */
  477.     unsigned short lua_data_length;            /* Data Length                */
  478.     char far       *lua_data_ptr;              /* Data Buffer Pointer        */
  479.     unsigned long  lua_post_handle;            /* Posting handle             */
  481.     struct LUA_TH  lua_th;                     /* LUA TH Fields              */
  483.     struct LUA_RH  lua_rh;                     /* LUA RH Fields              */
  485.     struct LUA_FLAG1 lua_flag1;                /* LUA_FLAG1                  */
  487.     unsigned char lua_message_type;            /* sna message command type   */
  489.     struct LUA_FLAG2 lua_flag2;                /* LUA_FLAG2                  */
  491.     unsigned char lua_resv56[7];               /* Reserved Field             */
  492.     unsigned char lua_encr_decr_option;        /* Cryptography Option        */
  493.      } ;
  496. /******************* COMMAND SPECIFIC VERB DEFINITIONS ***************/
  498. /*****************************************************************************/
  499. /* Structure for extension routines                                          */
  500. /*****************************************************************************/
  501. struct LUA_EXT_ENTRY
  502.        {
  503.         unsigned char lua_routine_type;       /* Extension Routine Type      */
  504.         unsigned char lua_module_name[9];     /* Extension Module Name       */
  505.         unsigned char lua_procedure_name[33]; /* Extension Procedure Name    */
  506.        } ;
  508. /*****************************************************************************/
  509. /* LUA SPECIFIC FIELDS FOR THE SLI_OPEN VERB                                 */
  510. /*****************************************************************************/
  511.    struct SLI_OPEN
  512.      {
  513.      unsigned char  lua_init_type;            /* Type of Session Initiation  */
  514.      unsigned char  lua_resv65;               /* Reserved Field              */
  515.      unsigned short lua_wait;                 /* Secondary Retry Wait Time   */
  517.      struct LUA_EXT_ENTRY  lua_open_extension[3];
  519.      unsigned char lua_ending_delim;          /* Extension List Delimiter    */
  520.      } ;
  522. /*****************************************************************************/
  523. /* LUA Specific fields for the SLI_SEND, SLI_SEND_EX verbs                   */
  524. /* LUA SPECIFIC FIELDS FOR THE SLI_OPEN, SLI_SEND, RUI_BID AND SLI_BID VERBS */
  525. /*                                                                           */
  526. /* !!!NOTE!!! - MUST Keep lua_sequence_number[2] the first field in the      */
  527. /*              SLI_SEND_EX_SPECIFIC structure                               */
  528. /*                                                                           */
  529. /* To support backward compatibility for Applications, the                   */
  530. /* lua_sequence_number array is included both in the union itself and as the */
  531. /* FIRST element of the SLI_SEND_EX_SPECIFIC structure (thus it refers to    */
  532. /* exactly the same variable in both cases.)                                 */
  533. /*****************************************************************************/
  534.    struct SLI_SEND_EX_SPECIFIC
  535.    {
  536.      unsigned char  lua_sequence_number[2]; /* This field **MUST** be first  */
  537.      unsigned long  lua_data_length_ex; /* data length field for SLI_SEND_EX */
  538.    } ;
  540.    struct SLI_RECEIVE_EX_SPECIFIC
  541.    {
  542.      unsigned long  lua_max_length_ex;     /*  max buffer for SLI_RECEIVE_EX */
  543.      unsigned long  lua_data_length_ex;    /* data length for SLI_RECEIVE_EX */
  544.    } ;
  547.    union LUA_SPECIFIC
  548.      {
  549.      struct   SLI_OPEN       open;
  550.      unsigned char           lua_sequence_number[2];     /* sequence number  */
  551.      struct   SLI_SEND_EX_SPECIFIC     send;          /* extra length fields */
  552.      struct   SLI_RECEIVE_EX_SPECIFIC  receive;       /* extra length fields */
  553.      unsigned char           lua_peek_data[12];          /* Data Pending     */
  554.      } ;
  556. /*****************************************************************************/
  557. /* GENERIC LUA VERB RECORD TYPEDEF DECLARATION                               */
  558. /*****************************************************************************/
  559.    typedef struct
  560.     {
  561.     struct LUA_COMMON       common;    /* common verb header command         */
  562.     union  LUA_SPECIFIC     specific;  /* command specific portion of record */
  563.     }  LUA_VERB_RECORD;
  567. #if (defined WINDOWS) || (defined WIN32)
  569. #ifdef WIN32
  570. // The callback routine registered by the TN3270 Service
  571. typedef BOOL (__stdcall *TN3270SERVICECALLBACK)(unsigned long);
  572. #endif // #ifdef WIN32
  574. /*****************************************************************************/
  575. /* Return codes from WinLUAStartup                                           */
  576. /*****************************************************************************/
  577. #define WLUASYSNOTREADY                 1
  578. #define WLUAVERNOTSUPPORTED             2
  579. #define WLUAINVALID                     3
  580. #define WLUAFAILURE                     4
  581. #define WLUAINITREJECT                  5
  583. #define WLUADESCRIPTION_LEN             40
  585. typedef struct
  586. {
  587.   WORD wVersion;
  588.   char szDescription[WLUADESCRIPTION_LEN + 1];
  589. } LUADATA;
  591. /*****************************************************************************/
  592. /* Return codes from WinLUA                                                  */
  593. /*****************************************************************************/
  594. #define WLUAINVALIDHANDLE               10
  595. #define WLUASTARTUPNOTCALLED            11
  596. #define WLUALINKINACTIVE                12
  597. #define WLUALINKACTIVATING              13
  598. #define WLUAPUINACTIVE                  14
  599. #define WLUAPUACTIVE                    15
  600. #define WLUAPUREACTIVATED               16
  601. #define WLUALUINACTIVE                  17
  602. #define WLUALUACTIVE                    18
  603. #define WLUALUREACTIVATED               19
  604. #define WLUASIDINVALID                  20
  605. #define WLUASIDZERO                     21
  606. #define WLUAALREADYACTIVE               22
  607. #define WLUANTFYINVALID                 23
  608. #define WLUAGLOBALHANDLER               24
  609. #define WLUAGETLU                       25
  610. #define WLUAUNKNOWN                     255
  613. #define WLUA_NTFY_EVENT                  1
  614. #define WLUA_NTFY_MSG_CORRELATOR         2
  615. #define WLUA_NTFY_MSG_SID                3
  617. #endif
  619. /*****************************************************************************/
  620. /* Function prototypes                                                       */
  621. /*****************************************************************************/
  622. #ifdef WIN32
  623.   #define LOADDS
  624. #else
  625.   #define LOADDS _loadds
  626. #endif
  627. #if (defined WINDOWS) || (defined WIN32)
  629. int  WINAPI LOADDS WinRUI        (HWND, LUA_VERB_RECORD FAR *);
  630. int  WINAPI LOADDS WinSLI        (HWND, LUA_VERB_RECORD FAR *);
  631. BOOL WINAPI LOADDS WinRUICleanup (void);
  632. BOOL WINAPI LOADDS WinSLICleanup (void);
  633. int  WINAPI LOADDS WinRUIStartup (WORD, LUADATA FAR *);
  634. int  WINAPI LOADDS WinSLIStartup (WORD, LUADATA FAR *);
  635. void WINAPI LOADDS RUI           (LUA_VERB_RECORD FAR *);
  636. void WINAPI LOADDS RUI_CALL      (LUA_VERB_RECORD FAR *);
  637. void WINAPI LOADDS SLI           (LUA_VERB_RECORD FAR *);
  639. int WINAPI LOADDS WinRUIGetLastInitStatus (DWORD  dwSid,
  640.                                     HANDLE hStatusHandle,
  641.                                     DWORD  dwNotifyType,
  642.                                     BOOL   bClearPrevious);
  643. int WINAPI GetLuaReturnCode      (struct LUA_COMMON FAR *, UINT, unsigned char FAR *);
  645. #else
  646. void pascal far _loadds RUI      (LUA_VERB_RECORD FAR *);
  647. #endif
  650. /*****************************************************************************/
  651. /* If Win32 environment then restore original packing format                 */
  652. /*****************************************************************************/
  653. #ifdef WIN32
  654. #pragma pack()
  655. #endif
  657. #ifdef __cplusplus
  658. }
  659. #endif
  661. #endif