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
				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
			}
		}
	}








>
|
>
>
>







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
					]} {
						continue
					}
				}

				lappend retval $module
			}
		}
	}

503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
		}
		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]







<
|
<







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 {[::tuapi::modprobe $module] == ""} {

			lappend failed_to_load $module
		} else {
			lappend able_to_load $module
		}
	}

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