NS-MIRACLE library: ip/InitTcl.cc Source File

00001 static char code[] = "\n\
00002 Module/IP set debug_ 0\n\
00003 \n\
00004 proc createIPModule {} {\n\
00005 set module [new Module/IP]\n\
00006 return $module\n\
00007 }\n\
00008 \n\
00009 ";
00010 #include "tclcl.h"
00011 EmbeddedTcl InitTclCode(code);