ARX定义LISP函数实例（摘自国外）

Gdlprfcu

摘自国外某一网站，觉得不错才转来这里，1D豆对新手来说绝对物有所值。
[sell=1]

1. /**  \file RunShell.cpp
   
2. *  \brief
   
3. */
   
4. 
   
5. /****************************************************************************/
   
6. /*  RunShell.cpp                              */
   
7. /****************************************************************************/
   
8. /*                                                                          */
   
9. /*  Copyright 2010 Paul Kohut                                               */
   
10. /*  Licensed under the Apache License, Version 2.0 (the "License"); you may */
    
11. /*  not use this file except in compliance with the License. You may obtain */
    
12. /*  a copy of the License at                                                */
    
13. /*                                                                          */
    
14. /*  http://www.apache.org/licenses/LICENSE-2.0                              */
    
15. /*                                                                          */
    
16. /*  Unless required by applicable law or agreed to in writing, software     */
    
17. /*  distributed under the License is distributed on an "AS IS" BASIS,       */
    
18. /*  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or         */
    
19. /*  implied. See the License for the specific language governing            */
    
20. /*  permissions and limitations under the License.                          */
    
21. /*                                                                          */
    
22. /****************************************************************************/
    
23. 
    
24. 
    
25. #include "stdafx.h"
    
26. #include "tchar.h"
    
27. #include "DocShells.h"
    
28. #include "ConsoleWindow.h"
    
29. 
    
30. #if defined(ARX2004) || defined(ARX2005) || defined(ARX2006)
    
31. #pragma comment(linker, "/export:_acrxGetApiVersion,PRIVATE")
    
32. #pragma comment(linker, "/export:_acrxEntryPoint,PRIVATE")
    
33. #endif
    
34. 
    
35. #define ELEMENTS(array) (sizeof(array)/sizeof((array)[0]))
    
36. 
    
37. struct func_entry { ACHAR *func_name; int (*func) (struct resbuf *); };
    
38. 
    
39. // forward references
    
40. int OpenShell(resbuf * pRb);
    
41. int CloseShell(resbuf * pRb);
    
42. int ReadShellData(resbuf * pRb);
    
43. int GetLastShellError(resbuf * pRb);
    
44. int WriteShellData(resbuf * pRb);
    
45. 
    
46. int DoFunc(void);
    
47. int FuncLoad(void);
    
48. 
    
49. // ADS available commands and function pointers
    
50. static struct func_entry func_table[] = {
    
51.     {_T("OpenShell"), OpenShell},
    
52.     {_T("CloseShell"), CloseShell},
    
53.     {_T("ReadShellData"), ReadShellData},
    
54.     {_T("WriteShellData"), WriteShellData},
    
55.     {_T("GetLastShellError"), GetLastShellError},   
    
56. };
    
57. 
    
58. extern "C" AcRx::AppRetCode
    
59. acrxEntryPoint(AcRx::AppMsgCode msg, void * appId)
    
60. {
    
61.     switch(msg) {
    
62. case AcRx::kInitAppMsg:
    
63.     acrxDynamicLinker->unlockApplication(appId);
    
64.     acrxDynamicLinker->registerAppMDIAware(appId);
    
65.     break;
    
66. case AcRx::kUnloadAppMsg:
    
67.     // delete the single instance of CConsoleWindow
    
68.     // before exiting AutoCAD.
    
69.     if(g_pConsole) {
    
70.         delete g_pConsole;
    
71.         g_pConsole = NULL;
    
72.     }
    
73.     break;
    
74. case AcRx::kInvkSubrMsg:
    
75.     DoFunc();
    
76.     break;
    
77. case AcRx::kLoadDwgMsg:
    
78.     FuncLoad();
    
79.     }
    
80.     return AcRx::kRetOK;
    
81. }
    
82. 
    
83. static int FuncLoad(void)
    
