01zinc.tcl

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

    global env
   
    # Write out file configuration to config.h file
    set fd [open $zincConfigDir/zinccnfg.h w]
    puts $fd "/* zinccnfg.h - Zinc configuration header file */"
    puts $fd $zincFileWarningMsg
    puts $fd [format "/* File created %s from %s */" $dateInfo $configname]
    puts $fd ""
    puts $fd "/*"
    puts $fd " * Because some defines may be prevously defined in z_env.hpp "
    puts $fd " * most must be undefined."
    puts $fd "*/"
    
    # Generate needed #defines.
    puts $fd "#undef ZAF_ISO8859_1" 
    puts $fd "#undef ZAF_UNICODE" 
    if {$zincConfigCompile(ZINC_UNICODE) != 0} {
        puts $fd "#define ZAF_UNICODE" 
    } else {
        puts $fd "#define ZAF_ISO8859_1" 
    }
    puts $fd ""
    
    puts $fd "#undef USE_ZAF_CODE_SET_DATA" 
    if {$zincConfigCompile(ZINC_CODE_SET) != 0} {
        puts $fd "#define USE_ZAF_CODE_SET_DATA" 
    }
    puts $fd ""
    
    puts $fd "#undef USE_ZAF_ERROR_SYSTEM"
    if {$zincConfigCompile(ZINC_ERROR_SYS) != 0} {
        puts $fd "#define USE_ZAF_ERROR_SYSTEM"
    }
    puts $fd ""
    
    puts $fd "#undef USE_ZAF_HELP_TIPS" 
    if {$zincConfigCompile(ZINC_HELP_TIPS) != 0} {
        puts $fd "#define USE_ZAF_HELP_TIPS" 
    }
    puts $fd ""
    
    puts $fd "#undef USE_ZAF_KEYBOARD" 
    if {$zincConfigCompile(ZINC_KEYBOARD) != 0} {
        puts $fd "#define USE_ZAF_KEYBOARD" 
    }
    puts $fd ""
    
    puts $fd "#undef USE_ZAF_MOUSE" 
    if {$zincConfigCompile(ZINC_MOUSE) != 0} {
        puts $fd "#define USE_ZAF_MOUSE" 
    }
    puts $fd ""
    
    puts $fd "#undef USE_ZAF_SEARCH_PATH" 
    if {$zincConfigCompile(ZINC_SEARCH_PATH) != 0} {
        puts $fd "#define USE_ZAF_SEARCH_PATH" 
    }
    puts $fd ""
 
    puts $fd "#undef USE_ZAF_PERSISTENCE" 
    if {$zincConfigCompile(ZINC_PERSIST) != 0} {
        puts $fd "#define USE_ZAF_PERSISTENCE" 
    }
    if {$zincConfigCompile(ZINC_PERSIST) == 0 || $zincConfigCompile(ZINC_READ) == 0} {
        puts $fd "#define EXCLUDE_ZAF_READ" 
    }
    if {$zincConfigCompile(ZINC_PERSIST) == 0 || $zincConfigCompile(ZINC_WRITE) == 0} {
        puts $fd "#define EXCLUDE_ZAF_WRITE" 
    }
    puts $fd ""

    # Make sure ZAF_ITEXT is definded correctly.
    puts $fd "/* Make sure ZAF_ITEXT is defined correctly. */"
    puts $fd "#undef ZAF_ITEXT"
    puts $fd "#if defined(ZAF_UNICODE)"
    puts $fd "#	define ZAF_ITEXT(x)	L ## x"
    puts $fd "#else"
    puts $fd "#	define ZAF_ITEXT(x)	x"
    puts $fd "#endif"

    close $fd
}

