#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 zincConfigPostobjectCreate app zincbt "Zinc Designer" {launchZinc}################################################################################  Global Data################################################################################ set some default valuesset 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