Index: test.tcl ================================================================== --- test.tcl +++ test.tcl @@ -2,11 +2,11 @@ puts [exec ./build-dyn.sh] load ./tuapi.so -puts [::tuapi::scan_and_load_kernel_modules] +#puts [::tuapi::scan_and_load_kernel_modules] #foreach x [list AS CORE CPU DATA FSIZE LOCKS MEMLOCK MSGQUEUE NICE NOFILE OFILE NPROC RSS RTPRIO RTTIME SIGPENDING STACK] { # puts "\t\tcase [format 0x%xLU [::tuapi::internal::hash $x]]: /* $x */" # puts "\t\t\tresource_id = RLIMIT_$x;" # puts "\t\t\tbreak;" @@ -37,6 +37,6 @@ puts "\tether $ifaceinfo(hwaddr)" } } #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] +#tuapi::syscall::ifconfig dummy0 address 1.2.3.4 netmask 255.255.255.0 flags [list UP RUNNING BROADCAST MULTICAST] Index: tuapi.c ================================================================== --- tuapi.c +++ tuapi.c @@ -3346,9 +3346,9 @@ /* Create high-level user functions */ Tcl_Eval(interp, #include "tuapi.tcl.h" ); - Tcl_PkgProvide(interp, "tuapi", "0.11"); + Tcl_PkgProvide(interp, "tuapi", "0.12"); return(TCL_OK); }