ns-nix.tcl

来自「it is very important」· TCL 代码 · 共 29 行

# Support for the NixVector routing ns
# George F. Riley, Georgia Tech, Spring 2000

Simulator instproc set-nix-routing { } {
    Simulator set nix-routing 1
    #Simulator set node_factory_ Node/NixNode
    Node enable-module "Nix"
}

Simulator instproc get-link-head { n1 n2 } {
    $self instvar link_
    return [$link_($n1:$n2) head]
}

Link instproc set-ipaddr { ipaddr netmask } {
# Fix this later...GFR
#    $self instvar ipaddr_ netmask_
#    set ipaddr_  [[Simulator instance] convert-ipaddr $ipaddr]
#    set netmask_ [[Simulator instance] convert-ipaddr $netmask]
#    # puts "Set ipaddr to [[Simulator instance] format-ipaddr $ipaddr_]"
#    # And set in the nodes ip address list
#    set sn [$self src]
#    $sn set-ipaddr $ipaddr_ $netmask_ $self
}

# NixNode instproc's
#Class Node/NixNode -superclass Node