01zinc.tcl

zinc60t22.tar.gz:zinc在tornado2.2.x下的补丁

#01Zinc.tcl - Zinc support
#
# modification history
# --------------------
# 01i,19jun03,jyo  Making modifications for configurator to work with Tornado
#                  2.2.
# 01h,19jul01,wdf  Made change to remove warning from StrongArm compiler.
# 01g,31may01,wdf  Updated config script to use other tools.
# 01f,21dec00,wdf  Fixed debug compile problem.
# 01e,21dec00,wdf  Fixed problem of clean not always cleaning out the correct
#                  directory.
# 01d,13dec00,wdf  Fixed SPR# 36067, 36064, and 62158.
# 01c,20oct00,wdf  Removed extra entries from the architecture list.
# 01b,11aug00,wdf  Changed CONFIG_TOOL to ZINC_CONFIG_TOOL.
# 01a,08aug00,wdf  Added ability to configure Zinc.
# 31oct98,dmm   Added Zinc Designer Support
# */

##############################################################################
#
# MAIN
#
# create an entries in the application bar and register callback.

objectCreate app zinccfg Zinc zincConfigPost
objectCreate app zincbt "Zinc Designer" {launchZinc}

###############################################################################
#  Global Data
###############################################################################

# set some default values

set zincArchList               {}

###############################################################################
#  Dialogs
###############################################################################

#
# Main window definition
#

dialogCreate "Zinc Configuration" -size 555 250 \
    { \
    {list "Configuration" -top 2 -left 2 -right 45 -height 80 zincConfigSelect} \
    {list "Processor" -top 2 -left 52 -right 100 -height 80  zincConfigArch} \
    {hsep h1 -left 0 -right 100 -top @ -width 3 -height 4} \
    {list "Configuration Item" -top @ -left 30 -right 70 -height 80  zincSetConfigItem} \
    {hsep h2 -left 0 -right 100 -top @ -width 3 -height 4} \
    {button Save   -top h2 -left 0  -right 16 zincConfigSave} \
    {button Delete -top h2 -left 16 -right 32 zincConfigDelete} \
    {button Build  -top h2 -left 32 -right 48 zincConfigBuild} \
    {button "Build Clean"  -top h2 -left 48 -right 68 zincConfigBuildClean} \
    {button Clean  -top h2 -left 68 -right 84 zincConfigClean} \
    {button Quit   -top h2 -left 84 -right 100 zincConfigQuit} \
    }
set zincConfigItemList {"Configuration Options" "Build Options"}


#
#  Compile Options dialog
#
dialogCreate "Configuration Options" \
    { 
    {boolean "Unicode"                              -top 2 -left 0 zincCompileUnicodeSelect} \
    {boolean "Code Set Data (required for Unicode)" -top @ -left 0 zincCompileCodeSetSelect} \
    {boolean "Error System"                         -top @ -left 0 zincCompileErrorSystemSelect} \
    {boolean "Help Tips"                            -top @ -left 0 zincCompileHelpTipsSelect } \
    {boolean "Keyboard"                             -top @ -left 0 zincCompileKeyboardSelect } \
    {boolean "Mouse"                                -top @ -left 0 zincCompileMouseSelect} \
    {boolean "Search Path"                          -top @ -left 0 zincCompileSearchPathSelect } \
    {boolean "Persistence"                          -top @ -left 0 zincCompilePersistSelect} \
    {boolean "Read"                                 -top @ -left 5 zincCompileReadSelect } \
    {boolean "Write"                                -top @ -left 5 zincCompileWriteSelect} \
    {hsep h1 -left 0 -right 100                   -top @+20 -width 3 -height 4} \
    {button "OK" -top h1 -left 40 -right 60 zincCompileOk} \
    {label  "" -width 0 -height 0 -top @}\
    }


#
#  Miscellaneous definition dialog
#

dialogCreate "Build Options" -size 300 230 \
    { \
    {label "Build Options" -top 2 -left 0} \
    {hsep h1 -left 0 -right 100 -top @ -width 3 -height 4} \
    {boolean "Build with debug" -top @ -left 0 zincMiscDebug} \
    {list "Build Tool" -height 80 -top h1 -left 53 -right 96 zincToolSelect} \
    {hsep h2 -left 0 -right 100 -top @ -width 3 -height 4} \
    {button "OK" -top h2 -left 40 -right 60 zincMiscOk } \
    }

#
# create "New configuration" dialog
#
dialogCreate "New Config. File" -size 200 100 \
    { \
    {text "Configuration:" -y 5 -left 0 -right 100 newZincConfigName} \
    {button "Apply" -top "Configuration:" -left 10 -right 50 newZincConfigName} \
    {button "Cancel" -top "Configuration:" -left 50 -right 90 \
    {dialogUnpost "New Configuration"}} \
    }

#
# Warning message placed in source files
#
set zincFileWarningMsg  \
"
/*
 * This file is automatically generated from the Zinc 
 * configuration tool.  Modify at your own risk.
 */
