01ugl.win32.tcl

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

##############################################################################
# 01Ugl.win32.tcl -  Configuration Utility for the WindML
#
# Copyright (C) 2000 - 2003 Wind River Systems, Inc.
#
# modification history
# --------------------
# 01l,18jun03,jlb    Remove option to build into VxWorks archive and force
#		     build to WindML archive
# 01k,18dec00,jlb    Reflect changed path names in generated uglConfig.h
# 01j,21nov00,jlb    Added check box for unicode on Agfa config
# 01i,15nov00,jlb    Fix lockup when empty config list (SPR 62296)
# 01h,10nov00,jlb    Removed event queue specification (SPR 35346), changed
#                    INCLUDE_UGL_BMF_UNICODE to INCLUDE_UGL_UNICODE, fixed
#                    lockup of graphics device selection if name changed
#                    (SPR 35995)
# 01g,27oct00,jlb    Error dialog if Bitmap and Agfa fonts are selected
# 01f,26oct00,jlb    Allow build for Agfa fonts
# 01e,16oct00,jlb    Fix input type/device feilds (SPR 35178)
#                    No clean warning for demos/ugl.o (SPR 35223)
#                    Agfa config page present only when Agfa installed
# 01d,29sep00,jlb    Added build support for WindML demos and WindML objects
#                    Clear graphics option when device changed (SPR 34461)
# 01c,28sep00,jlb    Added directory sensitive build for graphics
# 01b,13sep00,jlb    Added Agfa font engine configuration
# 01a,05jul00,jlb    Written
#


#
# Generic stuff
#

# Be sure we can open the support utility DLL.
if [catch {dllLoad [wtxPath host [wtxHostType] bin]SupportTcl.dll} supportDll] {
   messageBox "Can't find supportTcl.dll"
}


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

#
# Main window definition
#
set UglConfigControls {
    {label -title "Configuration File:"   -x 5   -y 5   -w 70  -h 9}
    {combo -name uglFileList -sort        -x 65  -y 5   -w 80 -h 65 -callback uglConfigSelect -editable}
    {label -title "Processor:"            -x 150  -y 5  -w 50  -h 9}
    {combo -name uglArchList              -x 190  -y 5  -w 80 -h 65 -callback uglSelectArch}
    {frame -gray                          -x 2   -y 28  -w 296 -h 200}
    {label -title "  Configuration Item " -x 25   -y 25  -w 100  -h 9}
    {label -title "   "                   -x 100   -y 25  -w 100  -h 9}
    {combo -name uglConfigItem            -x 110  -y 25  -w 80 -h 100 -callback uglSetConfigItem}
    {button -name save -title Save        -x 5   -y 230 -w 40  -h 15 -callback uglConfigSave}
    {button -name delete -title Delete    -x 61  -y 230 -w 40  -h 15 -callback uglConfigDelete}
    {button -name build -title Build      -x 117 -y 230 -w 40  -h 15 -callback uglConfigBuild}
    {button -name clean -title Clean      -x 173 -y 230 -w 40  -h 15 -callback uglConfigClean}
    {button -name quit -title Quit        -x 230 -y 230 -w 40  -h 15 -callback uglExit}
    }



