0024927: Getting rid of "Persistent" functionality -- Code
[occt.git] / src / DBC / DBC_Copy.tcl
diff --git a/src/DBC/DBC_Copy.tcl b/src/DBC/DBC_Copy.tcl
deleted file mode 100644 (file)
index fbb21f4..0000000
+++ /dev/null
@@ -1,59 +0,0 @@
-# Copyright (c) 1999-2014 OPEN CASCADE SAS
-#
-# This file is part of Open CASCADE Technology software library.
-#
-# This library is free software; you can redistribute it and/or modify it under
-# the terms of the GNU Lesser General Public License version 2.1 as published
-# by the Free Software Foundation, with special exception defined in the file
-# OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-# distribution for complete text of the license and disclaimer of any warranty.
-#
-# Alternatively, this file may be used under the terms of Open CASCADE
-# commercial license or contractual agreement.
-
-proc DBC_Copy:AdmFileType {} {
-    return "dbadmfile";
-}
-
-proc DBC_Copy:OutputDirTypeName {} {
-    return "dbtmpfile";
-}
-
-
-proc DBC_Copy:HandleInputFile { ID } { 
-
-    scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
-
-    switch $name {
-       DBC_BaseArray.hxx  {return 1;} 
-       default {
-           return 0;
-       }
-    }
-}
-
-proc DBC_Copy:Execute { unit args } {
-    
-    msgprint -i -c "DBC_Copy:Execute" "Copy of DBC_BaseArray include"
-
-    foreach file  $args {
-       scan $file "%\[^:\]:%\[^:\]:%\[^:\]"  Unit type name
-
-       if { $name == "DBC_BaseArray.hxx" } {
-           set source    [woklocate -p DBC:source:DBC_BaseArray_objs.hxx     [wokinfo -N $unit]]
-       } else {
-           set source    [woklocate -p DBC:source:$name     [wokinfo -N $unit]]
-       }
-
-       set vistarget [woklocate -p DBC:pubinclude:$name [wokinfo -N $unit]]
-       set target    [wokinfo   -p pubinclude:$name     $unit]
-
-       if { [catch {eval exec "cmp $source $vistarget"} ] } {
-           msgprint -i -c "DBC_Copy:Execute" "Copy $source to $target"
-           eval exec "cp -p $source $target"
-       } else {
-           msgprint -i -c "DBC_Copy:Execute" "No change in $source"
-       }
-    }
-    return 0;
-}