01ugl.tcl

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

    if { $page == "Miscellaneous" } {
       dialogPost "Miscellaneous Configuration"
       uglMiscConfig
    }
      
}
#########################################################
#
# uglConfigSave - process the "save" button.
#
proc uglConfigSave {} {
    global uglConfigToolDir
    global uglArchType
    global uglConfigMisc
    global uglConfigInput
    global uglGraphics
    global uglConfigAudio
    global uglBmFontSelection
    global uglBmfConfig
    global uglAgfaFontSelection
    global uglAgfaConfig
    global uglConfigChange
    global uglBuildTgtChange
    global uglConfigModify
        
    set configname         [dialogGetValue "WindML Configuration" "Configuration"]
    set uglConfig(ARCH)    [dialogGetValue "WindML Configuration" "Processor"]

    if {$configname == ""} {
        noticePost error "Need to specify a configuation file"
        return
    }
    set fd [open $uglConfigToolDir/$configname.cfg w]

    set dateInfo [exec date]

    set fstr "%-30s : %s"
    puts $fd "# DO NOT MODIFY THIS FILE - GENERATED AUTOMATICALLY"
    puts $fd [format "# File: %s.cfg" $configname]
    puts $fd [format "# Creation date: %s" $dateInfo]
    
    puts $fd [format $fstr "ARCHITECTURE" $uglArchType ]
        
    # Output general configuration values
    puts $fd [format $fstr "BUILD_DEBUG"   $uglConfigMisc(DEBUG_BUILD)]
    puts $fd [format $fstr "BUILD_UGLO"    $uglConfigMisc(UGLO_BUILD)]
    puts $fd [format $fstr "BUILD_UGLE"    $uglConfigMisc(UGLE_BUILD)]
    puts $fd [format $fstr "BUILD_TOOL"    $uglConfigMisc(BUILD_TOOL)]
    puts $fd [format $fstr "SYS_POOL"      $uglConfigMisc(VX_POOL)]
    puts $fd [format $fstr "UGL_POOL"      $uglConfigMisc(UGL_POOL)]
    puts $fd [format $fstr "UGL_PSIZE"     $uglConfigMisc(POOL_SIZE)]

    # Output Pointer Configuration Parameters
    puts $fd [format $fstr "PTR_TYPE"      $uglConfigInput(PTR_TYPE)]
    puts $fd [format $fstr "PTR_DEVNAME"   $uglConfigInput(PTR_DEVICE) ]

    # Output Keyboard Configuration Parameters
    puts $fd [format $fstr "KBD_TYPE"      $uglConfigInput(KBD_TYPE)]
    puts $fd [format $fstr "KBD_DEVNAME"   $uglConfigInput(KBD_DEVICE) ]
    puts $fd [format $fstr "KBD_MAP"       $uglConfigInput(KBD_MAP)]

    # Output Graphics Configuration Parameters
    puts $fd [format $fstr "GRAPHICS CHIP" $uglGraphics(CHIP)]
    foreach opt $uglGraphics(OPTS) {
        puts $fd [format $fstr "GDOPTION"   $opt] 
    }
    
    puts $fd [format $fstr "GOUTPUT"  $uglGraphics(OUTPUT)]
    puts $fd [format $fstr "GDEPTH"   $uglGraphics(DEPTH)]
    puts $fd [format $fstr "GRES"     $uglGraphics(RESOLUTION)]
    puts $fd [format $fstr "GREF"     $uglGraphics(REFRESH)]

    # Save audio config
    puts $fd [format $fstr "AUDIO_TYPE"  $uglConfigAudio(TYPE)]
    puts $fd [format $fstr "AUDIO_DEV"   $uglConfigAudio(DEVNAME)]       
    puts $fd [format $fstr "AUDIO_CHAN"  $uglConfigAudio(CHANNEL)]       

    # Output Bitmap Font Configuration Parameters
    foreach font $uglBmFontSelection {
       puts $fd [format $fstr "BMF_FONT" $font]
    }
    puts $fd [format $fstr "BMF_CSIZE"    $uglBmfConfig(CACHE_SIZE)]
    puts $fd [format $fstr "BMF_UNICODE"  $uglBmfConfig(UNICODE)]

    # Output Agfa Font Configuration Parameters
    foreach font $uglAgfaFontSelection {
       puts $fd [format $fstr "AF_FONT" $font]
    }
    puts $fd [format $fstr "AF_PATH"        $uglAgfaConfig(FONTPATH)]
    puts $fd [format $fstr "AF_TYPEPATH"    $uglAgfaConfig(TYPEPATH)]
    puts $fd [format $fstr "AF_FILENAME"    $uglAgfaConfig(FILENAME)]
    puts $fd [format $fstr "AF_PLUGINNAME"  $uglAgfaConfig(PLUGINNAME)]
    puts $fd [format $fstr "AF_UNICODE"     $uglAgfaConfig(UNICODE)]
    puts $fd ""

    close $fd

    if {$uglConfigChange == 1} {
       set uglConfigModify 1
    }

    set uglConfigChange 0
    set uglBuildTgtChange 0
}

