# global.tcl - global functions.## history# -------# 01d,10aug97,pdn  fixed instKeyGet() to trim off white space before return.# 01c,09feb97,pdn  added exitMsgSet/exitMsgGet functions# 01b,25nov96,sj   added functions for tempDir, arFlags, currentIndex# 01a,14nov96,pdn  writtenproc userNameGet {} {    global setupVals    if [info exists setupVals(userName)] {        return $setupVals(userName)    } {        return ""    }}proc userNameSet {val} {    global setupVals    set setupVals(userName) $val}proc companyNameGet {} {    global setupVals    if [info exists setupVals(companyName)] {        return $setupVals(companyName)    } {        return ""    }}proc companyNameSet {val} {    global setupVals    set setupVals(companyName) $val}proc instKeyGet {} {    global setupVals    if [info exists setupVals(instKey)] {        return [string trim $setupVals(instKey)]    } {        return ""    }}proc instKeySet {val} {    global setupVals    set setupVals(instKey) $val}proc cdromZipDirGet {} {    global setupVals    if [info exists setupVals(cdromZipDir)] {        return $setupVals(cdromZipDir)    } {        return ""    }}proc cdromZipDirSet {val} {    global setupVals    set setupVals(cdromZipDir) $val}proc cdromRootDirGet {} {    global env    if [info exists env(CD_ROOT)] {        return $env(CD_ROOT)    } {        return ""    }}proc uninstHomeDirGet {} {    global setupVals    if [info exists setupVals(uninstHomeDir)] {        return $setupVals(uninstHomeDir)    } {        return ""    }}proc uninstHomeDirSet {val} {    global setupVals    set setupVals(uninstHomeDir) $val}proc destDirGet {} {    global setupVals    if [info exists setupVals(destDir)] {        return $setupVals(destDir)    } {        return ""    }}proc destDirSet {val} {    global setupVals    set setupVals(destDir) $val}proc cdromBinDirGet {} {    global env    if [info exists env(CD_BIN)] {        return $env(CD_BIN)    } {        return ""    }}proc windHostTypeGet {} {    global setupVals    if [info exists setupVals(windHostType)] {        return $setupVals(windHostType)    } {        return ""    }}proc windHostTypeSet {val} {    global setupVals    set setupVals(windHostType) $val}proc licenseHomeDirGet {} {    global setupVals    if [info exists setupVals(licenseHomeDir)] {        return $setupVals(licenseHomeDir)    } {        return ""    }}proc licenseHomeDirSet {val} {    global setupVals    set setupVals(licenseHomeDir) $val}proc lastErrorGet {} {    global setupVals    if [info exists setupVals(lastError)] {        return $setupVals(lastError)    } {        return ""    }}proc lastErrorSet {val} {    global setupVals    set setupVals(lastError) $val    incr setupVals(errorCount)}proc lastErrorMsgSet {val} {    global setupVals    set setupVals(lastError) $val}proc errorCountGet {} {    global setupVals    if [info exists setupVals(errorCount)] {        return $setupVals(errorCount)    } {        return 0    }}proc cdromDescGet {} {    global setupVals    if [info exists setupVals(cdDesc)] {        return $setupVals(cdDesc)    } {        return 0    }}proc cdromDescSet {val} {    global setupVals     set setupVals(cdDesc) $val}proc arFlagsSet {flags} {    global arFlags 	set arFlags([currentIndexGet]) $flags}proc arFlagsGet {index} {    global arFlags    if ![info exists arFlags($index)] {        set arFlags($index) "-cru"    }	return $arFlags($index)}proc currentIndexSet {index} {	global currentIndex	set currentIndex $index}proc currentIndexGet {} {	global currentIndex    if [info exists currentIndex] {		return $currentIndex	} {        return ""    }}proc tempDirGet {} {	global env	if [info exists env(TMP)] {		return $env(TMP)	} {		error "Temp dir not set" 		}	}proc exitMsgSet {msg} {    global exitMessage    set exitMessage $msg}proc exitMsgGet {} {    global exitMessage    if ![info exists exitMessage] {        set exitMessage "Installation complete."    }    return $exitMessage}proc defGroupSet {group} {    global defGroup    set defGroup $group}proc defGroupGet {} {    global defGroup    if ![info exists defGroup] {        set defGroup ""    }    return $defGroup}proc instTypeSet {type} {    global instType    set instType $type}proc instTypeGet {} {    global instType    if ![info exists instType] {        set instType ""    }    return $instType}