84. {
    
85.     for(int i = 0; i < ELEMENTS(func_table); ++i) {
    
86.         if(!acedDefun(func_table.func_name, (short) i))
    
87.             return RTERROR;
    
88.     }
    
89.     return RTNORM;
    
90. }
    
91. 
    
92. static int DoFunc(void)
    
93. {
    
94.     int val = acedGetFunCode();
    
95.     if(val < 0 || val >= ELEMENTS(func_table)) {
    
96.         acdbFail(_T("Received nonexistent function code."));
    
97.         return RTERROR;
    
98.     }
    
99. 
    
100.     resbuf * pRb = acedGetArgs();
     
101.     val = (*func_table[val].func)(pRb);
     
102.     acutRelRb(pRb);
     
103.     return val;
     
104. }
     
105. 
     
106. // Helper function for RESBUF's that contain strings
     
107. int GetResBufValue(const resbuf * pRb, TString & sValue)
     
108. {
     
109.     if(!pRb)
     
110.         return RTERROR;
     
111.     if(pRb->restype != RTSTR)
     
112.         return RTERROR;
     
113.     sValue = pRb->resval.rstring;
     
114.     return RTNORM;
     
115. }
     
116. 
     
117. // Helper function for RESBUF's that contains RTSHORT or RTLONG
     
118. int GetResBufValue(const resbuf * pRb, int & nValue)
     
119. {
     
120.     if(!pRb)
     
121.         return RTERROR;
     
122.     if(pRb->restype == RTLONG) {
     
123.         nValue = pRb->resval.rlong;
     
124.         return RTNORM;
     
125.     }
     
126.     if(pRb->restype == RTSHORT) {
     
127.         nValue = pRb->resval.rint;
     
128.         return RTNORM;
     
129.     }
     
130.     return RTERROR;
     
131. }
     
132. 
     
133. 
     
134. /** \brief The gateway function between Autolisp and CShellPipe::OpenShell
     
135. *  \param pRb a resbuf that must have 2 link that are strings
     
136. *  \returns RTRSLT meaning a result is being returned.
     
137. *
     
138. *  When this function makes calls to any other function and the return
     
139. *  value from those functions are RTERROR, then this function will
     
140. *  return RTRSLT with acedRetNil(). The Autolisp function that called
     
141. *  this will receive a Nil return.
     
142. *
     
143. *  Otherwise if every is OK (all functions called return RTNORM) then
     
144. *  this function will return RTRSLT with acedRetInt() which is the
     
145. *  handle associated with CShellPipe instance.
     
146. *  
     
147. *  The handle returned to Autolisp is used by readshelldata and
     
148. *  closeshell.
     
149. */
     
150. static int OpenShell(resbuf * pRb)
     
151. {
     
152.     TCHAR * pcszApplicationName = NULL, * pcszCommandLine = NULL;
     
153.     // Get the application name string
     
154.     if(!pRb || pRb->restype != RTSTR) {
     
155.         acedRetNil();
     
156.         return RSRSLT;
     
157.     }
     
158.     pcszApplicationName = pRb->resval.rstring;
     
159. 
     
160.     // get the command line string
     
161.     if(!pRb->rbnext || pRb->rbnext->restype != RTSTR) {
     
162.         acedRetNil();
     
163.         return RSRSLT;
     
164.     }
     
165.     pcszCommandLine = pRb->rbnext->resval.rstring;
     
166. 
     
167.     // Create a new instance of CShellPipe
     
168.     CShellPipe * pPipe = new CShellPipe;
     
169.     if(pPipe->OpenShell(pRb->resval.rstring, pRb->rbnext->resval.rstring) != RTNORM) {
     
170.         delete pPipe;
     
171.         acedRetNil();
     
172.         return RSRSLT;
     
173.     }
     
174. 
     
175.     int nHandle = docShells.docData().AddShell(pPipe);
     
176.     if(!nHandle)
     
177.         acedRetNil();
     
178.     else
     
179.         acedRetInt(nHandle);
     
180.     return RSRSLT;
     
181. }
     
