Discussion :

[DoSoo]

Bonsoir

J'essaie de comprendre cette erreur depuis un bout de temps en vain!

ns-test$ ns /home/rihab/ns-allinone-2.34/ns-2.34/OWNS/demos/owns_demo.tcl
type random, seed 99
nodes 7, scale 7, method pure-random
conn prob 0.4, beta 0.5, gamma 0.5
Creating WDMNodes...
Creating links 0...rihab@rihab-laptop:~/ns-test$ ns /home/rihab/ns-allinone-2.34/owns_demo.tcldemos/
type random, seed 99
nodes 7, scale 7, method pure-random
conn prob 0.4, beta 0.5, gamma 0.5
Creating WDMNodes...
Creating links 0...
(_o42 cmd line 1)
invoked from within
"_o42 cmd attach-nam-traces _o14 _o38 file3"
invoked from within
"catch "$self cmd $args" ret"
invoked from within
"if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error "error when calling class $cls: $args" $..."
(procedure "_o42" line 2)
(SplitObject unknown line 2)
invoked from within
"$queue attach-nam-traces $n1 $n2 $file"
(procedure "_o4" line 10)
(Simulator namtrace-queue line 10)
invoked from within
"$self namtrace-queue $n1 $n2 $trace"
(procedure "_o4" line 30)
(Simulator simplex-FiberLink line 30)
invoked from within
"_o4 simplex-FiberLink _o14 _o38 8Mb 70ms Null 8"
("eval" body line 1)
invoked from within
"eval $self simplex-FiberLink $n1 $n2 $bw $delay $linktype $nlambda $args"
(procedure "_o4" line 9)
(Simulator duplex-FiberLink line 9)
invoked from within
"$ns duplex-FiberLink $n([lindex $t 0]) $n([lindex $t 1]) $linkBW [lindex $t 2] Null $wvlens"
(procedure "create-topology" line 46)
invoked from within
"create-topology ns WDMNode SessionTrafficRcvr 8Mb 8 1 8 0.024 1 0.5 50"
("eval" body line 1)
invoked from within
"eval create-topology ns WDMNode SessionTrafficRcvr $val(link_bw) $val(link_wvlen_num) \
$val(wvlen_conv_factor) $val(wvlen_conv_dist) $val(wvl..."
(file "/home/rihab/ns-allinone-2.34/ns-2.34/OWNS/demos/owns_demo.tcl" line 177)

J'essaie de modifier le code d' OWNS, un module abandonné depuis 2001, pour l'installer avec ns-2.34 sur Ubuntu 9.10. J'ai cru que j'avais bien avancé jusque là mais bon.

Quelqu'un pourrait me dire de quoi s'agit il?

Et que fait l'instruction

[catch "$self cmd $args" ret

s'il vous plait?

Merci

[tcl-noob]

la commande

set res [catch { ... } ret]

execute le script passé en paramètre { ... } et positionne ret avec la dernière valeur de retour valide ou invalide du script.

res contient 0 si tout c'est bien passé
res contient 1 si une erreur est survernue; ret contient alors le message d'erreur.

http://www.tcl.tk/man/tcl8.5/TclCmd/catch.htm