From 75377b0df7efcedcb48110b47926bb77f10985e2 Mon Sep 17 00:00:00 2001
From: "Leigh B. Stoller" <stoller@flux.utah.edu>
Date: Mon, 8 Apr 2002 20:48:01 +0000
Subject: [PATCH] Hmm, guess I did not commit this change along with the
 documentation: Add "$ns rtproto Session" and change tge FAQ and tutorial as
 needed.

---
 tbsetup/ns2ir/sim.tcl.in | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/tbsetup/ns2ir/sim.tcl.in b/tbsetup/ns2ir/sim.tcl.in
index 398e5fefa..bed44100a 100644
--- a/tbsetup/ns2ir/sim.tcl.in
+++ b/tbsetup/ns2ir/sim.tcl.in
@@ -499,6 +499,24 @@ Simulator instproc at {time eventstring} {
   }
 }
 
+#
+# Routing control. Right now, we do not support much at all.
+#
+Simulator instproc rtproto {type args} {
+    var_import ::GLOBALS::default_ip_routing_type
+
+    if {$args != {}} {
+	punsup "rtproto: arguments ignored: $args"
+    }
+
+    if {($type == "Session") ||	($type == "ospf")} {
+	set default_ip_routing_type "ospf"
+    } else {
+	punsup "rtproto: unsupported routing protocol ignored: $type"
+	return
+    }
+}
+
 # unknown 
 # This is invoked whenever any method is called on the simulator
 # object that is not defined.  We interpret such a call to be a
-- 
GitLab