Check-in [72373a7088]
Overview
Comment:Updated to try to continue loading after an error occurs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:72373a7088ceb25c8d37567e5409c542af60ac63
User & Date: rkeene on 2014-12-19 00:01:58
Other Links: manifest | tags
Context
2014-12-20
06:47
Fixed typo causing tuapi loading to fail check-in: 77c233b2a4 user: rkeene tags: trunk
2014-12-19
00:01
Updated to try to continue loading after an error occurs check-in: 72373a7088 user: rkeene tags: trunk
2014-12-15
17:03
Corrected typo in previous commit check-in: eee347afac user: rkeene tags: trunk
Changes

Modified tuapi.tcl from [eee9236ec6] to [8e9a9635fe].

451
452
453
454
455
456
457

458



459
460
461
462
463
464
465
...
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
				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)} {

					::tuapi::syscall::insmod $module



				}

				lappend retval $module
			}
		}
	}

................................................................................
		}
		close $fd
	}

	set failed_to_load [list]
	set able_to_load [list]
	foreach module $modules {
		if {[catch {
			::tuapi::modprobe $module
		}]} {
			lappend failed_to_load $module
		} else {
			lappend able_to_load $module
		}
	}

	return [list -failed $failed_to_load -loaded $able_to_load]







>
|
>
>
>







 







<
|
<







451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
...
507
508
509
510
511
512
513

514

515
516
517
518
519
520
521
				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
					]} {
						continue
					}
				}

				lappend retval $module
			}
		}
	}

................................................................................
		}
		close $fd
	}

	set failed_to_load [list]
	set able_to_load [list]
	foreach module $modules {

		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]