00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039 #include <stdlib.h>
00040
00041 #include "Connectivity.h"
00042 #include "ConnCommand.h"
00043 #include "Simulator.h"
00044 #include "Topology.h"
00045
00046 namespace dtnsim {
00047
00048 ConnCommand::ConnCommand()
00049 : TclCommand("conn")
00050 {
00051 bind_s("type", &Connectivity::type_, "Connectivity type.");
00052
00053 add_to_help("up", "Take connection up XXX");
00054 add_to_help("down", "Take connection down XXX");
00055 }
00056
00057 int
00058 ConnCommand::exec(int argc, const char** argv, Tcl_Interp* tclinterp)
00059 {
00060 (void)tclinterp;
00061
00062 if (argc < 3) {
00063 wrong_num_args(argc, argv, 2, 4, INT_MAX);
00064 return TCL_ERROR;
00065 }
00066
00067
00068 char* end;
00069 double time = strtod(argv[1], &end);
00070 if (*end != '\0') {
00071 resultf("time value '%s' invalid", argv[1]);
00072 return TCL_ERROR;
00073 }
00074
00075 const char* cmd = argv[2];
00076
00077 Connectivity* conn = Connectivity::instance();
00078
00079 if (!strcmp(cmd, "up") || !strcmp(cmd, "down")) {
00080
00081 if (argc < 5) {
00082 wrong_num_args(argc, argv, 2, 5, INT_MAX);
00083 return TCL_ERROR;
00084 }
00085
00086 const char* n1_name = argv[3];
00087 const char* n2_name = argv[4];
00088
00089 if (strcmp(n1_name, "*") != 0 &&
00090 Topology::find_node(n1_name) == NULL)
00091 {
00092 resultf("invalid node or wildcard '%s'", n1_name);
00093 return TCL_ERROR;
00094 }
00095
00096 if (strcmp(n2_name, "*") != 0 &&
00097 Topology::find_node(n2_name) == NULL)
00098 {
00099 resultf("invalid node or wildcard '%s'", n2_name);
00100 return TCL_ERROR;
00101 }
00102
00103 ConnState* s = new ConnState();
00104 const char* invalid;
00105 if (! s->parse_options(argc - 5, argv + 5, &invalid)) {
00106 resultf("invalid option '%s'", invalid);
00107 delete s;
00108 return TCL_ERROR;
00109 }
00110
00111 s->open_ = !strcmp(cmd, "up");
00112
00113 Simulator::post(
00114 new SimConnectivityEvent(time, conn, n1_name, n2_name, s));
00115
00116 return TCL_OK;
00117
00118 } else {
00119
00120 if (! conn->exec(argc - 3, argv + 3)) {
00121 resultf("conn: error handling command");
00122 return TCL_ERROR;
00123 }
00124
00125
00126 return TCL_OK;
00127 }
00128
00129 resultf("conn: unsupported subcommand %s", cmd);
00130 return TCL_ERROR;
00131 }
00132
00133
00134 }