netmodel.cc

NS2网络仿真软件是目前最为流行的网络仿真模拟软件

		if (strcmp(argv[1],"savelayout")==0) {
		        save_layout(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"select-traffic")==0) {
		        strcpy(selectedTraffic_,argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"select-src")==0) {
		        selectedSrc_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"select-dst")==0) {
		        selectedDst_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"select-fid")==0) {
		        selectedFid_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"hide-traffic")==0) {
		        strcpy(hideTraffic_,argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"hide-src")==0) {
		        hideSrc_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"hide-dst")==0) {
		        hideDst_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"hide-fid")==0) {
		        hideFid_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"color-traffic")==0) {
		        resetf_ = 0 ;
		        strcpy(colorTraffic_,argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"color-src")==0) {
		        resetf_ = 0 ;
		        colorSrc_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"color-dst")==0) {
		        resetf_ = 0 ;
		        colorDst_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"color-fid")==0) {
		        resetf_ = 0 ;
		        colorFid_ = atoi(argv[2]);
			return (TCL_OK);
		}
		if (strcmp(argv[1],"select-color")==0) {
			Paint *paint = Paint::instance();
		        selectedColor_ = paint->lookup(argv[2], 1);
			if (selectedColor_ < 0) {
			  fprintf(stderr,"%s color: no such color: %s\n",
				  argv[0], argv[2]);
			  selectedColor_ = paint->lookup("black",1);
			  if (selectedColor_ < 0) {
			    tcl.resultf("%s no black! - bailing");
			    return (TCL_ERROR);
			  }
			}
			return (TCL_OK);
    }
		
	  if (strcmp(argv[1], "node") == 0) {

//	 else if (argc == 3 && strcmp(argv[1], "node") == 0)
		/*
		 * <net> node <name> <shape> <color> <addr> [<size>]
		 * Create a node using the specified name
		 * and the default size and insert it into this
		 * NetModel's list of drawables.
		 */
		//Node* n = addNode(argc, argv);
      
      char * line = new char[strlen(argv[2])];
      strncpy(line, argv[2],strlen(argv[2]));
      parsetable_.parseLine(line);
  		Node * node = addNode(traceevent_);
      delete line;
  		if (node) {
  			return (TCL_OK);
  		} else {
  			tcl.resultf("Unable to create Node %s.", argv[2]);
  			return (TCL_ERROR);
  		}
    }


	} else if (argc >= 4 && strcmp(argv[1], "agent") == 0) {
		// Create a new agent
    
		/*
		 * <net> agent <label> <role> <node> <flowcolor> <winInit> 
		 *             <win> <maxcwnd>
		 *             <tracevar> <start> <producemore> <stop>
		 * <net> agent <label> <role> <node> <flowcolor> <packetSize>
		 *       <interval> <start> <stop>
		 */
		int node = atoi(argv[4]);
		int partner_num;
		Node *n = lookupNode(node);
    
		if (n == 0) {
			tcl.resultf("Node %d doesn't exist.", node);
			return (TCL_ERROR);
		}

		Agent *a = new BoxAgent((char *)argv[2], n->size());
		if (a == 0) {
			tcl.resultf("Cannot create Agent %s exist on Node %d",
				    argv[2], node);
			return (TCL_ERROR);
		}

		placeAgent(a, n);
		a->node_ = n;
		n->add_agent(a);
    
		a->AgentRole_ = (atoi(argv[3]));

		if (a->AgentRole_ == 20) {
			a->setNumber(atoi(argv[5]));
			partner_num = (atoi(argv[6]));

			Agent *partner = lookupAgent(partner_num);
			if (partner) {
				a->AgentPartner_ = partner;
				partner->AgentPartner_ = a;
			}

		} else if ((a->AgentRole_ == 10) && 
			   (strcmp(argv[2], "CBR") == 0)) {
			if (strcmp(argv[5],"(null)")!=0)
				a->flowcolor((char *)argv[5]);
			a->packetSize(atoi(argv[6]));
			a->interval(atoi(argv[7]));
			a->startAt(atof(argv[8]));
			a->stopAt(atof(argv[9]));
			a->setNumber(atoi(argv[10]));
			partner_num = (atoi(argv[11]));

			Agent *partner = lookupAgent(partner_num);
			if (partner) {
				a->AgentPartner_ = partner;
				partner->AgentPartner_ = a;
			}

		} else if (a->AgentRole_ != 0) {
			if (strcmp(argv[5],"(null)")!=0)
				a->flowcolor((char *)argv[5]);
			a->windowInit(atoi(argv[6]));
			a->window(atoi(argv[7]));
			a->maxcwnd(atoi(argv[8]));
			a->tracevar((char *)argv[9]);
			a->startAt(atof(argv[10]));
			a->produce(atoi(argv[11]));
			a->stopAt(atof(argv[12]));
			a->setNumber(atoi(argv[13]));
			partner_num = (atoi(argv[14]));

			Agent *partner = lookupAgent(partner_num);
			if (partner) {
				a->AgentPartner_ = partner;
				partner->AgentPartner_ = a;
			}
		}
		a->Animation::insert(&animations_);
		return (TCL_OK);

	} else if (argc == 4) {
		if (strcmp(argv[1], "new_monitor_agent") == 0) {
			/* 
			 * <net> new_monitor_agent <node_id> <agent_name>
			 */
			int node = atoi(argv[2]);
			Node *n = lookupNode(node);
			if (n == 0) {
				tcl.resultf("Node %d doesn't exist.", node);
				return (TCL_ERROR);
			}
			Agent *a = n->find_agent((char *)argv[3]);
			if (a == 0) {
				tcl.resultf("Agent %s not exist at node %d",
					    argv[3], node);
				return (TCL_ERROR);
			}
			tcl.resultf("%d", add_monitor(a));
			return (TCL_OK);
		}

		if (strcmp(argv[1], "color") == 0) {
			/*
			 * <net> color <packetClass> <colorName>
			 * Display packets of the specified class using
			 * the specified color.
			 */
			int c = atoi(argv[2]);
//  			if ((unsigned int)c > 1024) {
//  				tcl.resultf("%s color: class %d out of range",
//  					    argv[0], c);
//  				return (TCL_ERROR);
//  			}
			// Convert this color index to [0,255], so that 
			// it matches correctly with packet flow ids.
			Paint *paint = Paint::instance();
			if (c > nclass_) {
				int n, i;
				for (n = nclass_; n < c; n <<= 1);
				int *p = new int[n];
				for (i = 0; i < nclass_; ++i)
					p[i] = paint_[i];
				delete paint_;
				paint_ = p;
				nclass_ = n;
				paintMask_ = nclass_ - 1;
				int pno = paint->thin();
				for (; i < n; ++i)
					paint_[i] = pno;
			}
			int pno = paint->lookup(argv[3], 1);
			if (pno < 0) {
			  fprintf(stderr,"%s color: no such color: %s\n",
				  argv[0], argv[3]);
			  pno = paint->lookup("black",1);
			  if (pno < 0) {
			    tcl.resultf("%s no black! - bailing");
			    return (TCL_ERROR);
			  }
			}
			paint_[c] = pno;
			oldpaint_[c] = pno;

			return (TCL_OK);
		}
    
		if (strcmp(argv[1], "ncolor") == 0) {
			/*
			 * <net> ncolor <node> <colorName>
			 * set color of node to the specified color.
			 */
			Paint *paint = Paint::instance();
			Node *n = lookupNode(atoi(argv[2]));
			if (n == NULL) {
				fprintf(stderr, "No such node %s\n", argv[2]);
				exit(1);
			}
			int pno = paint->lookup(argv[3], 3);
			if (pno < 0) {
			  fprintf(stderr,"%s ncolor: no such color: %s\n",
				  argv[0], argv[3]);
			  int pno = paint->lookup("black",1);
			  if (pno < 0) {
			    tcl.resultf("%s no black! - bailing");
			    return (TCL_ERROR);
			  }
			}
			n->paint(pno);
			return (TCL_OK);
		}



      
  // ----- 5 tcl arguments ------
	} else if (argc == 5) {
		if (strcmp(argv[1], "select-pkt") == 0) {
			selectPkt(atoi(argv[2]), atoi(argv[3]), atoi(argv[4]));
			return(TCL_OK);
		}


		if (strcmp(argv[1], "lookupColorName") == 0) {
			/*
			 * <net> lookupColorName red green blue
			 * get color name from its rgb value 
			 */   
			 Paint *paint = Paint::instance();
			 int r = atoi(argv[2]);
			 int g = atoi(argv[3]);
			 int b = atoi(argv[4]);
			 tcl.resultf("%s",paint->lookupName(r,g,b));
			 return(TCL_OK);
		}


		if (strcmp(argv[1], "queue") == 0) {
			/*
			 * <net> queue <src> <dst> <angle>
			 * Create a queue for the edge from 'src' to 'dst'.
			 * Add it to this NetModel's queue list.
			 * Display the queue at the specified angle from
			 * the edge to which it belongs.
			 */
			int src = atoi(argv[2]);
			int dst = atoi(argv[3]);
			EdgeHashNode *h = lookupEdgeHashNode(src, dst);
			if (h == 0) {
				tcl.resultf("%s queue: no such edge (%d,%d)",
					    argv[0], src, dst);
				return (TCL_ERROR);
			}
			/* XXX can we assume no duplicate queues? */
			double angle = atof(argv[4]);
			Edge *e = h->edge;
			angle += e->angle();
			Queue *q = new Queue(angle);
			h->queue = q;
			q->next_ = queues_;
			queues_ = q;
			return (TCL_OK);
		}


		if (strcmp(argv[1], "ecolor") == 0) {
			/*
			 * <net> ecolor <src> <dst> <colorName>
			 * set color of edge to the specified color.
			 */
			Paint *paint = Paint::instance();
			EdgeHashNode* h = lookupEdgeHashNode(atoi(argv[2]), atoi(argv[3]));
			if (h == 0) {
				tcl.resultf("%s ecolor: no such edge (%s,%s)",
					    argv[0], argv[2], argv[3]);
				return (TCL_ERROR);
			}
			int pno = paint->lookup(argv[4], 3);
			if (pno < 0) {
			  fprintf(stderr,"%s ncolor: no such color: %s\n",
				  argv[0], argv[3]);
			  pno = paint->lookup("black",1);
			  if (pno < 0) {
			    tcl.resultf("%s no black! - bailing");
			    return (TCL_ERROR);
			  }
			}
			h->edge->paint(pno);
			return (TCL_OK);
		}


		if (strcmp(argv[1], "edlabel") == 0) {
			/*
			 * <net> edlabel <src> <dst> <colorName>
			 * set label of edge.
			 */
			EdgeHashNode* h = lookupEdgeHashNode(atoi(argv[2]), 
						     atoi(argv[3]));
			if (h == 0) {
				tcl.resultf("%s ecolor: no such edge (%s,%s)",
					    argv[0], argv[2], argv[3]);
				return (TCL_ERROR);
			}
			if (strcmp(argv[4],"(null)")!=0) {
				h->edge->dlabel((char *)argv[4]);
				// XXX Should never set edge size outside
				// scale_estimate()!!!!
//  				h->edge->size(25.0);
			}
			return (TCL_OK);
		}


		if (strcmp(argv[1], "lanlink") == 0) {
			/*
			 * <net> lanlink <src> <lan> <angle>
			 * Create a link/edge between the specified source
			 * and a lan.
			 */
			Node * src = lookupNode(atoi(argv[2]));
			Lan * lan = lookupLan(atoi(argv[3]));

			if (lan == NULL) {
				fprintf(stderr, "Error: lan %s does not exist.\n", argv[3]);
				exit(1);
			}

			double angle = atof(argv[4]);
			double bw = lan->bw();
			double delay = (lan->delay())/2.0;

			Edge *e1 = new Edge(src, lan->virtual_node(), packet_size_, bw, delay, 0, angle+1);
			e1->init_color("black");
			enterEdge(e1);

			e1->Animation::insert(&drawables_);
			src->add_link(e1);

			Edge *e2 = new Edge(lan->virtual_node(), src, packet_size_, bw, delay, 0, angle);
			e2->init_color("black");
			enterEdge(e2);
			e2->Animation::insert(&drawables_);
			lan->add_link(e2);
			return (TCL_OK);
		}


		if (strcmp(argv[1], "set_node_tclscript") == 0) {
			//------------------------------------------------------------------
			// $netModel set_node_tclscript $node_id $button_label $tcl_command
			//   - from tcl/node.tcl
			//          Animator instproc node_tclscript
			//------------------------------------------------------------------
			// Sets the tcl_script for a node to be run when the
			// start_info exec button is pressed.
				Node * node = lookupNode(atoi(argv[2]));
				if (node) {
					// The following strings are deleted by the node when it 
					// changes to another script or it is deleted
					node->setTclScript(argv[3], argv[4]);
					return TCL_OK;
				} else {
					return TCL_ERROR;
				}
			}



	} else if (argc == 6) {
		if (strcmp(argv[1], "lan") == 0) {
			/*
			 * <net> lan <name> <bandwidth> <delay> <angle>
			 * Create a link/edge between the specified source
			 * and destination. Add it to this NetModel's list
			 * of drawables and to the source's list of links.
			 */
			double bw = atof(argv[3]);
			double delay = atof(argv[4]);
			double angle = atof(argv[5]);

			Lan *l = new Lan(argv[2], this, packet_size_, bw, delay, angle);
			l->next_ = lans_;
			lans_ = l;
			l->insert(&drawables_);

			Node *n = l->virtual_node();
			n->next_ = nodes_;

			nodes_ = n;
			return (TCL_OK);
		}

	} else if (argc == 8) {
		if (strcmp(argv[1], "link") == 0) {
			/*
			 * <net> link <src> <dst> <bandwidth> <delay> <angle>
			 * Create a link/edge between the specified source
			 * and destination. Add it to this NetModel's list
			 * of drawables and to the source's list of links.
			 */
			Edge * edge = addEdge(argc,argv)