From d8432f0ba95573a8bdd72696622765260fbd8eb9 Mon Sep 17 00:00:00 2001
From: moumou <luc.moulinier@unistra.fr>
Date: Sat, 1 Sep 2018 16:45:33 +0200
Subject: [PATCH] ordali_amdin

---
 src/ordali_admin.tcl | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/src/ordali_admin.tcl b/src/ordali_admin.tcl
index 283c5f8..5563ce0 100755
--- a/src/ordali_admin.tcl
+++ b/src/ordali_admin.tcl
@@ -95,13 +95,10 @@ proc LoadTclPackages {} {
     package require tclfastme
     package require http
     package require sqlite3
-    package require La
-    catch { namespace import La::*}
-    package require struct
-    package require tdom
-    if {$::tcl_version ne "8.6"} {
-	package require TclOO
-    }
+    #package require La
+    #catch { namespace import La::*}
+    #package require struct
+    #package require tdom
     
     return
 }
@@ -255,24 +252,29 @@ proc CreeOrdalieStarpack {plat} {
     file copy [file join .. TclKits sdx.kit] sdx.kit
     set fkit [glob [file join .. TclKits "tclkit-${plat}*"]]
     set ext [file extension $fkit]
-    set kit "tclkit$ext"
+    set kit [file tail $fkit]
     file copy $fkit $kit
     set frun [glob [file join .. TclKits "tcltkkit-${plat}*"]]
-    set run "tcltkkit$ext"
+    set run [file tail $frun]
     file copy $frun $run
     set target "ordalie$ext"
-
     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 wrap $target -runtime $run
+    if {! [file exists $target]} {
+	puts "problem while creating executable !"
+	exit
+    }
     
     file delete -force ordalie.vfs
     file delete -force ordalie.kit
     file delete -force ordalie.tcl
     file delete -force sdx.kit
     file delete -force {*}[glob *tcl*kit*]
-
+    puts "cleaning done ..."
+    
     return
 }
 
-- 
GitLab