"

################################################################################
#
# newZincConfigName - create a new configuration
#

proc newZincConfigName {} {
    global zincConfigDir
    global zincConfigChange
    global zincConfigName

    set configName \
                 [dialogGetValue "New Config. File" "Configuration:"]

    if {$configName != ""} {
        set fd [open $zincConfigDir/$configName.cfg w]
        close $fd
    }

    dialogUnpost "New Config. File"
    zincSetFileList

    listSelectionChange "Zinc Configuration" "Configuration" $configName

    set zincConfigName  $configName

    # Clear current configuration
    zincConfigClear

    set zincConfigChange 1
}

####################################################################
#
#  zincCompileUnicodeSelect - process change of an option
#
proc zincCompileUnicodeSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    set zincConfigChange 1
    set zincConfigCompile(ZINC_UNICODE)    $newVal 
}

####################################################################
#
#  zincCompileCodeSetSelect - process change of an option
#
proc zincCompileCodeSetSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    set zincConfigChange 1
    set zincConfigCompile(ZINC_CODE_SET)    $newVal 
}

####################################################################
#
#  zincCompileErrorSystemSelect - process change of an option
#
proc zincCompileErrorSystemSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    set zincConfigChange 1
    set zincConfigCompile(ZINC_ERROR_SYS)    $newVal 
}

####################################################################
#
#  zincCompileHelpTipsSelect - process change of an option
#
proc zincCompileHelpTipsSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    set zincConfigChange 1
    set zincConfigCompile(ZINC_HELP_TIPS)    $newVal 
}

####################################################################
#
#  zincCompileKeyboardSelect - process change of an option
#
proc zincCompileKeyboardSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    set zincConfigChange 1
    set zincConfigCompile(ZINC_KEYBOARD)    $newVal 
}

####################################################################
#
#  zincCompileMouseSelect - process change of an option
#
proc zincCompileMouseSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    set zincConfigChange 1
    set zincConfigCompile(ZINC_MOUSE)    $newVal 
}

####################################################################
#
#  zincCompileSearchPathSelect - process change of an option
#
proc zincCompileSearchPathSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    set zincConfigChange 1
    set zincConfigCompile(ZINC_SEARCH_PATH)    $newVal 
}

####################################################################
#
#  zincCompilePersistSelect - process change of an option
#
proc zincCompilePersistSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    set zincConfigChange 1
    set zincConfigCompile(ZINC_PERSIST)    $newVal 
    if {$newVal == 0} {
       zincCompileReadSelect 0
       zincCompileWriteSelect 0
    }
}

####################################################################
#
#  zincCompileReadSelect - process change of an option
#
proc zincCompileReadSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    if {$zincConfigCompile(ZINC_PERSIST) == 0} {
       dialogSetValue "Configuration Options" "Read" 0
       set ZincConfigCompile(ZINC_READ) 0
    } else {
      set zincConfigChange 1
      set zincConfigCompile(ZINC_READ)    $newVal 
    }
}

####################################################################
#
#  zincCompileWriteSelect - process change of an option
#
proc zincCompileWriteSelect {newVal} {
    global zincConfigCompile
    global zincConfigChange

    if {$zincConfigCompile(ZINC_PERSIST) == 0} {
       dialogSetValue "Configuration Options" "Write" 0
       set ZincConfigCompile(ZINC_WRITE) 0
    } else {
      set zincConfigChange 1
      set zincConfigCompile(ZINC_WRITE)    $newVal 
    }
}

####################################################################
#
#  zincCompileOk - handle the Configuration Options OK button 
#
proc zincCompileOk {} {

   dialogUnpost "Configuration Options"
}

####################################################################
#
#  zincMiscDebug - process the debug boolean
#
proc zincMiscDebug {newVal} {
    global zincConfigChange
    global zincConfigMisc

    set zincConfigChange 1
    set zincConfigMisc(DEBUG_BUILD)    $newVal 
}

####################################################################
#
#  zincMiscOk - handle the miscellaneous OK button 
#
proc zincMiscOk {} {

   dialogUnpost "Build Options"
}

####################################################################
#
# zincSetFileList - set names of configuration files
#
proc zincSetFileList {} {
    global zincConfigDir


    set fileList ""
    set tmpFileList [glob -nocomplain $zincConfigDir/*.cfg]
    foreach file $tmpFileList {
        regsub -all -nocase $zincConfigDir/ $file {} filecfg
        lappend fileList [ file rootname $filecfg ]
    }
    lappend fileList "New configuration..."
    dialogSetValue "Zinc Configuration" "Configuration" $fileList
}


####################################################################
#
# zincConfigPost - set up main dialog window
#
proc zincConfigPost {} {
    global zincDBDir
    global zincConfigItemList
    global zincConfigChange
    global zincArchList
    global zincHome
    global zincConfigDir
    global env
    global zDebugFd


    # set up location of data files