| 1 |
# SCCSid "$SunId$ LBL" |
| 2 |
# |
| 3 |
# General utility routines |
| 4 |
# |
| 5 |
|
| 6 |
proc beep {} { # ring the bell |
| 7 |
puts -nonewline stderr "\a" |
| 8 |
} |
| 9 |
|
| 10 |
proc view_txt fn { # view a text file |
| 11 |
global env |
| 12 |
if [info exists env(EDITOR)] { |
| 13 |
if {[lsearch -exact {vi vedit view ex edit ed red} \ |
| 14 |
[file tail [lindex $env(EDITOR) 0]]] >= 0} { |
| 15 |
eval exec xterm +sb -e $env(EDITOR) $fn |
| 16 |
} else { |
| 17 |
eval exec $env(EDITOR) $fn |
| 18 |
} |
| 19 |
} else { |
| 20 |
foreach f $fn { |
| 21 |
exec xedit $f |
| 22 |
} |
| 23 |
} |
| 24 |
} |
| 25 |
|
| 26 |
proc cardval {var cvl} { # set variable to one of a set of values |
| 27 |
upvar $var v |
| 28 |
set tv [string toupper $v] |
| 29 |
foreach cv $cvl { |
| 30 |
if {[string first $tv [string toupper $cv]] == 0} { |
| 31 |
set v $cv |
| 32 |
return $cv |
| 33 |
} |
| 34 |
} |
| 35 |
return {} ; # this would seem to be an error |
| 36 |
} |
| 37 |
|
| 38 |
proc writevars {f vl} { # write variables to a file |
| 39 |
foreach v $vl { |
| 40 |
upvar $v myv |
| 41 |
if [catch {set il [array names myv]}] { |
| 42 |
puts $f "set $v [list $myv]" |
| 43 |
} else { |
| 44 |
foreach i $il { |
| 45 |
puts $f "set ${v}($i) [list $myv($i)]" |
| 46 |
} |
| 47 |
} |
| 48 |
} |
| 49 |
} |
