From bd6178bdc90c302b41cc9902b0df9ce02df87b98 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Wed, 14 Nov 2001 18:01:33 +0000
Subject: [PATCH] Initial revision

---
 src/WOKDeliv/WOKDeliv_Replace.tcl  | 62 ++++++++++++++++++++++++++++++
 src/WOKDeliv/WOKDeliv_WOKSteps.edl | 20 ++++++++++
 2 files changed, 82 insertions(+)
 create mode 100755 src/WOKDeliv/WOKDeliv_Replace.tcl
 create mode 100755 src/WOKDeliv/WOKDeliv_WOKSteps.edl

diff --git a/src/WOKDeliv/WOKDeliv_Replace.tcl b/src/WOKDeliv/WOKDeliv_Replace.tcl
new file mode 100755
index 0000000..52a5e03
--- /dev/null
+++ b/src/WOKDeliv/WOKDeliv_Replace.tcl
@@ -0,0 +1,62 @@
+proc WOKDeliv_Replace:AdmFileType {} {
+    return "dbadmfile";
+}
+
+proc WOKDeliv_Replace:OutputDirTypeName {} {
+    return "dbtmpfile";
+}
+
+
+proc WOKDeliv_Replace:HandleInputFile { ID } { 
+
+    scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
+    
+    switch $name {
+         DELIVERY.tab.c  {return 1;} 
+	default {
+	    return 0;
+	}
+    }
+}
+
+proc WOKDeliv_Replace:Execute { unit args } {
+    
+    msgprint -i -c "WOKDeliv_Replace::Execute" "Copying of WOKDeliv derivated files  $unit $args "
+
+    global tcl_interactive
+
+    set tcl_interactive 1
+    package require Wokutils
+
+
+    if { [wokparam -e %Station $unit] != "wnt" } {
+	set copycmd "cp -p "
+	set replstr "/"
+    } else {
+	set copycmd "cmd /c copy"
+	set replstr "\\\\\\\\"
+    }
+    
+    ## traiting DELIVERY.tab.c
+
+    set sourcename DELIVERY.tab.c
+    set name       DELIVERY.tab.c
+
+    set source    [woklocate -p WOKDeliv:source:$sourcename     [wokinfo -N $unit]]
+    set vistarget [woklocate -p WOKDeliv:privinclude:$name [wokinfo -N $unit]]
+#	set target    [wokinfo   -p WOKDeliv:privinclude:$name [wokinfo -N $unit]]
+    msgprint -i -c "$source "
+    regsub -all "/" " $source $vistarget" $replstr  TheArgs
+
+    msgprint -i -c "WOKDeliv_Replace::Execute" "Copy $source to $vistarget"
+    if { [file exist $vistarget] && [wokparam -e %Station ] != "wnt" } {
+	eval exec "chmod u+w $vistarget"
+    }
+    eval exec "$copycmd $TheArgs"
+
+
+    return 0;
+}
+
+
+
diff --git a/src/WOKDeliv/WOKDeliv_WOKSteps.edl b/src/WOKDeliv/WOKDeliv_WOKSteps.edl
new file mode 100755
index 0000000..6d93261
--- /dev/null
+++ b/src/WOKDeliv/WOKDeliv_WOKSteps.edl
@@ -0,0 +1,20 @@
+-- File:	WOKDeliv_WOKSteps.edl
+-- Author:	Atelier CAS2000
+-- History:	Thu Jun 29 13:18:31 2000	Atelier CAS2000	Creation
+-- Copyright:	 Matra Datavision 2000
+
+
+@set %WOKDeliv_WOKSteps_EDL = "";
+
+--- Insert your stuff Here
+
+ @set %CASCADESamplesJni_WOKSteps_EDL  = "";
+ @string %WOKSteps_XcppGroup += " xcpp.repl ";
+ @set %WOKSteps_xcpp_repl     = "*WOKDeliv_Replace(obj.inc)";
+
+
+
+
+@set %WOKSteps_UseSourceInclude = "yes";
+
+
-- 
2.39.5