#
# Graphics window definition
#
set UglConfigPage(0) {
    {label -name graphicsDevice -title "Driver for Device:"    -x 10  -y 50  -w 100 -h 9}
    {combo -name  chipList                                     -x 100 -y 50  -w 110 -h 65 -callback uglGraphicsChipSelect}
    {frame -black -name graphicsFrame                          -x 5   -y 65  -w 290 -h 155}
    {label -name graphicsOutput -title "Output Type:"          -x 10  -y 90  -w 50  -h 9}
    {combo -name outputDevList                                 -x 60  -y 90  -w 140 -h 65}
    {label -name graphicsColor -title "Color depth:"           -x 10  -y 105 -w 50  -h 9}
    {combo -name colorDepthList                                -x 60  -y 105 -w 30  -h 65 -callback uglGraphicsDepthSelect}
    {label -name graphicsRes -title "Resolution:"              -x 95  -y 105 -w 50  -h 9}
    {combo -name resolutionList                                -x 135 -y 105 -w 55  -h 65 -callback uglGraphicsResolutionSelect}
    {label -name graphicsRefresh -title "Refresh rate:"        -x 200 -y 105 -w 50  -h 9}
    {combo -name refreshList                                   -x 245 -y 105 -w 40  -h 65 -callback uglGraphicsRefreshSelect}
    {boolean -name bVideo -auto -title "Video"                 -x 20  -y 125 -w 90  -h 15}
    {boolean -name bJpeg -auto -title "JPEG"                   -x 20  -y 140 -w 90  -h 15}
    {boolean -name bdBuffer -auto -title "Double Buffer"       -x 20  -y 155 -w 90  -h 15}
    {boolean -name baBlend -auto -title "Alpha Blending"       -x 20  -y 170 -w 90  -h 15}
    {boolean -name boverlay -auto -title "Overlays"            -x 20  -y 185 -w 90  -h 15}
    {boolean -name bswCursor -auto -title "Software Cursor"    -x 20  -y 200 -w 90  -h 15}
    }
set UglConfigPageName(0)  "Graphics"
set UglConfigItemName(0) {graphicsDevice chipList graphicsFrame graphicsOutput 
                          outputDevList graphicsColor colorDepthList graphicsRes
                          resolutionList graphicsRefresh refreshList 
                          bVideo bJpeg bdBuffer baBlend boverlay bswCursor}

#
# Input definition dialog 
#
set UglConfigPage(1) {
    {label -name lPtrLabel     -title "Pointer Configuration"     -x 10  -y 50  -w 100 -h 9}
    {frame -name fPtr          -black                             -x 5   -y 60  -w 290 -h 45}
    {label -name lPtrType      -title "Type:"                     -x 10  -y 65  -w 50  -h 9}
    {combo -name mouseList                                        -x 60  -y 65  -w 150 -h 65 -callback uglPointerSelect}
    {label -name lptrDevice    -title "Device Name:"              -x 10  -y 85  -w 80  -h 9}
    {text  -name ptrDevice                                        -x 60  -y 85  -w 100 -h 12}
    {label -name lKbdCfg       -title "Keyboard Configuration"    -x 10  -y 115 -w 100 -h 9}
    {frame -name fKbd          -black                             -x 5   -y 125 -w 290 -h 45}
    {label -name lKbdType      -title "Type:"                     -x 10  -y 130 -w 50  -h 9}
    {combo -name keyboardList                                     -x 60  -y 130 -w 80  -h 65 -callback uglKeyboardSelect}
    {label -name lKbdMap        -title "Key map:"                 -x 160 -y 130 -w 50  -h 9}
    {combo -name keyMapList                                       -x 200 -y 130 -w 80  -h 65}
    {label -name lKbdDevice    -title "Device Name:"              -x 10  -y 150 -w 80  -h 9}
    {text  -name kbdDevice                                        -x 60  -y 150 -w 100 -h 12}
    }
set UglConfigPageName(1)  "Input"
set UglConfigItemName(1) {lPtrLabel fPtr lPtrType mouseList lptrDevice ptrDevice
                          lKbdCfg fKbd lKbdType keyboardList lKbdMap keyMapList lKbdDevice kbdDevice}

