#parse le fichier traff
set fp_traf [open "traff.traf" r]
set file_traf [read $fp_traf]
close $fp_traf

#creation des noeuds
set n_ -1
set data_traf [split $file_traf "\n"]
foreach line $data_traf {
    if { $n_ < [lindex $line 0] } {
        set n_ [lindex $line 0]
        set n($n_) [$ns node]
    }
}

#parse le fichier topo
set fp_topo [open "topo.top" r]
set file_topo [read $fp_topo]
close $fp_topo


set data [split $file_topo "\n"]
foreach line $data {
    #creation des liens

    $ns duplex-link $n([lindex $line 0]) $n([lindex $line 1]) [lindex $line 2]Gb/s [lindex $line 3]ms DropTail
    $ns queue-limit $n([lindex $line 0]) $n([lindex $line 1]) 30
    #position queue
    $ns duplex-link-op $n([lindex $line 0]) $n([lindex $line 1]) queuePos 0.1
    #puts "$n([lindex $line 0]) [lindex $line 1]"

}