{"id":336,"date":"2019-09-07T16:38:48","date_gmt":"2019-09-07T08:38:48","guid":{"rendered":"https:\/\/aichh.com\/?p=336"},"modified":"2019-09-07T16:38:48","modified_gmt":"2019-09-07T08:38:48","slug":"%e5%9c%a8tcl%e5%91%bd%e4%bb%a4%e8%a1%8c%e4%b8%ad%e8%b0%83%e7%94%a8c%e5%87%bd%e6%95%b0","status":"publish","type":"post","link":"https:\/\/aichh.com\/336.html","title":{"rendered":"\u5728TCL\u547d\u4ee4\u884c\u4e2d\u8c03\u7528C\u51fd\u6570"},"content":{"rendered":"

\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n

\n
\n
\n
?<\/a><\/div>\n\n\n\n
\n
\n
#include \"C:Tclincludetcl.h\"<\/code><\/div>\n
<\/div>\n
#pragma comment(lib,\"C:\\Tcl\\lib\\tcl84\")<\/code><\/div>\n
<\/div>\n
<\/div>\n
\/**\/<\/code>\/*******\u81ea\u5df1\u7684\u51fd\u6570*******\/<\/code><\/div>\n
void<\/code> MyFunc1()<\/code><\/div>\n
{<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>printf<\/code>(<\/code>\"My function 1n\"<\/code>);<\/code><\/div>\n
}<\/code><\/div>\n
<\/div>\n
void<\/code> MyFunc2()<\/code><\/div>\n
{<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>printf<\/code>(<\/code>\"My function 2n\"<\/code>);<\/code><\/div>\n
}<\/code><\/div>\n
<\/div>\n
\/**\/<\/code>\/*******\u5728\u8fd9\u4e9b\u51fd\u6570\u91cc\u8c03\u7528\u6211\u4eec\u81ea\u5df1\u7684\u51fd\u6570*******\/<\/code><\/div>\n
int<\/code> TclCmdProc1(ClientData clientData, Tcl_Interp *interp, <\/code>int<\/code> objc, <\/code>char<\/code>* CONST * objv)<\/code><\/div>\n
{<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>MyFunc1();<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>return<\/code> TCL_OK;<\/code><\/div>\n
}<\/code><\/div>\n
<\/div>\n
int<\/code> TclCmdProc2(ClientData clientData, Tcl_Interp *interp, <\/code>int<\/code> objc, <\/code>char<\/code>* CONST * objv)<\/code><\/div>\n
{<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>MyFunc2();<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>return<\/code> TCL_OK;<\/code><\/div>\n
}<\/code><\/div>\n
<\/div>\n
\/\/\u8fd9\u91cc\u5c06\u547d\u4ee4\u4e0e\u51fd\u6570\u7ed1\u5b9a<\/code><\/div>\n
int<\/code> Test_Init(Tcl_Interp *interp)<\/code><\/div>\n
{<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>\/\/\u5c06\u7b2c\u4e00\u4e2a\u51fd\u6570\u4e0e\u547d\u4ee4\"f1\"\u7ed1\u5b9a<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>Tcl_CreateCommand(interp,<\/code>\"f1\"<\/code>,(Tcl_CmdProc*)TclCmdProc1,(ClientData)NULL,(Tcl_CmdDeleteProc *) NULL);<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>\/\/\u5c06\u7b2c\u4e8c\u4e2a\u51fd\u6570\u4e0e\u547d\u4ee4\"f2\"\u7ed1\u5b9a<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>Tcl_CreateCommand(interp,<\/code>\"f2\"<\/code>,(Tcl_CmdProc*)TclCmdProc2,(ClientData)NULL,(Tcl_CmdDeleteProc *) NULL);<\/code><\/div>\n
<\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>return<\/code> TCL_OK;<\/code><\/div>\n
}<\/code><\/div>\n
<\/div>\n
\/\/main<\/code><\/div>\n
int<\/code> main(<\/code>int<\/code> argc, <\/code>char<\/code> *argv[])<\/code><\/div>\n
{<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>\/\/\u542f\u52a8TCL\u547d\u4ee4\u884c<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>Tcl_Main(argc, argv, Test_Init);<\/code><\/div>\n
<\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>return<\/code> 0;<\/code><\/div>\n
}<\/code><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n<\/div>\n

 <\/p>\n

 <\/p>\n

\u751f\u6210DLL\u540e\u5728 TCL\u4e2dload
\nTCL\u63a7\u5236\u53f0\uff0c\u8f93\u5165\u8f93\u51fa\u5982\u4e0b\uff1a
\n% f1
\nMy function 1
\n% f2
\nMy function 2
\n% f1;f2
\nMy function 1
\nMy function 2<\/p>\n

 <\/p>\n

via:http:\/\/www.cppblog.com\/playerken\/archive\/2009\/11\/25\/82823.html<\/p>\n","protected":false},"excerpt":{"rendered":"\u4ee3\u7801\u5982\u4e0b\uff1a ? #include “C:Tclincludetcl.h” #pragma comment(lib,”C:\\Tcl\\lib\\tcl84″) \/**\/\/*******\u81ea\u5df1\u7684\u51fd\u6570****** \u00b7\u00b7\u00b7","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-336","post","type-post","status-publish","format-standard","hentry","category-jiaocheng"],"views":383,"_links":{"self":[{"href":"https:\/\/aichh.com\/api\/wp\/v2\/posts\/336","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/aichh.com\/api\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/aichh.com\/api\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/aichh.com\/api\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/aichh.com\/api\/wp\/v2\/comments?post=336"}],"version-history":[{"count":1,"href":"https:\/\/aichh.com\/api\/wp\/v2\/posts\/336\/revisions"}],"predecessor-version":[{"id":337,"href":"https:\/\/aichh.com\/api\/wp\/v2\/posts\/336\/revisions\/337"}],"wp:attachment":[{"href":"https:\/\/aichh.com\/api\/wp\/v2\/media?parent=336"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/aichh.com\/api\/wp\/v2\/categories?post=336"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/aichh.com\/api\/wp\/v2\/tags?post=336"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}