#
# Bitmap Font definition
#
set UglConfigPage(2) {
    {frame  -name fBmFonts           -black                       -x 5   -y 75  -w 290 -h 130}
    {boolean -name bUnicode  -auto   -title "Support Unicode(multi-byte)" -x 10  -y 45  -w 100 -h 9}
    {label  -name lbmFontSize        -title "Glyph Cache Size:"   -x 120 -y 45  -w 80  -h 9}
    {combo   -name bmFontSize                                     -x 180 -y 45  -w 100 -h 65 -editable}
    {label  -name lIncBmFonts        -title "Included Fonts"      -x 12  -y 80  -w 100 -h 9}
    {label  -name lExcBmFonts        -title "Excluded Fonts"      -x 172 -y 80  -w 100 -h 9}
    {list   -name bmFontInList       -multisel -sort              -x 10  -y 90  -w 120 -h 115}
    {list   -name bmFontExList       -multisel -sort              -x 170 -y 90  -w 120 -h 115}
    {button -name bmfFontIncButton   -title "<"                   -x 140 -y 100 -w 20  -h 12 -callback uglFontInclude}
    {button -name bmFontIncAllButton -title "<all"                -x 140 -y 125 -w 20  -h 12 -callback uglFontIncludeAll}
    {button -name bmFontExcButton    -title ">"                   -x 140 -y 150 -w 20  -h 12 -callback uglFontExclude}
    {button -name bmFontExcAllButton -title "all>"                -x 140 -y 175 -w 20  -h 12 -callback uglFontExcludeAll}
    }
set UglConfigPageName(2)  "UGL Bitmap Fonts"
set UglConfigItemName(2) {fBmFonts bUnicode lbmFontSize bmFontSize 
                          lIncBmFonts lExcBmFonts bmFontInList bmFontExList bmfFontIncButton
                          bmFontIncAllButton bmFontExcButton bmFontExcAllButton }


#
# Audio definition
#
set UglConfigPage(3) {
    {frame  -name fAudio           -black                       -x 5   -y 50  -w 290 -h 155}
    {label  -name lAudioType       -title "Type:"               -x 10  -y 70  -w 80  -h 9}
    {combo  -name audioList                                     -x 80  -y 70  -w 80 -h 65 -callback uglAudioSelect}
    {label  -name lAudioDevice     -title "Device Name:"        -x 10  -y 90  -w 80  -h 9}
    {text   -name audioDevice                                   -x 80  -y 90  -w 50 -h 12}
    {label  -name lAudioChan       -title "Channel Number:"     -x 10  -y 110 -w 80  -h 9}
    {text   -name audioChan                                     -x 80  -y 110 -w 20 -h 12}
    }

set UglConfigPageName(3)  "Audio"
set UglConfigItemName(3) {fAudio lAudioType audioList lAudioDevice audioDevice 
                          lAudioChan audioChan }


#
# Miscellaneaous controls
#
#    {combo  -name toolList                                                -x 110 -y 120 -w 80  -h 65}
set UglConfigPage(4) {
    {frame -black -name buildFrame                                        -x 10  -y 65  -w 280 -h 75}
    {label -name buildLabel -title            "Build Options"             -x 20  -y 55  -w 80  -h 9}
    {boolean -name uglO -auto -title          "Build WindML object"       -x 15  -y 70  -w 90  -h 15}
    {boolean -name bDemo -auto -title         "Build Examples Programs"   -x 110 -y 70  -w 100  -h 15}
    {boolean -name bDebug -auto -title        "Build with debug"          -x 110 -y 85  -w 90  -h 15}
    {label -name ltoolList   -title           "Tool Selection:"           -x 20  -y 120 -w 100 -h 10}
    {combo  -name toolList                                                -x 110 -y 120 -w 80  -h 65 -callback uglToolSelect}
    {frame -black -name memoryFrame                                       -x 10  -y 155 -w 280 -h 35}
    {label -name memOptLabel -title           "Memory Options"            -x 15  -y 145 -w 80  -h 9}
    {choice -name cVxPool -auto -newgroup -title "VxWorks System Pool"    -x 15  -y 160 -w 90  -h 15}
    {choice -name cUglPool -auto -title       "Private Memory Pool"       -x 110 -y 160 -w 90  -h 15}
    {label -name lmemPool   -title            "Memory Pool Size (Kbyte):" -x 20  -y 175 -w 100 -h 9}
    {text  -name memPool                                                  -x 110 -y 175 -w 30  -h 12}
   }
set UglConfigPageName(4)  "Miscellaneous"
set UglConfigItemName(4) {buildFrame buildLabel uglO bDemo bDebug ltoolList toolList memoryFrame 
                          memOptLabel cVxPool cUglPool lmemPool memPool }


