Overview
| Comment: | Added wildcard matching to modprobe |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8a0dedb7c5eabc0d228a0ceb7bcfbfd5 |
| User & Date: | rkeene on 2014-12-15 16:19:19 |
| Other Links: | manifest | tags |
Context
|
2014-12-15
| ||
| 16:55 | Updated to support scanning /sys/devices for modules to load check-in: 882f8b5c54 user: rkeene tags: trunk | |
| 16:19 | Added wildcard matching to modprobe check-in: 8a0dedb7c5 user: rkeene tags: trunk | |
|
2014-11-03
| ||
| 18:00 | Work towards a better ifconfig interface check-in: e28b7fa02d user: rkeene tags: trunk | |
Changes
Modified test.tcl from [6bb651550d] to [3abe608065].
1 2 3 4 5 6 | #! /usr/bin/env tclsh puts [exec ./build-dyn.sh] load ./tuapi.so | | > | > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
#! /usr/bin/env tclsh
puts [exec ./build-dyn.sh]
load ./tuapi.so
::tuapi::modprobe pci:v000014E4d0000164Csv00001028sd000001B3bc03sc00i00
#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
foreach iface [tuapi::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
|
| ︙ | ︙ |
Modified tuapi.tcl from [f5399ad231] to [f69d9c9167].
| ︙ | ︙ | |||
318 319 320 321 322 323 324 325 326 327 328 329 330 331 |
set aliases_file [file join $modules_dir modules.alias]
set fd [open $aliases_file]
::tuapi::helper::foreach_line $fd " " {
set alias [lindex $line 1]
set module [lindex $line 2]
set alias2module($alias) $module
}
close $fd
# Load dependencies
set deps_file [file join $modules_dir modules.dep]
set fd [open $deps_file]
::tuapi::helper::foreach_line $fd ":" {
| > > > | 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 |
set aliases_file [file join $modules_dir modules.alias]
set fd [open $aliases_file]
::tuapi::helper::foreach_line $fd " " {
set alias [lindex $line 1]
set module [lindex $line 2]
set alias2module($alias) $module
if {[string match {*\**} $alias]} {
set alias2module_wildcards($alias) $module
}
}
close $fd
# Load dependencies
set deps_file [file join $modules_dir modules.dep]
set fd [open $deps_file]
::tuapi::helper::foreach_line $fd ":" {
|
| ︙ | ︙ | |||
347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 |
close $fd
# Load modules
foreach modules $args {
foreach module $modules {
for {set try 0} {$try < 100} {incr try} {
if {![info exists alias2module($module)]} {
break
}
set module $alias2module($module)
}
if {[info exists module2deps($module)]} {
set load $module2deps($module)
} else {
| > > > > > > > > > > > > > > | 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 |
close $fd
# Load modules
foreach modules $args {
foreach module $modules {
for {set try 0} {$try < 100} {incr try} {
if {![info exists alias2module($module)]} {
# If no exact match found, process wildcard entries
set found_wildcard_match 0
foreach alias [array name alias2module_wildcards] {
if {[string match $alias $module]} {
set module $alias2module_wildcards($alias)
set found_wildcard_match 1
break
}
}
if {!$found_wildcard_match} {
break
}
}
set module $alias2module($module)
}
if {[info exists module2deps($module)]} {
set load $module2deps($module)
} else {
|
| ︙ | ︙ |