####################################################################
#
# zincConfigSave - save a configuration
#
proc zincConfigSave {} {
    global zincConfigList
    global zincArchType
    global zincConfigDir
    global zincConfigChange
    global zincConfigMisc
    global zincConfigCompile

    set configname         [dialogGetValue "Zinc Configuration" "Configuration"]
    set zincConfig(ARCH)    [dialogGetValue "Zinc Configuration" "Processor"]

    if {$configname == ""} {
        messageBox "Need to specify a configuation file"
        return
    }
    set fd [open $zincConfigDir/$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" $zincArchType ]
        
    # Output general configuration values
    puts $fd [format $fstr "BUILD_DEBUG"   $zincConfigMisc(DEBUG_BUILD)]
    puts $fd [format $fstr "BUILD_TOOL"    $zincConfigMisc(BUILD_TOOL)]

    # Output Configuration Options values
    puts $fd [format $fstr "ZINC_UNICODE"     $zincConfigCompile(ZINC_UNICODE)]
    puts $fd [format $fstr "ZINC_CODE_SET"    $zincConfigCompile(ZINC_CODE_SET)]
    puts $fd [format $fstr "ZINC_ERROR_SYS"   $zincConfigCompile(ZINC_ERROR_SYS)]
    puts $fd [format $fstr "ZINC_HELP_TIPS"   $zincConfigCompile(ZINC_HELP_TIPS)]
    puts $fd [format $fstr "ZINC_KEYBOARD"    $zincConfigCompile(ZINC_KEYBOARD)]
    puts $fd [format $fstr "ZINC_MOUSE"       $zincConfigCompile(ZINC_MOUSE)]
    puts $fd [format $fstr "ZINC_SEARCH_PATH" $zincConfigCompile(ZINC_SEARCH_PATH)]
    puts $fd [format $fstr "ZINC_PERIST"      $zincConfigCompile(ZINC_PERSIST)]
    if {$zincConfigCompile(ZINC_PERSIST) == 0} {
       puts $fd [format $fstr "ZINC_READ"        0]
       puts $fd [format $fstr "ZINC_WRITE"       0]
    } else {
       puts $fd [format $fstr "ZINC_READ"        $zincConfigCompile(ZINC_READ)]
       puts $fd [format $fstr "ZINC_WRITE"       $zincConfigCompile(ZINC_WRITE)]
    }
    puts $fd ""

    close $fd
    set zincConfigChange 0
}

#########################################################
#
# zincUnpostAll - drop all windows
#
proc zincUnpostAll {} {

    dialogUnpost "Configuration Options"
    dialogUnpost "Build Options"
}

####################################################################
#
# zincConfigDelete - delete a configuration
#
proc zincConfigDelete {args} {
    global zincConfigDir


    # Get the configuration file name
    set configname [dialogGetValue "Zinc 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 configuration file
    set configname [dialogGetValue "Zinc Configuration" Configuration]
    exec rm $zincConfigDir/$configname.cfg

    # Update the list of configuration files
    zincSetFileList
}

####################################################################
#
#  zincConfigBuild - process the "build" button to build the zinc
#                   system
#
proc zincConfigBuild {} {
    global zincHome
    global zincArchType
    global zincConfigMisc
    global zincConfigChange
    global zincToolDB
    global zincToolAllList
    global env

    set configname   [dialogGetValue "Zinc Configuration" "Configuration"]
    if {$configname == ""} {
        noticePost error "Need to specify a configuation file"
        return
    }
   
    set zincBuildWarningMsg  \
"If a Configuration Option has been changed then a Clean Build must be done.
Do you want to continue?
"
    set answer [noticePost question $zincBuildWarningMsg  Yes No]
    if {$answer != 1} {
        return
    }

    set dateInfo [exec date]

    # Create the output files for compilation
    zincWriteConfigH $configname $dateInfo

   cd $zincHome/target/src/zinc

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

   # get the tool to use for build
   set tool $zincToolDB($zincConfigMisc(BUILD_TOOL),TOOL)
   
   set cmd {runTerminal "Build Zinc" 0 shwait \
     $env(WIND_BASE)/host/[wtxHostType]/bin/make CPU=$cpuType TOOL=$tool NEW_DEFINES=-DZINC_CONFIG_TOOL }

   # check for debug     
   if {$zincConfigMisc(DEBUG_BUILD)} { 
      set cmd [concat $cmd "ADDED_C++FLAGS=-g" ]
   }

   # Type of build
      set cmd [concat $cmd "configtoolApplibs" ]

   eval $cmd   
}

####################################################################
#
#  zincConfigBuildClean - process the "build" button to build the zinc
#                   system
#
proc zincConfigBuildClean {} {
    global zincHome
    global zincArchType
    global zincConfigMisc
    global zincConfigChange
    global env

    set configname   [dialogGetValue "Zinc Configuration" "Configuration"]
    if {$configname == ""} {
        noticePost error "Need to specify a configuation file."
        return
    }
   
    set dateInfo [exec date]

    # Create the output files for compilation
    zincWriteConfigH $configname $dateInfo

    cd $zincHome/target/src/zinc

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

   set cmd {runTerminal "Build Zinc" 0 shwait \
     $env(WIND_BASE)/host/[wtxHostType]/bin/make CPU=$cpuType NEW_DEFINES=-DZINC_CONFIG_TOOL }

   # check for debug     
   if {$zincConfigMisc(DEBUG_BUILD)} { 
      set cmd [concat $cmd "ADDED_C++FLAGS=-g" ]
   }

   # Type of build
      set cmd [concat $cmd "configtoolApplibsClean" ]

   eval $cmd   
}

#########################################################
#
# zincConfigClean - process the "clean" button
#
proc zincConfigClean {} {
    global env
    global zincHome
    global zincConfigMisc
    global zincArchType

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

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


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

    cd $zincHome/target/src/zinc

      runTerminal "Clean Zinc" 0 shwait \
        $env(WIND_BASE)/host/[wtxHostType]/bin/make CPU=$cpuType zincrclean
}

#########################################################
#
# zincConfigQuit - process the zinc-Windows "quit" button
#
proc zincConfigQuit {} {
    global zincConfigChange
    global zDebugFd

#    close $zDebugFd

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

    zincUnpostAll
    dialogUnpost "Zinc Configuration"
}

##############################################################################
#
# Procedure to launch the designer.
#

proc launchZinc {} {
	global env
        exec $env(WIND_BASE)/host/$env(WIND_HOST_TYPE)/bin/zdesign \! &
}