[ns] Problem with compiling v2.1b8

["Frank O. Akujobi" <fakujobi@sce.carleton.ca>]

Hi all,
I successfully installed ns-v2.1b8 with validation tests etc... I edited
some .cc, .h, and .tcl files and tried to compile. I did a "make" from
the ns dir and it appeared to compiled okay showing all the .o files
etc. But after that when I did "ns" I got the following results and even
more. Pls help.

Thanks.

$self set-hash $hashbucket $src $dst $fid $slot
}

$cl proc no-slot slotnum {
}
$flowmon classifier $cl
return $flowmon
}


Simulator instproc attach-fmon {lnk fm { edrop 0 } } {
set isnoop [new SnoopQueue/In]
set osnoop [new SnoopQueue/Out]
set dsnoop [new SnoopQueue/Drop]
$lnk attach-monitors $isnoop $osnoop $dsnoop $fm
if { $edrop != 0 } {
set edsnoop [new SnoopQueue/EDrop]
$edsnoop set-monitor $fm
[$lnk queue] early-drop-target $edsnoop
$edsnoop target [$self set nullAgent_]
}
[$lnk queue] drop-target $dsnoop
}

Simulator instproc lossmodel {lossobj from to} {
set link [$self link $from $to]
$link errormodule $lossobj
}

Simulator instproc link-lossmodel {lossobj from to} {
set link [$self link $from $to]
$link insert-linkloss $lossobj
}

Simulator instproc bw_parse { bspec } {
if { [scan $bspec "%f%s" b unit] == 1 } {
set unit b
}
switch $unit {
b  { return $b }
bps  { return $b }
kb { return [expr $b*1000] }
Mb { return [expr $b*1000000] }
Gb { return [expr $b*1000000000] }
default {
puts "error: bw_parse: unknown unit `$unit'"
exit 1
}
}
}

Simulator instproc delay_parse { dspec } {
if { [scan $dspec "%f%s" b unit] == 1 } {
set unit s
}
switch $unit {
s  { return $b }
ms { return [expr $b*0.001] }
ns { return [expr $b*0.000001] }
default {
puts "error: bw_parse: unknown unit `$unit'"
exit 1
}
}
}

: invalid command name "Agent/ICMP"
    while executing
"Agent/ICMP instproc get-icmpa-of-node { node } {

set mask [AddrParams set PortMask_]
set shift [AddrParams set PortShift_]

set port 0
set addres..."
<fakujobi@medea> Simulator instproc create-trace { type file src dst {op
""} } {

Missing }.
<fakujobi@medea> $self instvar alltrace_
self: Undefined variable.
<fakujobi@medea> set p [new Trace/$type]
type: Undefined variable.
<fakujobi@medea> if [catch {$p set src_ [$src id]}] {
p: Undefined variable.
<fakujobi@medea> $p set src_ $src
p: Undefined variable.
<fakujobi@medea> }
}: Command not found.
<fakujobi@medea> if [catch {$p set dst_ [$dst id]}] {
p: Undefined variable.
<fakujobi@medea> $p set dst_ $dst
p: Undefined variable.
<fakujobi@medea> }
}: Command not found.
<fakujobi@medea> lappend alltrace_ $p
p: Undefined variable.
<fakujobi@medea> if {$file != ""} {
file: Undefined variable.
<fakujobi@medea> $p ${op}attach $file
p: Undefined variable.
<fakujobi@medea> }
}: Command not found.
<fakujobi@medea> return $p
p: Undefined variable.
<fakujobi@medea> }
}: Command not found.
<fakujobi@medea>
<fakujobi@medea> Simulator instproc namtrace-queue { n1 n2 {file ""} } {

Missing }.
<fakujobi@medea> $self instvar link_ namtraceAllFile_
self: Undefined variable.
<fakujobi@medea> if {$file == ""} {
file: Undefined variable.
<fakujobi@medea> if ![info exists namtraceAllFile_] return
[info: Event not found.
<fakujobi@medea> set file $namtraceAllFile_
namtraceAllFile_: Undefined variable.
<fakujobi@medea> }
}: Command not found.
<fakujobi@medea> $link_([$n1 id]:[$n2 id]) nam-trace $self $file
Badly placed ()'s.
<fakujobi@medea> }
}: Command not found.
<fakujobi@medea>
<fakujobi@medea> Simulator instproc trace-queue { n1 n2 {file ""} } {
Missing }.
<fakujobi@medea> $self instvar link_ traceAllFile_
self: Undefined variable.
<fakujobi@medea> if {$file == ""} {
file: Undefined variable.
<fakujobi@medea> if ![info exists traceAllFile_] return
[info: Event not found.
<fakujobi@medea> set file $traceAllFile_
traceAllFile_: Undefined variable.
<fakujobi@medea> }
}: Command not found.
<fakujobi@medea> $link_([$n1 id]:[$n2 id]) trace $self $file
Badly placed ()'s.
<fakujobi@medea> }
}: Command not found.
<fakujobi@medea>
<fakujobi@medea> Simulator instproc monitor-queue { n1 n2 qtrace {
sampleInterva
l 0.1 } } {
Simulator: Command not found.
<fakujobi@medea> $self instvar link_
self: Undefined variable.
<fakujobi@medea> return [$link_([$n1 id]:[$n2 id]) init-monitor $self
$qtrace $s
ampleInterval]
Badly placed ()'s.
<fakujobi@medea>


--
Frank Akujobi
Broadband Networks Laboratory
Systems and Computer Engineering
Carleton University
1125 Colonel By drive, Ottawa, ON
K1S 5B6, Canada

Office: 4448 ME