No comments

diff --git a/src/CDLFront/CDLFront_Replace.tcl b/src/CDLFront/CDLFront_Replace.tcl
index e86644ca1cc7f157986b6411082a8d1a8bbcd8ba..210c7bb579bca5e7a6c4d71573197429a992966d 100755 (executable)
--- a/src/CDLFront/CDLFront_Replace.tcl
+++ b/src/CDLFront/CDLFront_Replace.tcl
@@ -13,6 +13,7 @@ proc CDLFront_Replace:HandleInputFile { ID } {
     
     switch $name {
          CDL.tab.c  {return 1;} 
+         CDL.tab.h  {return 1;} 
        default {
            return 0;
        }
@@ -37,21 +38,38 @@ proc CDLFront_Replace:Execute { unit args } {
        set replstr "\\\\\\\\"
     }
     
+    ## traiting CDL.tab.c
 
-       set sourcename CDL.tab.c
-       set name       CDL.tab.c
+    set sourcename CDL.tab.c
+    set name       CDL.tab.c
 
-       set source    [woklocate -p CDLFront:source:$sourcename     [wokinfo -N $unit]]
-       set vistarget [woklocate -p CDLFront:privinclude:$name [wokinfo -N $unit]]
+    set source    [woklocate -p CDLFront:source:$sourcename     [wokinfo -N $unit]]
+    set vistarget [woklocate -p CDLFront:privinclude:$name [wokinfo -N $unit]]
 #      set target    [wokinfo   -p CDLFront:privinclude:$name [wokinfo -N $unit]]
-msgprint -i -c "$source "
-       regsub -all "/" " $source $vistarget" $replstr  TheArgs
+    msgprint -i -c "$source "
+    regsub -all "/" " $source $vistarget" $replstr  TheArgs
+
+    msgprint -i -c "CDLFront_Replace::Execute" "Copy $source to $vistarget"
+    if { [file exist $vistarget] && [wokparam -e %Station ] != "wnt" } {
+       eval exec "chmod u+w $vistarget"
+    }
+    eval exec "$copycmd $TheArgs"
+
+    ## traiting CDL.tab.h
+
+    set name       CDL.tab.h
+    set source    [woklocate -p CDLFront:source:$name     [wokinfo -N $unit]]
+    set vistarget [woklocate -p CDLFront:pubinclude:$name [wokinfo -N $unit]]
+    msgprint -i -c "$source "
+    regsub -all "/" " $source $vistarget" $replstr  TheArgs
+
+    msgprint -i -c "CDLFront_Replace::Execute" "Copy $source to $vistarget"
+    if { [file exist $vistarget] && [wokparam -e %Station ] != "wnt" } {
+       eval exec "chmod u+w $vistarget"
+    }
+    eval exec "$copycmd $TheArgs"
+
 
-       msgprint -i -c "CDLFront_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/CDLFront/FILES b/src/CDLFront/FILES
index 34216683f5666247bbff47cb8b250328051c8983..0629d1b9db49ce72c42bb40cacd656d6952ff8d3 100755 (executable)
--- a/src/CDLFront/FILES
+++ b/src/CDLFront/FILES
@@ -9,3 +9,4 @@ CDLFront_LDSHR.edl
 CDLFront_Replace.tcl
 CDLFront_WOKSteps.edl
 CDL.tab.c
+CDL.tab.h