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
2
3
4
5
6
7
8
9
10
11
12
13
14
..
35
36
37
38
39
40
41
42
#! /usr/bin/env tclsh

puts [exec ./build-dyn.sh]

load ./tuapi.so

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;"
#}
#exit
................................................................................
	puts "\t[string trim $secondline]"
	if {[info exists ifaceinfo(hwaddr)]} {
		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]






|







 







|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
..
35
36
37
38
39
40
41
42
#! /usr/bin/env tclsh

puts [exec ./build-dyn.sh]

load ./tuapi.so

#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;"
#}
#exit
................................................................................
	puts "\t[string trim $secondline]"
	if {[info exists ifaceinfo(hwaddr)]} {
		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]

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

3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
	Tcl_ObjSetVar2(interp, Tcl_NewStringObj("::tuapi::const::HOST_NAME_MAX", -1), NULL, Tcl_NewWideIntObj(HOST_NAME_MAX), TCL_GLOBAL_ONLY);

	/* Create high-level user functions */
	Tcl_Eval(interp,
#include "tuapi.tcl.h" 
	);

	Tcl_PkgProvide(interp, "tuapi", "0.11");

	return(TCL_OK);
}







|



3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
	Tcl_ObjSetVar2(interp, Tcl_NewStringObj("::tuapi::const::HOST_NAME_MAX", -1), NULL, Tcl_NewWideIntObj(HOST_NAME_MAX), TCL_GLOBAL_ONLY);

	/* Create high-level user functions */
	Tcl_Eval(interp,
#include "tuapi.tcl.h" 
	);

	Tcl_PkgProvide(interp, "tuapi", "0.12");

	return(TCL_OK);
}