From: mnt Date: Fri, 11 Dec 2009 12:47:14 +0000 (+0000) Subject: Removing earlier removed file X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=f7b8fc2f91e031b070cabcdde4a76dfe62c58b6f;p=occt-wok.git Removing earlier removed file --- diff --git a/src/WOKTclTools/WOKTclTools_Interpretor_proto.hxx b/src/WOKTclTools/WOKTclTools_Interpretor_proto.hxx deleted file mode 100755 index d8de65b..0000000 --- a/src/WOKTclTools/WOKTclTools_Interpretor_proto.hxx +++ /dev/null @@ -1,81 +0,0 @@ -// File modified by jga for Visul C++ 5.0 -// -#ifndef _WOKTclTools_Interpretor_HeaderFile -#define _WOKTclTools_Interpretor_HeaderFile - -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -class WOKTools_Return; - - -class WOKTclTools_Interpretor : public MMgt_TShared { - -public: - - // Methods PUBLIC - // - Standard_EXPORT WOKTclTools_Interpretor(); - Standard_EXPORT WOKTclTools_Interpretor(const WOKTclTools_PInterp& anInterp); - Standard_EXPORT void Add(const Standard_CString Command,const Standard_CString Help,const WOKTclTools_CommandFunction Function,const Standard_CString Group = "User Commands") ; - Standard_EXPORT void Add(const Standard_CString Command,const Standard_CString Help,const WOKTclTools_WokCommand Function,const Standard_CString Group = "User Commands") ; - Standard_EXPORT void AddExitHandler(const WOKTclTools_ExitHandler Function) ; - Standard_EXPORT void DeleteExitHandler(const WOKTclTools_ExitHandler Function) ; - Standard_EXPORT Standard_Boolean IsCmdName(const Standard_CString Command) ; - Standard_EXPORT Standard_Boolean Remove(const Standard_CString Command) ; - Standard_EXPORT Standard_Integer PkgProvide(const Standard_CString aname,const Standard_CString aversion) ; - Standard_EXPORT Standard_Integer TreatReturn(const WOKTools_Return& values) ; - Standard_EXPORT Standard_CString Result() const; - Standard_EXPORT Standard_Boolean GetReturnValues(WOKTools_Return& retval) const; - Standard_EXPORT void Reset() ; - Standard_EXPORT void Append(const Standard_CString Result) ; - Standard_EXPORT void Append(const Standard_Integer Result) ; - Standard_EXPORT void Append(const Standard_Real Result) ; - Standard_EXPORT void AppendElement(Standard_CString Result) ; - Standard_EXPORT Standard_Integer Eval(const Standard_CString Script) ; - Standard_EXPORT Standard_Integer RecordAndEval(const Standard_CString Script,const Standard_Integer Flags = 0) ; - Standard_EXPORT Standard_Integer EvalFile(const Standard_CString FileName) ; - Standard_EXPORT static Standard_Boolean Complete(const Standard_CString Script) ; - Standard_EXPORT void Destroy() ; - ~WOKTclTools_Interpretor() - { - Destroy(); - } - - Standard_EXPORT void Set(const WOKTclTools_PInterp& anInterp) ; - Standard_EXPORT WOKTclTools_PInterp Interp() const; - Standard_EXPORT static Handle_WOKTclTools_Interpretor& Current() ; - Standard_EXPORT static void SetEndMessageProc(const Standard_CString aproc) ; - Standard_EXPORT static void UnSetEndMessageProc() ; - Standard_EXPORT static Standard_CString& EndMessageProc() ; - Standard_EXPORT static void SetEndMessageArgs(const Standard_CString aArgs) ; - Standard_EXPORT static void UnSetEndMessageArgs() ; - Standard_EXPORT static Standard_CString& EndMessageArgs() ; - Standard_EXPORT void TreatMessage(const Standard_Boolean newline,const Standard_Character atype,const Standard_CString amsg) const; - - // Type management - // - friend Standard_EXPORT Handle_Standard_Type& WOKTclTools_Interpretor_Type_(); - Standard_EXPORT const Handle(Standard_Type)& DynamicType() const; - Standard_EXPORT Standard_Boolean IsKind(const Handle(Standard_Type)&) const; - -private: - - // Fields PRIVATE - // - Standard_Boolean isAllocated; - WOKTclTools_PInterp myInterp; - - -}; - -#endif diff --git a/src/WOKTclTools/WOKTclTools_Replace.tcl b/src/WOKTclTools/WOKTclTools_Replace.tcl deleted file mode 100755 index 17b23f0..0000000 --- a/src/WOKTclTools/WOKTclTools_Replace.tcl +++ /dev/null @@ -1,60 +0,0 @@ - - -proc WOKTclTools_Replace:AdmFileType {} { - return "dbadmfile"; -} - -proc WOKTclTools_Replace:OutputDirTypeName {} { - return "dbtmpfile"; -} - - -proc WOKTclTools_Replace:HandleInputFile { ID } { - - scan $ID "%\[^:\]:%\[^:\]:%\[^:\]" unit type name - - switch $name { - WOKTclTools_Interpretor.hxx {return 1;} - default { - return 0; - } - } -} - -proc WOKTclTools_Replace:Execute { unit args } { - - global tcl_interactive - - set tcl_interactive 1 - package require Wokutils - - msgprint -i -c "WOKTclTools_Replace::Execute" "Copying of WOKTclTools includes" - - if { [wokparam -e %Station $unit] != "wnt" } { - set copycmd "cp -p " - set replstr "/" - } { - set copycmd "cmd /c copy" - set replstr "\\\\\\\\" - } - - foreach file $args { - scan $file "%\[^:\]:%\[^:\]:%\[^:\]" Unit type name - - regsub ".hxx" $name "_proto.hxx" sourcename - - set source [woklocate -p WOKTclTools:source:$sourcename [wokinfo -N $unit]] - set vistarget [woklocate -p WOKTclTools:pubinclude:$name [wokinfo -N $unit]] - set target [wokinfo -p pubinclude:$name $unit] - - regsub -all "/" " $source $target" $replstr TheArgs - - msgprint -i -c "WOKTclTools_Replace::Execute" "Copy $source to $target" - if { [file exist $target] && [wokparam -e %Station $unit] != "wnt" } { - eval exec "chmod u+w $target" - } - eval exec "$copycmd $TheArgs" - - } - return 0; -} diff --git a/src/WOKTclTools/WOKTclTools_WOKSteps.edl b/src/WOKTclTools/WOKTclTools_WOKSteps.edl deleted file mode 100755 index 4436211..0000000 --- a/src/WOKTclTools/WOKTclTools_WOKSteps.edl +++ /dev/null @@ -1,6 +0,0 @@ -@ifnotdefined ( %MS_WOKSteps_EDL ) then - @set %MS_WOKSteps_EDL = ""; - @string %WOKSteps_XcppGroup += " xcpp.repl "; - @set %WOKSteps_xcpp_repl = "*WOKTclTools_Replace(xcpp.header)"; -@endif; -