filecopy.tcl

vxworks WindML 3.0补丁包3 (CP3)

# FILECOPY.TCL  - Setup procedures for implementing file-copying wizard page
#
# Copyright 1999-2003 Wind River Systems, Inc
#
# modification history
# --------------------
# 03i,29apr03,bjl  use default toolset (spr 87803), text rewording.
# 03h,27feb03,bjl  changed toolset to be extracted dynamically rather than
#                  using a hardcoded list.  
# 03g,03oct02,bjl  fixed skipping of slideshow bitmap (spr 82816).
# 03f,31may02,wmd  Remove the fadebmp option from the slideshow, Spr #78088.
# 03e,23may02,bjl  fixed postInstall to be executed per product rather than
#                  for all parts (spr 77976).  
# 03d,19nov01,bwd  Added checks to store a list of new archives
# 03c,30oct01,bwd  SPR 70033: added option "DO NOT OVERWRITE ANY NEWER FILES"
# 03b,17sep01,bwd  Fixed SPR 69435 and 69982
# 03a,12jun01,j_w  Modified for Tornado 2.2
# 02y,07nov00,wmd  Fix SPR # 35911, the retry command to remove a file doesn't
#                  work.
# 02x,25oct00,bwd  Initialize setupFiles variable. Do not skip installing
#                  mainwin-related files if no mw source. Fixed setupFiles
#                  selection process.
# 02w,16oct00,bwd  SPR 35262: fixed mw linking to first check if files exist
# 02v,25sep00,bwd  Skip linking mainwin-related files if running SETUP on
#                  Windows
# 02u,19sep00,bwd  Changed /usr/bin to /bin
# 02t,18sep00,j_w  Added libUpdate back for FCS. Added product index back in
#                  archListPut{}
# 02s,18sep00,bwd  LINUX: skip coping mainwin-related files under SETUP
#                  directory and creat links instead
# 02r,05sep00,bwd  Skip coping mainwin-related files under SETUP directory 
#                  and creat links instead
# 02q,26jun00,bwd  Added cases to skip copying non-native-host files under
#                  SETUP directory
# 02p,26jun00,bwd  Added CD description in setup.log
# 02o,22jun00,bwd  SPR 31613: write to setup.log the list of licensed products
#                  on this page to avoid any duplicate logging
# 02n,22jun00,bwd  SPR 32060: hide HELP button for this page
# 02m,09jun00,bwd  Added another host type check for x86-linux2
# 02l,09may00,bwd  Catch error when closing a file in procedure execute
# 02k,03feb00,bjl  always pageRemove libExtract for EAR-2.
# 02j,01feb00,bwd  Fixed error handling for test automation
# 02i,11jan00,bwd  Removed test automations from command line SETUP
# 02h,23nov99,clc  add text mode
# 02g,12nov99,bwd  Corrected typo
# 02f,25oct99,bjl  removed product index from object list so that related
#                  optional comp. objects are stored in one array.
# 02e,21oct99,bjl  removed parisc-hpux support.
# 02d,18oct99,bjl  added handling of library archives.
# 02c,18oct99,j_w  removed debug message
# 02b,14oct99,bjl  remove readonly attribute during setupCopy,
#                  set default bitmap for Unix if no billboard list.
# 02a,30Sep99,j_w  Modified for T3
# 01n,11aug99,j_w  Added messages
# 01m,26apr99,bjl  do not resize or reposition window for KDE.
# 01l,23apr99,bjl  check for KDE and FVWM.
# 01k,22apr99,wmd  Added fix for window resizing problem.
# 01j,22mar99,bjl  do not move window during resizing.
# 01i,19mar99,wmd  Output to a file any debug messages.
# 01h,15mar99,wmd  Need to make array multipleVersion global, spr #25678..
# 01g,15mar99,tcy  use setupWinVerGetEx() to obtain os version info
# 01f,12mar99,wmd  Add line indicating host os type to setup.log.
# 01e,04mar99,tcy  fixed problem with last checkin
# 01d,03mar99,tcy  save CD number in installCDnumber file for About-Box usage
# 01c,01feb99,tcy  invoke setExecutePermissions in filesCopy()
# 01b,28jan99,tcy  moved procs here from INSTALL.TCL
# 01a,26jan99,tcy  extracted from INSTW32.TCL.
#

