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