From 0ffcc44c82f2aad85496a9b21b57bf7eebda2605 Mon Sep 17 00:00:00 2001
From: dpasukhi <dpasukhi@opencascade.com>
Date: Sat, 21 Dec 2024 13:27:29 +0000
Subject: [PATCH] Coding - Remove obsolete Standard_Copy.tcl file

---
 src/Standard/FILES             |  1 -
 src/Standard/Standard_Copy.tcl | 61 ----------------------------------
 2 files changed, 62 deletions(-)
 delete mode 100644 src/Standard/Standard_Copy.tcl

diff --git a/src/Standard/FILES b/src/Standard/FILES
index e3465f7568..2b56a0c5eb 100755
--- a/src/Standard/FILES
+++ b/src/Standard/FILES
@@ -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
diff --git a/src/Standard/Standard_Copy.tcl b/src/Standard/Standard_Copy.tcl
deleted file mode 100644
index fb507930d9..0000000000
--- a/src/Standard/Standard_Copy.tcl
+++ /dev/null
@@ -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;
-}