# AUTORUN.TCL - AutoRun for the CD-ROM to install products## Copyright 1996-1999, Wind River Systems, Inc.## modification History# --------------------# 03b,05mar02,bwd  Modified SETUP to be non-tornado centric# 03a,12jun01,j_w  Modified for Tornado 2.2# 02e,02nov00,j_w  name change - Tornado AE# 02d,09jun00,bwd  Added another host type check for x86-linux2# 02c,21oct99,bjl  removed parisc-hpux support, added passing of command#                  line arguments for Windows.# 02b,23apr99,wmd  make check for SETUP_DEBUG to be > 0.# 02a,28jan99,bjl  removed preview and slide show code, added headers and#                  edited for coding conventions.# 01n,23nov98,tcy+ remove trailing slash for INSTW32.TCL CD root argument.#             bjl# 01m,13nov98,bjl  bypass AutoRun and directly run Setup.# 01l,12nov98,bjl  changed Add Icons to Remote Icons, hide buttons instead#                  of disabling if .TXT files do not exist.# 01k,11nov98,bjl  use /bin/more when EDITOR is not set (spr #23166). Removed#                  -w option from /bin/more for parisc-hpux10.# 01i,10nov98,bjl  placed buttons closer together to allow for large#                  font setting in Windows (spr #23004).# 01h,30oct98,bjl  use 16 color bitmap if color manager is not running.# 01g,28oct98,bjl  dos2unix .TXT files before opening for Unix, run Setup#                  automatically if using test answer file.# 01f,27oct98,bjl  added code for Unix, removed loading of setuptcl.dll.# 01e,26oct98,bjl  changed button callbacks to run UITclSh instead of#                  setup.exe, added check for debug console.# 01d,17sep98,bjl  removed soundPlay and preview button.# 01c,03aug98,bjl  load UITclControls.dll, added What's New and Add Icons#                  buttons.# 01b,23jul98,wmd  modified for T2, added new dialogs# 01a,-------,pdn## DESCRIPTION# This module contains the Autorun functions that are executed when the# product CD-ROM is inserted.  It also contains the initial splash# screen functionality.## RESOURCE FILES# RESOURCE/TCL/GLOBAL.TCL# */# globalsset setup_lib       ""      ;# The handle to the setupTclDllset tempDir         ""      ;# The location to which files are unzippedset autorunBypass   1       ;# Bypass Autorun and directly run Setup.############################################################################### tornadoAutoRun@@Init - the Autorun dialog initialization function.## This procedure sets up the controls for the Autorun dialog.## SYNOPSIS:# tornadoAutoRun@@Init## PARAMETERS: N/A## RETURNS: N/A## ERRORS: N/A#proc tornadoAutoRun@@Init {} {    upvar setup_lib setup_lib    global env    # choose a 16 color bitmap if no color manager is running,    # otherwise choose the default 256 color bitmap.    if {[info exists env(SETUP_NOCOLORMGR)]} {        if {$env(SETUP_NOCOLORMGR)==1} {            set torbitmap "TOR16.BMP"        } else {            set torbitmap "TOR256.BMP"        }    } else {        set torbitmap "TOR256.BMP"    }    # create the bitmap control.    controlCreate tornadoAutoRun@@ \        [list bitmap -x 8 -y 8 -name bitmap -hidden \          -title [CDDriveGet]RESOURCE/BITMAPS/$torbitmap]    # create the Setup button.    controlCreate tornadoAutoRun@@ [list \        button -w 50 -height 16 -hidden -title "&Setup" -name setupButton \        -callback {            global env            # add the "-C" option for UITclSh to bring up the debug            # console.            if {[info exists env(SETUP_DEBUG)] && $env(SETUP_DEBUG) > 1} {                set option "-C"            } else {                set option ""            }            # run INSTW32.TCL and close the Autorun window.            if {[isUnix]} {                if {[catch {exec [tempDirGet]/UITclSh \                        [CDDriveGet]RESOURCE/TCL/INSTW32.TCL [CDDriveGet] &}\                        error]} {                    messageBox $error                } else {                    tornadoAutoRun@@windowClose                }            } else {                # remove trailing slash using "string trimright" since                # an extra slash is added in INSTW32.TCL.  Two slashes                # does not work under W95 (e.g. c:\\).                if {[catch {processCreate "[CDDriveGet]X86/WIN32/UITCLSH.EXE \                            $option [CDDriveGet]RESOURCE/TCL/INSTW32.TCL \                            [string trimright [CDDriveGet] \\]"} error]} {                    messageBox $error                } else {                    tornadoAutoRun@@windowClose                }            }        }]    # create the Remote Icons button.    controlCreate tornadoAutoRun@@ [list \        button -w 50 -height 16 -hidden -title "Remote &Icons" \                -name addiconButton \                -callback {                    global env                    # run the Remote Icon installation.                    if {[info exists env(SETUP_DEBUG)] && \                        $env(SETUP_DEBUG) > 1} {                        set option "-C"                    } else {                        set option ""                    }                    if {[catch {processCreate \                        "[CDDriveGet]X86/WIN32/UITCLSH.EXE $option \                         [CDDriveGet]RESOURCE/TCL/INSTW32.TCL [CDDriveGet]\                          /ICON"} error]} {                        messageBox $error                    } else {                        tornadoAutoRun@@windowClose                    }                }]    # create the Read Me button.    controlCreate tornadoAutoRun@@ [list \        button -w 50 -height 16 -hidden -title "&Read Me..." \        -name readmeButton \        -callback {             if {[isUnix]} {                 global env                 if [file exist [CDDriveGet]README.TXT] {                     if { $env(WIND_HOST_TYPE) == "sun4-solaris2" ||                          $env(WIND_HOST_TYPE) == "x86-linux2" } {                         # use dos2unix on the text file for Unix,                         # otherwise ^M's appear in the editor.                         if {[catch {exec /bin/dos2unix \                             [CDDriveGet]README.TXT > \                             [tempDirGet]/README.TXT} error]} {                             set filename "[CDDriveGet]README.TXT"                         } else {                             set filename "[tempDirGet]/README.TXT"                         }                     } elseif {$env(WIND_HOST_TYPE)=="parisc-hpux10"} {                         if {[catch {exec /bin/dos2ux \                             [CDDriveGet]README.TXT > \                             [tempDirGet]/README.TXT} error]} {                             set filename "[CDDriveGet]README.TXT"                         } else {                             set filename "[tempDirGet]/README.TXT"                         }                     } else {                         set filename "[CDDriveGet]README.TXT"                     }                     catch {[editorCommand $filename]} error                 } else {                     messageBox -exclam "No README available at this time."                 }             } else {                 # display README using Notepad on Windows                 if [file exist [CDDriveGet]README.TXT] {                     if {[catch [list processCreate \                        "notepad.exe [CDDriveGet]README.TXT"] error]} {                        messageBox $error                     }                 } else {                    messageBox -exclam "No README available at this time."                 }             }        }]    # create What's New button.    controlCreate tornadoAutoRun@@ [list \        button -w 50 -height 16 -hidden -title "&What's New..." \        -name whatsnewButton \        -callback {            if {[isUnix]} {                global env                                if [file exist [CDDriveGet]NEW.TXT] {                    if { $env(WIND_HOST_TYPE) != "x86-win32" ||                         $env(WIND_HOST_TYPE) == "x86-linux2" } {                        # use dos2unix on the text file for Unix,                        # otherwise ^M's appear in the editor.                        if {[catch {exec /bin/dos2unix \                            [CDDriveGet]NEW.TXT > [tempDirGet]/NEW.TXT}\                            error]} {                            set filename "[CDDriveGet]NEW.TXT"                        } else {                            set filename "[tempDirGet]/NEW.TXT"                        }                    } elseif {$env(WIND_HOST_TYPE)=="parisc-hpux10"} {                        if {[catch {exec /bin/dos2ux [CDDriveGet]NEW.TXT \                            > [tempDirGet]/NEW.TXT} error]} {                            set filename "[CDDriveGet]NEW.TXT"                        } else {                            set filename "[tempDirGet]/NEW.TXT"                        }                    } else {                        set filename "[CDDriveGet]NEW.TXT"                    }                    catch {[editorCommand $filename]} error                } else {                    messageBox -exclam "WHAT'S NEW not available at this time."                }            } else {                # display file on Windows using Notepad.                if [file exist [CDDriveGet]NEW.TXT] {                    if {[catch [list processCreate \                        "notepad.exe [CDDriveGet]NEW.TXT"] error]} {                        messageBox $error                    }                } else {                        messageBox -exclam "WHAT'S NEW not available at this\                                            time."                }            }        }]    # create Exit button.    controlCreate tornadoAutoRun@@ [list \        button -w 50 -height 16 -hidden -title "E&xit" -name exitButton \        -callback tornadoAutoRun@@windowClose]    welcomePageLayoutPrepare}############################################################################### welcomePageLayoutPrepare - displays the Autorun dialog.## This procedure sets up the controls and displays the Autorun dialog.## SYNOPSIS:# welcomePageLayoutPrepare## PARAMETERS: N/A## RETURNS: N/A## ERRORS: N/A#proc welcomePageLayoutPrepare {} {    global env    global autorunBypass    global argv    # Retrieve the bitmap's width and height in dialog units.    set bitmapW [lindex [controlSizeGet tornadoAutoRun@@.bitmap] 0]    set bitmapH [lindex [controlSizeGet tornadoAutoRun@@.bitmap] 1]    # Resize the dialog now that we know the bitmap's size in dialog units.    windowSizeSet tornadoAutoRun@@ \        [expr 8 + $bitmapW + 8 + 50 + 8] [expr 8 + $bitmapH + 8]    windowTitleSet tornadoAutoRun@@ "Welcome to [getProdInfo name]"    controlHide tornadoAutoRun@@.bitmap 0    # set the button coordinates.    set buttonxpos [expr 8 + $bitmapW + 8]    set button1ypos 8    set button2ypos [expr 8 + 13 + 8]    set button3ypos [expr 8 + 13 + 8 + 13 + 8]    set button4ypos [expr 8 + 13 + 8 + 13 + 8 + 13 + 8]    # Unix does not have a Remote icon button.    if {[isUnix]} {        controlPositionSet tornadoAutoRun@@.setupButton $buttonxpos \                                                        $button1ypos        controlPositionSet tornadoAutoRun@@.readmeButton $buttonxpos \                                                         $button2ypos        controlPositionSet tornadoAutoRun@@.whatsnewButton $buttonxpos \                                                           $button3ypos    } else {        controlPositionSet tornadoAutoRun@@.setupButton $buttonxpos \                                                        $button1ypos        controlPositionSet tornadoAutoRun@@.addiconButton $buttonxpos \                                                          $button2ypos        controlPositionSet tornadoAutoRun@@.readmeButton $buttonxpos \                                                         $button3ypos        controlPositionSet tornadoAutoRun@@.whatsnewButton $buttonxpos \                                                           $button4ypos    }    controlPositionSet tornadoAutoRun@@.exitButton [expr 8 + $bitmapW + 8] \                                                   [expr 8 + $bitmapH - 16]