Initial revision

diff --git a/src/WOKDeliv/WOKDeliv_Replace.tcl b/src/WOKDeliv/WOKDeliv_Replace.tcl
new file mode 100755 (executable)
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 (executable)
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";
+
+