From a10ccd5da77bd0d5cd039b4395d886fb903492b7 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Tue, 31 Jul 2001 17:49:55 +0000
Subject: [PATCH] No comments

---
 src/WOKTclLib/osutils.tcl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/WOKTclLib/osutils.tcl b/src/WOKTclLib/osutils.tcl
index cb2c889..422ff0c 100755
--- a/src/WOKTclLib/osutils.tcl
+++ b/src/WOKTclLib/osutils.tcl
@@ -673,7 +673,7 @@ proc osutils:in:__AMDEPTRUE__ { l } {
 ;#
 proc TESTAM { {root home/AUTOCONF/src} } {
 
-    ;#set root /adv_21/KAS/C40/yan/work/auto/src
+    set root /home/AUTOCONF/src/
 
     wokcd  KAS:C40:ros
     set ltk [w_info  -T toolkit [wokcd]]
@@ -683,4 +683,12 @@ proc TESTAM { {root home/AUTOCONF/src} } {
 	wokUtils:FILES:mkdir $root/$tkloc
 	osutils:tk:mkam $root/$tkloc $tkloc 
     }
+
+    set ltk [w_info  -T executable [wokcd]]
+#    set ltk {}
+    foreach tkloc $ltk {
+	puts " Executable: $tkloc ==> [woklocate -p ${tkloc}:source:EXTERNLIB KAS:C40:ros]"
+	wokUtils:FILES:mkdir $root/$tkloc
+	osutils:tk:mkamx  $root/$tkloc $tkloc 
+    }
 }
-- 
2.39.5