[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Q] ns execution error



Dear Seniors

I wich to put some new instprocs at tcl/mcast/ns-mcast.tcl, DM.tcl, McastProto.tcl

I just copy a module instproc and paste in them with changing instproc name.
(I left the original module untouched)

After make depend;make in ~ns, compilation and linking was successful.

But when I execute ns with
> ns

it gives me following text ------     T.T

What shall I do ? 

----
ns: tcl error on eval of:




proc warn {msg} {
global warned_
if {![info exists warned_($msg)]} {
puts stderr "warning: $msg"
set warned_($msg) 1
}
}

if {[info commands debug] == ""} {
proc debug args {
warn {Script debugging disabled.  Reconfigure with --with-tcldebug, and recompil
}
}

proc assert args {
if [catch "expr $args" ret] {
set ret [eval $args]
}
if {! $ret} {
error "assertion failed: $args"
}
}

proc find-max list {
set max 0
foreach val $list {
if {$val > $max} {
set max $val
}
}
return $max
}

...
...
...
[And a lot more pages]

---------