From: cascade <cascade@opencascade.com>
Date: Fri, 9 Feb 2007 20:13:22 +0000 (+0000)
Subject: Initial revision
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=0865c5c0579442701c6b560dbe5a77a87f4e7f21;p=occt-wok.git

Initial revision
---

diff --git a/src/WOKStep/WOKStep_ManifestEmbed.tcl b/src/WOKStep/WOKStep_ManifestEmbed.tcl
new file mode 100755
index 0000000..165353f
--- /dev/null
+++ b/src/WOKStep/WOKStep_ManifestEmbed.tcl
@@ -0,0 +1,39 @@
+proc WOKStep_ManifestEmbed:AdmFileType {} {
+    return dbadmfile;
+}
+
+proc WOKStep_ManifestEmbed:OutputDirTypeName {} {
+    return dbtmpdir;
+}
+
+proc WOKStep_ManifestEmbed:HandleInputFile { ID } {
+ scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
+ puts "name $name extension [file extension $name]"   
+ if { [file extension $name] == ".manifest" } {
+  puts "cought!"
+  return 1;
+
+ } 
+
+ return 0;
+
+}
+
+
+proc  WOKStep_ManifestEmbed:Execute { theunit args } {    
+    foreach ID $args {
+	
+	scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
+
+        set libname [woklocate -p $ID]
+	set rootname [file rootname $libname]
+        puts "rootname $rootname "
+        puts "name $name  libname $libname"
+        msgprint -i -c "WOKStep_ManifestEmbeding:Execute" "Embeding $name to $rootname"
+	    if [catch {exec mt -nologo -manifest $libname -outputresource:$rootname } status ] {
+		msgprint -e -c "WOKStep_ManifestEmbed:Execute" $status	
+		return 1
+	    }
+    }
+    return 0;
+}