choice.tcl

tornado 2.2 for ppc.tcc-cp1-xscale. this rar-files can update 2.2 to 2.2.1 just for education resea

    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) "Install Product"

set strTable(INSTALLCHOICE_LIC_MGNT) \
                "Install license server (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 and configures a license server on the local host.  It is not\
	 part of standard product installation."

set strTable(INSTALLCHOICE_PROG_GROUP_DESC) \
        "Installs only the [getProdInfo name] tools icons to provide\
        access to a [getProdInfo name] installation on another host system."

set strTable(INSTALLCHOICE_GRP_1) "[getProdInfo name] Installation"
 
set strTable(INSTALLCHOICE_GRP_2) "License 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."