Check-in [72373a7088]
Overview
SHA1:72373a7088ceb25c8d37567e5409c542af60ac63
Date: 2014-12-19 00:01:58
User: rkeene
Comment:Updated to try to continue loading after an error occurs
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2014-12-20
06:47
[77c233b2a4] Fixed typo causing tuapi loading to fail (user: rkeene, tags: trunk)
2014-12-19
00:01
[72373a7088] Updated to try to continue loading after an error occurs (user: rkeene, tags: trunk)
2014-12-15
17:03
[eee347afac] Corrected typo in previous commit (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]