0024927: Getting rid of "Persistent" functionality -- Code
[occt.git] / src / DBC / DBC_Copy.tcl
1 # Copyright (c) 1999-2014 OPEN CASCADE SAS
2 #
3 # This file is part of Open CASCADE Technology software library.
4 #
5 # This library is free software; you can redistribute it and/or modify it under
6 # the terms of the GNU Lesser General Public License version 2.1 as published
7 # by the Free Software Foundation, with special exception defined in the file
8 # OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 # distribution for complete text of the license and disclaimer of any warranty.
10 #
11 # Alternatively, this file may be used under the terms of Open CASCADE
12 # commercial license or contractual agreement.
13
14 proc DBC_Copy:AdmFileType {} {
15     return "dbadmfile";
16 }
17
18 proc DBC_Copy:OutputDirTypeName {} {
19     return "dbtmpfile";
20 }
21
22
23 proc DBC_Copy:HandleInputFile { ID } { 
24
25     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
26
27     switch $name {
28         DBC_BaseArray.hxx  {return 1;} 
29         default {
30             return 0;
31         }
32     }
33 }
34
35 proc DBC_Copy:Execute { unit args } {
36     
37     msgprint -i -c "DBC_Copy:Execute" "Copy of DBC_BaseArray include"
38
39     foreach file  $args {
40         scan $file "%\[^:\]:%\[^:\]:%\[^:\]"  Unit type name
41
42         if { $name == "DBC_BaseArray.hxx" } {
43             set source    [woklocate -p DBC:source:DBC_BaseArray_objs.hxx     [wokinfo -N $unit]]
44         } else {
45             set source    [woklocate -p DBC:source:$name     [wokinfo -N $unit]]
46         }
47
48         set vistarget [woklocate -p DBC:pubinclude:$name [wokinfo -N $unit]]
49         set target    [wokinfo   -p pubinclude:$name     $unit]
50
51         if { [catch {eval exec "cmp $source $vistarget"} ] } {
52             msgprint -i -c "DBC_Copy:Execute" "Copy $source to $target"
53             eval exec "cp -p $source $target"
54         } else {
55             msgprint -i -c "DBC_Copy:Execute" "No change in $source"
56         }
57     }
58     return 0;
59 }