[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]
---------