#
# Agfa Font definition
#
set UglConfigPage(5) {
    {frame  -name fAgfaFonts           -black                       -x 5   -y 90  -w 290 -h 130}
    {boolean -name bAfUnicode  -auto   -title "Support Unicode(multi-byte)" -x 10  -y 40  -w 100 -h 9}
    {label  -name lagfaFontPath        -title "Path:"               -x 10  -y 55  -w 80  -h 9}
    {text   -name agfaFontPath                                      -x 50  -y 55  -w 95 -h 12}
    {label  -name lagfaFontTypePath    -title "Type Path:"          -x 10  -y 75  -w 80  -h 9}
    {text   -name agfaFontTypePath                                  -x 50  -y 75  -w 95 -h 12}
    {label  -name lagfaFontFilename    -title "File name:"          -x 150 -y 55  -w 80  -h 9}
    {text   -name agfaFontFilename                                  -x 195 -y 55  -w 95 -h 12}
    {label  -name lagfaFontPluginName  -title "Plugin name:"        -x 150 -y 75  -w 80  -h 9}
    {text   -name agfaFontPluginName                                -x 195 -y 75  -w 95 -h 12}
    {label  -name lIncAgfaFonts        -title "Included Fonts"      -x 12  -y 95  -w 100 -h 9}
    {label  -name lExcAgfaFonts        -title "Excluded Fonts"      -x 172 -y 95  -w 100 -h 9}
    {list   -name agfaFontInList       -multisel -sort              -x 10  -y 105  -w 120 -h 115}
    {list   -name agfaFontExList       -multisel -sort              -x 170 -y 105  -w 120 -h 115}
    {button -name agfafFontIncButton   -title "<"                   -x 140 -y 115 -w 20  -h 12 -callback uglAgfaFontInclude}
    {button -name agfaFontIncAllButton -title "<all"                -x 140 -y 140 -w 20  -h 12 -callback uglAgfaFontIncludeAll}
    {button -name agfaFontExcButton    -title ">"                   -x 140 -y 165 -w 20  -h 12 -callback uglAgfaFontExclude}
    {button -name agfaFontExcAllButton -title "all>"                -x 140 -y 190 -w 20  -h 12 -callback uglAgfaFontExcludeAll}
    }
set UglConfigPageName(5)  "Agfa Fonts"
set UglConfigItemName(5) {fAgfaFonts bAfUnicode lagfaFontPath agfaFontPath 
                          lagfaFontTypePath agfaFontTypePath 
                          lagfaFontFilename agfaFontFilename 
                          lagfaFontPluginName agfaFontPluginName 
                          lIncAgfaFonts lExcAgfaFonts agfaFontInList 
                          agfaFontExList agfafFontIncButton
                          agfaFontIncAllButton agfaFontExcButton 
                          agfaFontExcAllButton }

set UglConfigPageListWithAgfa [list 0 1 2 5 3 4 ]
set UglConfigPageListNoAgfa [list 0 1 2 3 4 ]
set UglConfigPageList {}


# set some default values
set uglLoadNewConfig          0
set uglConfigChange           0

set uglAudioAllDeviceList     {}
set uglPointerAllDeviceList   {} 
set uglKeyboardAllDeviceList  {}
set uglKeyboardMapDB(NAME)    {}
set uglKeyboardMapDB(SELECT)  {}
set uglArchList               {}
set uglOutDevList             {}
set uglOutDevInc              {}
set uglGraphicsAllDeviceList  {}
set uglToolAllList            {}

set uglAgfaConfig(FONTPATH)    ""
set uglAgfaConfig(TYPEPATH)    ""
set uglAgfaConfig(FILENAME)    "" 
set uglAgfaConfig(PLUGINNAME)  ""


################################################################################
# PROCEDURES
################################################################################



