OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
Code Packages Releases Activity

Coding - Remove obsolete Standard_Copy.tcl file

Browse Source
This commit is contained in:
dpasukhi 2024-12-21 13:27:29 +00:00
parent 4bda7ebe40
commit 0ffcc44c82
2 changed files with 0 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Standard/FILES
View File

@ -13,7 +13,6 @@ Standard_CLocaleSentry.hxx
Standard_Condition.cxx
Standard_Condition.hxx
Standard_ConstructionError.hxx
Standard_Copy.tcl
Standard_CString.cxx
Standard_CString.hxx
Standard_CStringHasher.hxx

61
src/Standard/Standard_Copy.tcl
View File

@ -1,61 +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 Standard_Copy:AdmFileType {} {
return "dbadmfile";
}
proc Standard_Copy:OutputDirTypeName {} {
return "dbtmpfile";
}
proc Standard_Copy:HandleInputFile { ID } {
scan $ID "%\[^:\]:%\[^:\]:%\[^:\]" unit type name
switch $name {
Standard_Transient.hxx {return 1;}
Standard_Persistent.hxx {return 1;}
default {
return 0;
}
}
}
proc Standard_Copy:Execute { unit args } {
msgprint -i -c "Standard_Copy::Execute" "Copy of Standard includes"
foreach file $args {
scan $file "%\[^:\]:%\[^:\]:%\[^:\]" Unit type name
set source [woklocate -p Standard:source:$name [wokinfo -N $unit]]
set vistarget [woklocate -p Standard:pubinclude:$name [wokinfo -N $unit]]
set target [wokinfo -p pubinclude:$name $unit]
if { [catch {eval exec "cmp $source $vistarget"} ] } {
msgprint -i -c "Standard_Copy::Execute" "Copy $source to $target"
if { [file exist $target] && [wokparam -e %Station ] != "wnt" } {
eval exec "chmod u+w $target" }
eval exec "cp -p $source $target"
if { [wokprofile -s] == "wnt" } {
eval exec "attrib -r $target"
}
} else {
msgprint -i -c "Standard_Copy::Execute" "No change in $source"
}
}
return 0;
}