Tcl UNIX API
Check-in [8d15889864]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
Overview
Comment:Corrected example in test.tcl
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8d15889864f6e3b7f33c14838ff5994dd537d278
User & Date: rkeene on 2012-09-09 21:25:54
Other Links: manifest | tags
Context
2012-09-15
06:44
Updated to check return value of waitpid() check-in: 36f57cf79b user: rkeene tags: trunk
2012-09-09
21:25
Corrected example in test.tcl check-in: 8d15889864 user: rkeene tags: trunk
21:25
Updated to allow (and require) user to specify timeout check-in: 504add9c98 user: rkeene tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified test.tcl from [97fe9fd63b] to [7fb0b14e6d]. 

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 ./system.so

::system::syscall::tsmf_start_svc blah /bin/true /tmp/logfile [list PATH=/bin] / 022 root root
::system::syscall::tsmf_start_svc blah /bin/true /tmp/logfile [list PATH=/bin] / 022 root root 10

foreach iface [system::syscall::ifconfig] {
#lo0:2: flags=2001000849<UP,LOOPBACK,RUNNING,MULTICAST,IPv4,VIRTUAL> mtu 8232 index 1
#        inet 127.0.0.1 netmask ff000000 
#aggr100003:1: flags=201000843<UP,BROADCAST,RUNNING,MULTICAST,IPv4,CoS> mtu 1500 index 2
#        inet 140.194.100.149 netmask ffffff00 broadcast 140.194.100.255
︙

Powered by Fossil · RSS