Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

511 lines
18 KiB

  1. ;begin_both
  2. /*++ BUILD Version: 0001 // Increment this if a change has global effects --*/
  3. ;end_both
  4. ;begin_internal
  5. /****************************** Module Header ******************************\
  6. * Module Name: ddemlp.h
  7. *
  8. * Copyright (c) Microsoft Corporation. All rights reserved.
  9. *
  10. * This header file contains stuff used by all parts of USER DDEML code.
  11. *
  12. * History:
  13. * 10-28-91 Sanfords Created
  14. * 4-21-92 Sanfords Merged into ddeml.w
  15. \***************************************************************************/
  16. #ifndef _INC_DDEMLPH
  17. #define _INC_DDEMLPH
  18. ;end_internal
  19. /*****************************************************************************\
  20. * *
  21. * ddeml.h - DDEML API header file *
  22. * *
  23. * Version 3.10 *
  24. * *
  25. * Copyright (c) Microsoft Corporation. All rights reserved. *
  26. * *
  27. \*****************************************************************************/
  28. #ifndef _INC_DDEMLH
  29. #define _INC_DDEMLH
  30. #ifdef __cplusplus ;both
  31. extern "C" { ;both
  32. #endif /* __cplusplus */ ;both
  33. ;both
  34. /******** public types ********/
  35. DECLARE_HANDLE(HCONVLIST);
  36. DECLARE_HANDLE(HCONV);
  37. DECLARE_HANDLE(HSZ);
  38. DECLARE_HANDLE(HDDEDATA);
  39. #define EXPENTRY CALLBACK
  40. /* the following structure is for use with XTYP_WILDCONNECT processing. */
  41. typedef struct tagHSZPAIR {
  42. HSZ hszSvc;
  43. HSZ hszTopic;
  44. } HSZPAIR;
  45. typedef HSZPAIR FAR *PHSZPAIR;
  46. /* The following structure is used by DdeConnect() and DdeConnectList() and
  47. by XTYP_CONNECT and XTYP_WILDCONNECT callbacks. */
  48. typedef struct tagCONVCONTEXT {
  49. UINT cb; /* set to sizeof(CONVCONTEXT) */
  50. UINT wFlags; /* none currently defined. */
  51. UINT wCountryID; /* country code for topic/item strings used. */
  52. int iCodePage; /* codepage used for topic/item strings. */
  53. DWORD dwLangID; /* language ID for topic/item strings. */
  54. DWORD dwSecurity; /* Private security code. */
  55. SECURITY_QUALITY_OF_SERVICE qos; /* client side's quality of service */
  56. } CONVCONTEXT;
  57. typedef CONVCONTEXT FAR *PCONVCONTEXT;
  58. /* The following structure is used by DdeQueryConvInfo(): */
  59. typedef struct tagCONVINFO {
  60. DWORD cb; /* sizeof(CONVINFO) */
  61. DWORD_PTR hUser; /* user specified field */
  62. HCONV hConvPartner; /* hConv on other end or 0 if non-ddemgr partner */
  63. HSZ hszSvcPartner; /* app name of partner if obtainable */
  64. HSZ hszServiceReq; /* AppName requested for connection */
  65. HSZ hszTopic; /* Topic name for conversation */
  66. HSZ hszItem; /* transaction item name or NULL if quiescent */
  67. UINT wFmt; /* transaction format or NULL if quiescent */
  68. UINT wType; /* XTYP_ for current transaction */
  69. UINT wStatus; /* ST_ constant for current conversation */
  70. UINT wConvst; /* XST_ constant for current transaction */
  71. UINT wLastError; /* last transaction error. */
  72. HCONVLIST hConvList; /* parent hConvList if this conversation is in a list */
  73. CONVCONTEXT ConvCtxt; /* conversation context */
  74. HWND hwnd; /* window handle for this conversation */
  75. HWND hwndPartner; /* partner window handle for this conversation */
  76. } CONVINFO;
  77. typedef CONVINFO FAR *PCONVINFO;
  78. /***** conversation states (usState) *****/
  79. #define XST_NULL 0 /* quiescent states */
  80. #define XST_INCOMPLETE 1
  81. #define XST_CONNECTED 2
  82. #define XST_INIT1 3 /* mid-initiation states */
  83. #define XST_INIT2 4
  84. #define XST_REQSENT 5 /* active conversation states */
  85. #define XST_DATARCVD 6
  86. #define XST_POKESENT 7
  87. #define XST_POKEACKRCVD 8
  88. #define XST_EXECSENT 9
  89. #define XST_EXECACKRCVD 10
  90. #define XST_ADVSENT 11
  91. #define XST_UNADVSENT 12
  92. #define XST_ADVACKRCVD 13
  93. #define XST_UNADVACKRCVD 14
  94. #define XST_ADVDATASENT 15
  95. #define XST_ADVDATAACKRCVD 16
  96. /* used in LOWORD(dwData1) of XTYP_ADVREQ callbacks... */
  97. #define CADV_LATEACK 0xFFFF
  98. /***** conversation status bits (fsStatus) *****/
  99. #define ST_CONNECTED 0x0001
  100. #define ST_ADVISE 0x0002
  101. #define ST_ISLOCAL 0x0004
  102. #define ST_BLOCKED 0x0008
  103. #define ST_CLIENT 0x0010
  104. #define ST_TERMINATED 0x0020
  105. #define ST_INLIST 0x0040
  106. #define ST_BLOCKNEXT 0x0080
  107. #define ST_ISSELF 0x0100
  108. #define ST_TERMINATE_RECEIVED 0x0200 ;internal
  109. #define ST_FREE_CONV_RES_NOW 0x0800 // See FreeConversationResources() ;internal
  110. #define ST_INTRA_PROCESS 0x8000 ;internal
  111. #define ST_UNICODE_EXECUTE 0x4000 ;internal
  112. #define ST_BLOCKALLNEXT 0x2000 ;internal
  113. #define ST_PROCESSING 0x1000 // See CheckForQueuedMessages() ;internal
  114. /* DDE constants for wStatus field */
  115. #define DDE_FACK 0x8000
  116. #define DDE_FBUSY 0x4000
  117. #define DDE_FDEFERUPD 0x4000
  118. #define DDE_FACKREQ 0x8000
  119. #define DDE_FRELEASE 0x2000
  120. #define DDE_FREQUESTED 0x1000
  121. #define DDE_FAPPSTATUS 0x00ff
  122. #define DDE_FNOTPROCESSED 0x0000
  123. #define DDE_FACKRESERVED (~(DDE_FACK | DDE_FBUSY | DDE_FAPPSTATUS))
  124. #define DDE_FADVRESERVED (~(DDE_FACKREQ | DDE_FDEFERUPD))
  125. #define DDE_FDATRESERVED (~(DDE_FACKREQ | DDE_FRELEASE | DDE_FREQUESTED))
  126. #define DDE_FPOKRESERVED (~(DDE_FRELEASE))
  127. /***** message filter hook types *****/
  128. #define MSGF_DDEMGR 0x8001
  129. /***** codepage constants ****/
  130. #define CP_WINANSI 1004 /* default codepage for windows & old DDE convs. */
  131. #define CP_WINUNICODE 1200
  132. #ifdef UNICODE
  133. #define CP_WINNEUTRAL CP_WINUNICODE
  134. #else // !UNICODE
  135. #define CP_WINNEUTRAL CP_WINANSI
  136. #endif // !UNICODE
  137. /***** transaction types *****/
  138. #define XTYPF_NOBLOCK 0x0002 /* CBR_BLOCK will not work */
  139. #define XTYPF_NODATA 0x0004 /* DDE_FDEFERUPD */
  140. #define XTYPF_ACKREQ 0x0008 /* DDE_FACKREQ */
  141. #define XCLASS_MASK 0xFC00
  142. #define XCLASS_BOOL 0x1000
  143. #define XCLASS_DATA 0x2000
  144. #define XCLASS_FLAGS 0x4000
  145. #define XCLASS_NOTIFICATION 0x8000
  146. #define XTYP_ERROR (0x0000 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK )
  147. #define XTYP_ADVDATA (0x0010 | XCLASS_FLAGS )
  148. #define XTYP_ADVREQ (0x0020 | XCLASS_DATA | XTYPF_NOBLOCK )
  149. #define XTYP_ADVSTART (0x0030 | XCLASS_BOOL )
  150. #define XTYP_ADVSTOP (0x0040 | XCLASS_NOTIFICATION)
  151. #define XTYP_EXECUTE (0x0050 | XCLASS_FLAGS )
  152. #define XTYP_CONNECT (0x0060 | XCLASS_BOOL | XTYPF_NOBLOCK)
  153. #define XTYP_CONNECT_CONFIRM (0x0070 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK)
  154. #define XTYP_XACT_COMPLETE (0x0080 | XCLASS_NOTIFICATION )
  155. #define XTYP_POKE (0x0090 | XCLASS_FLAGS )
  156. #define XTYP_REGISTER (0x00A0 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK)
  157. #define XTYP_REQUEST (0x00B0 | XCLASS_DATA )
  158. #define XTYP_DISCONNECT (0x00C0 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK)
  159. #define XTYP_UNREGISTER (0x00D0 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK)
  160. #define XTYP_WILDCONNECT (0x00E0 | XCLASS_DATA | XTYPF_NOBLOCK)
  161. #define XTYP_MASK 0x00F0
  162. #define XTYP_SHIFT 4 /* shift to turn XTYP_ into an index */
  163. /***** Timeout constants *****/
  164. #define TIMEOUT_ASYNC 0xFFFFFFFF
  165. /***** Transaction ID constants *****/
  166. #define QID_SYNC 0xFFFFFFFF
  167. /****** public strings used in DDE ******/
  168. #ifdef UNICODE
  169. #define SZDDESYS_TOPIC L"System"
  170. #define SZDDESYS_ITEM_TOPICS L"Topics"
  171. #define SZDDESYS_ITEM_SYSITEMS L"SysItems"
  172. #define SZDDESYS_ITEM_RTNMSG L"ReturnMessage"
  173. #define SZDDESYS_ITEM_STATUS L"Status"
  174. #define SZDDESYS_ITEM_FORMATS L"Formats"
  175. #define SZDDESYS_ITEM_HELP L"Help"
  176. #define SZDDE_ITEM_ITEMLIST L"TopicItemList"
  177. #else
  178. #define SZDDESYS_TOPIC "System"
  179. #define SZDDESYS_ITEM_TOPICS "Topics"
  180. #define SZDDESYS_ITEM_SYSITEMS "SysItems"
  181. #define SZDDESYS_ITEM_RTNMSG "ReturnMessage"
  182. #define SZDDESYS_ITEM_STATUS "Status"
  183. #define SZDDESYS_ITEM_FORMATS "Formats"
  184. #define SZDDESYS_ITEM_HELP "Help"
  185. #define SZDDE_ITEM_ITEMLIST "TopicItemList"
  186. #endif
  187. /****** API entry points ******/
  188. typedef HDDEDATA CALLBACK FNCALLBACK(UINT wType, UINT wFmt, HCONV hConv,
  189. HSZ hsz1, HSZ hsz2, HDDEDATA hData, ULONG_PTR dwData1, ULONG_PTR dwData2);
  190. typedef HDDEDATA (CALLBACK *PFNCALLBACK)(UINT wType, UINT wFmt, HCONV hConv,
  191. HSZ hsz1, HSZ hsz2, HDDEDATA hData, ULONG_PTR dwData1, ULONG_PTR dwData2);
  192. #define CBR_BLOCK ((HDDEDATA)-1)
  193. /* DLL registration functions */
  194. UINT WINAPI DdeInitialize%( IN OUT LPDWORD pidInst, IN PFNCALLBACK pfnCallback,
  195. IN DWORD afCmd, IN DWORD ulRes);
  196. /*
  197. * Callback filter flags for use with standard apps.
  198. */
  199. #define CBF_FAIL_SELFCONNECTIONS 0x00001000
  200. #define CBF_FAIL_CONNECTIONS 0x00002000
  201. #define CBF_FAIL_ADVISES 0x00004000
  202. #define CBF_FAIL_EXECUTES 0x00008000
  203. #define CBF_FAIL_POKES 0x00010000
  204. #define CBF_FAIL_REQUESTS 0x00020000
  205. #define CBF_FAIL_ALLSVRXACTIONS 0x0003f000
  206. #define CBF_SKIP_CONNECT_CONFIRMS 0x00040000
  207. #define CBF_SKIP_REGISTRATIONS 0x00080000
  208. #define CBF_SKIP_UNREGISTRATIONS 0x00100000
  209. #define CBF_SKIP_DISCONNECTS 0x00200000
  210. #define CBF_SKIP_ALLNOTIFICATIONS 0x003c0000
  211. #define CBF_MASK 0x003ff000L ;internal
  212. #define CBF_MONMASK 0x0027f000L ;internal
  213. /*
  214. * Application command flags
  215. */
  216. #define APPCMD_CLIENTONLY 0x00000010L
  217. #define APPCMD_FILTERINITS 0x00000020L
  218. #define APPCMD_UNINIT_ASAP 0x00000800L ;internal
  219. #define APPCMD_MASK 0x00000FF0L
  220. /*
  221. * Application classification flags
  222. */
  223. #define APPCLASS_STANDARD 0x00000000L
  224. #define APPCLASS_MASK 0x0000000FL
  225. #define APPCLASS_UNICODE 0x00000001L ;internal
  226. BOOL WINAPI DdeUninitialize( IN DWORD idInst);
  227. /*
  228. * conversation enumeration functions
  229. */
  230. HCONVLIST WINAPI DdeConnectList( IN DWORD idInst, IN HSZ hszService, IN HSZ hszTopic,
  231. IN HCONVLIST hConvList, IN PCONVCONTEXT pCC);
  232. HCONV WINAPI DdeQueryNextServer( IN HCONVLIST hConvList, IN HCONV hConvPrev);
  233. BOOL WINAPI DdeDisconnectList( IN HCONVLIST hConvList);
  234. /*
  235. * conversation control functions
  236. */
  237. HCONV WINAPI DdeConnect( IN DWORD idInst, IN HSZ hszService, IN HSZ hszTopic,
  238. IN PCONVCONTEXT pCC);
  239. BOOL WINAPI DdeDisconnect( IN OUT HCONV hConv);
  240. HCONV WINAPI DdeReconnect( IN HCONV hConv);
  241. UINT WINAPI DdeQueryConvInfo( IN HCONV hConv, IN DWORD idTransaction, IN OUT PCONVINFO pConvInfo);
  242. BOOL WINAPI DdeSetUserHandle( IN HCONV hConv, IN DWORD id, IN DWORD_PTR hUser);
  243. BOOL WINAPI DdeAbandonTransaction( IN DWORD idInst, IN HCONV hConv, IN DWORD idTransaction);
  244. /*
  245. * app server interface functions
  246. */
  247. BOOL WINAPI DdePostAdvise( IN DWORD idInst, IN HSZ hszTopic, IN HSZ hszItem);
  248. BOOL WINAPI DdeEnableCallback( IN DWORD idInst, IN HCONV hConv, IN UINT wCmd);
  249. BOOL WINAPI DdeImpersonateClient( IN HCONV hConv);
  250. BOOL WINAPI DdeGetQualityOfService(HWND hwndClient, HWND hwndServer, ;internal
  251. PSECURITY_QUALITY_OF_SERVICE pqos); ;internal
  252. #define EC_ENABLEALL 0
  253. #define EC_ENABLEONE ST_BLOCKNEXT
  254. #define EC_DISABLE ST_BLOCKED
  255. #define EC_QUERYWAITING 2
  256. #define EC_ENABLEONEOFALL 0x2000 ;internal
  257. #define EC_CHECKQUEUEONCE 0x1000 ;internal
  258. #define EC_CHECKQUEUE 0x0800 ;internal
  259. HDDEDATA WINAPI DdeNameService( IN DWORD idInst, IN HSZ hsz1, IN HSZ hsz2, IN UINT afCmd);
  260. #define DNS_REGISTER 0x0001
  261. #define DNS_UNREGISTER 0x0002
  262. #define DNS_FILTERON 0x0004
  263. #define DNS_FILTEROFF 0x0008
  264. #define UM_REGISTER (WM_USER + 200) ;internal
  265. #define UM_UNREGISTER (WM_USER + 201) ;internal
  266. /*
  267. * app client interface functions
  268. */
  269. HDDEDATA WINAPI DdeClientTransaction( IN LPBYTE pData, IN DWORD cbData,
  270. IN HCONV hConv, IN HSZ hszItem, IN UINT wFmt, IN UINT wType,
  271. IN DWORD dwTimeout, OUT LPDWORD pdwResult);
  272. /*
  273. *data transfer functions
  274. */
  275. HDDEDATA WINAPI DdeCreateDataHandle( IN DWORD idInst, IN LPBYTE pSrc, IN DWORD cb,
  276. IN DWORD cbOff, IN HSZ hszItem, IN UINT wFmt, IN UINT afCmd);
  277. HDDEDATA WINAPI DdeAddData( IN HDDEDATA hData, IN LPBYTE pSrc, IN DWORD cb, IN DWORD cbOff);
  278. DWORD WINAPI DdeGetData( IN HDDEDATA hData, OUT LPBYTE pDst, IN DWORD cbMax, IN DWORD cbOff);
  279. LPBYTE WINAPI DdeAccessData( IN HDDEDATA hData, OUT LPDWORD pcbDataSize);
  280. BOOL WINAPI DdeUnaccessData( IN HDDEDATA hData);
  281. BOOL WINAPI DdeFreeDataHandle( IN OUT HDDEDATA hData);
  282. #define HDATA_APPOWNED 0x0001
  283. ;begin_internal
  284. #define HDATA_READONLY 0x8000
  285. #define HDATA_NOAPPFREE 0x4000
  286. #define HDATA_EXECUTE 0x0100
  287. #define HDATA_INITIALIZED 0x0200
  288. ;end_internal
  289. UINT WINAPI DdeGetLastError( IN DWORD idInst);
  290. #define DMLERR_NO_ERROR 0 /* must be 0 */
  291. #define DMLERR_FIRST 0x4000
  292. #define DMLERR_ADVACKTIMEOUT 0x4000
  293. #define DMLERR_BUSY 0x4001
  294. #define DMLERR_DATAACKTIMEOUT 0x4002
  295. #define DMLERR_DLL_NOT_INITIALIZED 0x4003
  296. #define DMLERR_DLL_USAGE 0x4004
  297. #define DMLERR_EXECACKTIMEOUT 0x4005
  298. #define DMLERR_INVALIDPARAMETER 0x4006
  299. #define DMLERR_LOW_MEMORY 0x4007
  300. #define DMLERR_MEMORY_ERROR 0x4008
  301. #define DMLERR_NOTPROCESSED 0x4009
  302. #define DMLERR_NO_CONV_ESTABLISHED 0x400a
  303. #define DMLERR_POKEACKTIMEOUT 0x400b
  304. #define DMLERR_POSTMSG_FAILED 0x400c
  305. #define DMLERR_REENTRANCY 0x400d
  306. #define DMLERR_SERVER_DIED 0x400e
  307. #define DMLERR_SYS_ERROR 0x400f
  308. #define DMLERR_UNADVACKTIMEOUT 0x4010
  309. #define DMLERR_UNFOUND_QUEUE_ID 0x4011
  310. #define DMLERR_LAST 0x4011
  311. HSZ WINAPI DdeCreateStringHandle%( IN DWORD idInst, IN LPCTSTR% psz, IN int iCodePage);
  312. DWORD WINAPI DdeQueryString%( IN DWORD idInst, IN HSZ hsz, IN OUT LPTSTR% psz, IN DWORD cchMax, IN int iCodePage);
  313. BOOL WINAPI DdeFreeStringHandle( IN DWORD idInst, IN OUT HSZ hsz);
  314. BOOL WINAPI DdeKeepStringHandle( IN DWORD idInst, IN OUT HSZ hsz);
  315. int WINAPI DdeCmpStringHandles( IN HSZ hsz1, IN HSZ hsz2);
  316. #ifndef NODDEMLSPY
  317. /*
  318. * DDEML public debugging header file info
  319. */
  320. typedef struct tagDDEML_MSG_HOOK_DATA { // new for NT
  321. UINT_PTR uiLo; // unpacked lo and hi parts of lParam
  322. UINT_PTR uiHi;
  323. DWORD cbData; // amount of data in message, if any. May be > than 32 bytes.
  324. DWORD Data[8]; // data peeking by DDESPY is limited to 32 bytes.
  325. } DDEML_MSG_HOOK_DATA, *PDDEML_MSG_HOOK_DATA;
  326. typedef struct tagMONMSGSTRUCT {
  327. UINT cb;
  328. HWND hwndTo;
  329. DWORD dwTime;
  330. HANDLE hTask;
  331. UINT wMsg;
  332. WPARAM wParam;
  333. LPARAM lParam;
  334. DDEML_MSG_HOOK_DATA dmhd; // new for NT
  335. } MONMSGSTRUCT, *PMONMSGSTRUCT;
  336. typedef struct tagMONCBSTRUCT {
  337. UINT cb;
  338. DWORD dwTime;
  339. HANDLE hTask;
  340. DWORD dwRet;
  341. UINT wType;
  342. UINT wFmt;
  343. HCONV hConv;
  344. HSZ hsz1;
  345. HSZ hsz2;
  346. HDDEDATA hData;
  347. ULONG_PTR dwData1;
  348. ULONG_PTR dwData2;
  349. CONVCONTEXT cc; // new for NT for XTYP_CONNECT callbacks
  350. DWORD cbData; // new for NT for data peeking
  351. DWORD Data[8]; // new for NT for data peeking
  352. } MONCBSTRUCT, *PMONCBSTRUCT;
  353. typedef struct tagMONHSZSTRUCT% {
  354. UINT cb;
  355. BOOL fsAction; /* MH_ value */
  356. DWORD dwTime;
  357. HSZ hsz;
  358. HANDLE hTask;
  359. TCHAR% str[1];
  360. } MONHSZSTRUCT%, *PMONHSZSTRUCT%;
  361. #define MH_CREATE 1
  362. #define MH_KEEP 2
  363. #define MH_DELETE 3
  364. #define MH_CLEANUP 4
  365. typedef struct tagMONERRSTRUCT {
  366. UINT cb;
  367. UINT wLastError;
  368. DWORD dwTime;
  369. HANDLE hTask;
  370. } MONERRSTRUCT, *PMONERRSTRUCT;
  371. typedef struct tagMONLINKSTRUCT {
  372. UINT cb;
  373. DWORD dwTime;
  374. HANDLE hTask;
  375. BOOL fEstablished;
  376. BOOL fNoData;
  377. HSZ hszSvc;
  378. HSZ hszTopic;
  379. HSZ hszItem;
  380. UINT wFmt;
  381. BOOL fServer;
  382. HCONV hConvServer;
  383. HCONV hConvClient;
  384. } MONLINKSTRUCT, *PMONLINKSTRUCT;
  385. typedef struct tagMONCONVSTRUCT {
  386. UINT cb;
  387. BOOL fConnect;
  388. DWORD dwTime;
  389. HANDLE hTask;
  390. HSZ hszSvc;
  391. HSZ hszTopic;
  392. HCONV hConvClient; // Globally unique value != apps local hConv
  393. HCONV hConvServer; // Globally unique value != apps local hConv
  394. } MONCONVSTRUCT, *PMONCONVSTRUCT;
  395. #define MAX_MONITORS 4
  396. #define APPCLASS_MONITOR 0x00000001L
  397. #define XTYP_MONITOR (0x00F0 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK)
  398. /*
  399. * Callback filter flags for use with MONITOR apps - 0 implies no monitor
  400. * callbacks.
  401. */
  402. #define MF_HSZ_INFO 0x01000000
  403. #define MF_SENDMSGS 0x02000000
  404. #define MF_POSTMSGS 0x04000000
  405. #define MF_CALLBACKS 0x08000000
  406. #define MF_ERRORS 0x10000000
  407. #define MF_LINKS 0x20000000
  408. #define MF_CONV 0x40000000
  409. #define MF_MASK 0xFF000000
  410. #endif /* NODDEMLSPY */
  411. #ifdef __cplusplus
  412. }
  413. #endif /* __cplusplus */
  414. #endif /* _INC_DDEMLH */
  415. ;begin_internal
  416. #ifdef __cplusplus
  417. }
  418. #endif /* __cplusplus */
  419. #endif /* _INC_DDEMLPH */
  420. ;end_internal