Check-in [32375279e7]
Overview
SHA1:32375279e7e72a50ba05782b7e6a4d9b507fa4ae
Date: 2017-09-12 19:42:41
User: rkeene
Comment:TUAPI 0.12
Timelines: family | ancestors | descendants | both | trunk | 0.12
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2017-09-12
19:43
[0115d84b2b] Leaf: Post-release version increment (user: rkeene, tags: trunk)
19:42
[32375279e7] TUAPI 0.12 (user: rkeene, tags: trunk, 0.12)
19:41
[bf927c2247] Added "adjtime" support (user: rkeene, tags: trunk)
Changes

Modified test.tcl from [b4d36d4339] to [b64003e320].

     1      1   #! /usr/bin/env tclsh
     2      2   
     3      3   puts [exec ./build-dyn.sh]
     4      4   
     5      5   load ./tuapi.so
     6      6   
     7         -puts [::tuapi::scan_and_load_kernel_modules]
            7  +#puts [::tuapi::scan_and_load_kernel_modules]
     8      8   
     9      9   #foreach x [list AS CORE CPU DATA FSIZE LOCKS MEMLOCK MSGQUEUE NICE NOFILE OFILE NPROC RSS RTPRIO RTTIME SIGPENDING STACK] {
    10     10   #	puts "\t\tcase [format 0x%xLU [::tuapi::internal::hash $x]]: /* $x */"
    11     11   #	puts "\t\t\tresource_id = RLIMIT_$x;"
    12     12   #	puts "\t\t\tbreak;"
    13     13   #}
    14     14   #exit
................................................................................
    35     35   	puts "\t[string trim $secondline]"
    36     36   	if {[info exists ifaceinfo(hwaddr)]} {
    37     37   		puts "\tether $ifaceinfo(hwaddr)"
    38     38   	}
    39     39   }
    40     40   
    41     41   #tuapi::syscall::route add 1.2.3.4 255.255.255.255
    42         -tuapi::syscall::ifconfig dummy0 address 1.2.3.4 netmask 255.255.255.0 flags [list UP RUNNING BROADCAST MULTICAST]
           42  +#tuapi::syscall::ifconfig dummy0 address 1.2.3.4 netmask 255.255.255.0 flags [list UP RUNNING BROADCAST MULTICAST]

Modified tuapi.c from [6f7b792413] to [5e4b9d11e4].

  3344   3344   	Tcl_ObjSetVar2(interp, Tcl_NewStringObj("::tuapi::const::HOST_NAME_MAX", -1), NULL, Tcl_NewWideIntObj(HOST_NAME_MAX), TCL_GLOBAL_ONLY);
  3345   3345   
  3346   3346   	/* Create high-level user functions */
  3347   3347   	Tcl_Eval(interp,
  3348   3348   #include "tuapi.tcl.h" 
  3349   3349   	);
  3350   3350   
  3351         -	Tcl_PkgProvide(interp, "tuapi", "0.11");
         3351  +	Tcl_PkgProvide(interp, "tuapi", "0.12");
  3352   3352   
  3353   3353   	return(TCL_OK);
  3354   3354   }