choice.tcl

vxworks下MV5500的BSP支持包。是支持tornad221下的版本。

    if { [isGUImode] } {
        switch $setupVals(installChoice) {
            onFullInstall {
                instTypeSet "core"
                if {[isUnix]} {     
                    pageListAdd "unixFullInstPages"
                } else {
                    pageListAdd "winFullInstPages"
                }
                if { [isStandAlone] } { pageRemove projectInfo }              

                if { [string compare [instKeyGet] "none"] == 0} {
                    # the install key is "none" remove the project info page
                    catch {controlDestroy  $ctrlVals(mainWindow).noKeyText}
                }
            }
            onLicMgnt {
                if { ![catch {exec hostname} hostName] } {

                    if { $ctrlVals(useInputScript) } {
                        autoSetupLog "Proceed with LM Installation on host: $hostName"
                        onProceed
                    } else {

                        dialogCreate \
                            -name onLicMgnt_prompt \
                            -title "LM HOST CONFIRMATION" \
                            -width 200 -height 145 \
                            -init {
                                controlPropertySet onLicMgnt_prompt.host_name -bold 1;
                            } \
                            -controls \
                             [list [list label -name host_name \
                                               -title "Current host: $hostName" \
                                               -x 15 -y 10 -w 100 -h 20] \
                                   [list label -name msg_text \
                                               -title \
                                                "[strTableGet ONLICMGNT_HOST_CONFIRM]\
                                                 [strTableGet ONLICMGNT_HOST_PROMPT]" \
                                               -x 15 -y 30 -w 170 -h 90] \
                                   [list button -name proceed -title "Proceed" \
                                                -callback onProceed \
                                                -x 100 -y 120 -w 40 -h 15] \
                                   [list button -name exit -title "Exit" \
                                                -callback onExit \
                                                -x 150 -y 120 -w 30 -h 15] ]
                    }
                }
                set LMHelpPath "sysadmin"
            }
            onPrgGrpInstall {
                instTypeSet "icon"
                if { [isTornadoProduct] } {  set tornadoInstalled 1  }

                # Denote program group installation; used in proc regTornado()

                set setupVals(iconInstallation) 1
                                
                if {![isUnix]} {
                    pageListAdd "winPrgGrpPages"
                }
            }
        }
    } else { # TEXT mode
                
        switch $setupVals(installChoice) {
            onFullInstall {
                instTypeSet "core"
                if {[isUnix]} {
                    pageListAdd "unixFullInstPages"
                } else {
                    pageListAdd "winFullInstPages"
                }
            }
            onLicMgnt {
                if { ![catch {exec hostname} hostName] } {
                    puts "\nCurrent host: $hostName\n"
                    puts "[strTableGet ONLICMGNT_HOST_CONFIRM]\n"

                    set msg "\nSelect: 1 - To proceed with LM\
                             Installation on this host.\
                             \n        2 - To exit this SETUP sesstion."

                    while (1) {
                        switch -regexp -- [prompt $msg] {
                            "^-$" {  return [pageCreate(installChoice)]  }
                            "^1$" {  onProceed  ;  break     }
                            "^2$" {  onExit     ;  return 0  }
                        }
                    }
                }
            }
            default { 
                puts -nonewline "Error: $setupVals(installChoice)"
                puts " is not available in text mode\n"
                return 0
            }
        }
    }
    
    dbgputs "installChoice: $ctrlVals(pageList)"        

        # debug         
        set currPageIndex [lsearch $ctrlVals(pageList) $ctrlVals(currPage)]
        set nextPageIndex [expr $currPageIndex + 1]
        set nextPage [lindex $ctrlVals(pageList) $nextPageIndex]
        dbgputs "nextPage = $nextPage"

    return 1
}

#############################################################################
#
# onFullInstall - set up wizard pages when full installation option is selected
#
# This procedure is a callback which sets up wizard pages when full \
# installation is selected
#
# SYNOPSIS
# .tS
# onFullInstall
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onFullInstall {} {
    global setupVals

    set setupVals(installChoice) "onFullInstall"
}

#############################################################################
#
# onLicMgnt - set up wizard pages when License Management Installation 
#             option is selected
#
# This procedure is a callback which sets up wizard pages when LM Installation
# is selected
#
# SYNOPSIS
# .tS
# onLicMgnt 
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onLicMgnt {} {
    global setupVals

    set setupVals(installChoice) "onLicMgnt"
    set setupVals(lmInstType) "floating"
}


#############################################################################
#
# onPrgGrpInstall - set up wizard pages when program group option is selected
#
# This procedure is a callback which sets up wizard pages when program \
# group is selected
#
# SYNOPSIS
# .tS
# onPrgGrpInstall
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onPrgGrpInstall {} {
    global setupVals

    set setupVals(installChoice) "onPrgGrpInstall"
}


#############################################################################
#
# CALL BACK ROUTINE: for "On License Management Installation" prompt dialog
#
#############################################################################

proc onProceed {} { # user clicks "Proceed"
    global setupVals ctrlVals

    instTypeSet "license"
    set setupVals(lmInstType) "floating"
    pageListAdd "floatLicInst"

    if { [isGUImode] && !$ctrlVals(useInputScript) } {
        windowClose onLicMgnt_prompt  
    }
}

proc onExit {} { # user clicks "Exit"
    global setupVals

    if { [isGUImode] } {
        set setupVals(cancel) 1         
        quitCallback
        windowClose onLicMgnt_prompt
    }
    return 0
}


######################################################################
# Dialog Text Messages
######################################################################

set strTable(INSTALLCHOICE_TITLE) "Installation Options"

set strTable(INSTALLCHOICE_MSG_1) "Choose the type of installation:"

set strTable(INSTALLCHOICE_FULL_INSTALL) "Product installation (typical)"

set strTable(INSTALLCHOICE_LIC_MGNT) \
                "License management installation (system administrator)"

set strTable(INSTALLCHOICE_PROG_GROUP) "Shortcuts installation"

set strTable(INSTALLCHOICE_TOR_FULL_INSTALL_DESC) \
        "Installs the [getProdInfo name] products, tools, compilers, and other\
        optional components that you may have purchased."

set strTable(INSTALLCHOICE_FULL_INSTALL_DESC) \
        "Installs the [getProdInfo name] products and other\
        optional components that you may have purchased."

set strTable(INSTALLCHOICE_LIC_MGNT_DESC) \
        "Installs or updates a license management server on this host."

set strTable(INSTALLCHOICE_PROG_GROUP_DESC) \
        "Installs only the [getProdInfo name] tools icons for\
        access to an existing [getProdInfo name] installation on a remote server."

set strTable(INSTALLCHOICE_GRP_1) "[getProdInfo name] Installation"
 
set strTable(INSTALLCHOICE_GRP_2) "License Management Server Installation"

set strTable(ONLICMGNT_HOST_CONFIRM) \
    "SETUP will proceed to install and configure a license server on this\
     host. Please make sure that this is the right host to be configured.\
     If this is not the desired host, please exit this SETUP session and\
     run SETUP and License Management Server installation on the desired host."

set strTable(ONLICMGNT_HOST_PROMPT) \
     "\n\nTo proceed with License Management Server installation on this host,\
     click \"Proceed\". Otherwise, please click \"Exit\" to exit SETUP."