#########################################################
#
# uglConfigDelete - process the "delete" button. Delete the currently 
#  selected configuration file
#
proc uglConfigDelete {} {
    global uglConfigToolDir

    set configname [dialogGetValue "WindML Configuration" "Configuration"]
    if {$configname == ""} {
        noticePost error "Need to specify a configuation file"
        return
    }

    set answer [noticePost question "Do you want to remove the configuration $configname?" Yes No]
    if {$answer != 1} {
        return
    }

    # Remove the configuration files
    set configname [dialogGetValue "WindML Configuration" Configuration]
    exec rm -f  $uglConfigToolDir/$configname.cfg

    uglSetFileList
}


#########################################################
#
# uglConfigBuild - process the "build" button
#
proc uglConfigBuild {} {
    global uglHome
    global uglArchType
    global uglConfigMisc
    global uglConfigChange
    global uglConfigModify
    global uglBuildTgtChange
    global uglGraphics
    global uglGraphicsChipDB
    global uglToolDB
    global uglToolAllList
    global agfaInConfig
    global bmfInConfig
    global env

    set fontWarningMsg  \
"A WindML configuration can not contain more than one font engine.
To remove a font engine specification, remove all selected fonts
for the font engine that is not desired.
"

    set configname   [dialogGetValue "WindML Configuration" "Configuration"]
    if {$configname == ""} {
        noticePost error "Need to specify a configuation file"
        return
    }


    set dateInfo [exec date]

    if {$uglConfigChange == 1} {
       set uglConfigModify 1
    }

    # Create the output files for compilation
    if {$uglConfigModify == 1} {
       uglWriteConfigH $configname $dateInfo
    }
   
    # Allow only one font engine
    if {$agfaInConfig == 1 && $bmfInConfig == 1} {
       noticePost error $fontWarningMsg
       return
       }

    cd $uglHome/target/src/ugl

    # split out the processor type/BSP
    set archType [split $uglArchType - ]
    set cpuType [lindex $archType 0]

   # get the graphics device driver to build
   set grvDir $uglGraphicsChipDB($uglGraphics(CHIP),DIR)

   # get the tool to use for build
   set tool $uglToolDB($uglConfigMisc(BUILD_TOOL),TOOL)

   # get build targets 
   set buildMode "\"BLD_MODE="

   set buildType 0
       set buildMode [concat $buildMode "ugl "]
       set buildType 1
   if {$uglConfigMisc(UGLO_BUILD)} {
       set buildMode [concat $buildMode "uglobj "]
       set buildType 2
   }
   if {$uglConfigMisc(UGLE_BUILD)} {
       set buildMode [concat $buildMode "ugldemo "]
       set buildType 3
   }
   set buildMode [concat $buildMode "\""]

   set defines "EXTRA_DEFINE= -DCONFIG_TOOL -DVXWORKS"

   set cmd {runTerminal "Build WindML" 0 shwait \
      $env(WIND_BASE)/host/[wtxHostType]/bin/make CPU=$cpuType TOOL=$tool DRIVER=$grvDir $defines }

   # set build targets
   set cmd [concat $cmd $buildMode]

   # check for debug     
   if {$uglConfigMisc(DEBUG_BUILD)} { 
      set cmd [concat $cmd "\"ADDED_CFLAGS=-g -O0\"" ]
   }

   # if agfa present then build
   if {$agfaInConfig == 1} {
      set cmd [concat $cmd " AGFA=TRUE"]
   }

   # set build target
   set cmd [concat $cmd windml]

   # Evaluate build command
   eval $cmd
   
   set uglConfigModify 0
}