#############################################################################
#
# pageCreate(filesCopy) - display file installation progress with meter and
#                         install files onto user's destination directory and
#                         back up files if necessary
#
# This procedure will display file installation progress with meter, install
# files onto user's destination directory and back up files if necessary
#
# SYNOPSIS
# .tS
# pageCreate(filesCopy)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc pageCreate(filesCopy) {} {
    global ctrlVals
    global setupVals
    global tornadoInstalled

    if { [isGUImode] } {
        if {[limitColors]} {

            # create the meter here, so it can be displayed in the
            # dialog window.  Do not display the billboard.
 
            set ctrlVals(numBbrd) 0
            meterCreate [strTableGet FILESCOPY_LABEL]

        } elseif {[removeBackground]} {
            resizeBbrdDialog
        }

        set w [dlgFrmCreate [strTableGet FILESCOPY_TITLE]]

        controlEnable $w.backButt 0
        controlEnable $w.nextButt 0
        set setupVals(cancel) 0

        if {![removeBackground]} {

            # create the billboards and meter to be placed in the background.

            set ctrlVals(bbrdList) [bbrdListGet .BMP]

            if {"$ctrlVals(bbrdList)" == ""} {
                set ctrlVals(bbrdList) \
                    [dosToUnix [cdFileNameGet \
                               [file join RESOURCE BITMAPS SETUP.BMP]]]
            }

            set ctrlVals(numBbrd) [llength $ctrlVals(bbrdList)]
            set ctrlVals(displayInt) [expr 100 / $ctrlVals(numBbrd)]
            set ctrlVals(bbrdElapse) $ctrlVals(displayInt)

            meterCreate [strTableGet FILESCOPY_LABEL]
        } 

        controlPropertySet $ctrlVals(meterWindow).$ctrlVals(meterWg) \
                            -background Blue -foreground Black

    } else { # TEXT MODE
        
        printPageTitle [strTableGet FILESCOPY_TITLE]
        puts [strTableGet FILESCOPY_LABEL]
        
        set setupVals(cancel) 0
    }

    setupCopy

    if {!$setupVals(cancel)} {

        # call filesCopy
        # for TEXT mode, if return value = 0, exit SETUP

        if { [filesCopy] == 0 } {
            if { ![isGUImode] } { return 0 }
        }

        backupFileQueueFlush
        lappend setupVals(commandQueue) [list backupFileQueueFlush]
    }
    
    if { [isGUImode] } {

        controlEnable $w.backButt 1
        controlEnable $w.nextButt 1

        # test automation

        if { $ctrlVals(useInputScript) } {
            autoSetupLog "Files copy page:"
            autoSetupLog "\tFiles copied onto $setupVals(destDir)"
        }

        nextCallback

    } else { # TEXT mode
        nextCallback
        return 0
    }
}

#############################################################################
#
# pageProcess(filesCopy) - process inputs from filesCopy page
#
# This procedure will process inputs from filesCopy page
#
# SYNOPSIS
# .tS
# pageProcess(filesCopy)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: 0 if successful
#          1 if cancel button is pushed
#
# ERRORS: N/A
#

proc pageProcess(filesCopy) {} {
    global setup_objects
    global ctrlVals
    global setupVals

    # This global variable is set in the tornado/postInstall.tcl

    global tornadoInstalled

    set retVal 0

    if {"$setupVals(cancel)" != "1"} {

        if {[array names setup_objects] == ""} {
            dbgputs "Remove libUpdate"
            pageRemove "libUpdate"
        }

        if { [isGUImode] } {
            meterDestroy $ctrlVals(meterWindow)
        }
        set retVal 1

    } else {
        if { [isGUImode] } {
            applicationExit
        }
    }

    return $retVal
}

