a tcl script to output node IDs and links of NS2 network topology by d3.js JSON format.

gen-json.tcl

Simulator instproc gen-json {fp} {
        $self instvar link_
        puts $fp "{"
        puts $fp "\"links\":\["
        set prev ""
        foreach li [array names link_] {
                set nodes [split $li ":"]
                set src [lindex $nodes 0]
                set dst [lindex $nodes 1]
                if { $src < $dst } {
                        if { $prev != "" } {
                                puts $fp "$prev,"
                        }
                        set prev "{\"source\":$src,\"target\":$dst}"
                }
        }
        if { $prev != "" } {
                puts $fp "$prev"
        }

        puts $fp "],"
        puts $fp "\"nodes\":\["
        set prev ""
        foreach n [$self all-nodes-list] {
                set nid [$n id]
                if { $prev != "" } {
                        puts $fp "$prev,"
                }
                set prev "{\"id\":\"$nid\"}"
        }
        if { $prev != "" } {
                puts $fp "$prev"
        }
        puts $fp "]"
        puts $fp "}"
}