####################################################################
#
# uglSetFileList - set names of configuration files
#
proc uglSetFileList {} {
    global uglConfigToolDir


    set fileList ""
    set tmpFileList [glob -nocomplain $uglConfigToolDir/*.cfg]
    foreach file $tmpFileList {
        regsub -all -nocase $uglConfigToolDir/ $file {} filecfg
        lappend fileList [ file rootname $filecfg ]
    }

    controlValuesSet UglConfig.uglFileList $fileList
}


####################################################################
#
# uglReadUglDB - read the UGL data base files
#
proc uglReadUglDB {} {
    global uglDBDir
    global uglArchList
    global uglAudioAllDeviceList
    global uglPointerAllDeviceList 
    global uglKeyboardAllDeviceList
    global uglKeyboardMapDB
    global uglArchList
    global uglOutDevList
    global uglOutDevInc 
    global uglGraphicsAllDeviceList
    global uglToolAllList

    # Only read data base if not already read
    set listLength [expr [llength $uglArchList]]
    if {$listLength != 0} {
        return
    }

    # Get the list of fonts in the font directory
    set tmpFileList [glob -nocomplain $uglDBDir/*.cfg]
    foreach file $tmpFileList {
        set fd [open $file r]

        set uglDBstate 0
        set line [gets $fd]
        while {![eof $fd]} {
            switch [lrange $line 0 1] {
                "## ARCHITECTURE" { set uglDBstate 1; set line [gets $fd] }
                "## GRAPHICS"     { set uglDBstate 2; set line [gets $fd] }
                "## OUTPUT"       { set uglDBstate 3; set line [gets $fd] }
                "## KMAP"         { set uglDBstate 4; set line [gets $fd] }
                "## POINTER"      { set uglDBstate 5; set line [gets $fd] }
                "## KEYBOARD"     { set uglDBstate 6; set line [gets $fd] }
                "## FONTS"        { set uglDBstate 7; set line [gets $fd] }
                "## AUDIO"        { set uglDBstate 8; set line [gets $fd] }
                "## AGFA"         { set uglDBstate 9; set line [gets $fd] }
                "## TOOLS"        { set uglDBstate 10; set line [gets $fd] }
                ""                { set line [gets $fd]; continue }
            }
            set comment [lrange $line 0 1]
            if {[string index $comment 0] == "#"} {
               set line [gets $fd]
               continue
            }
        
            switch $uglDBstate {
                1 { lappend uglArchList $line }
                2 { uglAddGraphicsDevice $line $fd}
                3 { uglAddOutputDevice $line }
                4 { uglAddKeyboardMap $line $fd}
                5 { uglAddPointerDevice $line $fd}
                6 { uglAddKeyboardDevice $line $fd}
                7 { uglAddBmFontEngine $line $fd }
                8 { uglAddAudioDevice $line $fd }
                9 { uglAddAgfaFontEngine $line $fd }
                10 { uglAddTool $line $fd }
            }
            set line [gets $fd]
        }
        close $fd
    }
}

####################################################################
#
# uglAddAgfaFontEngine - add the Agfa font engine
#
proc uglAddAgfaFontEngine  {line fd} {
    global uglAgfaFontEngineDB

    set uglAgfaFontEngineDB(FONTTYPE) {}
    set line [gets $fd]

    while {![eof $fd]} {
        set arg [lrange $line 1 end]
        switch [lindex $line 0] {
            "PATH"     { set uglAgfaFontEngineDB(PATH) $arg }
            "HEADER"   { lappend uglAgfaFontEngineDB(HEADER) $arg}
            "SELECT"   { set uglAgfaFontEngineDB(SELECT)   $arg }
            "TYPE"     { lappend uglAgfaFontEngineDB(FONTTYPE) $arg}
            "END"      { return }
        }
        set line [gets $fd]
    }

}
####################################################################
#
# uglAddBmFontEngine - add the BMF font engine
#
proc uglAddBmFontEngine  {line fd} {
    global uglBmFontEngineDB

    set line [gets $fd]

    while {![eof $fd]} {
        set arg [lrange $line 1 end]
        switch [lindex $line 0] {
            "PATH"     { set uglBmFontEngineDB(PATH) $arg ; \