182. 
     
183. 
     
184. /** \brief Closes a CShellPipe instance
     
185. *  \param pRb a resbuf containing the handle value
     
186. *  \returns RTRSLT meaning a result is being returned.
     
187. *
     
188. *  The pRb must be a RTSHORT or RTLONG value that is a handle
     
189. *  to an associated CShellPipe to be close.
     
190. 
     
191. *  When this function makes calls to any other function and the return
     
192. *  value from those functions are RTERROR, then this function will
     
193. *  return RTRSLT with acedRetNil(). The Autolisp function that called
     
194. *  this will receive a Nil return.
     
195. *
     
196. *  Otherwise if every is OK (all functions called return RTNORM) then
     
197. *  this function will return RTRSLT with acedRetT().
     
198. *  
     
199. *  The calling Autolisp function will receive T as a returned value.
     
200. */
     
201. static int CloseShell(resbuf * pRb)
     
202. {
     
203.     int nHandle = 0;
     
204.     // get handle, bail if not a RTLONG or RTSHORT
     
205.     if(GetResBufValue(pRb, nHandle) != RTNORM) {
     
206.         acedRetNil();
     
207.         return RSRSLT;
     
208.     }
     
209.     // use the handle to delete the CShellPipe associated with it
     
210.     if(docShells.docData().DeleteShell(nHandle) == RTNORM)
     
211.         acedRetT();
     
212.     else
     
213.         acedRetNil();
     
214.     return RSRSLT;
     
215. }
     
216. 
     
217. 
     
218. /** \brief Reads data from a CShellPipe instance
     
219. *  \param pRb a resbuf containing the handle value
     
220. *  \returns RTRSLT meaning a result is being returned.
     
221. *
     
222. *  The pRb must be a RTSHORT or RTLONG value that is a handle
     
223. *  to an associated CShellPipe to be read data from.
     
224. 
     
225. *  When this function makes calls to any other function and the return
     
226. *  value from those functions are RTERROR, then this function will
     
227. *  return RTRSLT with acedRetNil(). The Autolisp function that called
     
228. *  this will receive a Nil return.
     
229. *
     
230. *  Otherwise if everything is OK (all functions called return RTNORM) then
     
231. *  this function will return RTRSLT with acedRetStr() that contains
     
232. *  the read data.
     
233. *  
     
234. *  The calling Autolisp function will receive a string as a returned value,
     
235. *  which is the read data.
     
236. */
     
237. static int ReadShellData(resbuf * pRb)
     
238. {
     
239.     int nHandle = 0;
     
240.     // get the handle, bail if pRb is not RTLONG or RTSHORT
     
241.     if(GetResBufValue(pRb, nHandle) != RTNORM) {
     
242.         acedRetNil();
     
243.         return RSRSLT;
     
244.     }
     
245. 
     
246.     // use the handle to get the associated CShellPipe instance.
     
247.     CShellPipe * pShell = docShells.docData().GetShell(nHandle);
     
248.     if(!pShell) {
     
249.         acedRetNil();
     
250.         return RSRSLT;
     
251.     }
     
252. 
     
253.     // read the data from the CShellPipe instance
     
254.     TString sResults;
     
255.     if(pShell->ReadShellData(sResults) != RTNORM) {
     
256.         acedRetNil();
     
257.         return RSRSLT;
     
258.     }
     
259. 
     
260.     // make the result available to the calling Autolisp function.
     
261.     acedRetStr(sResults.c_str());
     
262.     return RSRSLT;
     
263. }
     
264. 
     
