@@ -1,21 +1,21 @@ #! /usr/bin/env tclsh puts [exec ./build-dyn.sh] -load ./system.so +load ./tuapi.so -::system::syscall::tsmf_start_svc blah /bin/true /tmp/logfile [list PATH=/bin] / 022 root root 10 +::tuapi::syscall::tsmf_start_svc blah /bin/true /tmp/logfile [list PATH=/bin] / 022 0 0 10 -foreach iface [system::syscall::ifconfig] { +foreach iface [tuapi::syscall::ifconfig] { #lo0:2: flags=2001000849 mtu 8232 index 1 # inet 127.0.0.1 netmask ff000000 #aggr100003:1: flags=201000843 mtu 1500 index 2 # inet 140.194.100.149 netmask ffffff00 broadcast 140.194.100.255 unset -nocomplain ifaceinfo - array set ifaceinfo [system::syscall::ifconfig $iface] + array set ifaceinfo [tuapi::syscall::ifconfig $iface] set secondline "" foreach {label entry} [list inet address netmask netmask broadcast broadcast] { if {![info exists ifaceinfo($entry)]} { continue @@ -29,7 +29,7 @@ if {[info exists ifaceinfo(hwaddr)]} { puts "\tether $ifaceinfo(hwaddr)" } } -#system::syscall::route add 1.2.3.4 255.255.255.255 -system::syscall::ifconfig dummy0 address 1.2.3.4 netmask 255.255.255.0 flags [list UP RUNNING BROADCAST MULTICAST] +#tuapi::syscall::route add 1.2.3.4 255.255.255.255 +tuapi::syscall::ifconfig dummy0 address 1.2.3.4 netmask 255.255.255.0 flags [list UP RUNNING BROADCAST MULTICAST]