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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
main.cc
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：16k
源码类别：

通讯编程

开发平台：

Visual C++

main.cc：源码内容
  1. /*
  2.  * Copyright (c) 1991,1993 Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms, with or without
  6.  * modification, are permitted provided that the following conditions
  7.  * are met:
  8.  * 1. Redistributions of source code must retain the above copyright
  9.  *    notice, this list of conditions and the following disclaimer.
  10.  * 2. Redistributions in binary form must reproduce the above copyright
  11.  *    notice, this list of conditions and the following disclaimer in the
  12.  *    documentation and/or other materials provided with the distribution.
  13.  * 3. All advertising materials mentioning features or use of this software
  14.  *    must display the following acknowledgement:
  15.  * This product includes software developed by the Computer Systems
  16.  * Engineering Group at Lawrence Berkeley Laboratory.
  17.  * 4. Neither the name of the University nor of the Laboratory may be used
  18.  *    to endorse or promote products derived from this software without
  19.  *    specific prior written permission.
  20.  *
  21.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31.  * SUCH DAMAGE.
  32.  *
  33.  * @(#) $Header: /cvsroot/nsnam/nam-1/main.cc,v 1.57 2003/10/11 22:56:50 xuanc Exp $ (LBL)
  34.  */
  36. #include <stdlib.h>
  37. #ifndef WIN32
  38. #include <unistd.h>
  39. #else
  40. #include <windows.h>
  41. #endif
  43. #include "netview.h"
  44. #include "tclcl.h"
  45. #include "trace.h"
  46. #include "paint.h"
  47. #include "state.h"
  48. #include "parser.h"
  49.  
  50. //#include "../tcl-debug-2.0/tcldbg.h"
  51.  
  52. extern "C" {
  53. #include <tk.h>
  54. }
  56. static void
  57. usage()
  58. {
  59. fprintf(stderr, "
  60. Usage: nam [-a -S -s -f init_script -d display -j jump -r rate -k initPort] 
  61. tracefilesn
  62. n
  63. -a: create a new nam instancen
  64. -S: synchronize Xn
  65. -s: synchronize multiple tracesn
  66. -j: startup timen
  67. -r: initial animation raten
  68. -f: initialization OTcl scriptn
  69. -k: initial socket port numbern");
  71.         exit(1);
  72. }
  74. #ifdef WIN32
  75. extern "C" int getopt(int, char**, char*);
  76. #endif
  78. extern "C" char *optarg;
  79. extern "C" int optind;
  81. const char* disparg(int argc, const char*const* argv, const char* optstr)
  82. {
  83. const char* display = 0;
  84. int op;
  85. while ((op = getopt(argc, (char**)argv, (char*)optstr)) != -1) {
  86. if (op == 'd') {
  87. display = optarg;
  88. break;
  89. }
  90. }
  91. optind = 1;
  92. return (display);
  93. }
  95. const char* namearg(int argc, const char*const* argv, const char* optstr)
  96. {
  97. const char* appname = 0;
  98. int op;
  99. while ((op = getopt(argc, (char**)argv, (char*)optstr)) != -1) {
  100. if (op == 'N') {
  101. appname = optarg;
  102. break;
  103. }
  104. }
  105. optind = 1;
  106. return (appname);
  107. }
  109. #include "bitmap/play.xbm"
  110. #include "bitmap/back.xbm"
  111. #include "bitmap/stop.xbm"
  112. #include "bitmap/eject.xbm"
  113. #include "bitmap/rew.xbm"
  114. #include "bitmap/ff.xbm"
  115. #include "bitmap/monitors.xbm"
  116. #include "bitmap/time.xbm"
  117. #include "bitmap/zoomin.xbm"
  118. #include "bitmap/zoomout.xbm"
  119. #include "bitmap/pullright.xbm"
  120. #include "bitmap/mark1.xbm"
  121. #include "bitmap/mark2.xbm"
  122. #include "bitmap/mark3.xbm"
  123. #include "bitmap/mark4.xbm"
  124. #include "bitmap/mark5.xbm"
  125. #include "bitmap/mark6.xbm"
  126. #include "bitmap/mark7.xbm"
  127. #include "bitmap/mark8.xbm"
  128. #include "bitmap/updir.xbm"
  129. //#include "bitmap/edit.xbm"
  130. #include "bitmap/nodeup.xbm" 
  131. #include "bitmap/nodedown.xbm" 
  132. #include "bitmap/select.xbm"
  133. #include "bitmap/addnode.xbm"
  134. #include "bitmap/addlink.xbm"
  135. #include "bitmap/cut.xbm"
  136. #include "bitmap/delete.xbm"
  137. #include "bitmap/netedit.xbm"
  138. #include "bitmap/netview.xbm"
  140. void loadbitmaps(Tcl_Interp* tcl)
  141. {
  142. //   Tk_DefineBitmap(tcl, Tk_GetUid("edit"),
  143. //   edit_bits, edit_width, edit_height);
  144. Tk_DefineBitmap(tcl, Tk_GetUid("netedit"),
  145. netedit_bits, netedit_width, netedit_height);
  146. Tk_DefineBitmap(tcl, Tk_GetUid("netview"),
  147. netview_bits, netview_width, netview_height);
  148. Tk_DefineBitmap(tcl, Tk_GetUid("nodeup"),
  149. nodeup_bits, nodeup_width, nodeup_height);
  150. Tk_DefineBitmap(tcl, Tk_GetUid("nodedown"),
  151. nodedown_bits, nodedown_width, nodedown_height);
  153. Tk_DefineBitmap(tcl, Tk_GetUid("play"),
  154. play_bits, play_width, play_height);
  155. Tk_DefineBitmap(tcl, Tk_GetUid("back"),
  156. back_bits, back_width, back_height);
  157. Tk_DefineBitmap(tcl, Tk_GetUid("stop"),
  158. stop_bits, stop_width, stop_height);
  159. Tk_DefineBitmap(tcl, Tk_GetUid("eject"),
  160. eject_bits, eject_width, eject_height);
  162. Tk_DefineBitmap(tcl, Tk_GetUid("rew"),
  163. rew_bits, rew_width, rew_height);
  164. Tk_DefineBitmap(tcl, Tk_GetUid("ff"),
  165. ff_bits, ff_width, ff_height);
  166. Tk_DefineBitmap(tcl, Tk_GetUid("monitors"),
  167. monitors_bits, monitors_width, monitors_height);
  168. Tk_DefineBitmap(tcl, Tk_GetUid("time"),
  169. time_bits, time_width, time_height);
  170. Tk_DefineBitmap(tcl, Tk_GetUid("zoomin"),
  171. zoomin_bits, zoomin_width, zoomin_height);
  172. Tk_DefineBitmap(tcl, Tk_GetUid("zoomout"),
  173. zoomout_bits, zoomout_width, zoomout_height);
  174. Tk_DefineBitmap(tcl, Tk_GetUid("pullright"),
  175. pullright_bits, pullright_width, pullright_height);
  177.   // Used in nam editor toolbar
  178.   Tk_DefineBitmap(tcl, Tk_GetUid("select"),
  179.                   select_bits, select_width, select_height);
  180.   Tk_DefineBitmap(tcl, Tk_GetUid("addnode"),
  181.                   addnode_bits, addnode_width, addnode_height);
  182.   Tk_DefineBitmap(tcl, Tk_GetUid("addlink"),
  183.                   addlink_bits, addlink_width, addlink_height);
  184.   Tk_DefineBitmap(tcl, Tk_GetUid("cut"),
  185.                   cut_bits, cut_width, cut_height);
  186.   Tk_DefineBitmap(tcl, Tk_GetUid("delete"),
  187.                   delete_bits, delete_width, delete_height);
  189.   Tk_DefineBitmap(tcl, Tk_GetUid("mark1"),
  190.                   mark1_bits, mark1_width, mark1_height);
  191.   Tk_DefineBitmap(tcl, Tk_GetUid("mark2"),
  192.                   mark2_bits, mark2_width, mark2_height);
  193.   Tk_DefineBitmap(tcl, Tk_GetUid("mark3"),
  194.                   mark3_bits, mark3_width, mark3_height);
  195.   Tk_DefineBitmap(tcl, Tk_GetUid("mark4"),
  196.                   mark4_bits, mark4_width, mark4_height);
  197.   Tk_DefineBitmap(tcl, Tk_GetUid("mark5"),
  198.                   mark5_bits, mark5_width, mark5_height);
  199.   Tk_DefineBitmap(tcl, Tk_GetUid("mark6"),
  200.                   mark6_bits, mark6_width, mark6_height);
  201.   Tk_DefineBitmap(tcl, Tk_GetUid("mark7"),
  202.                   mark7_bits, mark7_width, mark7_height);
  203.   Tk_DefineBitmap(tcl, Tk_GetUid("mark8"),
  204.                   mark8_bits, mark8_width, mark8_height);
  205.   Tk_DefineBitmap(tcl, Tk_GetUid("updir"),
  206.                   updir_bits, updir_width, updir_height);
  207. }
  209. void adios()
  210. {
  211. exit(0);
  212. }
  214. static int cmd_adios(ClientData , Tcl_Interp* , int , CONST84 char **)
  215. {
  216. adios();
  217. /*NOTREACHED*/
  218. return (0);
  219. }
  221. extern "C" char version[];
  223. static int cmd_version(ClientData , Tcl_Interp* tcl, int , CONST84 char **)
  224. {
  225. tcl->result = version;
  226. return (TCL_OK);
  227. }
  229. char* parse_assignment(char* cp)
  230. {
  231. cp = strchr(cp, '=');
  232. if (cp != 0) {
  233. *cp = 0;
  234. return (cp + 1);
  235. } else
  236. return ("true");
  237. }
  239. static void process_geometry(Tk_Window tk, char* geomArg)
  240. {
  241. /*
  242.  * Valid formats:
  243.  *   <width>x<height>[+-]<x>[+-]<y> or
  244.  *   <width>x<height> or
  245.  *   [+-]x[+-]y
  246.  */
  247. Tcl &tcl = Tcl::instance();
  248. // xxx: geomArg could have bogus stuff in it (security hole)
  249. // but nam doesn't run trusted, so no problem.
  250. tcl.evalf("wm geometry %s %s", Tk_PathName(tk), geomArg);
  251. // tclcl will report the error, if any.
  252. }
  254. // What is it used for???
  255. // extern "C" void Blt_Init(Tcl_Interp*);
  257. #ifdef WIN32
  258. EXTERN int platformInit(Tcl_Interp* interp);
  259. #endif
  261. /* TkPlatformInit was moved to tkUnixInit.c */
  263. #if defined(WIN32) && defined(STATIC_LIB)
  264. #include <tkWin.h>
  265. #include <stdlib.h>
  267. extern "C" {
  268. extern BOOL APIENTRY Tk_LibMain(HINSTANCE hInstance, DWORD reason, 
  269. LPVOID reserved);
  270. extern BOOL APIENTRY Tcl_LibMain(HINSTANCE hInstance, DWORD reason, 
  271.  LPVOID reserved);
  272. /* procedure to call before exiting to clean up */
  273. void static_exit(void) {
  274. HINSTANCE hInstance = Tk_GetHINSTANCE();
  275. Tcl_LibMain(hInstance, DLL_PROCESS_DETACH, NULL);
  276. Tk_LibMain(hInstance, DLL_PROCESS_DETACH, NULL);
  277. }
  278. }
  279. #endif /* defined(WIN32) && defined(STATIC_LIB) */
  281. #ifdef HAVE_LIBTCLDBG
  282. extern "C" {
  283. extern int Tcldbg_Init(Tcl_Interp *);   // hackorama
  284. }
  285. #endif
  287. void
  288. die(char *s)
  289. {
  290. fprintf(stderr, "%s", s);
  291. exit (1);
  292. }
  294. /*ARGSUSED*/
  295. int 
  296. main(int argc, char **argv) {
  297. const char* script = 0; // configurations to be loaded
  298. const char* optstr = "d:M:j:pG:r:u:X:t:i:P:g:N:c:S:f:asmk:zk:xp";
  299. TraceEvent te;  // Used to display parsetable
  300. ParseTable pt(&te);  // Used to display parsetable
  301. /*
  302.  * We have to initialize libtcl and libtk if we are under Win32
  303.  * and we are using static version of libtcl8.0p2 and libtk8.0p2.
  304.  * Because in those distributions, Sun only supports DLL, but 
  305.  * not static lib. They require initializations in DllMain().
  306.  * The Berkeley folks (tecklee) built static versions by 
  307.  * forcing calls to DllMain() inside WinMain(). Because nam 
  308.  * is built as a console app in win32, we have to do those 
  309.  * initializations here, in main().
  310.  */
  311. #if defined(WIN32) && defined(STATIC_LIB)
  312. HINSTANCE hInstance = GetModuleHandle(NULL);
  313. Tcl_LibMain(hInstance, DLL_PROCESS_ATTACH, NULL);
  314. Tk_LibMain(hInstance, DLL_PROCESS_ATTACH, NULL);
  315. atexit(static_exit);
  316. #endif
  318. /*
  319.  * Process display option here before the rest of the options
  320.  * because it's needed when creating the main application window.
  321.  */
  322. const char* display = disparg(argc, argv, optstr);
  324. // hold pointer to application name for send
  325. const char* appname = namearg(argc, argv, optstr);
  326. if (!appname) 
  327. appname = "nam";
  328. #ifdef notdef
  329. fprintf(stderr, "Application name is %sn", appname);
  330. #endif
  332. Tcl_Interp *interp = Tcl_CreateInterp();
  333. #if 0
  334. if (Tcl_Init(interp) == TCL_ERROR) {
  335. printf("%sn", interp->result);
  336. abort();
  337. }
  338. #endif
  340. #if TCL_MAJOR_VERSION < 8
  341.         Tcl_SetVar(interp, "tcl_library", "./lib/tcl7.6", TCL_GLOBAL_ONLY);
  342.         Tcl_SetVar(interp, "tk_library", "./lib/tk4.2", TCL_GLOBAL_ONLY);
  343. #else
  344.         Tcl_SetVar(interp, "tcl_library", "", TCL_GLOBAL_ONLY);
  345.         Tcl_SetVar(interp, "tk_library", "", TCL_GLOBAL_ONLY);
  346.                                                                                 
  347.         // this seems just a hack, should NOT have hard-coded library path!
  348.         // why there's no problem with old  TCL/TK?
  349.         // xuanc, 10/3/2003
  350.         //Tcl_SetVar(interp, "tcl_library", "./lib/tcl8.0", TCL_GLOBAL_ONLY);
  351.         //Tcl_SetVar(interp, "tk_library", "./lib/tk8.0", TCL_GLOBAL_ONLY);
  352. #endif
  354. if (Otcl_Init(interp) == TCL_ERROR) {
  355. printf("%sn", interp->result);
  356. abort();
  357. }
  358. #ifdef HAVE_LIBTCLDBG
  359. if (Tcldbg_Init(interp) == TCL_ERROR) {
  360. return TCL_ERROR;
  361. }
  362. #endif
  363. Tcl::init(interp, appname);
  364. Tcl& tcl = Tcl::instance();
  366. tcl.evalf(display? "set argv "-name %s -display %s"" :
  367.    "set argv "-name %s"", 
  368.   appname, display, appname);
  369. Tk_Window tk = 0;
  370. #ifdef WIN32
  371. Tcl_SetVar(interp, "tcl_library", ".", TCL_GLOBAL_ONLY);
  372. Tcl_SetVar(interp, "tk_library", ".", TCL_GLOBAL_ONLY);
  373. #endif
  374. if (Tk_Init(tcl.interp()) == TCL_OK)
  375. tk = Tk_MainWindow(tcl.interp());
  376. if (tk == 0) {
  377. fprintf(stderr, "nam: %sn", interp->result);
  378. exit(1);
  379. }
  380. tcl.tkmain(tk);
  382. extern EmbeddedTcl et_tk, et_nam;
  383. et_tk.load();
  384. et_nam.load();
  386. int op;
  387. int cacheSize = 100;
  388. char* graphInput = new char[256];
  389. char* graphInterval = new char[256];
  390. char* buf = new char[256];
  391. char* args = new char[256];
  392. graphInput[0] = graphInterval[0] = buf[0] = args[0] = 0;
  394. while ((op = getopt(argc, (char**)argv, (char*)optstr)) != -1) {
  395. switch (op) {
  397. default:
  398. usage();
  400. case 'd':
  401. case 'N':
  402. /* already handled before */
  403. break;
  405. /*XXX move to Tcl */
  406. #ifdef notyet
  407. case 'M':
  408. tcl.add_option("movie", optarg);
  409. break;
  412. case 'p':
  413. tcl.add_option("pause", "1");
  414. break;
  416. case 'G':
  417. tcl.add_option("granularity", optarg);
  418. break;
  420. case 'X': {
  421. const char* value = parse_assignment(optarg);
  422. tcl.add_option(optarg, value);
  423. }
  424. break;
  426. case 'P':
  427. /* Peer name, obsoleted */
  428. sprintf(buf, "p %s ", optarg);
  429. strcat(args, buf);
  430. break;
  432. case 't':
  433. /* Use tkgraph. Must supply tkgraph input filename. */
  434. sprintf(graphInput, "g %s ", optarg);
  435. strcat(args, graphInput);
  436. break;
  437. #endif
  439. case 'a': 
  440. /* 
  441.  * Create a whole new instance.
  442.  */
  443. strcat(args, "a 1 ");
  444. break;
  446. case 'c':
  447. cacheSize = atoi(optarg);
  448. break;
  450. case 'f':
  451. case 'u':
  452. script = optarg;
  453. /* Also pass it to OTcl */
  454. sprintf(buf, "f %s ", optarg);
  455. strcat(args, buf);
  456. break;
  458. case 'g':
  459. process_geometry(tk, optarg);
  460. break;
  462. case 'i':
  463. /*
  464.  * Interval value for graph updates: default is
  465.  * set by nam_init.
  466.  */
  467. sprintf(graphInterval, "i %s ", optarg);
  468. strcat(args, graphInterval);
  469. break;
  471. case 'j':
  472. /* Initial startup time */
  473. sprintf(buf, "j %s ", optarg);
  474. strcat(args, buf);
  475. break;
  477. case 'k': 
  478. /* Initial socket port number */
  479. sprintf(buf, "k %s ", optarg);
  480. strcat(args, buf);
  481. break;
  483. case 'm':
  484. /* Multiple traces */
  485. /* no longer needed, but option is still allowed */
  486. /* for compatibility reasons */
  487. break;
  489. case 'r': 
  490. /* Initial animation rate */
  491. sprintf(buf, "r %s ", optarg);
  492. strcat(args, buf);
  493. break;
  495. case 's':
  496. /* synchronize all windows together */
  497. strcat(args, "s 1 ");
  498. break;
  499. case 'z': 
  500. /* set nam validation test on */
  501. strcat(args, "z 1 ");
  502. break;
  504. #ifndef WIN32
  505. case 'S':
  506. XSynchronize(Tk_Display(tk), True);
  507. break;
  508. #endif
  509. case 'x':
  510. pt.printLatex(stdout); 
  511. exit(0);
  512. break;
  513. case 'p':
  514. pt.print(stdout); 
  515. exit(0);
  516. break;
  517. }
  518. }
  520. if (strlen(graphInterval) && !strlen(graphInput)) {
  521. fprintf(stderr, "nam: missing graph input filen");
  522. exit(1);
  523. }
  525. loadbitmaps(interp);
  527. char* tracename = NULL; /* trace file */
  529. /*
  530.  * Linux libc-5.3.12 has a bug where if no arguments are processed
  531.  * optind stays at zero.  Work around that problem here.
  532.  * The work-around seems harmless in other OSes so it's not ifdef'ed.
  533.  */
  534. if ((optind == -1) || (optind == 0))
  535. optind = 1;
  537. /*
  538.  * Make sure the base name of the trace file
  539.  * was specified.
  540.  */
  541. // if (argc - optind < 1)
  542. // usage();
  544. tracename = argv[optind];
  545. //XXX need to port this
  546. #ifndef WIN32
  547. if ((tracename != NULL) ) {
  548. if (access(tracename, R_OK) < 0) {
  549. tracename = new char[strlen(argv[optind]) + 4];
  550. sprintf(tracename, "%s.nam", argv[optind]);
  551. }
  552. }
  553. #endif
  555. tcl.CreateCommand("adios", cmd_adios);
  556. tcl.CreateCommand("version", cmd_version);
  558. #ifdef WIN32
  559. platformInit(interp);
  560. #endif
  562. // XXX inappropriate to do initialization in this way?
  563. FILE *fp = fopen(".nam.tcl", "r");
  564. if (fp != NULL) {
  565. fclose(fp);
  566. tcl.EvalFile(".nam.tcl");
  567. }
  569. // User-supplied configuration files
  570. // option '-u' and '-f' are merged together
  571. // Evaluation is moved into OTcl
  572. //  if (script != NULL) {
  573. //  fp = fopen(script, "r");
  574. //  if (fp != NULL) {
  575. //  fclose(fp);
  576. //  tcl.EvalFile(script);
  577. //  } else {
  578. //  fprintf(stderr, "No configuration file %sn",
  579. //  script);
  580. //  }
  581. //  }
  583. Paint::init();
  584. State::init(cacheSize);
  586. // -- Start TclDebugger
  587. //Tcldbg_Init(interp);
  589. tcl.eval("set nam_local_display 0");
  591. if (tracename != NULL) {
  592. while (tracename) {
  594. // Any backslash characters in the filename must be
  595. // escaped before being passed to Tcl.
  596. char * new_tracename =
  597. (char*)malloc(2 * strlen(tracename) + 1);
  598. char * temp_tracename = new_tracename;
  599. while (*tracename) {
  600. if (*tracename == '\')
  601. *(temp_tracename++) = '\';
  602. *(temp_tracename++) = *tracename;
  603. ++tracename;
  604. }
  605. *temp_tracename = 0;
  606. tracename= new_tracename;
  609.  // Jump to nam-lib.tcl
  610. tcl.evalf("nam_init %s %s", tracename, args);
  611. tracename = argv[++optind];
  612. }
  613. } else {
  614. // Jump to nam-lib.tcl
  615. tcl.evalf("nam_init "" %s", args);
  616. }
  617.  
  619. tcl.eval("set nam_local_display");
  620. if (strcmp(tcl.result(),"1") == 0) {
  621. Tk_MainLoop();
  622. }
  624. return (0);
  625. }