451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
|
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
|
+
-
+
+
+
+
|
if {[string match "/dev/*" $module]} {
return -code error "Unable to lookup device node module for $module"
}
set module [file join $modules_dir $module]
if {$options(call_insmod)} {
if {[catch {
::tuapi::syscall::insmod $module
::tuapi::syscall::insmod $module
]} {
continue
}
}
lappend retval $module
}
}
}
|
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
|
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
|
-
-
+
-
|
}
close $fd
}
set failed_to_load [list]
set able_to_load [list]
foreach module $modules {
if {[catch {
::tuapi::modprobe $module
if {[::tuapi::modprobe $module] == ""} {
}]} {
lappend failed_to_load $module
} else {
lappend able_to_load $module
}
}
return [list -failed $failed_to_load -loaded $able_to_load]
|