#########################################################
#
# uglConfigClean - process the "clean" button
#
proc uglConfigClean {} {
    global env
    global uglHome
    global uglArchType
    global uglConfigMisc
    global uglToolDB

set uglCleanWarningMsg  \
" Performing a clean operation will remove all object files.
Continuing will require a rebuild of all multimedia components.
Do you want to continue?
"
    set configname  [dialogGetValue "WindML Configuration" "Configuration"]
    if {$configname == ""} {
        noticePost error "Need to specify a configuation file"
        return
    }

    # split out the processor type/BSP
    set archType [split $uglArchType - ]
    set cpuType [lindex $archType 0]

    set tool $uglToolDB($uglConfigMisc(BUILD_TOOL),TOOL)

    cd $uglHome/target/src/ugl

    set cmd {runTerminal "Clean WindML" 0 shwait \
       $env(WIND_BASE)/host/[wtxHostType]/bin/make CPU=$cpuType TOOL=$tool EXTRA_DEFINE=-DCONFIG_TOOL }
    
    # get build targets for clean
    set cleanMode "\"CLEAN_MODE="
    set warnMsg 0

        set cleanMode [concat $cleanMode "uglrclean "]
        set warnMsg 1


    if {$uglConfigMisc(UGLO_BUILD)} {
       set cleanMode [concat $cleanMode "uglobjclean "]
    }
    if {$uglConfigMisc(UGLE_BUILD)} {
       set cleanMode [concat $cleanMode "demorclean "]
    }

    set cleanMode [concat $cleanMode "\""]  

    # set clean targets
    set cmd [concat $cmd $cleanMode]

    # set clean target
    set cmd [concat $cmd windmlclean]

    if {$warnMsg == 1} {
        set answer [noticePost question $uglCleanWarningMsg  Yes No]
        if {$answer != 1} {
            return
        }
    }

    # Issue the command
    eval $cmd

}

#########################################################
#
# uglConfigQuit - process the ugl-Windows "quit" button
#
proc uglConfigQuit {} {
    global uglConfigChange
    global debugFd


    if {$uglConfigChange == 1} {
        set answer [noticePost question "Your Configuration has changed.\nDo you really want to Quit?" Yes No]
        if {$answer == 0} {return}
    }

    close $debugFd
    uglUnpostAll
    dialogUnpost "WindML Configuration"
}

###############################################################################
#                          GRAPHICS DIALOG PROCEDURES
###############################################################################



####################################################################
#
#  uglGraphicsDepthSet - set available depth
#
proc uglGraphicsDepthSet {args} {
    global uglGraphics
    global uglGraphicsChipDB

    set device  [dialogGetValue "Graphics Configuration" "Device"]

    # Parse modes to get color depths
    set graphicsDepthList {}
    foreach mode $uglGraphicsChipDB($device,MODES) {
        set modeList [split $mode , ]
        set depth [lindex $modeList 0]
        set depthNum [lsearch $graphicsDepthList $depth]
        if { $depthNum == -1 } {
           lappend graphicsDepthList $depth
        }
    }

    dialogSetValue "Graphics Configuration" "Color Depth" $graphicsDepthList
    if { [lsearch  $graphicsDepthList $uglGraphics(DEPTH)] == -1} { 
       set uglGraphics(DEPTH) [lindex $graphicsDepthList 0] 
    }
    listSelectionChange "Graphics Configuration" "Color Depth" $uglGraphics(DEPTH)

}
####################################################################
#
#  uglGraphicsResolutionSet - set available resolutions
#
proc uglGraphicsResolutionSet {} {
    global uglGraphics
    global uglGraphicsChipDB

    set device  [dialogGetValue "Graphics Configuration" "Device"]

    # Parse modes to get resolutions
    set graphicsResList {}
    set currentDepth  [dialogGetValue "Graphics Configuration" "Color Depth"]
    foreach mode $uglGraphicsChipDB($device,MODES) {
        set modeList [split $mode , ]
        set depth [lindex $modeList 0]
        if { [ string compare $currentDepth $depth ] == 0 } {
            set resolution [lindex $modeList 1]
            set resNum [lsearch $graphicsResList $resolution]
            if { $resNum == -1 } {
               lappend graphicsResList $resolution
            }
        }
    }
    dialogSetValue "Graphics Configuration" "Resolution" $graphicsResList
    if { [lsearch  $graphicsResList $uglGraphics(RESOLUTION)] == -1} { 
       set uglGraphics(RESOLUTION) [lindex $graphicsResList 0] 
    }
    listSelectionChange "Graphics Configuration" "Resolution" $uglGraphics(RESOLUTION)
}

####################################################################
#
#  uglGraphicsRefreshSet - set available refresh rates
#
proc uglGraphicsRefreshSet {} {
    global uglGraphics
    global uglGraphicsChipDB

    set device  [dialogGetValue "Graphics Configuration" "Device"]