Tcl UNIX API
Check-in [32375279e7]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
Overview
Comment:TUAPI 0.12
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | 0.12
Files: files | file ages | folders
SHA1: 32375279e7e72a50ba05782b7e6a4d9b507fa4ae
User & Date: rkeene on 2017-09-12 19:42:41
Other Links: manifest | tags
Context
2017-09-12
19:43
Post-release version increment check-in: 0115d84b2b user: rkeene tags: trunk
19:42
TUAPI 0.12 check-in: 32375279e7 user: rkeene tags: 0.12, trunk
19:41
Added "adjtime" support check-in: bf927c2247 user: rkeene tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

1
2
3
4
5
6
7

8
9
10
11
12
13
14

1
2
3
4
5
6

7
8
9
10
11
12
13
14







-
+








#! /usr/bin/env tclsh

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;"
#}
#exit
︙
35
36
37
38
39
40
41
42


35
36
37
38
39
40
41

42








-
+

	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]
#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

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");
	Tcl_PkgProvide(interp, "tuapi", "0.12");

	return(TCL_OK);
}

Powered by Fossil · RSS