Questions on tutorial lesson 1

Hi,

FYI, I'm using NAB with ocaml 3.08.2.  I'm having some
problems with later part of tutorial lesson 1.

First problem::

my program and output:

# (Nodes.node originator)#originate_app_pkt
~dst:L3pkt.l3_bcast_addr;;
- : l4pkt:L4pkt.t -> unit = <fun>

tutorial lesson 1 program and output:

# (Nodes.node originator)#originate_app_pkt
~dst:L3pkt.l3_bcast_addr;;
0.062878 /node/397/Flood_Agent Received packet from
upper-layer packet for broadcast
- : unit = ()

Then there is no verbose output for
# (Sched.s())#run();;

eventhough the DEBUG mode has been set up beforehand:

# Log.set_log_level Log.LOG_DEBUG;;


Second problem::

my program and output:

#(Nodes.node originator)#originate_app_pkt
~dst:L3pkt.l3_bcast_addr;;
- : l4pkt:L4pkt.t -> unit = <fun>

tutorial lesson 1 program and output:

# (Nodes.node originator)#originate_app_pkt
~dst:L3pkt.l3_bcast_addr;;
0.0.092467 /node/397/Flood_Agent Received packet from
upper-layer packet for broadcast

when run:

# (Sched.s())#run();;

result: 

#  !pkt_count;;
- : int = 0

should be:
# !pkt_count;;
- : int = 1601

Running in batch mode::

Lastly, how to run object code file lesson1.cmo in
batch mode from the nab-top? I've compile lesson1.cmo
from lesson1.ml.

Thanks in advance.

Regards,
Shaiful
 



		
__________________________________ 
Do you Yahoo!? 
Yahoo! Mail - now with 250MB free storage. Learn more.
http://info.mail.yahoo.com/mail_250