global.tcl

基于VxWorks的图形界面开发工具Zinc6.0的升级补丁。

# 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  written

proc 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
}