mirror of
git://git.savannah.gnu.org/guix.git
synced 2023-12-14 03:33:07 +01:00
bd9b15fb31
* gnu/packages/usb-modeswitch.scm: New file. * gnu/packages/patches/usb-modeswitch-accept-config-arg.patch: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add package. (dist_patch_DATA): Add patch. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
42 lines
1 KiB
Diff
42 lines
1 KiB
Diff
--- old/usb_modeswitch.tcl 1970-01-01 01:00:00.000000000 +0100
|
|
+++ usb_modeswitch.tcl 2019-06-12 08:39:42.140000000 +0200
|
|
@@ -41,7 +41,7 @@
|
|
global scsi usb config match device flags setup devdir loginit
|
|
|
|
set flags(config) ""
|
|
-Log "[ParseGlobalConfig]"
|
|
+Log "[ParseGlobalConfig $argv]"
|
|
|
|
if {$flags(stordelay) > 0} {
|
|
SetStorageDelay $flags(stordelay)
|
|
@@ -496,9 +496,21 @@
|
|
# end of proc {MatchDevice}
|
|
|
|
|
|
-proc {ParseGlobalConfig} {} {
|
|
+proc {ParseGlobalConfig} {argv} {
|
|
|
|
global flags
|
|
+
|
|
+set configFileParam ""
|
|
+for {set i 0} {$i < [llength $argv]} {incr i} {
|
|
+ switch -glob -- [set v [lindex $argv $i]] {
|
|
+ --config-file=* {
|
|
+ set configFileParam $v
|
|
+ }
|
|
+ }
|
|
+}
|
|
+if {$configFileParam != ""} {
|
|
+ set configFile [string range $configFileParam [string length "--config-file="] end]
|
|
+} else {
|
|
set configFile ""
|
|
set places [list /etc/usb_modeswitch.conf /etc/sysconfig/usb_modeswitch /etc/default/usb_modeswitch]
|
|
foreach cfg $places {
|
|
@@ -507,6 +519,7 @@
|
|
break
|
|
}
|
|
}
|
|
+}
|
|
if {$configFile == ""} {return}
|
|
|
|
set rc [open $configFile r]
|