global.tcl

这是vxworks 的图形界面开发软件windML2.0和另一个CP2可以构成完整的界面开发。

# SYNOPSIS:
# destDirDispGet 
#
# PARAMETERS: N/A
#
# RETURNS: the destination directory with slashes converted to Unix format.
#
# ERRORS: N/A
#

proc destDirDispGet {} {

    set destDir [destDirGet]
    if {$destDir != ""} {
        set destDir [dosToUnix $destDir]
    }
    return $destDir
}

##############################################################################
#
# destDirGet - returns the destination directory.
#
# This routine returns the destination directory location to install
# the files for the product(s).  If the destination directory has not
# been set, an empty string is returned.
#
# SYNOPSIS:
# destDirGet
#
# PARAMETERS: N/A
#
# RETURNS: the destination directory if it exists, else an empty string.
#
# ERRORS: N/A
#

proc destDirGet {} {
    global setupVals

    if {[info exists setupVals(destDir)]} {
        return $setupVals(destDir)
    } else {
        return ""
    }
}

##############################################################################
#
# destDirSet - sets the destination directory.  
#
# Sets the global variable setupVals(destDir) to the destination directory.
#
# SYNOPSIS:
# destDirSet val
#
# PARAMETERS:
# <val>
# Contains the destination directory.
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc destDirSet {val} {
    global setupVals

    set setupVals(destDir) $val
}

##############################################################################
#
# sysDirGet - returns the Windows system directory.
#
# This routine returns the Windows system directory.  If the system directory 
# has not been set, an empty string is returned.
#
# SYNOPSIS:
# sysDirGet
#
# PARAMETERS: N/A
#
# RETURNS: the system directory if it exists, else an empty string.
#
# ERRORS: N/A
#

proc sysDirGet {} {
    global setupVals

    if {[info exists setupVals(sysDir)]} {
        return $setupVals(sysDir)
    } else {
        return ""
    }
}

##############################################################################
#
# sysDirSet - sets the system directory.  
#
# Sets the global variable setupVals(sysDir) to the Windows system directory.
#
# SYNOPSIS:
# sysDirSet val
#
# PARAMETERS:
# <val>
# Contains the system directory.
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc sysDirSet {val} {
    global setupVals

    set setupVals(sysDir) $val
}

##############################################################################
#
# cdromBinDirGet - returns the host-specific CD-ROM executable files.
#
# This routine returns the CD-ROM directory containing the host-specific
# binary and executable files, for example env(CD_ROOT)/SUN4/SOLARIS2 or
# env(CD_ROOT)\X86\WIN32. If the bin directory has not been set, 
# an empty string is returned.  
#
# SYNOPSIS:
# cdromBinDirGet
#
# PARAMETERS: N/A
#
# RETURNS: the bin directory if it exists, else an empty string.
#
# ERRORS: N/A
#

proc cdromBinDirGet {} {
    global env

    if {[info exists env(CD_BIN)]} {
        return $env(CD_BIN)
    } else {
        return ""
    }
}

##############################################################################
#
# windHostTypeGet - returns the WIND_HOST_TYPE.
#
# This routine returns the WIND_HOST_TYPE set by the global variable 
# setupVals(windHostType).  If the WIND_HOST_TYPE has not been set, 
# an empty string is returned.  
#
# SYNOPSIS:
# windHostTypeGet
#
# PARAMETERS: N/A
#
# RETURNS: the WIND_HOST_TYPE if it exists, else an empty string.
#
# ERRORS: N/A
#

proc windHostTypeGet {} {
    global setupVals

    if {[info exists setupVals(windHostType)]} {
        return $setupVals(windHostType)
    } else {
        return ""
    }
}

##############################################################################
#
# windHostTypeSet - sets the WIND_HOST_TYPE.
#
# Sets the global variable setupVals(windHostType) to the WIND_HOST_TYPE.
#
# SYNOPSIS:
# windHostTypeSet val
#
# PARAMETERS:
# <val>
# Contains the WIND_HOST_TYPE [x86-win32 | sun4-solaris2 | parisc-hpux10].
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc windHostTypeSet {val} {
    global setupVals

    set setupVals(windHostType) $val
}

##############################################################################
#
# lastErrorGet - returns the last setup error.  
#
# This routine returns the last setup error set by the global variable
# setupVals(lastError).  If the last error has not been set, an empty string 
# is returned.  
#
# SYNOPSIS:
# lastErrorGet
# 
# PARAMETERS: N/A
#
# RETURNS: the last error if it exists, else an empty string.  
#
# ERRORS: N/A
#