265. /** \brief Writes data to the CShellPipe instance
     
266. *  \param pRb a resbuf containing the handle value, and string to write
     
267. *  \returns RTRSLT meaning a result is being returned. The calling Autolisp
     
268. *  function will receive a T as a returned value if the function succeeds,
     
269. *  otherwise Nil is returned
     
270. *
     
271. *  The pRb must be a list containing a RTSHORT or RTLONG for the first value
     
272. *  that is the handle associated to a CShellPipe instance.
     
273. *  The second value must be a RTSTR for the second value which is the value
     
274. *  to be written to Stdin of CPipeShell.
     
275. *
     
276. *  When this function makes calls to any other function and the return
     
277. *  value from those functions are RTERROR, then this function will
     
278. *  return RTRSLT with acedRetNil(). The Autolisp function that called
     
279. *  this will receive a Nil return.
     
280. *
     
281. *  Otherwise if everything is OK (all functions called return RTNORM) then
     
282. *  this function will return RTRSLT with acedRetStr() that contains
     
283. *  the read data.
     
284. *  
     
285. */
     
286. static int WriteShellData(resbuf * pRb)
     
287. {
     
288.     int nHandle = 0;
     
289.     // get the handle, bail if pRb is not RTLONG or RTSHORT
     
290.     if(GetResBufValue(pRb, nHandle) != RTNORM) {
     
291.         acedRetNil();
     
292.         return RSRSLT;
     
293.     }
     
294. 
     
295.     // Get the string to send to stdio. Bail if it is NULL
     
296.     // or not a string
     
297.     TCHAR * pcszSendString = NULL;
     
298.     if(!pRb->rbnext || pRb->rbnext->restype != RTSTR) {
     
299.         acedRetNil();
     
300.         return RSRSLT;
     
301.     }
     
302.     pcszSendString = pRb->rbnext->resval.rstring;
     
303. 
     
304. 
     
305.     // use the handle to get the associated CShellPipe instance.
     
306.     CShellPipe * pShell = docShells.docData().GetShell(nHandle);
     
307.     if(!pShell) {
     
308.         acedRetNil();
     
309.         return RSRSLT;
     
310.     }
     
311. 
     
312.     // read the data from the CShellPipe instance
     
313.     if(pShell->WriteShellData(pcszSendString) != RTNORM) {
     
314.         acedRetNil();
     
315.         return RSRSLT;
     
316.     }
     
317. 
     
318.     acedRetT();
     
319.     return RSRSLT;
     
320. }
     
321. 
     
322. static int GetLastShellError(resbuf * pRb)
     
323. {
     
324.     TString sResult;
     
325.     DWORD dwError = CShellPipe::GetLastShellError(sResult);
     
326. 
     
327.     resbuf * pErrorRb = acutBuildList(RTLONG, dwError, RTSTR, sResult.c_str(), 0);
     
328.     acedRetList(pErrorRb);
     
329.     return RSRSLT;
     
330. }
     

