Re: [ns] Tcl-debug problem?

[Frank Chu <frankchu_ns@yahoo.com>]

Thanks, Sudhindra, Haobo and Kun-chan,

I found the last two lines of dumped code didn't lead
me to better guess of this problem.  However, I solved
it now.  I simply did "./configure -enable-debug
-with-tcldebug=mytcldebugdir" and recompilation to all
the modules (Tcl, Tk,OTcl, Tclcl, ns,etc.) and not
just ns.

--- Sudhindra Suresh Bengeri <ssbenger@unity.ncsu.edu>
wrote:
> Hi ,
> 
> I faced this problem, and had posted a similar
> problem, all I could infer
> was that due to some problem either in the OTcl code
> {remember all the
> files in ns/tcl/lib directory are used to generate a
> ns/gen/ns_tcl.cc}
> which is why you see so many lines of output. Or it
> could be some other
> problem with make. The output that you get may not
> be very useful in
> analysing the problem. (At least I didn't help me
> much).
> 
> If you have changed some Otcl files check it see if
> they are syntactically
> correct. 
> 
> It could also be a problem bcoz of Tcil-debug
> installation. I had found
> some problem with the configure script in the
> ns-allinone-2.1b6/ns-2.1b6
> directory. I had posted a note which you may find in
> the mailing list
> archives of Arp/May (in case you wanna have a look).
> 
> Hope it helps.
> 
> Regards,
> Sudhin. 
> 
> On Sat, 10 Jun 2000, Frank Chu wrote:
> 
> > 
> > I installed Tcl-debug in parallel to
> ns-2.1b7-current
> > directory and reconfigure ns with configure
> > -enable-debug -with-tcldebug=mytcldebugdir
> > and then I "make distclean" and "make"
> (i.e.recompile)
> > the whole ns-2.1b7-current/  (I didn't re-compile
> > other components like tcl, OTcl,etc. though).
> > 
> > When I run ns, it outputs a lot of Tcl scripts
> like
> > trash (showed below the first part).  Anyone has
> an
> > idea of what happened ?  Thanks!
> > 
> > ----------------------
> > ns: 
> > 
> > 
> > 
> > 
> > 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 recompile.}
> > }
> > }
> > 
> > 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
> > }
> > 
> > 
> > Class Simulator
> > 
> > 
> > 
> > proc checkout_executable {exe_var best alternate
> text}
> > {
> > global $exe_var
> > set $exe_var $best
> > if {![file executable $best]} {
> > puts stderr $text
> > set $exe_var $alternate
> > }
> > }
> > 
> > checkout_executable PERL /usr/dist/exe/perl5 perl
> "
> > When configured, ns found the right version of
> perl in
> > /usr/dist/exe/perl5
> > but it doesn't seem to be there anymore, so ns
> will
> > fall back on running the first perl in your path.
> The
> > wrong version of perl may break the test suites.
> > Reconfigure and rebuild ns if this is a problem. "
> > checkout_executable TCLSH /usr/dist/exe/tclsh
> tclsh "
> > When configured, ns found the right version of
> tclsh
> > in /usr/dist/exe/tclsh
> > but it doesn't seem to be there anymore, so ns
> will
> > fall back on running the first tclsh in your path.
> The
> > wrong version of tclsh may break the test suites.
> > Reconfigure and rebuild ns if this is a problem. "
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > Class AddrParams 
> > Class AllocAddrBits
> > 
> > Simulator instproc get-AllocAddrBits {prog} {
> > $self instvar allocAddr_
> > if ![info exists allocAddr_] {
> > set allocAddr_ [new AllocAddrBits]
> > } elseif ![string compare $prog "new"] {
> > set allocAddr_ [new AllocAddrBits]
> > }
> > return $allocAddr_
> > }
> > 
> > 
> > Simulator instproc set-address-format {opt args} {
> > set len [llength $args]
> > if {[string compare $opt "def"] == 0} {
> > $self set-address 32
> > set mcastshift [AddrParams set McastShift_]
> > Simulator set McastAddr_ [expr 1 << $mcastshift]
> > mrtObject expandaddr
> > } elseif {[string compare $opt "expanded"] == 0} {
> > puts "set-address-format expanded is obsoleted by
> > 32-bit addressing."
> > } elseif {[string compare $opt "hierarchical"] ==
> 0 &&
> > $len == 0} {
> > if [$self multicast?] {
> > $self set-hieraddress 3 9 11 11
> > } else {
> > $self set-hieraddress 3 10 11 11
> > }
> > } else {
> > if {[string compare $opt "hierarchical"] == 0 &&
> $len
> > > 0} {
> > eval $self set-hieraddress [lindex $args 0]
> [lrange
> > $args 1 [expr $len - 1]]
> > }
> > } 
> > }
> > 
> > 
> > Simulator instproc expand-port-field-bits nbits {
> > puts "Warning: Simulator::expand-port-field-bits
> is
> > obsolete.  Ports are 32 bits wide"
> > return
> > }
> > 
> > 
> > 
> > Simulator instproc set-address {node} {
> > set a [$self get-AllocAddrBits "new"]
> > $a set size_ [AllocAddrBits set DEFADDRSIZE_]
> > if {[expr $node] > [$a set size_]} {
> > $a set size_ [AllocAddrBits set MAXADDRSIZE_]
> > }
> > 
> 
=== message truncated ===


__________________________________________________
Do You Yahoo!?
Yahoo! Photos -- now, 100 FREE prints!
http://photos.yahoo.com