]> OCCT Git - occt-wok.git/commitdiff
No comments
authorcas <cas@opencascade.com>
Tue, 31 Jul 2001 17:49:55 +0000 (17:49 +0000)
committercas <cas@opencascade.com>
Tue, 31 Jul 2001 17:49:55 +0000 (17:49 +0000)
src/WOKTclLib/osutils.tcl

index cb2c8890c15f9be145036aabb6483926e197a2c2..422ff0c03c0140f1b258ec622e1af3a06fdd077e 100755 (executable)
@@ -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 
+    }
 }