dec_env.tcl.in

来自「Isolated Speech Recognition Process that」· IN 代码 · 共 60 行

#! @TCL@ -f
# file: dec_env.tcl
# 
# procedures to identify environment variables from input string and
# expand them from the system
#

# procedure to expand pathnames
#
proc expand_env_proc {instr} {

    # declare globals
    #
    global p
    global env
    global dir_sep
    global env_sep

    # the output string
    #
    set outstr ""

    # break the string into various sections
    #
    set instr [string trim $instr]
    set ind 0
    while {$ind >= 0} {
	
	# extract each subpath string
	#
	set ind [string first $dir_sep $instr]
	if {$ind < 0}  {
	    set var $instr
	} else {
	    set var [string range $instr 0 $ind]
	    set instr [string range $instr [expr $ind + 1] end]
	    set instr [string trim $instr]
	}
	set var [string trimright $var $dir_sep]

	# check if the subpath is an environment variable
	#
	if {[string index $var 0] == $env_sep} {
	    set var [string range $var 1 end]
	    set var "$env($var)"
	}
	set outstr [format "%s%s" $outstr $var]

	# add directory separator if required
	#
	if {$ind >= 0} {
	    set outstr [format "%s%s" $outstr $dir_sep]
	}
    }

    # return the expanded string
    #
    return $outstr
}