Commit d8432f0b authored by luc.moulinier's avatar luc.moulinier

ordali_amdin

parent 2e4d1e1f
...@@ -95,13 +95,10 @@ proc LoadTclPackages {} { ...@@ -95,13 +95,10 @@ proc LoadTclPackages {} {
package require tclfastme package require tclfastme
package require http package require http
package require sqlite3 package require sqlite3
package require La #package require La
catch { namespace import La::*} #catch { namespace import La::*}
package require struct #package require struct
package require tdom #package require tdom
if {$::tcl_version ne "8.6"} {
package require TclOO
}
return return
} }
...@@ -255,24 +252,29 @@ proc CreeOrdalieStarpack {plat} { ...@@ -255,24 +252,29 @@ proc CreeOrdalieStarpack {plat} {
file copy [file join .. TclKits sdx.kit] sdx.kit file copy [file join .. TclKits sdx.kit] sdx.kit
set fkit [glob [file join .. TclKits "tclkit-${plat}*"]] set fkit [glob [file join .. TclKits "tclkit-${plat}*"]]
set ext [file extension $fkit] set ext [file extension $fkit]
set kit "tclkit$ext" set kit [file tail $fkit]
file copy $fkit $kit file copy $fkit $kit
set frun [glob [file join .. TclKits "tcltkkit-${plat}*"]] set frun [glob [file join .. TclKits "tcltkkit-${plat}*"]]
set run "tcltkkit$ext" set run [file tail $frun]
file copy $frun $run file copy $frun $run
set target "ordalie$ext" set target "ordalie$ext"
puts "CreeOrdaliStarpack" puts "CreeOrdaliStarpack"
exec ./$kit sdx.kit qwrap ordalie.tcl
exec ./$kit sdx.kit qwrap ordalie.tcl
exec ./$kit sdx.kit unwrap ordalie.kit exec ./$kit sdx.kit unwrap ordalie.kit
exec ./$kit sdx.kit wrap $target -runtime $run exec ./$kit sdx.kit wrap $target -runtime $run
if {! [file exists $target]} {
puts "problem while creating executable !"
exit
}
file delete -force ordalie.vfs file delete -force ordalie.vfs
file delete -force ordalie.kit file delete -force ordalie.kit
file delete -force ordalie.tcl file delete -force ordalie.tcl
file delete -force sdx.kit file delete -force sdx.kit
file delete -force {*}[glob *tcl*kit*] file delete -force {*}[glob *tcl*kit*]
puts "cleaning done ..."
return return
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment