src/Standard/Standard_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 Standard_Copy:AdmFileType {} {
  15     return "dbadmfile";
  16 }
  17
  18 proc Standard_Copy:OutputDirTypeName {} {
  19     return "dbtmpfile";
  20 }
  21
  22
  23 proc Standard_Copy:HandleInputFile { ID } {
  24
  25     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
  26
  27     switch $name {
  28         Standard_Transient.hxx         {return 1;}
  29         Standard_Persistent.hxx        {return 1;}
  30         default {
  31             return 0;
  32         }
  33     }
  34 }
  35
  36 proc Standard_Copy:Execute { unit args } {
  37
  38     msgprint -i -c "Standard_Copy::Execute" "Copy of Standard includes"
  39
  40     foreach file  $args {
  41         scan $file "%\[^:\]:%\[^:\]:%\[^:\]"  Unit type name
  42
  43         set source    [woklocate -p Standard:source:$name     [wokinfo -N $unit]]
  44
  45         set vistarget [woklocate -p Standard:pubinclude:$name [wokinfo -N $unit]]
  46         set target    [wokinfo   -p pubinclude:$name          $unit]
  47
  48         if { [catch {eval exec "cmp $source $vistarget"} ] } {
  49             msgprint -i -c "Standard_Copy::Execute" "Copy $source to $target"
  50             if { [file exist $target] && [wokparam -e %Station ] != "wnt" } {
  51                 eval exec "chmod u+w $target" }
  52             eval exec "cp -p $source $target"
  53             if { [wokprofile -s] == "wnt" } {
  54                 eval exec "attrib -r $target"
  55             }
  56         } else {
  57             msgprint -i -c "Standard_Copy::Execute" "No change in $source"
  58         }
  59     }
  60     return 0;
  61 }