src/util/util.tcl

# SCCSid "$SunId$ LBL"
#
# General utility routines
#

proc beep {} {          # ring the bell
        puts -nonewline stderr "\a"
}

proc view_txt fn {              # view a text file
        global env
        if [info exists env(EDITOR)] {
                eval exec xterm -e $env(EDITOR) $fn
        } else {
                foreach f $fn {
                        exec xedit $f
                }
        }
}

proc cardval {var cvl} {        # set variable to one of a set of values
        upvar $var v
        set tv [string toupper $v]
        foreach cv $cvl {
                if {[string first $tv [string toupper $cv]] == 0} {
                        set v $cv
                        return $cv
                }
        }
        return {} ;             # this would seem to be an error
}
Revision:	2.1
Committed:	Thu Oct 27 15:56:12 1994 UTC (29 years, 5 months ago) by greg
Content type:	application/x-tcl
Branch:	MAIN
Log Message:	Initial revision
#	Content
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	eval exec xterm -e $env(EDITOR) $fn
14	} else {
15	foreach f $fn {
16	exec xedit $f
17	}
18	}
19	}
20
21	proc cardval {var cvl} { # set variable to one of a set of values
22	upvar $var v
23	set tv [string toupper $v]
24	foreach cv $cvl {
25	if {[string first $tv [string toupper $cv]] == 0} {
26	set v $cv
27	return $cv
28	}
29	}
30	return {} ; # this would seem to be an error
31	}