proc lastErrorGet {} {
    global setupVals

    if {[info exists setupVals(lastError)]} {
        return $setupVals(lastError)
    } else {
        return ""
    }
}

##############################################################################
#
# lastErrorSet - sets the last setup error and increments the error count.
#
# Sets the global variable setupVals(lastError) to the last setup error
# and increments the value of setupVals(errorCount).
#
# SYNOPSIS:
# lastErrorSet val
#
# PARAMETERS:
# <val>
# Contains the last setup error.
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc lastErrorSet {val} {
    global setupVals

    set setupVals(lastError) $val
    incr setupVals(errorCount)
}

##############################################################################
#
# lastErrorMsgSet - sets the last setup error.
#
# Sets the global variable setupVals(lastError) to the last setup error.
# Note that unlike lastErrorSet the errorCount is not incremented.
#
# SYNOPSIS:
# lastErrorMsgSet val
#
# PARAMETERS:
# <val>
# Contains the last setup error.
# RETURNS: N/A
#
# ERRORS: N/A
#

proc lastErrorMsgSet {val} {
    global setupVals

    set setupVals(lastError) $val
}

##############################################################################
#
# errorCountGet - returns the error count.
#
# This routine returns the error count recorded by the global variable
# setupVals(errorCount).  
#
# SYNOPSIS:
# errorCountGet
# 
# PARAMETERS: N/A
#
# RETURNS: the error count.  
#
# ERRORS: N/A
#

proc errorCountGet {} {
    global setupVals

    if {[info exists setupVals(errorCount)]} {
        return $setupVals(errorCount)
    } else {
        return 0
    }
}

##############################################################################
#
# cdromDescGet - returns the CD-ROM description.
#
# This routine returns the CD-ROM description string set by the global
# variable setupVals(cdDesc).  If the description has not been set, an empty 
# string is returned.  
#
# SYNOPSIS:
# cdromDescGet
# 
# PARAMETERS: N/A
#
# RETURNS: the CD-ROM description string, else 0 if it does not exist.
#
# ERRORS: N/A
#

proc cdromDescGet {} {
    global setupVals

    if {[info exists setupVals(cdDesc)]} {
        return $setupVals(cdDesc)
    } else {
        return 0
    }
}

##############################################################################
#
# cdromDescSet - sets the CD-ROM description.
#
# Sets the global variable setupVals(cdDesc) to the CD-ROM description.
# 
# SYNOPSIS:
# cdromDescSet val
#
# PARAMETERS:
# <val>
# Contains the CD-ROM description.
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc cdromDescSet {val} {
    global setupVals 

    set setupVals(cdDesc) $val
}

##############################################################################
#
# arFlagsSet - sets the arflags for the current product index.
#
# Sets the global variable arFlags([currentIndexGet]) for the current
# product index.  
# 
# SYNOPSIS:
# arFlagsSet val
#
# PARAMETERS:
# <flags>
# Contains the arflags for the current product index.
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc arFlagsSet {flags} {
    global arFlags 

    set arFlags([currentIndexGet]) $flags
}

##############################################################################
#
# arFlagsGet - returns the arFlags given the product index number.
#
# This routine returns the arFlags for the specified index based on the
# value of the global array arFlags($index).  If no value has been set
# the default flags "-cru" are returned.
# 
#
# SYNOPSIS:
# cdromDescGet
# 
# PARAMETERS: 
# <index>
# The product index number.  
#
# RETURNS: the arflags for the specified product index, otherwise
#          the default "-cru" if no arflags have been specified.
#
# ERRORS: N/A
#

proc arFlagsGet {index} {
    global arFlags

    if ![info exists arFlags($index)] {
        set arFlags($index) "-cru"
    }
    return $arFlags($index)
}

##############################################################################
#
# currentIndexSet - sets the current product index.
#
# Sets the global variable currentIndex to the specified product
# index.  
# 
# SYNOPSIS:
# currentIndexSet index
#
# PARAMETERS:
# <index>
# The current product index.
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc currentIndexSet {index} {
    global currentIndex

    set currentIndex $index
}

##############################################################################
#
# currentIndexGet - returns the current product index.
#
# This routine returns the current product index set by the global 
# variable currentIndex.  If no value has been set an empty string is
# returned.
#
# SYNOPSIS:
# currentIndexGet
# 
# PARAMETERS: N/A
#
# RETURNS: the current product index if it exists, else an empty string.
#
# ERRORS: N/A
#

proc currentIndexGet {} {
    global currentIndex

    if {[info exists currentIndex]} {
        return $currentIndex
    } else {
        return ""
    }
}

##############################################################################
#