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 #include "parentnode.h"
00030
00031 class BcastAddressClassifier;
00032
00033 static class LanNodeClass : public TclClass {
00034 public:
00035 LanNodeClass() : TclClass("LanNode") {}
00036 TclObject* create(int, const char*const*) {
00037 return (new LanNode);
00038 }
00039 } class_lan_node;
00040
00041 static class AbsLanNodeClass : public TclClass {
00042 public:
00043 AbsLanNodeClass() : TclClass("AbsLanNode") {}
00044 TclObject* create(int, const char*const*) {
00045 return (new AbsLanNode);
00046 }
00047 } class_abslan_node;
00048
00049 static class BroadcastNodeClass : public TclClass {
00050 public:
00051 BroadcastNodeClass() : TclClass("Node/Broadcast") {}
00052 TclObject* create(int, const char*const*) {
00053 return (new BroadcastNode);
00054 }
00055 } class_broadcast_node;
00056
00057 int LanNode::command(int argc, const char*const* argv) {
00058 if (argc == 3) {
00059 if (strcmp(argv[1], "addr") == 0) {
00060 address_ = Address::instance().str2addr(argv[2]);
00061 return TCL_OK;
00062 } else if (strcmp(argv[1], "nodeid") == 0) {
00063 nodeid_ = atoi(argv[2]);
00064 return TCL_OK;
00065 }
00066 }
00067 return ParentNode::command(argc,argv);
00068 }
00069
00070 int AbsLanNode::command(int argc, const char*const* argv) {
00071 if (argc == 3) {
00072 if (strcmp(argv[1], "addr") == 0) {
00073 address_ = Address::instance().str2addr(argv[2]);
00074 return TCL_OK;
00075 } else if (strcmp(argv[1], "nodeid") == 0) {
00076 nodeid_ = Address::instance().str2addr(argv[2]);
00077 return TCL_OK;
00078 }
00079 }
00080 return ParentNode::command(argc,argv);
00081 }
00082
00083 int BroadcastNode::command(int argc, const char*const* argv) {
00084 Tcl& tcl = Tcl::instance();
00085 if (argc == 3) {
00086 if (strcmp(argv[1], "addr") == 0) {
00087 address_ = Address::instance().str2addr(argv[2]);
00088 return TCL_OK;
00089 }
00090 else if (strcmp(argv[1], "nodeid") == 0) {
00091 nodeid_ = Address::instance().str2addr(argv[2]);
00092 return TCL_OK;
00093 }
00094 else if (strcmp(argv[1], "attach-classifier") == 0) {
00095 classifier_ = (BcastAddressClassifier*)(TclObject::lookup(argv[2]));
00096 if (classifier_ == NULL) {
00097 tcl.add_errorf("Wrong object name %s",argv[2]);
00098 return TCL_ERROR;
00099 }
00100 return TCL_OK;
00101 }
00102 }
00103 return ParentNode::command(argc,argv);
00104 }
00105
00106 void BroadcastNode::add_route(char *dst, NsObject *target) {
00107 classifier_->do_install(dst,target);
00108 }
00109
00110 void BroadcastNode::delete_route(char *dst, NsObject *nullagent) {
00111 classifier_->do_install(dst, nullagent);
00112 }