/**  \file RunShell.cpp<br /> *  \brief <br /> */<br /> <br /> /****************************************************************************/<br /> /*  RunShell.cpp                              */<br /> /****************************************************************************/<br /> /*                                                                          */<br /> /*  Copyright 2010 Paul Kohut                                               */<br /> /*  Licensed under the Apache License, Version 2.0 (the "License"); you may */<br /> /*  not use this file except in compliance with the License. You may obtain */<br /> /*  a copy of the License at                                                */<br /> /*                                                                          */<br /> /*  <a href=\"http://www.apache.org/licenses/LICENSE-2.0\" target=\"_blank\">http://www.apache.org/licenses/LICENSE-2.0</a>                              */<br /> /*                                                                          */<br /> /*  Unless required by applicable law or agreed to in writing, software     */<br /> /*  distributed under the License is distributed on an "AS IS" BASIS,       */<br /> /*  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or         */<br /> /*  implied. See the License for the specific language governing            */<br /> /*  permissions and limitations under the License.                          */<br /> /*                                                                          */<br /> /****************************************************************************/<br /> <br /> <br /> #include "stdafx.h"<br /> #include "tchar.h"<br /> #include "DocShells.h"<br /> #include "ConsoleWindow.h"<br /> <br /> #if defined(ARX2004) || defined(ARX2005) || defined(ARX2006)<br /> #pragma comment(linker, "/export:_acrxGetApiVersion,PRIVATE")<br /> #pragma comment(linker, "/export:_acrxEntryPoint,PRIVATE")<br /> #endif<br /> <br /> #define ELEMENTS(array) (sizeof(array)/sizeof((array)[0]))<br /> <br /> struct func_entry { ACHAR *func_name; int (*func) (struct resbuf *); };<br /> <br /> // forward references<br /> int OpenShell(resbuf * pRb);<br /> int CloseShell(resbuf * pRb);<br /> int ReadShellData(resbuf * pRb);<br /> int GetLastShellError(resbuf * pRb);<br /> int WriteShellData(resbuf * pRb);<br /> <br /> int DoFunc(void);<br /> int FuncLoad(void);<br /> <br /> // ADS available commands and function pointers<br /> static struct func_entry func_table[] = {<br />     {_T("OpenShell"), OpenShell},<br />     {_T("CloseShell"), CloseShell},<br />     {_T("ReadShellData"), ReadShellData},<br />     {_T("WriteShellData"), WriteShellData},<br />     {_T("GetLastShellError"), GetLastShellError},    <br /> };<br /> <br /> extern "C" AcRx::AppRetCode<br /> acrxEntryPoint(AcRx::AppMsgCode msg, void * appId)<br /> {<br />     switch(msg) {<br /> case AcRx::kInitAppMsg:<br />     acrxDynamicLinker->unlockApplication(appId);<br />     acrxDynamicLinker->registerAppMDIAware(appId);<br />     break;<br /> case AcRx::kUnloadAppMsg:<br />     // delete the single instance of CConsoleWindow<br />     // before exiting AutoCAD.<br />     if(g_pConsole) {<br />         delete g_pConsole;<br />         g_pConsole = NULL;<br />     }<br />     break;<br /> case AcRx::kInvkSubrMsg:<br />     DoFunc();<br />     break;<br /> case AcRx::kLoadDwgMsg:<br />     FuncLoad();<br />     }<br />     return AcRx::kRetOK;<br /> }<br /> <br /> static int FuncLoad(void)<br /> {<br />     for(int i = 0; i < ELEMENTS(func_table); ++i) {<br />         if(!acedDefun(func_table<i>.func_name, (short) i))<br />             return RTERROR;<br />     }<br />     return RTNORM;<br /> }<br /> <br /> static int DoFunc(void)<br /> {<br />     int val = acedGetFunCode();<br />     if(val < 0 || val >= ELEMENTS(func_table)) {<br />         acdbFail(_T("Received nonexistent function code."));<br />         return RTERROR;<br />     }<br /> <br />     resbuf * pRb = acedGetArgs();<br />     val = (*func_table[val].func)(pRb);<br />     acutRelRb(pRb);<br />     return val;<br /> }<br /> <br /> // Helper function for RESBUF's that contain strings<br /> int GetResBufValue(const resbuf * pRb, TString & sValue)<br /> {<br />     if(!pRb)<br />         return RTERROR;<br />     if(pRb->restype != RTSTR)<br />         return RTERROR;<br />     sValue = pRb->resval.rstring;<br />     return RTNORM;<br /> }<br /> <br /> // Helper function for RESBUF's that contains RTSHORT or RTLONG<br /> int GetResBufValue(const resbuf * pRb, int & nValue)<br /> {<br />     if(!pRb)<br />         return RTERROR;<br />     if(pRb->restype == RTLONG) {<br />         nValue = pRb->resval.rlong;<br />         return RTNORM;<br />     }<br />     if(pRb->restype == RTSHORT) {<br />         nValue = pRb->resval.rint;<br />         return RTNORM;<br />     }<br />     return RTERROR;<br /> }<br /> <br /> <br /> /** \brief The gateway function between Autolisp and CShellPipe::OpenShell<br /> *  \param pRb a resbuf that must have 2 link that are strings<br /> *  \returns RTRSLT meaning a result is being returned.<br /> *<br /> *  When this function makes calls to any other function and the return<br /> *  value from those functions are RTERROR, then this function will<br /> *  return RTRSLT with acedRetNil(). The Autolisp function that called<br /> *  this will receive a Nil return.<br /> *<br /> *  Otherwise if every is OK (all functions called return RTNORM) then<br /> *  this function will return RTRSLT with acedRetInt() which is the<br /> *  handle associated with CShellPipe instance.<br /> *  <br /> *  The handle returned to Autolisp is used by readshelldata and<br /> *  closeshell.<br /> */<br /> static int OpenShell(resbuf * pRb)<br /> {<br />     TCHAR * pcszApplicationName = NULL, * pcszCommandLine = NULL;<br />     // Get the application name string<br />     if(!pRb || pRb->restype != RTSTR) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br />     pcszApplicationName = pRb->resval.rstring;<br /> <br />     // get the command line string<br />     if(!pRb->rbnext || pRb->rbnext->restype != RTSTR) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br />     pcszCommandLine = pRb->rbnext->resval.rstring;<br /> <br />     // Create a new instance of CShellPipe<br />     CShellPipe * pPipe = new CShellPipe;<br />     if(pPipe->OpenShell(pRb->resval.rstring, pRb->rbnext->resval.rstring) != RTNORM) {<br />         delete pPipe;<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br /> <br />     int nHandle = docShells.docData().AddShell(pPipe);<br />     if(!nHandle)<br />         acedRetNil();<br />     else<br />         acedRetInt(nHandle);<br />     return RSRSLT;<br /> }<br /> <br /> <br /> /** \brief Closes a CShellPipe instance<br /> *  \param pRb a resbuf containing the handle value<br /> *  \returns RTRSLT meaning a result is being returned.<br /> *<br /> *  The pRb must be a RTSHORT or RTLONG value that is a handle<br /> *  to an associated CShellPipe to be close.<br /> <br /> *  When this function makes calls to any other function and the return<br /> *  value from those functions are RTERROR, then this function will<br /> *  return RTRSLT with acedRetNil(). The Autolisp function that called<br /> *  this will receive a Nil return.<br /> *<br /> *  Otherwise if every is OK (all functions called return RTNORM) then<br /> *  this function will return RTRSLT with acedRetT().<br /> *  <br /> *  The calling Autolisp function will receive T as a returned value.<br /> */<br /> static int CloseShell(resbuf * pRb)<br /> {<br />     int nHandle = 0;<br />     // get handle, bail if not a RTLONG or RTSHORT<br />     if(GetResBufValue(pRb, nHandle) != RTNORM) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br />     // use the handle to delete the CShellPipe associated with it<br />     if(docShells.docData().DeleteShell(nHandle) == RTNORM)<br />         acedRetT();<br />     else<br />         acedRetNil();<br />     return RSRSLT;<br /> }<br /> <br /> <br /> /** \brief Reads data from a CShellPipe instance<br /> *  \param pRb a resbuf containing the handle value<br /> *  \returns RTRSLT meaning a result is being returned.<br /> *<br /> *  The pRb must be a RTSHORT or RTLONG value that is a handle<br /> *  to an associated CShellPipe to be read data from.<br /> <br /> *  When this function makes calls to any other function and the return<br /> *  value from those functions are RTERROR, then this function will<br /> *  return RTRSLT with acedRetNil(). The Autolisp function that called<br /> *  this will receive a Nil return.<br /> *<br /> *  Otherwise if everything is OK (all functions called return RTNORM) then<br /> *  this function will return RTRSLT with acedRetStr() that contains<br /> *  the read data.<br /> *  <br /> *  The calling Autolisp function will receive a string as a returned value,<br /> *  which is the read data.<br /> */<br /> static int ReadShellData(resbuf * pRb)<br /> {<br />     int nHandle = 0;<br />     // get the handle, bail if pRb is not RTLONG or RTSHORT<br />     if(GetResBufValue(pRb, nHandle) != RTNORM) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br /> <br />     // use the handle to get the associated CShellPipe instance.<br />     CShellPipe * pShell = docShells.docData().GetShell(nHandle);<br />     if(!pShell) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br /> <br />     // read the data from the CShellPipe instance<br />     TString sResults;<br />     if(pShell->ReadShellData(sResults) != RTNORM) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br /> <br />     // make the result available to the calling Autolisp function.<br />     acedRetStr(sResults.c_str());<br />     return RSRSLT;<br /> }<br /> <br /> /** \brief Writes data to the CShellPipe instance<br /> *  \param pRb a resbuf containing the handle value, and string to write<br /> *  \returns RTRSLT meaning a result is being returned. The calling Autolisp<br /> *  function will receive a T as a returned value if the function succeeds,<br /> *  otherwise Nil is returned<br /> *<br /> *  The pRb must be a list containing a RTSHORT or RTLONG for the first value<br /> *  that is the handle associated to a CShellPipe instance.<br /> *  The second value must be a RTSTR for the second value which is the value<br /> *  to be written to Stdin of CPipeShell.<br /> *<br /> *  When this function makes calls to any other function and the return<br /> *  value from those functions are RTERROR, then this function will<br /> *  return RTRSLT with acedRetNil(). The Autolisp function that called<br /> *  this will receive a Nil return.<br /> *<br /> *  Otherwise if everything is OK (all functions called return RTNORM) then<br /> *  this function will return RTRSLT with acedRetStr() that contains<br /> *  the read data.<br /> *  <br /> */<br /> static int WriteShellData(resbuf * pRb)<br /> {<br />     int nHandle = 0;<br />     // get the handle, bail if pRb is not RTLONG or RTSHORT<br />     if(GetResBufValue(pRb, nHandle) != RTNORM) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br /> <br />     // Get the string to send to stdio. Bail if it is NULL<br />     // or not a string<br />     TCHAR * pcszSendString = NULL;<br />     if(!pRb->rbnext || pRb->rbnext->restype != RTSTR) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br />     pcszSendString = pRb->rbnext->resval.rstring;<br /> <br /> <br />     // use the handle to get the associated CShellPipe instance.<br />     CShellPipe * pShell = docShells.docData().GetShell(nHandle);<br />     if(!pShell) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br /> <br />     // read the data from the CShellPipe instance<br />     if(pShell->WriteShellData(pcszSendString) != RTNORM) {<br />         acedRetNil();<br />         return RSRSLT;<br />     }<br /> <br />     acedRetT();<br />     return RSRSLT;<br /> }<br /> <br /> static int GetLastShellError(resbuf * pRb)<br /> {<br />     TString sResult;<br />     DWORD dwError = CShellPipe::GetLastShellError(sResult);<br /> <br />     resbuf * pErrorRb = acutBuildList(RTLONG, dwError, RTSTR, sResult.c_str(), 0);<br />     acedRetList(pErrorRb);<br />     return RSRSLT;<br /> }<br />

分享到

• 一键分享
• QQ空间
• 新浪微博
• 百度搜藏
• 人人网
• 腾讯微博
• 百度相册
• 开心网
• 腾讯朋友
• 百度贴吧
• 豆瓣网
• 搜狐微博
• 百度新首页
• QQ好友
• 和讯微博
• 更多...
  

百度分享




[/sell]

jiangnanemail

谢谢了，下载看一下

zteykmgscqh

原来是VB编写的程序啊！:'(