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 (31 years ago) by greg
Content type:	application/x-tcl
Branch:	MAIN
Log Message:	Initial revision
#	User	Rev	Content
1	greg	2.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			}