#############################################################################
#
# resizeBbrdDialog - resize the billboard dialog box
#
# This procedure will resize the billboard dialog box according to window size
#
# SYNOPSIS
# resizeBbrdDialog
#
# .tE
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc resizeBbrdDialog {} {
    global ctrlVals
    global env

    set ctrlVals(restoredDialog) 0

    # calculate the billboard dimensions.

    set bbrdW $ctrlVals(bbrdW)
    set bbrdH $ctrlVals(bbrdH)

    set dimension [pixelsToDialogUnits $ctrlVals(mainWindow) \
                    [list $bbrdW $bbrdH]]
    set bbrdW [lindex $dimension 0]
    set bbrdH [lindex $dimension 1]

    # move and resize the dialog window so the billboards can fit.
    # save the original values of the dialog window first.

    set ctrlVals(dlg_orig_xpos) [lindex [windowPositionGet \
                                             $ctrlVals(mainWindow)] 0]
    set ctrlVals(dlg_orig_ypos) [lindex [windowPositionGet \
                                         $ctrlVals(mainWindow)] 1]
    set ctrlVals(dlg_orig_size) [windowSizeGet $ctrlVals(mainWindow)]
    set ctrlVals(dlg_orig_frm2_size) [controlSizeGet \
                                         $ctrlVals(mainWindow).frm2]
    set ctrlVals(dlg_orig_frm2_pos) [controlPositionGet \
                                         $ctrlVals(mainWindow).frm2]
    set ctrlVals(dlg_orig_back_pos) [controlPositionGet \
                                         $ctrlVals(mainWindow).backButt]
    set ctrlVals(dlg_orig_next_pos) [controlPositionGet \
                                         $ctrlVals(mainWindow).nextButt]
    set ctrlVals(dlg_orig_next_size) [controlSizeGet \
                                         $ctrlVals(mainWindow).nextButt]
    set ctrlVals(dlg_orig_cancel_pos) [controlPositionGet \
                                         $ctrlVals(mainWindow).cancelButt]

    set dlg_orig_w [lindex $ctrlVals(dlg_orig_size) 0]
    set right_border [expr $dlg_orig_w - 10]
    set dlg_orig_h [lindex $ctrlVals(dlg_orig_size) 1]
    set dlg_orig_cancel_w \
        [lindex [controlSizeGet $ctrlVals(mainWindow).cancelButt] 0]
    set dlg_orig_next_w \
        [lindex [controlSizeGet $ctrlVals(mainWindow).nextButt] 0]
    set dlg_orig_back_w \
        [lindex [controlSizeGet $ctrlVals(mainWindow).backButt] 0]

    # The dialog window will be reduced in width to just fit the billboard
    # width, and increased in height to account for the billboard.

    # subtract billboard width but add 20 for the edges

    set width_reduction [expr $dlg_orig_w - $bbrdW + 20]

    # now calculate the height increase
    # based on the the billboard ypos

    if {[info exists env(SETUP_USEKDE)]} {
        set billboard_ypos 10
    } else {
        set billboard_ypos 40
    }

    set billboard_bottom [expr $billboard_ypos + $bbrdH]
    set meterlabel_ypos [expr $billboard_bottom + 10]
    set meter_ypos [expr $meterlabel_ypos + 12]
    set frm2_ypos [expr $meter_ypos + 15]
    set button_ypos [expr $frm2_ypos + 7]

    # bottomedge is also the new dialog window height

    set bottomedge [expr $button_ypos + 19]

    set height_increase [expr $bottomedge - $dlg_orig_h]

    # do not reposition the window for KDE to avoid window manager
    # crash.

    if {![info exists env(SETUP_USEKDE)]} {
        windowPositionSet $ctrlVals(mainWindow) \
                          $ctrlVals(dlg_orig_xpos) \
                          $ctrlVals(dlg_orig_ypos)
    }
    
    # Hide the help button - no use during copying
    controlHide $ctrlVals(mainWindow).helpButt 1

    # Hide the Next button and substitute it with a "phony" button.
    # The Next button is set to be the default button, which causes
    # UITclSh to think that its size is larger due to the border.
    # This causes problems with the button appearance when moving the
    # button around and when restoring the original dialog window.
    # Restore the Next button in the "restoreOriginalDialog" procedure.

    controlHide $ctrlVals(mainWindow).nextButt 1
    controlCreate $ctrlVals(mainWindow) \
                [list button -name phonynextButt -title "&Next >" \
                             -callback nextCallback \
                              -x 197 -y 185 -w 50 -h 14]
    controlEnable $ctrlVals(mainWindow).phonynextButt 0

    controlFocusSet $ctrlVals(mainWindow).cancelButt
    controlHide $ctrlVals(mainWindow).bitmap 1

    # controls are specially set for KDE because we do not shrink
    # the window.

    if {[info exists env(SETUP_USEKDE)]} {
        controlSizeSet $ctrlVals(mainWindow).frm2 [expr $right_border - 10] 2
    } else {
        controlSizeSet $ctrlVals(mainWindow).frm2 $bbrdW 2
    }
    controlPositionSet $ctrlVals(mainWindow).frm2 10 $frm2_ypos

    if {[info exists env(SETUP_USEKDE)]} {
        set cancel_xpos [expr $right_border - $dlg_orig_cancel_w]
    } else {
        set cancel_xpos [expr 10 + $bbrdW - $dlg_orig_cancel_w]
    }
    set next_xpos [expr $cancel_xpos - 8 - $dlg_orig_next_w ]
    set back_xpos [expr $next_xpos - $dlg_orig_back_w]
    controlPositionSet $ctrlVals(mainWindow).backButt $back_xpos \
                                                      $button_ypos
    controlPositionSet $ctrlVals(mainWindow).phonynextButt $next_xpos \
                                                      $button_ypos
    controlPositionSet $ctrlVals(mainWindow).cancelButt $cancel_xpos \
                                                        $button_ypos

    # do not resize the window for KDE to avoid a window manager crash.

    if {![info exists env(SETUP_USEKDE)]} {
        set ctrlVals(mainWindowSize) [list [expr $bbrdW + 20] $bottomedge]
        windowSizeSet $ctrlVals(mainWindow) \
            [expr $bbrdW + 20] $bottomedge
    }


    set ctrlVals(bbrdList) [bbrdListGet .BMP]
    if {"$ctrlVals(bbrdList)" == ""} {
        set ctrlVals(bbrdList) \
            [dosToUnix [cdFileNameGet \
                       [file join RESOURCE BITMAPS SETUP.BMP]]]
    }
    set ctrlVals(numBbrd) [llength $ctrlVals(bbrdList)]
    set ctrlVals(displayInt) [expr 100 / $ctrlVals(numBbrd)]
    set ctrlVals(bbrdElapse) $ctrlVals(displayInt)

    # create the meter here, so it can be displayed in the
    # dialog window.

    meterCreate [strTableGet FILESCOPY_LABEL]
}

#############################################################################
#
# toolsetExtract - extracts the toolset list from the installed makefiles
#
# This procedure will extract the toolset list by searching for
# "TOOL = <tool>" lines in the make.*<tool>* files in target/h/tool/<tool>
# or target/h/make.  The string returned is the list of tools found
# separated by |, for example "sfgnule|sfgnu|gnu|diab".  Substrings must
# come later in the list, for example "gnu" must come after "sfgnule|sfgnu".  
# This list is used as a pattern matcher during file copying and archiving.
#
# SYNOPSIS
# .tS
# toolSetExtract
# .tE
#
# PARAMETERS: N/A
#