From b51b8f7dc57d350ac38da09b5fc7565a94f8bf45 Mon Sep 17 00:00:00 2001 From: cas Date: Fri, 22 Oct 1999 18:05:40 +0000 Subject: [PATCH] Initial revision --- src/WOKUtils/EDL.edl | 31 + src/WOKUtils/FILES | 30 + src/WOKUtils/Handle_WOKUtils_Path_proto.hxx | 26 + src/WOKUtils/Handle_WOKUtils_RegExp_proto.hxx | 26 + .../Handle_WOKUtils_RemoteShell_proto.hxx | 27 + src/WOKUtils/Handle_WOKUtils_Shell_proto.hxx | 27 + src/WOKUtils/WOKUtils.cdl | 109 +++ src/WOKUtils/WOKUtils_AdmFile.hxx | 26 + src/WOKUtils/WOKUtils_CMPLRS.edl | 15 + src/WOKUtils/WOKUtils_Extension_proto.hxx | 126 ++++ src/WOKUtils/WOKUtils_Param.cdl | 149 ++++ src/WOKUtils/WOKUtils_Param.cxx | 708 ++++++++++++++++++ src/WOKUtils/WOKUtils_ParamItem.cdl | 33 + src/WOKUtils/WOKUtils_ParamItem.cxx | 73 ++ src/WOKUtils/WOKUtils_Param_proto.hxx | 133 ++++ src/WOKUtils/WOKUtils_Path.cdl | 147 ++++ src/WOKUtils/WOKUtils_Path.cxx | 46 ++ src/WOKUtils/WOKUtils_PathHasher.cdl | 13 + src/WOKUtils/WOKUtils_PathHasher.cxx | 26 + src/WOKUtils/WOKUtils_PathIterator.cdl | 32 + src/WOKUtils/WOKUtils_PathIterator.cxx | 5 + src/WOKUtils/WOKUtils_PathIterator_proto.hxx | 26 + src/WOKUtils/WOKUtils_Path_proto.hxx | 27 + src/WOKUtils/WOKUtils_ProcessManager.hxx | 24 + src/WOKUtils/WOKUtils_RESyntax_proto.hxx | 37 + src/WOKUtils/WOKUtils_RegExp.cdl | 16 + src/WOKUtils/WOKUtils_RegExp.cxx | 8 + src/WOKUtils/WOKUtils_RegExp.hxx | 28 + src/WOKUtils/WOKUtils_RegExp_proto.hxx | 28 + src/WOKUtils/WOKUtils_RemoteShell.cdl | 17 + src/WOKUtils/WOKUtils_RemoteShell.cxx | 50 ++ src/WOKUtils/WOKUtils_RemoteShell_proto.hxx | 29 + src/WOKUtils/WOKUtils_Replace.tcl | 82 ++ src/WOKUtils/WOKUtils_SearchIterator.cdl | 31 + src/WOKUtils/WOKUtils_SearchIterator.cxx | 92 +++ src/WOKUtils/WOKUtils_SearchList.cdl | 35 + src/WOKUtils/WOKUtils_SearchList.cxx | 97 +++ src/WOKUtils/WOKUtils_Shell.cdl | 17 + src/WOKUtils/WOKUtils_Shell.cxx | 47 ++ src/WOKUtils/WOKUtils_ShellManager.cdl | 35 + src/WOKUtils/WOKUtils_ShellManager.cxx | 7 + src/WOKUtils/WOKUtils_ShellManager_proto.hxx | 26 + src/WOKUtils/WOKUtils_Shell_proto.hxx | 27 + src/WOKUtils/WOKUtils_SigHandler.hxx | 20 + src/WOKUtils/WOKUtils_Signal.hxx | 32 + src/WOKUtils/WOKUtils_TimeStat.hxx | 18 + src/WOKUtils/WOKUtils_Timeval.hxx | 14 + src/WOKUtils/WOKUtils_Trigger.cdl | 141 ++++ src/WOKUtils/WOKUtils_Trigger.cxx | 421 +++++++++++ src/WOKUtils/WOKUtils_TriggerAction.hxx | 14 + src/WOKUtils/WOKUtils_TriggerControl.hxx | 21 + src/WOKUtils/WOKUtils_TriggerHandler.hxx | 22 + src/WOKUtils/WOKUtils_Trigger_proto.hxx | 131 ++++ src/WOKUtils/WOKUtils_Triggers.hxx | 26 + src/WOKUtils/WOKUtils_WOKSteps.edl | 13 + src/WOKUtils/WOKUtils_WOKVersion.hxx | 12 + 56 files changed, 3479 insertions(+) create mode 100755 src/WOKUtils/EDL.edl create mode 100755 src/WOKUtils/FILES create mode 100755 src/WOKUtils/Handle_WOKUtils_Path_proto.hxx create mode 100755 src/WOKUtils/Handle_WOKUtils_RegExp_proto.hxx create mode 100755 src/WOKUtils/Handle_WOKUtils_RemoteShell_proto.hxx create mode 100755 src/WOKUtils/Handle_WOKUtils_Shell_proto.hxx create mode 100755 src/WOKUtils/WOKUtils.cdl create mode 100755 src/WOKUtils/WOKUtils_AdmFile.hxx create mode 100755 src/WOKUtils/WOKUtils_CMPLRS.edl create mode 100755 src/WOKUtils/WOKUtils_Extension_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_Param.cdl create mode 100755 src/WOKUtils/WOKUtils_Param.cxx create mode 100755 src/WOKUtils/WOKUtils_ParamItem.cdl create mode 100755 src/WOKUtils/WOKUtils_ParamItem.cxx create mode 100755 src/WOKUtils/WOKUtils_Param_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_Path.cdl create mode 100755 src/WOKUtils/WOKUtils_Path.cxx create mode 100755 src/WOKUtils/WOKUtils_PathHasher.cdl create mode 100755 src/WOKUtils/WOKUtils_PathHasher.cxx create mode 100755 src/WOKUtils/WOKUtils_PathIterator.cdl create mode 100755 src/WOKUtils/WOKUtils_PathIterator.cxx create mode 100755 src/WOKUtils/WOKUtils_PathIterator_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_Path_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_ProcessManager.hxx create mode 100755 src/WOKUtils/WOKUtils_RESyntax_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_RegExp.cdl create mode 100755 src/WOKUtils/WOKUtils_RegExp.cxx create mode 100755 src/WOKUtils/WOKUtils_RegExp.hxx create mode 100755 src/WOKUtils/WOKUtils_RegExp_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_RemoteShell.cdl create mode 100755 src/WOKUtils/WOKUtils_RemoteShell.cxx create mode 100755 src/WOKUtils/WOKUtils_RemoteShell_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_Replace.tcl create mode 100755 src/WOKUtils/WOKUtils_SearchIterator.cdl create mode 100755 src/WOKUtils/WOKUtils_SearchIterator.cxx create mode 100755 src/WOKUtils/WOKUtils_SearchList.cdl create mode 100755 src/WOKUtils/WOKUtils_SearchList.cxx create mode 100755 src/WOKUtils/WOKUtils_Shell.cdl create mode 100755 src/WOKUtils/WOKUtils_Shell.cxx create mode 100755 src/WOKUtils/WOKUtils_ShellManager.cdl create mode 100755 src/WOKUtils/WOKUtils_ShellManager.cxx create mode 100755 src/WOKUtils/WOKUtils_ShellManager_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_Shell_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_SigHandler.hxx create mode 100755 src/WOKUtils/WOKUtils_Signal.hxx create mode 100755 src/WOKUtils/WOKUtils_TimeStat.hxx create mode 100755 src/WOKUtils/WOKUtils_Timeval.hxx create mode 100755 src/WOKUtils/WOKUtils_Trigger.cdl create mode 100755 src/WOKUtils/WOKUtils_Trigger.cxx create mode 100755 src/WOKUtils/WOKUtils_TriggerAction.hxx create mode 100755 src/WOKUtils/WOKUtils_TriggerControl.hxx create mode 100755 src/WOKUtils/WOKUtils_TriggerHandler.hxx create mode 100755 src/WOKUtils/WOKUtils_Trigger_proto.hxx create mode 100755 src/WOKUtils/WOKUtils_Triggers.hxx create mode 100755 src/WOKUtils/WOKUtils_WOKSteps.edl create mode 100755 src/WOKUtils/WOKUtils_WOKVersion.hxx diff --git a/src/WOKUtils/EDL.edl b/src/WOKUtils/EDL.edl new file mode 100755 index 0000000..9bf8e53 --- /dev/null +++ b/src/WOKUtils/EDL.edl @@ -0,0 +1,31 @@ +-- File: EDL.edl +-- Author: Jean GAUTIER +-- History: Wed Feb 21 14:22:13 1996 Jean GAUTIER Creation +-- Copyright: Matra Datavision 1996 + +@ifnotdefined ( %EDL_EDL ) then +@set %EDL_EDL = ""; + +@template EDL_FileHeader ( %FileName, %ParamClass ) is +$-- File : %FileName +$-- ParamClass : %ParamClass +$-- Copyright : Matra Datavision 1996 +$ +$@ifnotdefined ( %%ParamClass_EDL ) then +$@set %%ParamClass_EDL = ""; +$ +@end; + +@template EDL_SetLine ( %Name, %Value ) is +$@set %Name = "%Value"; +@end; + + +@template EDL_FileFooter ( %FileName, %ParamClass ) is +$@ifdefined(%ShopName) then +$@uses "USECONFIG.edl"; +$@endif; +$@endif; +@end; + +@endif; diff --git a/src/WOKUtils/FILES b/src/WOKUtils/FILES new file mode 100755 index 0000000..8ef2207 --- /dev/null +++ b/src/WOKUtils/FILES @@ -0,0 +1,30 @@ +WOKUtils_CMPLRS.edl +WOKUtils_Replace.tcl +WOKUtils_TimeStat.hxx +WOKUtils_Timeval.hxx +WOKUtils_SigHandler.hxx +WOKUtils_TriggerAction.hxx +WOKUtils_TriggerHandler.hxx +WOKUtils_TriggerControl.hxx +WOKUtils_Triggers.hxx +WOKUtils_ProcessManager.hxx +WOKUtils_Signal.hxx +WOKUtils_AdmFile.hxx +WOKUtils_RegExp.hxx +WOKUtils_WOKVersion.hxx +Handle_WOKUtils_Path_proto.hxx +Handle_WOKUtils_RegExp_proto.hxx +Handle_WOKUtils_RemoteShell_proto.hxx +Handle_WOKUtils_Shell_proto.hxx +WOKUtils_Extension_proto.hxx +WOKUtils_Path_proto.hxx +WOKUtils_RESyntax_proto.hxx +WOKUtils_RegExp_proto.hxx +WOKUtils_RemoteShell_proto.hxx +WOKUtils_Shell_proto.hxx +WOKUtils_ShellManager_proto.hxx +WOKUtils_PathIterator_proto.hxx +EDL.edl +WOKUtils_Trigger_proto.hxx +WOKUtils_Param_proto.hxx +WOKUtils_WOKSteps.edl diff --git a/src/WOKUtils/Handle_WOKUtils_Path_proto.hxx b/src/WOKUtils/Handle_WOKUtils_Path_proto.hxx new file mode 100755 index 0000000..3fb9df8 --- /dev/null +++ b/src/WOKUtils/Handle_WOKUtils_Path_proto.hxx @@ -0,0 +1,26 @@ +// File: Handle_WOKUtils_Path_proto.hxx +// Created: Fri Jan 31 19:55:45 1997 +// Author: Jean GAUTIER +// + + +#ifndef Handle_WOKUtils_Path_HeaderFile +#define Handle_WOKUtils_Path_HeaderFile + + +#ifdef WNT + +#include + +typedef Handle_WOKNT_Path Handle_WOKUtils_Path; + +#else + +#include + +typedef Handle_WOKUnix_Path Handle_WOKUtils_Path; + +#endif + + +#endif diff --git a/src/WOKUtils/Handle_WOKUtils_RegExp_proto.hxx b/src/WOKUtils/Handle_WOKUtils_RegExp_proto.hxx new file mode 100755 index 0000000..34e1d44 --- /dev/null +++ b/src/WOKUtils/Handle_WOKUtils_RegExp_proto.hxx @@ -0,0 +1,26 @@ +// File: Handle_WOKUtils_RegExp_proto.hxx +// Created: Mon Feb 3 19:26:55 1997 +// Author: Jean GAUTIER +// + + +#ifndef Handle_WOKUtils_RegExp_proto_HeaderFile +#define Handle_WOKUtils_RegExp_proto_HeaderFile + + +#ifdef WNT + +#include + +typedef Handle_WOKNT_RegExp Handle_WOKUtils_RegExp; + +#else + +#include + +typedef Handle_WOKUnix_RegExp Handle_WOKUtils_RegExp; + +#endif + + +#endif diff --git a/src/WOKUtils/Handle_WOKUtils_RemoteShell_proto.hxx b/src/WOKUtils/Handle_WOKUtils_RemoteShell_proto.hxx new file mode 100755 index 0000000..b27a121 --- /dev/null +++ b/src/WOKUtils/Handle_WOKUtils_RemoteShell_proto.hxx @@ -0,0 +1,27 @@ +// File: Handle_WOKUtils_RemoteShell.hxx +// Created: Fri Jan 31 20:07:44 1997 +// Author: Jean GAUTIER +// + + +#ifndef Handle_WOKUtils_RemoteShell_HeaderFile +#define Handle_WOKUtils_RemoteShell_HeaderFile + + + +#ifdef WNT + +#include + +typedef Handle_WOKNT_Shell Handle_WOKUtils_RemoteShell; + +#else + +#include + +typedef Handle_WOKUnix_RemoteShell Handle_WOKUtils_RemoteShell; + +#endif + + +#endif diff --git a/src/WOKUtils/Handle_WOKUtils_Shell_proto.hxx b/src/WOKUtils/Handle_WOKUtils_Shell_proto.hxx new file mode 100755 index 0000000..01ec0a0 --- /dev/null +++ b/src/WOKUtils/Handle_WOKUtils_Shell_proto.hxx @@ -0,0 +1,27 @@ +// File: Handle_WOKUtils_Shell_proto.hxx +// Created: Fri Jan 31 20:07:10 1997 +// Author: Jean GAUTIER +// + + +#ifndef Handle_WOKUtils_Shell_proto_HeaderFile +#define Handle_WOKUtils_Shell_proto_HeaderFile + + + + +#ifdef WNT + +#include + +typedef Handle_WOKNT_Shell Handle_WOKUtils_Shell; + +#else + +#include + +typedef Handle_WOKUnix_Shell Handle_WOKUtils_Shell; + +#endif + +#endif diff --git a/src/WOKUtils/WOKUtils.cdl b/src/WOKUtils/WOKUtils.cdl new file mode 100755 index 0000000..09656b6 --- /dev/null +++ b/src/WOKUtils/WOKUtils.cdl @@ -0,0 +1,109 @@ +-- File: WOKUtils.cdl +-- Created: Thu May 4 16:20:32 1995 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1995 + + + + +package WOKUtils + +uses + EDL, + OSD, + TCollection, + TColStd, + SortTools, + MMgt, + WOKTools + +is + +-- IMPORTED TYPES + + imported TimeStat; + imported Timeval; + imported SigHandler; + + imported TriggerHandler; + imported TriggerControl; + + -- Classes imported from WOKUnix or WOKNT + -- + imported ProcessManager; + class ShellManager; + imported Signal; + imported AdmFile; + imported Array1OfRegExp; + + class RegExp; + class Path; + class PathIterator; + + class Shell; + class RemoteShell; + +-- ENUMERATIONS + + enumeration BufferIs is STDOUT, STDERR; + enumeration PopenOutputMode is POPEN_MIX_OUT_ERR, POPEN_OUT_ERR; + enumeration PopenBufferMode is POPEN_BUFFERED, POPEN_IMMEDIATE, POPEN_ECHOIFBLOCKED; + enumeration ShellMode is SynchronousMode, AsynchronousMode, DumpScriptMode; + + enumeration Extension is CFile, HFile, CDLFile, ODLFile, IDLFile, CXXFile, + HXXFile, IXXFile, JXXFile, LXXFile, GXXFile, INCFile, + PXXFile, F77File, CSHFile, + DBFile, FDDBFile, DDLFile, HO2File, + LibSchemaFile, AppSchemaFile, + LexFile, YaccFile, PSWFile, LWSFile, TemplateFile, + ObjectFile, MFile, CompressedFile, ArchiveFile, DSOFile, DATFile, + LispFile, IconFile, TextFile, TarFile, + --- WNT extensions + LIBFile, DEFile, RCFile, RESFile, IMPFile, EXPFile, PDBFile, DLLFile, EXEFile, + UnknownFile, NoExtFile; + + enumeration RESyntax is RESyntaxAWK, RESyntaxEGREP, RESyntaxGREP, RESyntaxEMACS; + + enumeration TriggerStatus is Unknown, Succeeded, Failed, NotSetted; + +-- EXCEPTIONS + + exception BufferOverflow inherits Failure from Standard; + exception ProcessTimeOut inherits Failure from Standard; + + +-- CLASSES + + + + class PathHasher; + + class SearchList; + class SearchIterator; + + class ParamItem; + class Param; + + + class Trigger; + +-- INSTANCIATIONS + + class MapOfPath + instantiates Map from WOKTools (Path from WOKUtils, + PathHasher from WOKUtils); + + class SequenceOfPath + instantiates Sequence from TCollection ( Path from WOKUtils); + class HSequenceOfPath + instantiates HSequence from TCollection ( Path from WOKUtils, SequenceOfPath from WOKUtils); + + class SequenceOfParamItem + instantiates Sequence from TCollection ( ParamItem from WOKUtils); + + class HSequenceOfParamItem + instantiates HSequence from TCollection ( ParamItem from WOKUtils, SequenceOfParamItem from WOKUtils); + +end; + diff --git a/src/WOKUtils/WOKUtils_AdmFile.hxx b/src/WOKUtils/WOKUtils_AdmFile.hxx new file mode 100755 index 0000000..b97d9d2 --- /dev/null +++ b/src/WOKUtils/WOKUtils_AdmFile.hxx @@ -0,0 +1,26 @@ +// File: WOKUtils_AdmFile.hxx +// Created: Fri Jan 31 19:36:31 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_AdmFile_HeaderFile +#define WOKUtils_AdmFile_HeaderFile + + +#ifdef WNT + +#include + +typedef WOKNT_AdmFile WOKUtils_AdmFile; + +#else + +#include + +typedef WOKUnix_AdmFile WOKUtils_AdmFile; + +#endif + + +#endif diff --git a/src/WOKUtils/WOKUtils_CMPLRS.edl b/src/WOKUtils/WOKUtils_CMPLRS.edl new file mode 100755 index 0000000..a5dafae --- /dev/null +++ b/src/WOKUtils/WOKUtils_CMPLRS.edl @@ -0,0 +1,15 @@ +-- File: WOKUtils_CMPLRS.edl +-- Author: Prestataire Pascal BABIN +-- History: Wed Jan 29 14:13:00 1997 Prestataire Pascal BABIN Creation +-- Copyright: Matra Datavision 1997 + +@ifnotdefined ( %WOKUtils_CMPLRS_EDL) then +@set %WOKUtils_CMPLRS_EDL = ""; + +@if ( %Station == "hp" ) then + @string %CMPLRS_C_Options = %CMPLRS_C_Options " -Ae"; + @string %CMPLRS_CXX_Options = %CMPLRS_CXX_Options " +a1"; +@endif; + +@endif; + diff --git a/src/WOKUtils/WOKUtils_Extension_proto.hxx b/src/WOKUtils/WOKUtils_Extension_proto.hxx new file mode 100755 index 0000000..42ddacb --- /dev/null +++ b/src/WOKUtils/WOKUtils_Extension_proto.hxx @@ -0,0 +1,126 @@ +// File: WOKUtils_Extension_Proto.hxx +// Created: Fri Jan 31 20:31:18 1997 +// Author: Jean GAUTIER +// + +#ifndef _WOKUtils_Extension_HeaderFile +#define _WOKUtils_Extension_HeaderFile + + +#ifdef WNT + +#include + +typedef WOKNT_Extension WOKUtils_Extension; + + +#define WOKUtils_CFile WOKNT_CFile +#define WOKUtils_HFile WOKNT_HFile +#define WOKUtils_CDLFile WOKNT_CDLFile +#define WOKUtils_ODLFile WOKNT_ODLFile +#define WOKUtils_IDLFile WOKNT_IDLFile +#define WOKUtils_CXXFile WOKNT_CXXFile +#define WOKUtils_HXXFile WOKNT_HXXFile +#define WOKUtils_IXXFile WOKNT_IXXFile +#define WOKUtils_JXXFile WOKNT_JXXFile +#define WOKUtils_LXXFile WOKNT_LXXFile +#define WOKUtils_GXXFile WOKNT_GXXFile +#define WOKUtils_INCFile WOKNT_INCFile +#define WOKUtils_PXXFile WOKNT_PXXFile +#define WOKUtils_F77File WOKNT_F77File +#define WOKUtils_CSHFile WOKNT_CSHFile +#define WOKUtils_DBFile WOKNT_DBFile +#define WOKUtils_FDDBFile WOKNT_FDDBFile +#define WOKUtils_DDLFile WOKNT_DDLFile +#define WOKUtils_HO2File WOKNT_HO2File +#define WOKUtils_LibSchemaFile WOKNT_LibSchemaFile +#define WOKUtils_AppSchemaFile WOKNT_AppSchemaFile +#define WOKUtils_LexFile WOKNT_LexFile +#define WOKUtils_YaccFile WOKNT_YaccFile +#define WOKUtils_PSWFile WOKNT_PSWFile +#define WOKUtils_LWSFile WOKNT_LWSFile +#define WOKUtils_TemplateFile WOKNT_TemplateFile +#define WOKUtils_ObjectFile WOKNT_ObjectFile +#define WOKUtils_MFile WOKNT_MFile +#define WOKUtils_CompressedFile WOKNT_CompressedFile +#define WOKUtils_ArchiveFile WOKNT_ArchiveFile +#define WOKUtils_DSOFile WOKNT_DSOFile +#define WOKUtils_DATFile WOKNT_DATFile +#define WOKUtils_LispFile WOKNT_LispFile +#define WOKUtils_IconFile WOKNT_IconFile +#define WOKUtils_TextFile WOKNT_TextFile +#define WOKUtils_TarFile WOKNT_TarFile +#define WOKUtils_LIBFile WOKNT_LIBFile +#define WOKUtils_DEFile WOKNT_DEFile +#define WOKUtils_RCFile WOKNT_RCFile +#define WOKUtils_RESFile WOKNT_RESFile +#define WOKUtils_IMPFile WOKNT_IMPFile +#define WOKUtils_EXPFile WOKNT_EXPFile +#define WOKUtils_DLLFile WOKNT_DLLFile +#define WOKUtils_PDBFile WOKNT_PDBFile +#define WOKUtils_EXEFile WOKNT_EXEFile + +#define WOKUtils_UnknownFile WOKNT_UnknownFile +#define WOKUtils_NoExtFile WOKNT_NoExtFile + +#else + +#include + +typedef WOKUnix_Extension WOKUtils_Extension; + +#define WOKUtils_CFile WOKUnix_CFile +#define WOKUtils_HFile WOKUnix_HFile +#define WOKUtils_CDLFile WOKUnix_CDLFile +#define WOKUtils_ODLFile WOKUnix_ODLFile +#define WOKUtils_IDLFile WOKUnix_IDLFile +#define WOKUtils_CXXFile WOKUnix_CXXFile +#define WOKUtils_HXXFile WOKUnix_HXXFile +#define WOKUtils_IXXFile WOKUnix_IXXFile +#define WOKUtils_JXXFile WOKUnix_JXXFile +#define WOKUtils_LXXFile WOKUnix_LXXFile +#define WOKUtils_GXXFile WOKUnix_GXXFile +#define WOKUtils_INCFile WOKUnix_INCFile +#define WOKUtils_PXXFile WOKUnix_PXXFile +#define WOKUtils_F77File WOKUnix_F77File +#define WOKUtils_CSHFile WOKUnix_CSHFile +#define WOKUtils_DBFile WOKUnix_DBFile +#define WOKUtils_FDDBFile WOKUnix_FDDBFile +#define WOKUtils_DDLFile WOKUnix_DDLFile +#define WOKUtils_HO2File WOKUnix_HO2File +#define WOKUtils_LibSchemaFile WOKUnix_LibSchemaFile +#define WOKUtils_AppSchemaFile WOKUnix_AppSchemaFile +#define WOKUtils_LexFile WOKUnix_LexFile +#define WOKUtils_YaccFile WOKUnix_YaccFile +#define WOKUtils_PSWFile WOKUnix_PSWFile +#define WOKUtils_LWSFile WOKUnix_LWSFile +#define WOKUtils_TemplateFile WOKUnix_TemplateFile +#define WOKUtils_ObjectFile WOKUnix_ObjectFile +#define WOKUtils_MFile WOKUnix_MFile +#define WOKUtils_CompressedFile WOKUnix_CompressedFile +#define WOKUtils_ArchiveFile WOKUnix_ArchiveFile +#define WOKUtils_DSOFile WOKUnix_DSOFile +#define WOKUtils_DATFile WOKUnix_DATFile +#define WOKUtils_LispFile WOKUnix_LispFile +#define WOKUtils_IconFile WOKUnix_IconFile +#define WOKUtils_TextFile WOKUnix_TextFile +#define WOKUtils_TarFile WOKUnix_TarFile +#define WOKUtils_LIBFile WOKUnix_LIBFile +#define WOKUtils_DEFile WOKUnix_DEFile +#define WOKUtils_RCFile WOKUnix_RCFile +#define WOKUtils_RESFile WOKUnix_RESFile +#define WOKUtils_IMPFile WOKUnix_IMPFile +#define WOKUtils_EXPFile WOKUnix_EXPFile +#define WOKUtils_UnknownFile WOKUnix_UnknownFile +#define WOKUtils_NoExtFile WOKUnix_NoExtFile +#define WOKUtils_DLLFile WOKUnix_DLLFile +#define WOKUtils_PDBFile WOKUnix_PDBFile +#define WOKUtils_EXEFile WOKUnix_EXEFile + +#endif + +#ifndef _Standard_PrimitiveTypes_HeaderFile +#include +#endif + +#endif diff --git a/src/WOKUtils/WOKUtils_Param.cdl b/src/WOKUtils/WOKUtils_Param.cdl new file mode 100755 index 0000000..13bece6 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Param.cdl @@ -0,0 +1,149 @@ +-- File: WOKUtils_Param.cdl +-- Created: Mon May 29 15:25:31 1995 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1995 + + +class Param from WOKUtils + + ---Purpose: WOK Parameters values + +uses + CString from Standard, + HAsciiString from TCollection, + API from EDL, + Path from WOKUtils, + HSequenceOfParamItem from WOKUtils, + MapOfHAsciiString from WOKTools, + HSequenceOfAsciiString from TColStd, + HSequenceOfHAsciiString from TColStd +raises + ProgramError +is + Create returns Param from WOKUtils; + ---Purpose: creates a WOK parameters map + + Clear(me:out); + ---Purpose: clears all in Param List + +-- Liste des Reperoires de fichiers EDL + + SetSearchDirectories(me:out; aseq : HSequenceOfAsciiString from TColStd); + SearchDirectories(me) returns HSequenceOfAsciiString from TColStd; + + SearchFile(me; afilename : HAsciiString from TCollection) + returns Path from WOKUtils; + +-- Liste des SubClasses (facultatif) + + SetSubClasses(me:out; aseq : HSequenceOfAsciiString from TColStd); + SubClasses(me) returns HSequenceOfAsciiString from TColStd; + +-- Set, Unset d'une ou plusieurs variables + + IsSet(me; aname : CString from Standard) + ---Purpose: test is a param is setted + -- NB: does not try to load it + returns Boolean from Standard; + + Set(me; aname : CString from Standard; avalue : CString from Standard); + ---Purpose: Sets a variable to a values + -- Overrides preceding value (if any) + + Set(me; aseq : HSequenceOfParamItem from WOKUtils); + + UnSet(me; aname : CString from Standard); + ---Purpose: Removes parameter from the map + + +-- Obtention, Evaluation d'une variable + + Value(me; aname : CString from Standard; usesubs : Boolean from Standard = Standard_True) + returns HAsciiString from TCollection; + + Eval(me; aname : CString from Standard; usesubs : Boolean from Standard = Standard_True) + ---Purpose: Evaluates the contents of a parameter + -- Names beginning with % are Variables + -- Others are templates + returns HAsciiString from TCollection; + +-- Chargement de valeurs + + IsClassVisible(me; aclass : CString from Standard) + returns Boolean from Standard; + + IsFileVisible(me; afile : HAsciiString from TCollection) + returns Boolean from Standard; + + VisiblePath(me; afile : HAsciiString from TCollection) + returns Path from WOKUtils; + + ParamClass(me; aparamname : CString from Standard) + ---Purpose: Returns the Parameter Class of a param + returns HAsciiString from TCollection + is private; + + ClassLoadFlag(me; aclass : CString from Standard) + ---Purpose: Returns the edl variable name for Class (ie. %MyClass_EDL) + returns HAsciiString from TCollection; + + ClassSubLoadFlag(me; aclass,asub : CString from Standard) + ---Purpose: Returns the edl variable name for Class (ie. %MyClass_EDL) + returns HAsciiString from TCollection; + + ClassFile(me; aclass : CString from Standard) + ---Purpose: Returns the file name for Class (ie. MyClass.edl) + returns HAsciiString from TCollection; + + ClassSubFile(me; aclass, asub : CString from Standard) + ---Purpose: Returns the file name for Class (ie. MyClass.edl) + returns HAsciiString from TCollection; + + LoadFile(me; afile : HAsciiString from TCollection; filemaynotexist : Boolean from Standard = Standard_False) + returns Boolean from Standard; + + LoadParamClass(me; aclass : CString from Standard) + ---Purpose: Load a class + returns Boolean from Standard; + + LoadParamClass(me; aclass, asub : CString from Standard) + ---Purpose: Load a class and SubClass + returns Boolean from Standard; + + LoadParamClass(me; aclass : CString from Standard; + asubseq : HSequenceOfAsciiString from TColStd) + ---Purpose: Loads a class and its SubClasses + returns Boolean from Standard; + + GetClassValues(me; aclass : CString from Standard) + ---Purpose: Gets all defined Values for a class + -- (used to implement tenv) + returns HSequenceOfParamItem from WOKUtils; + +-- Obtention de la liste des Arguments d'un parametre + + GetArguments(me; aname : CString from Standard) + returns HSequenceOfHAsciiString from TColStd; + + GetArguments(me; aname : CString from Standard; + aseq : mutable HSequenceOfHAsciiString from TColStd; + amap : in out MapOfHAsciiString from WOKTools); + ---Purpose: Private Purposes + + +-- Ecriture de valeurs + + Write(me; afile : Path from WOKUtils; somevars : HSequenceOfHAsciiString from TColStd) + returns Boolean from Standard raises ProgramError from Standard; + + Write(me; afile : Path from WOKUtils; somevars : HSequenceOfParamItem from WOKUtils) + returns Boolean from Standard raises ProgramError from Standard; + + + +fields + myapi : API from EDL; + mysubs : HSequenceOfAsciiString from TColStd; + +end Param; diff --git a/src/WOKUtils/WOKUtils_Param.cxx b/src/WOKUtils/WOKUtils_Param.cxx new file mode 100755 index 0000000..d433a38 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Param.cxx @@ -0,0 +1,708 @@ +// File: WOKUtils_Param.cxx +// Created: Tue May 30 09:17:22 1995 +// Author: Jean GAUTIER +// + +#include + +#include + +#include +#include +#include +#include +#include + + +#include +#include + + +#include +#include + + +#include + +#include + +#ifdef WNT +#include +#else +#include +#endif + + +//======================================================================= +//function : WOKUtils_Param +//purpose : Simply creates the param +//======================================================================= +WOKUtils_Param::WOKUtils_Param() +{ + myapi = new EDL_API; + myapi->AddVariable("%WOK_VERSION", WOK_VERSION); +} + +//======================================================================= +//function : Clear +//purpose : +//======================================================================= +void WOKUtils_Param::Clear() +{ + myapi = new EDL_API; + myapi->AddVariable("%WOK_VERSION", WOK_VERSION); + mysubs.Nullify(); +} + +//======================================================================= +//function : SetSearchDirectories +//purpose : +//======================================================================= +void WOKUtils_Param::SetSearchDirectories(const Handle(TColStd_HSequenceOfAsciiString)& aseq) +{ + Standard_Integer i; + + myapi->ClearIncludes(); + + for(i=1; i<=aseq->Length(); i++) + { + myapi->AddIncludeDirectory(aseq->Value(i).ToCString()); + } + + return; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : SearchFile +//purpose : +//======================================================================= +Handle(WOKUtils_Path) WOKUtils_Param::SearchFile(const Handle(TCollection_HAsciiString)& aname) const +{ + Handle(WOKUtils_Path) apath; + Handle(TColStd_HSequenceOfAsciiString) dirs = SearchDirectories(); + Standard_Integer i; + + for(i=1; i<=dirs->Length(); i++) + { + Handle(WOKUtils_Path) apath = new WOKUtils_Path(dirs->Value(i).ToCString(), aname->ToCString()); + + if (apath->Exists()) return apath; + } + return apath; +} + +//======================================================================= +//function : SearchDirectories +//purpose : +//======================================================================= +Handle(TColStd_HSequenceOfAsciiString) WOKUtils_Param::SearchDirectories() const +{ + return myapi->GetIncludeDirectory(); +} + +//======================================================================= +//function : SetSubClasses +//purpose : +//======================================================================= +void WOKUtils_Param::SetSubClasses(const Handle(TColStd_HSequenceOfAsciiString)& aseq) +{ + mysubs = aseq; +} + +//======================================================================= +//function : SubClasses +//purpose : +//======================================================================= +Handle(TColStd_HSequenceOfAsciiString) WOKUtils_Param::SubClasses() const +{ + return mysubs; +} + +//======================================================================= +//function : IsSet +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::IsSet(const Standard_CString aname) const +{ + return myapi->IsDefined(aname); +} + +//======================================================================= +//function : Set +//purpose : +//======================================================================= +void WOKUtils_Param::Set(const Standard_CString aname, const Standard_CString avalue) const +{ + myapi->AddVariable(aname, avalue); +} + +//======================================================================= +//function : Set +//purpose : +//======================================================================= +void WOKUtils_Param::Set(const Handle(WOKUtils_HSequenceOfParamItem)& aseq) const +{ + Standard_Integer i; + + for(i=1; i<=aseq->Length(); i++) + { + myapi->AddVariable(aseq->Value(i).Name()->ToCString(), aseq->Value(i).Value()->ToCString()); + } +} + + + +//======================================================================= +//function : UnSet +//purpose : +//======================================================================= +void WOKUtils_Param::UnSet(const Standard_CString aname) const +{ + if(myapi->IsDefined(aname)) + myapi->RemoveVariable(aname); +} + +//======================================================================= +//function : Value +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_Param::Value(const Standard_CString aname, const Standard_Boolean usesubs) const +{ + Handle(TCollection_HAsciiString) result; + + if(!myapi->IsDefined(aname)) + { + Handle(TCollection_HAsciiString) aclass; + + aclass = ParamClass(aname); + + if(!aclass.IsNull()) + { + if(usesubs) + { + if(!LoadParamClass(aclass->ToCString(), mysubs)) return result; + } + else + { + if(!LoadParamClass(aclass->ToCString())) return result; + } + } + } + + if(aname[0] == '%') + { + if(myapi->IsDefined(aname)) + { + result = myapi->GetVariableValue(aname); + } + } + else + { + if(myapi->IsDefined(aname)) + { + EDL_Template atempl = myapi->GetTemplate(aname); + Standard_Integer i=1; + Standard_CString astr; + + result = new TCollection_HAsciiString; + + astr = atempl.GetLine(i); + + while(astr != NULL) + { + result->AssignCat(astr); + i++; + astr = atempl.GetLine(i); + } + } + } + return result; +} + +//======================================================================= +//function : Eval +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_Param::Eval(const Standard_CString aname, const Standard_Boolean usesubs) const +{ + + Handle(TCollection_HAsciiString) result; + + if(!myapi->IsDefined(aname)) + { + Handle(TCollection_HAsciiString) aclass; + + aclass = ParamClass(aname); + + if(!aclass.IsNull()) + { + if(usesubs) + { + if(!LoadParamClass(aclass->ToCString(), mysubs)) return result; + } + else + { + if(!LoadParamClass(aclass->ToCString())) return result; + } + } + } + + if(aname[0] == '%') + { + if(myapi->IsDefined(aname)) + { + result = myapi->GetVariableValue(aname); + } + } + else + { + if(myapi->IsDefined(aname)) + { + myapi->Apply("%PARAM_RESULT", aname); + result = myapi->GetVariableValue("%PARAM_RESULT"); + //myapi->RemoveVariable("%PARAM_RESULT"); + } + } + return result; +} + + +//======================================================================= +//Author : Jean Gautier (jga) +//function : IsClassVisible +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::IsClassVisible(const Standard_CString aclass) const +{ + Handle(TCollection_HAsciiString) afile = ClassFile(aclass); + + return IsFileVisible(afile); +} + + +//======================================================================= +//function : IsFileVisible +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::IsFileVisible(const Handle(TCollection_HAsciiString)& afile) const +{ + Standard_Integer i; + Handle(WOKUtils_Path) apath; + Handle(TColStd_HSequenceOfAsciiString) dirs = SearchDirectories(); + + for(i=1; i<=dirs->Length(); i++) + { + apath = new WOKUtils_Path(dirs->Value(i).ToCString(), afile->ToCString()); + + if(apath->Exists()) return Standard_True; + } + return Standard_False; +} + +//======================================================================= +//function : VisiblePath +//purpose : +//======================================================================= +Handle(WOKUtils_Path) WOKUtils_Param::VisiblePath(const Handle(TCollection_HAsciiString)& afile) const +{ + Standard_Integer i; + Handle(WOKUtils_Path) apath, nullpath; + Handle(TColStd_HSequenceOfAsciiString) dirs = SearchDirectories(); + + for(i=1; i<=dirs->Length(); i++) + { + apath = new WOKUtils_Path(dirs->Value(i).ToCString(), afile->ToCString()); + + if(apath->Exists()) return apath; + } + return nullpath; +} + +//======================================================================= +//function : ParamClass +//purWOKMakepose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_Param::ParamClass(const Standard_CString aparam) const +{ + TCollection_AsciiString name(aparam); + Handle(TCollection_HAsciiString) result; + Standard_Integer deb, fin; + + if(name.Value(1) == '%') deb = 2; + else deb = 1; + + if((fin = name.Search("_")) != -1) + { + result = new TCollection_HAsciiString(name.SubString(deb, fin -1)); + } + + return result; +} + +//======================================================================= +//function : ClassLoadFlag +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_Param::ClassLoadFlag(const Standard_CString aclass) const +{ + TCollection_AsciiString name; + Handle(TCollection_HAsciiString) result; + + name.AssignCat("%"); + name.AssignCat(aclass); + name.AssignCat("_EDL"); + + result = new TCollection_HAsciiString(name); + return result; +} + +//======================================================================= +//function : ClassLoadFlag +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_Param::ClassSubLoadFlag(const Standard_CString aclass, const Standard_CString asub) const +{ + Handle(TCollection_HAsciiString) result = new TCollection_HAsciiString("%"); + + result->AssignCat(asub); + result->AssignCat("_"); + result->AssignCat(aclass); + result->AssignCat("_EDL"); + return result; +} + +//======================================================================= +//function : ClassFile +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_Param::ClassFile(const Standard_CString aclass) const +{ + Handle(TCollection_HAsciiString) result = new TCollection_HAsciiString(aclass); + result->AssignCat(".edl"); + return result; +} + +//======================================================================= +//function : ClassSubFile +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_Param::ClassSubFile(const Standard_CString aclass, const Standard_CString asub) const +{ + Standard_CString thedir = strchr(asub, '@'); + + if(thedir) + { + Handle(TCollection_HAsciiString) result = new TCollection_HAsciiString(&(thedir[1])); + result->AssignCat("/"); + *thedir = '\0'; + result->AssignCat(asub); + *thedir = '@'; + result->AssignCat("_"); + result->AssignCat(aclass); + result->AssignCat(".edl"); + return result; + } + + Handle(TCollection_HAsciiString) result = new TCollection_HAsciiString(asub); + result->AssignCat("_"); + result->AssignCat(aclass); + result->AssignCat(".edl"); + return result; +} + +//======================================================================= +//function : LoadFile +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::LoadFile(const Handle(TCollection_HAsciiString)& afile, const Standard_Boolean filemaynotexist) const +{ + switch(myapi->Execute(afile->ToCString())) + { + case EDL_NORMAL: + return Standard_True; + case EDL_SYNTAXERROR: + ErrorMsg << "WOKUtils_Param::LoadParamClass" + << "EDL Syntax errors occured while loading file : " << afile << endm; + break; + case EDL_VARNOTFOUND: + ErrorMsg << "WOKUtils_Param::LoadParamClass" + << "Variable not found while loading file : " << afile << endm; + break; + case EDL_TEMPMULTIPLEDEFINED: + case EDL_TEMPLATENOTDEFINED: + ErrorMsg << "WOKUtils_Param::LoadParamClass" + << "Template not found while loading file : " << afile << endm; + break; + case EDL_LIBRARYNOTFOUND: + case EDL_LIBNOTOPEN: + ErrorMsg << "WOKUtils_Param::LoadParamClass" + << "Library error while loading file : " << afile << endm; + break; + case EDL_FUNCTIONNOTFOUND: + ErrorMsg << "WOKUtils_Param::LoadParamClass" + << "Function not found while loading file : " << afile << endm; + break; + case EDL_FILEOPENED: + case EDL_FILENOTOPENED: + if(filemaynotexist) return Standard_True; +// ErrorMsg << "WOKUtils_Param::LoadParamClass" +// << "File " << afile << " could not be opened" << endm; + break; + case EDL_TOOMANYINCLUDELEVEL: + ErrorMsg << "WOKUtils_Param::LoadParamClass" + << "Too many include levels while loading file : " << afile << endm; + break; + } + return Standard_False; +} + +//======================================================================= +//function : LoadParamClass +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::LoadParamClass(const Standard_CString aclass) const +{ + if(!myapi->IsDefined(ClassLoadFlag(aclass)->ToCString())) + { + WOK_TRACE { + VerboseMsg("WOK_PARAM") << "WOKUtils_Param::LoadParamClass" + << "Loading class : " << aclass << endm; + } + return LoadFile(ClassFile(aclass)); + } + return Standard_True; +} + +//======================================================================= +//function : LoadParamClass +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::LoadParamClass(const Standard_CString aclass, const Standard_CString asub) const +{ + TCollection_AsciiString astr; + Handle(TCollection_HAsciiString) thesubclass, thefile, theflag; + + thefile = ClassSubFile(aclass, asub); + theflag = ClassSubLoadFlag(aclass, asub); + + if(!myapi->IsDefined(theflag->ToCString())) + { + WOK_TRACE { + VerboseMsg("WOK_PARAM") << "WOKUtils_Param::LoadParamClass" + << "Loading subclass : " << asub << "_" << aclass << endm; + } + Standard_CString tok = strchr(asub,'@'); + if(tok) + { +#ifndef WNT + if( !access(thefile->ToCString(), F_OK) ) +#else + if ( GetFileAttributes(thefile->ToCString() ) != 0xFFFFFFFF ) +#endif + return LoadFile(thefile, Standard_True); + } + else + return LoadFile(thefile, Standard_True); + } + return Standard_True; +} + +//======================================================================= +//function : LoadParamClass +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::LoadParamClass(const Standard_CString aclass, const Handle(TColStd_HSequenceOfAsciiString)& asubseq) const +{ + Standard_Integer i; + + if(!LoadParamClass(aclass)) return Standard_False; + + if(!asubseq.IsNull()) + { + for(i=1; i<=asubseq->Length(); i++) + { + if(!LoadParamClass(aclass, asubseq->Value(i).ToCString())) return Standard_False; + } + } + return Standard_True; +} + +//======================================================================= +//function : GetClassValues +//purpose : +//======================================================================= +Handle(WOKUtils_HSequenceOfParamItem) WOKUtils_Param::GetClassValues(const Standard_CString aclass) const +{ + Handle(WOKUtils_HSequenceOfParamItem) result = new WOKUtils_HSequenceOfParamItem; + TCollection_AsciiString varprefix; + TCollection_AsciiString tempprefix; + Standard_Integer varlen, templen; + + varprefix.AssignCat("%"); + varprefix.AssignCat(aclass); + varprefix.AssignCat("_"); + varlen = varprefix.Length(); + + tempprefix.AssignCat(aclass); + tempprefix.AssignCat("_"); + templen = tempprefix.Length(); + + EDL_DataMapIteratorOfMapOfVariable varit(myapi->GetVariableIterator()); + + while(varit.More()) + { + const EDL_Variable& avar = varit.Value(); + + if(!strncmp(avar.GetName(), varprefix.ToCString(), varlen)) + { + result->Append(WOKUtils_ParamItem(new TCollection_HAsciiString(avar.GetName()), + new TCollection_HAsciiString(avar.GetValue()))); + } + + varit.Next(); + } + + EDL_DataMapIteratorOfMapOfTemplate tempit(myapi->GetTemplateIterator()); + + while(tempit.More()) + { + const EDL_Template& atemp = tempit.Value(); + + if(!strncmp(atemp.GetName(), tempprefix.ToCString(), templen)) + { + result->Append(WOKUtils_ParamItem(new TCollection_HAsciiString(atemp.GetName()), + new TCollection_HAsciiString)); + } + tempit.Next(); + } + + return result; +} + +//======================================================================= +//function : GetArguments +//purpose : +//======================================================================= +Handle(TColStd_HSequenceOfHAsciiString) WOKUtils_Param::GetArguments(const Standard_CString aname) const +{ + if(aname[0] == '%') + { + Handle(TColStd_HSequenceOfHAsciiString) result = new TColStd_HSequenceOfHAsciiString; + return result; + } + + return myapi->GetTemplate(aname).GetVariableList(); +} + +//======================================================================= +//function : GetArguments +//purpose : +//======================================================================= +void WOKUtils_Param::GetArguments(const Standard_CString aname, + const Handle(TColStd_HSequenceOfHAsciiString)& result, + WOKTools_MapOfHAsciiString& amap ) const +{ + Standard_Integer i; + Handle(TColStd_HSequenceOfHAsciiString) argseq = GetArguments(aname); + Handle(TCollection_HAsciiString) anarg; + + for(i=1; i<=argseq->Length(); i++) + { + anarg = argseq->Value(i); + if(!amap.Contains(anarg)) + { + result->Append(anarg); + amap.Add(anarg); + } + } + return; +} + + +//======================================================================= +//function : Write +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::Write(const Handle(WOKUtils_Path)& apath, + const Handle(TColStd_HSequenceOfHAsciiString)& somevars) const +{ + Handle(TCollection_HAsciiString) astr; + Standard_Integer i; + + LoadParamClass("EDL"); + + if(myapi->OpenFile("EDLFILE", apath->Name()->ToCString()) != EDL_NORMAL) return Standard_False; + + myapi->AddVariable("%FileName" , apath->FileName()->ToCString()); + myapi->AddVariable("%ParamClass" , apath->BaseName()->ToCString()); + + myapi->Apply("%EDL_RESULT", "EDL_FileHeader"); + + myapi->WriteFile("EDLFILE", "%EDL_RESULT"); + + for(i=1; i<=somevars->Length(); i++) + { + myapi->AddVariable("%Name", somevars->Value(i)->ToCString()); + myapi->AddVariable("%Value", myapi->GetVariableValue(somevars->Value(i)->ToCString())->ToCString()); + myapi->Apply("%EDL_RESULT", "EDL_SetLine"); + myapi->WriteFile("EDLFILE", "%EDL_RESULT"); + } + + myapi->Apply("%EDL_RESULT", "EDL_FileFooter"); + myapi->WriteFile("EDLFILE", "%EDL_RESULT"); + + myapi->CloseFile("EDLFILE"); + + myapi->RemoveVariable("%FileName"); + myapi->RemoveVariable("%ParamClass"); + myapi->RemoveVariable("%Name"); + myapi->RemoveVariable("%Value"); + myapi->RemoveVariable("%EDL_RESULT"); + + return Standard_True; +} + + +//======================================================================= +//function : Write +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_Param::Write(const Handle(WOKUtils_Path)& apath, + const Handle(WOKUtils_HSequenceOfParamItem)& somevars) const +{ + Handle(TCollection_HAsciiString) astr; + Standard_Integer i; + + LoadParamClass("EDL"); + + if(myapi->OpenFile("EDLFILE", apath->Name()->ToCString())) return Standard_False; + + myapi->AddVariable("%FileName" , apath->FileName()->ToCString()); + myapi->AddVariable("%ParamClass" , apath->BaseName()->ToCString()); + + myapi->Apply("%EDL_RESULT", "EDL_FileHeader"); + + myapi->WriteFile("EDLFILE", "%EDL_RESULT"); + + for(i=1; i<=somevars->Length(); i++) + { + myapi->AddVariable("%Name", somevars->Value(i).Name()->ToCString()); + myapi->AddVariable("%Value", somevars->Value(i).Value()->ToCString()); + myapi->Apply("%EDL_RESULT", "EDL_SetLine"); + myapi->WriteFile("EDLFILE", "%EDL_RESULT"); + } + + myapi->Apply("%EDL_RESULT", "EDL_FileFooter"); + myapi->WriteFile("EDLFILE", "%EDL_RESULT"); + + myapi->CloseFile("EDLFILE"); + + myapi->RemoveVariable("%FileName"); + myapi->RemoveVariable("%ParamClass"); + myapi->RemoveVariable("%Name"); + myapi->RemoveVariable("%Value"); + myapi->RemoveVariable("%EDL_RESULT"); + + return Standard_True; +} diff --git a/src/WOKUtils/WOKUtils_ParamItem.cdl b/src/WOKUtils/WOKUtils_ParamItem.cdl new file mode 100755 index 0000000..cc275dd --- /dev/null +++ b/src/WOKUtils/WOKUtils_ParamItem.cdl @@ -0,0 +1,33 @@ +-- File: WOKUtils_ParamItem.cdl +-- Created: Mon May 29 15:21:53 1995 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1995 + +class ParamItem from WOKUtils + +uses + HAsciiString from TCollection + +raises + ProgramError from Standard +is + Create returns ParamItem from WOKUtils; + Create(aname : HAsciiString from TCollection; avalue : HAsciiString from TCollection) + returns ParamItem from WOKUtils; + Create(aname : CString from Standard; avalue : CString from Standard) + returns ParamItem from WOKUtils; + + SetName(me:out; aname : HAsciiString from TCollection); + SetValue(me:out; avalue : HAsciiString from TCollection); + + Name(me) + returns HAsciiString from TCollection; + + Value(me) + returns HAsciiString from TCollection; + +fields + myname : HAsciiString from TCollection; + myvalue : HAsciiString from TCollection; +end; diff --git a/src/WOKUtils/WOKUtils_ParamItem.cxx b/src/WOKUtils/WOKUtils_ParamItem.cxx new file mode 100755 index 0000000..7d333a0 --- /dev/null +++ b/src/WOKUtils/WOKUtils_ParamItem.cxx @@ -0,0 +1,73 @@ +// File: WOKUtils_ParamItem.cxx +// Created: Tue May 30 09:19:37 1995 +// Author: Jean GAUTIER +// + + +#include +#include + +//======================================================================= +//function : WOKUtils_ParamItem +//purpose : +//======================================================================= +WOKUtils_ParamItem::WOKUtils_ParamItem() +{ + +} + +//======================================================================= +//function : WOKUtils_ParamItem +//purpose : +//======================================================================= +WOKUtils_ParamItem::WOKUtils_ParamItem(const Handle(TCollection_HAsciiString)& aname, const Handle(TCollection_HAsciiString)& avalue) +{ + myname = aname; myvalue = avalue; +} + +//======================================================================= +//function : WOKUtils_ParamItem +//purpose : +//======================================================================= +WOKUtils_ParamItem::WOKUtils_ParamItem(const Standard_CString aname, const Standard_CString avalue) +{ + myname = new TCollection_HAsciiString(aname); + myvalue = new TCollection_HAsciiString(avalue); +} + +//======================================================================= +//function : SetName +//purpose : +//======================================================================= +void WOKUtils_ParamItem::SetName(const Handle(TCollection_HAsciiString)& aname) +{ + myname = aname; +} + +//======================================================================= +//function : SetValue +//purpose : +//======================================================================= +void WOKUtils_ParamItem::SetValue(const Handle(TCollection_HAsciiString)& avalue) +{ + myvalue = avalue; +} + +//======================================================================= +//function : Name +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_ParamItem::Name() const +{ + return myname; +} + +//======================================================================= +//function : Value +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_ParamItem::Value() const +{ + return myvalue; +} + diff --git a/src/WOKUtils/WOKUtils_Param_proto.hxx b/src/WOKUtils/WOKUtils_Param_proto.hxx new file mode 100755 index 0000000..aa4cf2c --- /dev/null +++ b/src/WOKUtils/WOKUtils_Param_proto.hxx @@ -0,0 +1,133 @@ +// File generated by CPPExt (Value) +// Copyright (C) 1991,1995 by +// +// MATRA DATAVISION, FRANCE +// +// This software is furnished in accordance with the terms and conditions +// of the contract and with the inclusion of the above copyright notice. +// This software or any other copy thereof may not be provided or otherwise +// be made available to any other person. No title to an ownership of the +// software is hereby transferred. +// +// At the termination of the contract, the software and all copies of this +// software must be deleted. + +#ifndef _WOKUtils_Param_HeaderFile +#define _WOKUtils_Param_HeaderFile + +#ifndef _Handle_EDL_API_HeaderFile +#include +#endif +#ifndef _Handle_TColStd_HSequenceOfAsciiString_HeaderFile +#include +#endif +#ifndef _Handle_WOKUtils_Path_HeaderFile +#include +#endif +#ifndef _Handle_TCollection_HAsciiString_HeaderFile +#include +#endif +#ifndef _Standard_Boolean_HeaderFile +#include +#endif +#ifndef _Standard_CString_HeaderFile +#include +#endif +#ifndef _Handle_WOKUtils_HSequenceOfParamItem_HeaderFile +#include +#endif +#ifndef _Handle_TColStd_HSequenceOfHAsciiString_HeaderFile +#include +#endif +class EDL_API; +class TColStd_HSequenceOfAsciiString; +class Standard_ProgramError; +class WOKernel_FileTypeBase; +class WOKernel_FileType; +class WOKUtils_Path; +class TCollection_HAsciiString; +class WOKUtils_HSequenceOfParamItem; +class TColStd_HSequenceOfHAsciiString; +class WOKTools_MapOfHAsciiString; + + +#ifndef _Standard_Macro_HeaderFile +#include +#endif + +class WOKUtils_Param { + +public: + + // Methods PUBLIC + // +Standard_EXPORT WOKUtils_Param(); +Standard_EXPORT void Clear() ; +Standard_EXPORT void SetSearchDirectories(const Handle(TColStd_HSequenceOfAsciiString)& aseq) ; +Standard_EXPORT Handle_TColStd_HSequenceOfAsciiString SearchDirectories() const; +Standard_EXPORT Handle_WOKUtils_Path SearchFile(const Handle(TCollection_HAsciiString)& afilename) const; +Standard_EXPORT void SetSubClasses(const Handle(TColStd_HSequenceOfAsciiString)& aseq) ; +Standard_EXPORT Handle_TColStd_HSequenceOfAsciiString SubClasses() const; +Standard_EXPORT Standard_Boolean IsSet(const Standard_CString aname) const; +Standard_EXPORT void Set(const Standard_CString aname,const Standard_CString avalue) const; +Standard_EXPORT void Set(const Handle(WOKUtils_HSequenceOfParamItem)& aseq) const; +Standard_EXPORT void UnSet(const Standard_CString aname) const; +Standard_EXPORT Handle_TCollection_HAsciiString Value(const Standard_CString aname,const Standard_Boolean usesubs = Standard_True) const; +Standard_EXPORT Handle_TCollection_HAsciiString Eval(const Standard_CString aname,const Standard_Boolean usesubs = Standard_True) const; +Standard_EXPORT Standard_Boolean IsClassVisible(const Standard_CString aclass) const; +Standard_EXPORT Standard_Boolean IsFileVisible(const Handle(TCollection_HAsciiString)& afile) const; +Standard_EXPORT Handle_WOKUtils_Path VisiblePath(const Handle(TCollection_HAsciiString)& afile) const; +Standard_EXPORT Handle_TCollection_HAsciiString ClassLoadFlag(const Standard_CString aclass) const; +Standard_EXPORT Handle_TCollection_HAsciiString ClassSubLoadFlag(const Standard_CString aclass,const Standard_CString asub) const; +Standard_EXPORT Handle_TCollection_HAsciiString ClassFile(const Standard_CString aclass) const; +Standard_EXPORT Handle_TCollection_HAsciiString ClassSubFile(const Standard_CString aclass,const Standard_CString asub) const; +Standard_EXPORT Standard_Boolean LoadFile(const Handle(TCollection_HAsciiString)& afile,const Standard_Boolean filemaynotexist = Standard_False) const; +Standard_EXPORT Standard_Boolean LoadParamClass(const Standard_CString aclass) const; +Standard_EXPORT Standard_Boolean LoadParamClass(const Standard_CString aclass,const Standard_CString asub) const; +Standard_EXPORT Standard_Boolean LoadParamClass(const Standard_CString aclass,const Handle(TColStd_HSequenceOfAsciiString)& asubseq) const; +Standard_EXPORT Handle_WOKUtils_HSequenceOfParamItem GetClassValues(const Standard_CString aclass) const; +Standard_EXPORT Handle_TColStd_HSequenceOfHAsciiString GetArguments(const Standard_CString aname) const; +Standard_EXPORT void GetArguments(const Standard_CString aname,const Handle(TColStd_HSequenceOfHAsciiString)& aseq,WOKTools_MapOfHAsciiString& amap) const; +Standard_EXPORT Standard_Boolean Write(const Handle(WOKUtils_Path)& afile,const Handle(TColStd_HSequenceOfHAsciiString)& somevars) const; +Standard_EXPORT Standard_Boolean Write(const Handle(WOKUtils_Path)& afile,const Handle(WOKUtils_HSequenceOfParamItem)& somevars) const; + + +friend class WOKernel_FileTypeBase; +friend class WOKernel_FileType; + + + +protected: + + // Methods PROTECTED + // + + + // Fields PROTECTED + // + + +private: + + // Methods PRIVATE + // +Standard_EXPORT Handle_TCollection_HAsciiString ParamClass(const Standard_CString aparamname) const; + + + // Fields PRIVATE + // +Handle_EDL_API myapi; +Handle_TColStd_HSequenceOfAsciiString mysubs; + + +}; + + + + + +// other inline functions and methods (like "C++: function call" methods) +// + + +#endif diff --git a/src/WOKUtils/WOKUtils_Path.cdl b/src/WOKUtils/WOKUtils_Path.cdl new file mode 100755 index 0000000..d1cdc83 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Path.cdl @@ -0,0 +1,147 @@ +-- File: WOKUtils_Path.cdl +-- Created: Fri Jan 31 19:02:27 1997 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1997 + + +class Path from WOKUtils +inherits TShared from MMgt + + ---Purpose: + +uses + Path from OSD, + HAsciiString from TCollection, + TimeStat from WOKUtils, + Extension from WOKUtils +raises + OSDError from OSD +is + + Create returns mutable Path from WOKUtils; + ---Purpose: Instantiates Path from WOKUtils + + Create(apath : CString from Standard) + returns mutable Path from WOKUtils; + + Create(apath : HAsciiString from TCollection) + ---Purpose: Instantiates Path from WOKUtils using an asciistring + returns mutable Path from WOKUtils; + + Create(apath : Path from OSD) + ---Purpose: Instantiates Path from WOKUtils using an OSD_Path + returns mutable Path from WOKUtils; + + Create(adir,aname : HAsciiString from TCollection) + ---Purpose: Instantiates Path from WOKUtils using an directory and + -- a name + returns mutable Path from WOKUtils; + + Create(adir,aname : CString from Standard) + ---Purpose: Instantiates Path from WOKUtils using an directory and + -- a name + returns mutable Path from WOKUtils; + + Name(me) + ---C++: return const & + ---Purpose: returns PathName + returns HAsciiString from TCollection; + + SetName(me:mutable; apath : HAsciiString from TCollection); + ---Purpose: sets path + + Exists(me) returns Boolean; + ---Purpose: Tests existency of path on disk + + CreateDirectory(me; CreateParents : Boolean from Standard = Standard_False) + ---Purpose: Creates path as a directory + returns Boolean + raises OSDError from OSD; + + CreateFile(me; CreateParents : Boolean from Standard = Standard_False) + ---Purpose: Creates path as a file on disk + returns Boolean + raises OSDError from OSD; + + IsSymLink(me) + returns Boolean from Standard; + + IsFile(me) + returns Boolean from Standard; + + IsDirectory(me) + returns Boolean from Standard; + + CreateSymLinkTo(me; apath : Path from WOKUtils); + + RemoveDirectory(me; RemoveChilds : Boolean from Standard = Standard_False); + + RemoveFile(me); + + MoveTo(me:mutable; adestpath : Path from WOKUtils) + ---Purpose: Renames file to destpath Failes if mypath and dest + -- path are not on the same file system + -- mypath is changed to which of adestpath + raises OSDError from OSD; + + ReducedPath(me) + ---Purpose: reduces Path as much as possible (reads links) + returns Path from WOKUtils; + + IsSamePath(me; another : Path from WOKUtils) + ---Purpose: Tests is me corresponds to the same + -- file as (reads links) + returns Boolean from Standard; + + IsSameFile(me; another : Path from WOKUtils) + ---Purpose: Teste si deux fichiers ont le meme + -- contenu (typiquement utilise a l'extraction) + returns Boolean from Standard; + + MDateIsKnown(me) + ---Purpose: Tests if Date of Path is known + returns Boolean; + + GetMDate(me:mutable) + ---Purpose: Get MDate of path on File System + returns TimeStat from WOKUtils raises OSDError from OSD; + + MDate(me) + ---Purpose: returns known date of path + returns TimeStat from WOKUtils; + + ResetMDate(me:mutable); + + IsOlder(me:mutable; another : Path from WOKUtils) + returns Boolean from Standard; + IsNewer(me:mutable; another : Path from WOKUtils) + returns Boolean from Standard; + + IsWriteAble(me) + returns Boolean from Standard; + + Extension(me) + ---Purpose: extracts Extension of file + returns Extension from WOKUtils; + + ExtensionName(me) + ---Purpose: extracts Extension of file + returns HAsciiString from TCollection; + + BaseName(me) + ---Purpose: returns the basename of File + returns HAsciiString from TCollection; + + DirName(me) + ---Purpose: returns the dirname of file + returns HAsciiString from TCollection; + + FileName(me) + ---Purpose: returns the filename (.) of path + returns HAsciiString from TCollection; + +fields + mypath : HAsciiString from TCollection; + mydate : TimeStat from WOKUtils; +end Path; diff --git a/src/WOKUtils/WOKUtils_Path.cxx b/src/WOKUtils/WOKUtils_Path.cxx new file mode 100755 index 0000000..e644fb4 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Path.cxx @@ -0,0 +1,46 @@ +// File: WOKUtils_Path.cxx +// Created: Fri Jan 31 19:40:11 1997 +// Author: Jean GAUTIER +// + +#ifndef _Standard_Macro_HeaderFile +#include +#endif + +#ifndef _Handle_MMgt_TShared_HeaderFile +#include +#endif + +#ifdef WNT +# include +# define WOKUtils_Path WOKNT_Path +#else +# include +# define WOKUtils_Path WOKUnix_Path +#endif + +#include + +class Standard_Transient; +class Handle_Standard_Type; +class Handle(MMgt_TShared); +class WOKUtils_Path; + +Standard_EXPORT Handle_Standard_Type& WOKUtils_Path_Type_() +{ + + static Handle_Standard_Type aType1 = STANDARD_TYPE(MMgt_TShared); + if ( aType1.IsNull()) aType1 = STANDARD_TYPE(MMgt_TShared); + static Handle_Standard_Type aType2 = STANDARD_TYPE(Standard_Transient); + if ( aType2.IsNull()) aType2 = STANDARD_TYPE(Standard_Transient); + + + static Handle_Standard_Transient _Ancestors[]= {aType1,aType2,NULL}; + static Handle_Standard_Type _aType = new Standard_Type("WOKUtils_Path", + sizeof(WOKUtils_Path), + 1, + (Standard_Address)_Ancestors, + (Standard_Address)NULL); + + return _aType; +} diff --git a/src/WOKUtils/WOKUtils_PathHasher.cdl b/src/WOKUtils/WOKUtils_PathHasher.cdl new file mode 100755 index 0000000..74acc29 --- /dev/null +++ b/src/WOKUtils/WOKUtils_PathHasher.cdl @@ -0,0 +1,13 @@ +-- File: WOKUtils_PathHasher.cdl +-- Created: Mon Jun 26 17:54:58 1995 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1995 + +class PathHasher from WOKUtils +uses Path from WOKUtils +is + HashCode(myclass; apath : Path from WOKUtils) returns Integer from Standard; + + IsEqual(myclass; path1, path2 : Path from WOKUtils) returns Boolean from Standard; +end; diff --git a/src/WOKUtils/WOKUtils_PathHasher.cxx b/src/WOKUtils/WOKUtils_PathHasher.cxx new file mode 100755 index 0000000..5599ad3 --- /dev/null +++ b/src/WOKUtils/WOKUtils_PathHasher.cxx @@ -0,0 +1,26 @@ +// File: WOKUtils_PathHasher.cxx +// Created: Mon Jun 26 17:56:47 1995 +// Author: Jean GAUTIER +// + + +#include + +#include + +#include + +Standard_Integer WOKUtils_PathHasher::HashCode(const Handle(WOKUtils_Path)& apath) +{ + if(apath.IsNull() != Standard_True) + { + return WOKTools_HAsciiStringHasher::HashCode(apath->Name()); + } + else return 0; +} + +Standard_Boolean WOKUtils_PathHasher::IsEqual(const Handle(WOKUtils_Path)& path1, const Handle(WOKUtils_Path)& path2) +{ + return path1->Name()->IsSameString(path2->Name()); +} + diff --git a/src/WOKUtils/WOKUtils_PathIterator.cdl b/src/WOKUtils/WOKUtils_PathIterator.cdl new file mode 100755 index 0000000..6f30999 --- /dev/null +++ b/src/WOKUtils/WOKUtils_PathIterator.cdl @@ -0,0 +1,32 @@ +-- File: WOKUtils_PathIterator.cdl +-- Created: Mon Aug 03 15:37:45 1998 +-- Author: +-- +---Copyright: Matra Datavision 1998 + + +class PathIterator from WOKUtils + + +uses + + HAsciiString from TCollection, + Path from WOKUtils + +is + + + Create(apath : Path from WOKUtils; recursive : Boolean from Standard = Standard_False) + returns PathIterator from WOKUtils; + + Next(me:out); + + + Value(me; level : out Integer from Standard) + returns Path from WOKUtils; + + More(me) + returns Boolean from Standard; + +end; + diff --git a/src/WOKUtils/WOKUtils_PathIterator.cxx b/src/WOKUtils/WOKUtils_PathIterator.cxx new file mode 100755 index 0000000..e5ff360 --- /dev/null +++ b/src/WOKUtils/WOKUtils_PathIterator.cxx @@ -0,0 +1,5 @@ + + + +#include + diff --git a/src/WOKUtils/WOKUtils_PathIterator_proto.hxx b/src/WOKUtils/WOKUtils_PathIterator_proto.hxx new file mode 100755 index 0000000..a507ac0 --- /dev/null +++ b/src/WOKUtils/WOKUtils_PathIterator_proto.hxx @@ -0,0 +1,26 @@ +// File: WOKUtils_PathIterator.hxx +// Created: Fri Jan 31 19:34:18 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_PathIterator_HeaderFile +#define WOKUtils_PathIterator_HeaderFile + +#ifdef WNT + +#include + +typedef WOKNT_PathIterator WOKUtils_PathIterator; + +#else + +#include + +typedef WOKUnix_PathIterator WOKUtils_PathIterator; + +#endif + + + +#endif diff --git a/src/WOKUtils/WOKUtils_Path_proto.hxx b/src/WOKUtils/WOKUtils_Path_proto.hxx new file mode 100755 index 0000000..7b05f72 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Path_proto.hxx @@ -0,0 +1,27 @@ +// File: WOKUtils_Path_proto.hxx +// Created: Fri Jan 31 19:37:37 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_Path_proto_HeaderFile +#define WOKUtils_Path_proto_HeaderFile + +#include + +#ifdef WNT + +#include +#define WOKUtils_Path WOKNT_Path + +#else + +#include +#define WOKUtils_Path WOKUnix_Path + +#endif + +#include + + +#endif diff --git a/src/WOKUtils/WOKUtils_ProcessManager.hxx b/src/WOKUtils/WOKUtils_ProcessManager.hxx new file mode 100755 index 0000000..b7105cb --- /dev/null +++ b/src/WOKUtils/WOKUtils_ProcessManager.hxx @@ -0,0 +1,24 @@ +// File: WOKUtils_ProcessManager.hxx +// Created: Fri Jan 31 19:32:38 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_ProcessManager_HeaderFile +#define WOKUtils_ProcessManager_HeaderFile + +#ifdef WNT + +#include + +typedef WOKNT_ShellManager WOKUtils_ProcessManager; + +#else + +#include + +typedef WOKUnix_ProcessManager WOKUtils_ProcessManager; + +#endif + +#endif diff --git a/src/WOKUtils/WOKUtils_RESyntax_proto.hxx b/src/WOKUtils/WOKUtils_RESyntax_proto.hxx new file mode 100755 index 0000000..fbce679 --- /dev/null +++ b/src/WOKUtils/WOKUtils_RESyntax_proto.hxx @@ -0,0 +1,37 @@ +// File: WOKUtils_RESyntax_proto.hxx +// Created: Mon Feb 3 20:07:30 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_RESyntax_proto_HeaderFile +#define WOKUtils_RESyntax_proto_HeaderFile + + + +#ifdef WNT + +#include + +typedef WOKNT_RESyntax WOKUtils_RESyntax; + +#define WOKUtils_RESyntaxAWK WOKNT_RESyntaxAWK +#define WOKUtils_RESyntaxEGREP WOKNT_RESyntaxEGREP +#define WOKUtils_RESyntaxGREP WOKNT_RESyntaxGREP +#define WOKUtils_RESyntaxEMACS WOKNT_RESyntaxEMACS + +#else + +#include + +typedef WOKUnix_RESyntax WOKUtils_RESyntax; + +#define WOKUtils_RESyntaxAWK WOKUnix_RESyntaxAWK +#define WOKUtils_RESyntaxEGREP WOKUnix_RESyntaxEGREP +#define WOKUtils_RESyntaxGREP WOKUnix_RESyntaxGREP +#define WOKUtils_RESyntaxEMACS WOKUnix_RESyntaxEMACS + +#endif + +#endif + diff --git a/src/WOKUtils/WOKUtils_RegExp.cdl b/src/WOKUtils/WOKUtils_RegExp.cdl new file mode 100755 index 0000000..d8d1cb5 --- /dev/null +++ b/src/WOKUtils/WOKUtils_RegExp.cdl @@ -0,0 +1,16 @@ +-- File: WOKUtils_RegExp.cdl +-- Created: Mon Feb 3 19:25:50 1997 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1997 + + +class RegExp from WOKUtils +inherits TShared from MMgt + +is + + Create returns mutable RegExp from WOKUtils; + + +end RegExp; diff --git a/src/WOKUtils/WOKUtils_RegExp.cxx b/src/WOKUtils/WOKUtils_RegExp.cxx new file mode 100755 index 0000000..358f7f7 --- /dev/null +++ b/src/WOKUtils/WOKUtils_RegExp.cxx @@ -0,0 +1,8 @@ +// File: WOKUtils_RegExp.cxx +// Created: Thu Feb 6 16:19:33 1997 +// Author: Jean GAUTIER +// + + + +#include diff --git a/src/WOKUtils/WOKUtils_RegExp.hxx b/src/WOKUtils/WOKUtils_RegExp.hxx new file mode 100755 index 0000000..90b5f9c --- /dev/null +++ b/src/WOKUtils/WOKUtils_RegExp.hxx @@ -0,0 +1,28 @@ +// File: WOKUtils_RegExp_proto.hxx +// Created: Mon Feb 3 19:27:30 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_RegExp_proto_HeaderFile +#define WOKUtils_RegExp_proto_HeaderFile + + +#include + +#ifdef WNT + +#include + +#define WOKUtils_RegExp WOKNT_RegExp + +#else + +#include + +#define WOKUtils_RegExp WOKUnix_RegExp + +#endif + + +#endif diff --git a/src/WOKUtils/WOKUtils_RegExp_proto.hxx b/src/WOKUtils/WOKUtils_RegExp_proto.hxx new file mode 100755 index 0000000..90b5f9c --- /dev/null +++ b/src/WOKUtils/WOKUtils_RegExp_proto.hxx @@ -0,0 +1,28 @@ +// File: WOKUtils_RegExp_proto.hxx +// Created: Mon Feb 3 19:27:30 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_RegExp_proto_HeaderFile +#define WOKUtils_RegExp_proto_HeaderFile + + +#include + +#ifdef WNT + +#include + +#define WOKUtils_RegExp WOKNT_RegExp + +#else + +#include + +#define WOKUtils_RegExp WOKUnix_RegExp + +#endif + + +#endif diff --git a/src/WOKUtils/WOKUtils_RemoteShell.cdl b/src/WOKUtils/WOKUtils_RemoteShell.cdl new file mode 100755 index 0000000..fbf6d0f --- /dev/null +++ b/src/WOKUtils/WOKUtils_RemoteShell.cdl @@ -0,0 +1,17 @@ +-- File: WOKUtils_RemoteShell.cdl +-- Created: Fri Jan 31 19:31:05 1997 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1997 + + +class RemoteShell from WOKUtils +inherits Shell from WOKUtils + + ---Purpose: + +is + + Create returns mutable RemoteShell from WOKUtils; + +end RemoteShell; diff --git a/src/WOKUtils/WOKUtils_RemoteShell.cxx b/src/WOKUtils/WOKUtils_RemoteShell.cxx new file mode 100755 index 0000000..5d13b95 --- /dev/null +++ b/src/WOKUtils/WOKUtils_RemoteShell.cxx @@ -0,0 +1,50 @@ +// File: WOKUtils_RemoteRemoteShell.cxx +// Created: Fri Jan 31 19:40:45 1997 +// Author: Jean GAUTIER +// + +// File: WOKUtils_RemoteShell.cxx +// Created: Fri Jan 31 19:40:30 1997 +// Author: Jean GAUTIER +// + + +#ifndef _Standard_Macro_HeaderFile +#include +#endif + +#ifndef _Handle_MMgt_TShared_HeaderFile +#include +#endif + +#ifdef WNT +# include +# define WOKUtils_RemoteShell WOKNT_Shell +#else +# include +# define WOKUtils_RemoteShell WOKUnix_RemoteShell +#endif + +class Standard_Transient; +class Handle_Standard_Type; +class Handle(MMgt_TShared); +class WOKUtils_RemoteShell; + +Standard_EXPORT Handle_Standard_Type& WOKUtils_RemoteShell_Type_() +{ + + static Handle_Standard_Type aType1 = STANDARD_TYPE(MMgt_TShared); + if ( aType1.IsNull()) aType1 = STANDARD_TYPE(MMgt_TShared); + static Handle_Standard_Type aType2 = STANDARD_TYPE(Standard_Transient); + if ( aType2.IsNull()) aType2 = STANDARD_TYPE(Standard_Transient); + + + static Handle_Standard_Transient _Ancestors[]= {aType1,aType2,NULL}; + static Handle_Standard_Type _aType = new Standard_Type("WOKUtils_RemoteShell", + sizeof(WOKUtils_RemoteShell), + 1, + (Standard_Address)_Ancestors, + (Standard_Address)NULL); + + return _aType; +} diff --git a/src/WOKUtils/WOKUtils_RemoteShell_proto.hxx b/src/WOKUtils/WOKUtils_RemoteShell_proto.hxx new file mode 100755 index 0000000..6fee888 --- /dev/null +++ b/src/WOKUtils/WOKUtils_RemoteShell_proto.hxx @@ -0,0 +1,29 @@ +// File: WOKUtils_RemoteShell_proto.hxx +// Created: Fri Jan 31 19:38:42 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_RemoteShell_proto_HeaderFile +#define WOKUtils_RemoteShell_proto_HeaderFile + +#include + +#ifdef WNT + + +#include + +#define WOKUtils_RemoteShell WOKNT_Shell + + +#else + +#include + +#define WOKUtils_RemoteShell WOKUnix_RemoteShell + +#endif + + +#endif diff --git a/src/WOKUtils/WOKUtils_Replace.tcl b/src/WOKUtils/WOKUtils_Replace.tcl new file mode 100755 index 0000000..a1a7801 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Replace.tcl @@ -0,0 +1,82 @@ + + +proc WOKUtils_Replace::AdmFileType {} { + return "dbadmfile"; +} + +proc WOKUtils_Replace::OutputDirTypeName {} { + return "dbtmpfile"; +} + + +proc WOKUtils_Replace::HandleInputFile { ID } { + + scan $ID "%\[^:\]:%\[^:\]:%\[^:\]" unit type name + + switch $name { + Handle_WOKUtils_RegExp.hxx {return 1;} + Handle_WOKUtils_Path.hxx {return 1;} + Handle_WOKUtils_Shell.hxx {return 1;} + Handle_WOKUtils_RemoteShell.hxx {return 1;} + WOKUtils_RegExp.hxx {return 1;} + WOKUtils_Path.hxx {return 1;} + WOKUtils_ShellManager.hxx {return 1;} + WOKUtils_PathIterator.hxx {return 1;} + WOKUtils_Shell.hxx {return 1;} + WOKUtils_RemoteShell.hxx {return 1;} + WOKUtils_Extension.hxx {return 1;} + WOKUtils_RESyntax.hxx {return 1;} + WOKUtils_Trigger.hxx {return 1;} + WOKUtils_Param.hxx {return 1;} + default { + return 0; + } + } +} + +proc WOKUtils_Replace::Execute { unit args } { + + global tcl_interactive + + set tcl_interactive 1 + package require Wokutils + + msgprint -i -c "WOKUtils_Replace::Execute" "Copying of WOKUtils 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 WOKUtils:source:$sourcename [wokinfo -N $unit]] + set vistarget [woklocate -p WOKUtils:pubinclude:$name [wokinfo -N $unit]] + set target [wokinfo -p pubinclude:$name $unit] + + regsub -all "/" " $source $target" $replstr TheArgs + + set A [catch {eval "wokcmp $TheArgs"} result ] + + if { [wokparam -e %Station $unit] == "wnt" && $result != "" } { + set result 0 + } + + if { ! $result } { + msgprint -i -c "WOKUtils_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" + } else { + msgprint -i -c "WOKUtils_Replace::Execute" "No change in $source" + } + } + return 0; +} diff --git a/src/WOKUtils/WOKUtils_SearchIterator.cdl b/src/WOKUtils/WOKUtils_SearchIterator.cdl new file mode 100755 index 0000000..154bd4a --- /dev/null +++ b/src/WOKUtils/WOKUtils_SearchIterator.cdl @@ -0,0 +1,31 @@ +-- File: WOKUtils_SearchIterator.cdl +-- Created: Tue Sep 26 17:51:00 1995 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1995 + + +class SearchIterator from WOKUtils + + ---Purpose: + +uses + SearchList from WOKUtils, + Path from WOKUtils, + HAsciiString from TCollection + +is + Create(alist : SearchList from WOKUtils; afile : HAsciiString from TCollection) returns SearchIterator from WOKUtils; + + Value(me) returns Path from WOKUtils; + + Next(me:out); + + More(me) returns Boolean from Standard; + +fields + mylist : SearchList from WOKUtils; + myidx : Integer from Standard; + myfile : HAsciiString from TCollection; + myvalue : Path from WOKUtils; +end SearchIterator; diff --git a/src/WOKUtils/WOKUtils_SearchIterator.cxx b/src/WOKUtils/WOKUtils_SearchIterator.cxx new file mode 100755 index 0000000..f6e884a --- /dev/null +++ b/src/WOKUtils/WOKUtils_SearchIterator.cxx @@ -0,0 +1,92 @@ +// File: WOKUtils_SearchIterator.cxx +// Created: Wed Sep 27 12:05:56 1995 +// Author: Jean GAUTIER +// + +#include + +#include + +#include + +#include +#include +#include + +#include + + +//======================================================================= +//function : WOKUtils_SearchIterator +//purpose : +//======================================================================= + WOKUtils_SearchIterator::WOKUtils_SearchIterator(const Handle(WOKUtils_SearchList)& alist, const Handle(TCollection_HAsciiString)& afile) +{ + + mylist = alist; + myidx = 1; + myfile = afile; + Next(); +} + +//======================================================================= +//function : Value +//purpose : +//======================================================================= +Handle(WOKUtils_Path) WOKUtils_SearchIterator::Value() const +{ + return myvalue; +} + +//======================================================================= +//function : Next +//purpose : +//======================================================================= +void WOKUtils_SearchIterator::Next() +{ + + while(myidx <= mylist->List()->Length()) + { + Handle(WOKUtils_Path) apath = mylist->List()->Value(myidx); + Handle(TCollection_HAsciiString) aname = apath->Name(); + OSD_File afd(OSD_Path(aname->ToCString())); + + switch(afd.KindOfFile()) + { + case OSD_FILE: + myvalue = apath; + myidx++; + return; + + case OSD_DIRECTORY: + { + Handle(WOKUtils_Path) thepath; + + thepath = new WOKUtils_Path(aname, myfile); + + if(thepath->Exists() == Standard_True) + { + myvalue = thepath; + myidx++; + return; + } + } + break; + default: + ErrorMsg << "WOKUtils_Param::Load" << "Invalid type for file : " << apath->Name() << endm; + } + myidx++; + } + myvalue = Handle(WOKUtils_Path)(); +} + +//======================================================================= +//function : More +//purpose : +//======================================================================= +Standard_Boolean WOKUtils_SearchIterator::More() const +{ + if(myvalue.IsNull() == Standard_False) return Standard_True; + return Standard_False; +} + diff --git a/src/WOKUtils/WOKUtils_SearchList.cdl b/src/WOKUtils/WOKUtils_SearchList.cdl new file mode 100755 index 0000000..184711e --- /dev/null +++ b/src/WOKUtils/WOKUtils_SearchList.cdl @@ -0,0 +1,35 @@ +-- File: WOKUtils_SearchList.cdl +-- Created: Tue Sep 26 17:21:51 1995 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1995 + + +class SearchList from WOKUtils +inherits TShared from MMgt + + ---Purpose: + +uses + Path from WOKUtils, + HAsciiString from TCollection, + HSequenceOfPath from WOKUtils +is + + Create returns mutable SearchList from WOKUtils; + + Create(another : SearchList from WOKUtils) returns mutable SearchList from WOKUtils; + + List(me) returns HSequenceOfPath from WOKUtils; + + AddPriorPath(me:mutable; apath : Path from WOKUtils); + AddNonPriorPath(me:mutable; apath : Path from WOKUtils); + + SearchFile(me:mutable; afile : HAsciiString from TCollection) + returns mutable Path from WOKUtils; + +fields + mylist : HSequenceOfPath from WOKUtils; +end SearchList; + + diff --git a/src/WOKUtils/WOKUtils_SearchList.cxx b/src/WOKUtils/WOKUtils_SearchList.cxx new file mode 100755 index 0000000..e3f5a2a --- /dev/null +++ b/src/WOKUtils/WOKUtils_SearchList.cxx @@ -0,0 +1,97 @@ +// File: WOKUtils_SearchList.cxx +// Created: Wed Sep 27 11:41:30 1995 +// Author: Jean GAUTIER +// + + +#include + +#include + +#include + +#include + +//======================================================================= +//function : WOKUtils_SearchList +//purpose : +//======================================================================= + WOKUtils_SearchList::WOKUtils_SearchList() +{ + mylist = new WOKUtils_HSequenceOfPath; +} + +//======================================================================= +//function : WOKUtils_SearchList +//purpose : +//======================================================================= + WOKUtils_SearchList::WOKUtils_SearchList(const Handle(WOKUtils_SearchList)& another) +{ + mylist = new WOKUtils_HSequenceOfPath; + mylist->Append(another->List()); +} + +//======================================================================= +//function : List +//purpose : +//======================================================================= +Handle(WOKUtils_HSequenceOfPath) WOKUtils_SearchList::List() const +{ + return mylist; +} + +//======================================================================= +//function : AddPriorPath +//purpose : +//======================================================================= +void WOKUtils_SearchList::AddPriorPath(const Handle(WOKUtils_Path)& apath) +{ + mylist->Prepend(apath); +} + +//======================================================================= +//function : AddNonPriorPath +//purpose : +//======================================================================= +void WOKUtils_SearchList::AddNonPriorPath(const Handle(WOKUtils_Path)& apath) +{ + mylist->Append(apath); +} + +//======================================================================= +//function : SearchFile +//purpose : +//======================================================================= +Handle(WOKUtils_Path) WOKUtils_SearchList::SearchFile(const Handle(TCollection_HAsciiString)& thefile) +{ + for(Standard_Integer index = 1; index <= mylist->Length() ; index++) + { + Handle(WOKUtils_Path) apath = mylist->Value(index); + Handle(TCollection_HAsciiString) aname = apath->Name(); + OSD_File afd(OSD_Path(aname->ToCString())); + + switch(afd.KindOfFile()) + { + case OSD_FILE: + break; + case OSD_DIRECTORY: + { + Handle(WOKUtils_Path) thepath; + + thepath = new WOKUtils_Path(aname, thefile); + + if(thepath->Exists() == Standard_True) + { + return thepath; + } + } + break; + default: + ErrorMsg << "WOKUtils_Param::Load" << "Invalid type for file : " << aname << endm; + } + + } + return Handle(WOKUtils_Path) (); +} + + diff --git a/src/WOKUtils/WOKUtils_Shell.cdl b/src/WOKUtils/WOKUtils_Shell.cdl new file mode 100755 index 0000000..e3834ef --- /dev/null +++ b/src/WOKUtils/WOKUtils_Shell.cdl @@ -0,0 +1,17 @@ +-- File: WOKUtils_Shell.cdl +-- Created: Fri Jan 31 19:03:00 1997 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1997 + + +class Shell from WOKUtils +inherits TShared from MMgt + + ---Purpose: + +is + + Create returns mutable Shell from WOKUtils; + +end Shell; diff --git a/src/WOKUtils/WOKUtils_Shell.cxx b/src/WOKUtils/WOKUtils_Shell.cxx new file mode 100755 index 0000000..4503adc --- /dev/null +++ b/src/WOKUtils/WOKUtils_Shell.cxx @@ -0,0 +1,47 @@ +// File: WOKUtils_Shell.cxx +// Created: Fri Jan 31 19:40:30 1997 +// Author: Jean GAUTIER +// + + +#ifndef _Standard_Macro_HeaderFile +#include +#endif + +#ifndef _Handle_MMgt_TShared_HeaderFile +#include +#endif + +#ifdef WNT +# include +# define WOKUtils_Shell WOKNT_Shell +#else +# include +# define WOKUtils_Shell WOKUnix_Shell +#endif + +#include + +class Standard_Transient; +class Handle_Standard_Type; +class Handle(MMgt_TShared); +class WOKUtils_Shell; + +Standard_EXPORT Handle_Standard_Type& WOKUtils_Shell_Type_() +{ + + static Handle_Standard_Type aType1 = STANDARD_TYPE(MMgt_TShared); + if ( aType1.IsNull()) aType1 = STANDARD_TYPE(MMgt_TShared); + static Handle_Standard_Type aType2 = STANDARD_TYPE(Standard_Transient); + if ( aType2.IsNull()) aType2 = STANDARD_TYPE(Standard_Transient); + + + static Handle_Standard_Transient _Ancestors[]= {aType1,aType2,NULL}; + static Handle_Standard_Type _aType = new Standard_Type("WOKUtils_Shell", + sizeof(WOKUtils_Shell), + 1, + (Standard_Address)_Ancestors, + (Standard_Address)NULL); + + return _aType; +} diff --git a/src/WOKUtils/WOKUtils_ShellManager.cdl b/src/WOKUtils/WOKUtils_ShellManager.cdl new file mode 100755 index 0000000..43b4d5e --- /dev/null +++ b/src/WOKUtils/WOKUtils_ShellManager.cdl @@ -0,0 +1,35 @@ +-- File: WOKUtils_ShellManager.cdl +-- Created: Wed Mar 5 21:05:30 1997 +-- Author: Prestataire Pascal BABIN +-- +---Copyright: Matra Datavision 1997 + +class ShellManager from WOKUtils + + ---Purpose: + +uses + + Shell from WOKUtils, + RemoteShell from WOKUtils, + HAsciiString from TCollection, + AsciiString from TCollection + +is + + GetShell(myclass) + ---Purpose: returns one unlocked shell of processes list + returns Shell from WOKUtils; + + GetShell(myclass; apid : Integer from Standard) + ---Purpose: get a precise shell + returns Shell from WOKUtils; + + GetRemoteShell(myclass; + ahost : HAsciiString from TCollection; + apath : AsciiString from TCollection) + ---Purpose: returns a host's unlocked remote shell of processes list + returns RemoteShell from WOKUtils; + +end ShellManager; + diff --git a/src/WOKUtils/WOKUtils_ShellManager.cxx b/src/WOKUtils/WOKUtils_ShellManager.cxx new file mode 100755 index 0000000..dcf2256 --- /dev/null +++ b/src/WOKUtils/WOKUtils_ShellManager.cxx @@ -0,0 +1,7 @@ +// File: WOKUtils_ShellManager.cxx +// Created: Wed Mar 5 21:06:27 1997 +// Author: Prestataire Pascal BABIN +// + + +#include diff --git a/src/WOKUtils/WOKUtils_ShellManager_proto.hxx b/src/WOKUtils/WOKUtils_ShellManager_proto.hxx new file mode 100755 index 0000000..6f29378 --- /dev/null +++ b/src/WOKUtils/WOKUtils_ShellManager_proto.hxx @@ -0,0 +1,26 @@ +// File: WOKUtils_ShellManager.hxx +// Created: Fri Jan 31 19:34:18 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_ShellManager_HeaderFile +#define WOKUtils_ShellManager_HeaderFile + +#ifdef WNT + +#include + +typedef WOKNT_ShellManager WOKUtils_ShellManager; + +#else + +#include + +typedef WOKUnix_ShellManager WOKUtils_ShellManager; + +#endif + + + +#endif diff --git a/src/WOKUtils/WOKUtils_Shell_proto.hxx b/src/WOKUtils/WOKUtils_Shell_proto.hxx new file mode 100755 index 0000000..3ff7155 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Shell_proto.hxx @@ -0,0 +1,27 @@ +// File: WOKUtils_Shell_proto.hxx +// Created: Fri Jan 31 19:38:14 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_Shell_proto_HeaderFile +#define WOKUtils_Shell_proto_HeaderFile + +#include + +#ifdef WNT + +#include + +#define WOKUtils_Shell WOKNT_Shell + +#else + +#include + +#define WOKUtils_Shell WOKUnix_Shell + +#endif + + +#endif diff --git a/src/WOKUtils/WOKUtils_SigHandler.hxx b/src/WOKUtils/WOKUtils_SigHandler.hxx new file mode 100755 index 0000000..a33fc8d --- /dev/null +++ b/src/WOKUtils/WOKUtils_SigHandler.hxx @@ -0,0 +1,20 @@ +// File: WOKUtils_SigHandler.hxx +// Created: Wed May 24 18:35:36 1995 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_SigHandler_HeaderFile +#define WOKUtils_SigHandler_HeaderFile + +#ifndef WNT + +#include + +typedef WOKUnix_SigHandler WOKUtils_SigHandler; + +#else + +#endif + +#endif diff --git a/src/WOKUtils/WOKUtils_Signal.hxx b/src/WOKUtils/WOKUtils_Signal.hxx new file mode 100755 index 0000000..6b14422 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Signal.hxx @@ -0,0 +1,32 @@ +// File: WOKUtils_Signal.hxx +// Created: Fri Jan 31 19:35:33 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_Signal_HeaderFile +#define WOKUtils_Signal_HeaderFile + + +#include + +#ifndef WNT + + +#include + +typedef WOKUnix_Signal WOKUtils_Signal; + +#define WOKUtils_SIGPIPE WOKUnix_SIGPIPE +#define WOKUtils_SIGHUP WOKUnix_SIGHUP +#define WOKUtils_SIGINT WOKUnix_SIGINT +#define WOKUtils_SIGQUIT WOKUnix_SIGQUIT +#define WOKUtils_SIGILL WOKUnix_SIGILL +#define WOKUtils_SIGKILL WOKUnix_SIGKILL +#define WOKUtils_SIGBUS WOKUnix_SIGBUS +#define WOKUtils_SIGSEGV WOKUnix_SIGSEGV +#define WOKUtils_SIGCHILD WOKUnix_SIGCHILD + +#endif + +#endif diff --git a/src/WOKUtils/WOKUtils_TimeStat.hxx b/src/WOKUtils/WOKUtils_TimeStat.hxx new file mode 100755 index 0000000..764c9f4 --- /dev/null +++ b/src/WOKUtils/WOKUtils_TimeStat.hxx @@ -0,0 +1,18 @@ +// File: WOKUtils_TimeStat.hxx +// Created: Mon Jun 26 15:46:11 1995 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_TimeStat_HeaderFile +#define WOKUtils_TimeStat_HeaderFile + +#include + + +// time time in return of stat system call + +typedef time_t WOKUtils_TimeStat; + + +#endif diff --git a/src/WOKUtils/WOKUtils_Timeval.hxx b/src/WOKUtils/WOKUtils_Timeval.hxx new file mode 100755 index 0000000..0b92473 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Timeval.hxx @@ -0,0 +1,14 @@ +// File: WOKUtils_Timeval.hxx +// Created: Tue May 9 15:24:00 1995 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_Timeval_HeaderFile +#define WOKUtils_Timeval_HeaderFile + +#include + +typedef struct timeval WOKUtils_Timeval ; + +#endif diff --git a/src/WOKUtils/WOKUtils_Trigger.cdl b/src/WOKUtils/WOKUtils_Trigger.cdl new file mode 100755 index 0000000..072aa10 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Trigger.cdl @@ -0,0 +1,141 @@ +-- File: WOKTools_Trigger.cdl +-- Created: Thu Oct 26 16:28:05 1995 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1995 + + +class Trigger from WOKUtils + + ---Purpose: Allows Config of Comportement + +uses + Param from WOKUtils, + Path from WOKUtils, + TriggerHandler from WOKUtils, + TriggerControl from WOKUtils, + TriggerStatus from WOKUtils, + Return from WOKTools, + InterpFileType from WOKTools, + HAsciiString from TCollection + +is + + Create + returns Trigger from WOKUtils; + + SetTriggerHandler(myclass; ahandler : TriggerHandler from WOKUtils); + TriggerHandler(myclass) + ---C++: return & + returns TriggerHandler from WOKUtils; + + SetName(me:out; aname : CString from Standard) + ---C++: return & + ---C++: alias operator () + returns Trigger from WOKUtils; + + SetName(me:out; aname : HAsciiString from TCollection) + ---C++: return & + ---C++: alias operator () + returns Trigger from WOKUtils; + + Name(me) + returns HAsciiString from TCollection; + + AddFile(me:out; afile : HAsciiString from TCollection; + params : Param from WOKUtils; + type : InterpFileType from WOKTools = WOKTools_TclInterp) + ---C++: return & + ---C++: alias operator () + returns Trigger from WOKUtils; + + AddFile(me:out; afile : CString from Standard; + params : Param from WOKUtils; + type : InterpFileType from WOKTools = WOKTools_TclInterp) + ---C++: return & + ---C++: alias operator () + returns Trigger from WOKUtils; + + AddArg(me:out; anarg : HAsciiString from TCollection) + ---C++: return & + ---C++: alias operator << + returns Trigger from WOKUtils; + + AddArg(me:out; anarg : CString from Standard) + ---C++: return & + ---C++: alias operator << + returns Trigger from WOKUtils; + + AddArg(me:out; anarg : Boolean from Standard) + ---C++: return & + ---C++: alias operator << + returns Trigger from WOKUtils; + + AddArg(me:out; anarg : Integer from Standard) + ---C++: return & + ---C++: alias operator << + returns Trigger from WOKUtils; + + AddControl(me:out; anctrl : TriggerControl from WOKUtils) + ---C++: return & + ---C++: alias operator << + returns Trigger from WOKUtils; + + Args(me) + ---C++: return const & + returns Return from WOKTools; + + Execute(me:out) + returns TriggerStatus from WOKUtils; + + AddResult(me:out; aresult : HAsciiString from TCollection) + ---C++: return & + returns Trigger from WOKUtils; + + AddResult(me:out; aresult : CString from Standard) + ---C++: return & + returns Trigger from WOKUtils; + + AddResult(me:out; aresult : Boolean from Standard) + ---C++: return & + returns Trigger from WOKUtils; + + AddResult(me:out; aresult : Integer from Standard) + ---C++: return & + returns Trigger from WOKUtils; + + GetResult(me:out; aresult : out HAsciiString from TCollection) + ---C++: alias operator >> + ---C++: return & + returns Trigger from WOKUtils; + + GetResult(me:out; aresult : out Boolean from Standard) + ---C++: return & + ---C++: alias operator >> + returns Trigger from WOKUtils; + + GetResult(me:out; aresult : out Integer from Standard) + ---C++: return & + ---C++: alias operator >> + returns Trigger from WOKUtils; + + Return(me) + ---C++: return const & + returns Return from WOKTools; + + ChangeReturn(me:out) + ---C++: return & + returns Return from WOKTools; + + Status(me) + returns TriggerStatus from WOKUtils; + +fields + myfile : Path from WOKUtils; + myname : HAsciiString from TCollection; + mytype : InterpFileType from WOKTools; + myargs : Return from WOKTools; + myrets : Return from WOKTools; + myidx : Integer from Standard; + mystat : TriggerStatus from WOKUtils; +end Trigger; diff --git a/src/WOKUtils/WOKUtils_Trigger.cxx b/src/WOKUtils/WOKUtils_Trigger.cxx new file mode 100755 index 0000000..fdfe5fa --- /dev/null +++ b/src/WOKUtils/WOKUtils_Trigger.cxx @@ -0,0 +1,421 @@ +// File: WOKUtils_Trigger.cxx +// Created: Fri Oct 27 18:23:27 1995 +// Author: Jean GAUTIER +// + + +#include + +#include +#include +#include + +#include + +#include + + + +//======================================================================= +//function : WOKUtils_Trigger +//purpose : +//======================================================================= +WOKUtils_Trigger::WOKUtils_Trigger() + : mystat(WOKUtils_Unknown), myidx(1) +{ +} + +//======================================================================= +//function : SetTriggerHandler +//purpose : +//======================================================================= +void WOKUtils_Trigger::SetTriggerHandler(const WOKUtils_TriggerHandler ahandler) +{ + WOKUtils_Trigger::TriggerHandler() = ahandler; +} + +//======================================================================= +//function : DefaultHandler +//purpose : +//======================================================================= +WOKUtils_TriggerStatus DefaultHandler(WOKUtils_Trigger& atrigger) +{ + Standard_Integer i; + + // Prise en compte des resultats + + const WOKTools_Return& args = atrigger.Args(); + + for(i = 1; i <= args.Length() ; i++) + { + Handle(WOKTools_ReturnValue) avalue = args.Value(i); + + switch(avalue->Type()) + { + case WOKTools_String: + { + Handle(WOKTools_StringValue) astrval = Handle(WOKTools_StringValue)::DownCast(avalue); + InfoMsg << "DefaultHandler" << "Arg " << i << " is : " << astrval->Value() << endm; + } + break; + } + } + return WOKUtils_Unknown; +} + + +//======================================================================= +//function : TriggerHandler +//purpose : +//======================================================================= +WOKUtils_TriggerHandler& WOKUtils_Trigger::TriggerHandler( ) +{ + static WOKUtils_TriggerHandler TheHandler = NULL; + + if(TheHandler == NULL) + { + TheHandler = DefaultHandler; + return TheHandler; + } + else + return TheHandler; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : SetName +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::SetName(const Handle(TCollection_HAsciiString)& aname) +{ + myname = aname; + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : SetName +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::SetName(const Standard_CString aname) +{ + myname = new TCollection_HAsciiString(aname); + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddFile +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddFile(const Handle(TCollection_HAsciiString)& afile, + const WOKUtils_Param& params, + const WOKTools_InterpFileType atype) +{ + Handle(WOKUtils_Path) apath = params.SearchFile(afile); + + if(!apath.IsNull()) + { + myargs.AddInterpFile(apath->Name(), atype); + } + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddFile +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddFile(const Standard_CString afile, + const WOKUtils_Param& params, + const WOKTools_InterpFileType atype) +{ + Handle(WOKUtils_Path) apath = params.SearchFile(new TCollection_HAsciiString(afile)); + + if(!apath.IsNull()) + { + myargs.AddInterpFile(apath->Name(), atype); + } + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddArg +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddArg(const Handle(TCollection_HAsciiString)& astr) +{ + myargs.AddStringValue(astr); + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddArg +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddArg(const Standard_CString astr) +{ + myargs.AddStringValue(astr); + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddArg +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddArg(const Standard_Boolean abool) +{ + myargs.AddBooleanValue(abool); + return *this; +} + + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddArg +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddArg(const Standard_Integer anint) +{ + myargs.AddIntegerValue(anint); + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddArg +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddControl(const WOKUtils_TriggerControl anctrl) +{ + (*anctrl)(*this); + return *this; +} + +//======================================================================= +//function : Execute +//purpose : +//======================================================================= +WOKUtils_TriggerStatus WOKUtils_Trigger::Execute() +{ + myidx=1; + if(TriggerHandler()!=NULL) + { + return (mystat = (*TriggerHandler())(*this)); + } + return (mystat = WOKUtils_Unknown); +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : Addresult +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddResult(const Handle(TCollection_HAsciiString)& astr) +{ + myrets.AddStringValue(astr); + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddResult +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddResult(const Standard_CString astr) +{ + myrets.AddStringValue(astr); + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddResult +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddResult(const Standard_Boolean abool) +{ + myrets.AddBooleanValue(abool); + return *this; +} + + +//======================================================================= +//Author : Jean Gautier (jga) +//function : AddResult +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::AddResult(const Standard_Integer anint) +{ + myrets.AddIntegerValue(anint); + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : Getresult +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::GetResult(Handle(TCollection_HAsciiString)& astr) +{ + if(mystat != WOKUtils_Succeeded) return *this; + + if(myidx>myrets.Length()) + Standard_RangeError::Raise("WOKUtils_Trigger::GetResult : No more args"); + + + Handle(WOKTools_StringValue) aret = Handle(WOKTools_StringValue)::DownCast(myrets.Value(myidx)); + + if(!aret.IsNull()) + { + astr = aret->Value(); + } + else + { + astr.Nullify(); + } + myidx++; + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : GetResult +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::GetResult( Standard_Boolean& abool) +{ + if(mystat != WOKUtils_Succeeded) return *this; + + if(myidx>myrets.Length()) + Standard_RangeError::Raise("WOKUtils_Trigger::GetResult : No more args"); + + Handle(WOKTools_StringValue) aret = Handle(WOKTools_StringValue)::DownCast(myrets.Value(myidx)); + + if(!aret.IsNull()) + { + Handle(TCollection_HAsciiString) astr; + astr = aret->Value(); + + if(astr->Value(1) == '0') + { + abool = Standard_False; + } + else if(astr->Value(1) == '1') + { + abool = Standard_True; + } + else + { + abool = Standard_False; + } + } + else + { + abool = Standard_False; + } + myidx++; + return *this; +} + + +//======================================================================= +//Author : Jean Gautier (jga) +//function : GetResult +//purpose : +//======================================================================= +WOKUtils_Trigger& WOKUtils_Trigger::GetResult( Standard_Integer& anint) +{ + if(mystat != WOKUtils_Succeeded) return *this; + + if(myidx>myrets.Length()) + Standard_RangeError::Raise("WOKUtils_Trigger::GetResult : No more args"); + + Handle(WOKTools_StringValue) aret = Handle(WOKTools_StringValue)::DownCast(myrets.Value(myidx)); + + if(!aret.IsNull()) + { + Handle(TCollection_HAsciiString) astr; + astr = aret->Value(); + + if(astr->IsIntegerValue()) + { + anint = astr->IntegerValue(); + } + else + { + anint = 0; + } + } + else + { + anint = 0; + } + myidx++; + return *this; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : Name +//purpose : +//======================================================================= +Handle(TCollection_HAsciiString) WOKUtils_Trigger::Name() const +{ + return myname; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : Return +//purpose : +//======================================================================= +const WOKTools_Return& WOKUtils_Trigger::Return() const +{ + return myrets; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : ChangeReturn +//purpose : +//======================================================================= +WOKTools_Return& WOKUtils_Trigger::ChangeReturn() +{ + return myrets; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : Args +//purpose : +//======================================================================= +const WOKTools_Return& WOKUtils_Trigger::Args() const +{ + return myargs; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : Status +//purpose : +//======================================================================= +WOKUtils_TriggerStatus WOKUtils_Trigger::Status() const +{ + return mystat; +} + +//======================================================================= +//Author : Jean Gautier (jga) +//function : endt +//purpose : +//======================================================================= +Standard_EXPORT WOKUtils_Trigger& endt(WOKUtils_Trigger& trigger) +{ + trigger.Execute(); + return trigger; +} + diff --git a/src/WOKUtils/WOKUtils_TriggerAction.hxx b/src/WOKUtils/WOKUtils_TriggerAction.hxx new file mode 100755 index 0000000..a53affb --- /dev/null +++ b/src/WOKUtils/WOKUtils_TriggerAction.hxx @@ -0,0 +1,14 @@ +// File: WOKTools_TriggerAction.hxx +// Created: Fri Oct 27 19:21:33 1995 +// Author: Jean GAUTIER +// + + +#ifndef WOKTools_TriggerAction_HeaderFile +#define WOKTools_TriggerAction_HeaderFile + +#include + +extern TriggerAction; + +#endif diff --git a/src/WOKUtils/WOKUtils_TriggerControl.hxx b/src/WOKUtils/WOKUtils_TriggerControl.hxx new file mode 100755 index 0000000..a5fc3b2 --- /dev/null +++ b/src/WOKUtils/WOKUtils_TriggerControl.hxx @@ -0,0 +1,21 @@ +// File: WOKUtils_TriggerControl.hxx +// Created: Thu Nov 14 14:39:02 1996 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_TriggerControl_HeaderFile +#define WOKUtils_TriggerControl_HeaderFile + + + +class WOKUtils_Trigger; + +#include + +const Handle(Standard_Type)& STANDARD_TYPE(WOKUtils_TriggerControl); + +typedef WOKUtils_Trigger& (*WOKUtils_TriggerControl)(WOKUtils_Trigger &); + + +#endif diff --git a/src/WOKUtils/WOKUtils_TriggerHandler.hxx b/src/WOKUtils/WOKUtils_TriggerHandler.hxx new file mode 100755 index 0000000..85a3bb9 --- /dev/null +++ b/src/WOKUtils/WOKUtils_TriggerHandler.hxx @@ -0,0 +1,22 @@ +// File: WOKUtils_TriggerHandler.hxx +// Created: Fri Oct 27 19:13:11 1995 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_TriggerHandler_HeaderFile +#define WOKUtils_TriggerHandler_HeaderFile + +#include + +#include + +#include + +#include + +class WOKUtils_Trigger; + +typedef WOKUtils_TriggerStatus (*WOKUtils_TriggerHandler)(WOKUtils_Trigger& ); + +#endif diff --git a/src/WOKUtils/WOKUtils_Trigger_proto.hxx b/src/WOKUtils/WOKUtils_Trigger_proto.hxx new file mode 100755 index 0000000..3aeb232 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Trigger_proto.hxx @@ -0,0 +1,131 @@ +// File modified by JGA for Visual C++ 5.0 support + +#ifndef _WOKUtils_Trigger_HeaderFile +#define _WOKUtils_Trigger_HeaderFile + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +class WOKUtils_Path; +class TCollection_HAsciiString; +class WOKUtils_Param; +class WOKTools_Return; + + +#include + +class WOKUtils_Trigger { + +public: + + // Methods PUBLIC + // + Standard_EXPORT WOKUtils_Trigger(); + Standard_EXPORT static void SetTriggerHandler(const WOKUtils_TriggerHandler ahandler) ; + Standard_EXPORT static WOKUtils_TriggerHandler& TriggerHandler() ; + Standard_EXPORT WOKUtils_Trigger& SetName(const Standard_CString aname) ; + WOKUtils_Trigger& operator ()(const Standard_CString aname) + { + return SetName(aname); + } + + Standard_EXPORT WOKUtils_Trigger& SetName(const Handle(TCollection_HAsciiString)& aname) ; + WOKUtils_Trigger& operator ()(const Handle(TCollection_HAsciiString)& aname) + { + return SetName(aname); + } + + Standard_EXPORT Handle_TCollection_HAsciiString Name() const; + Standard_EXPORT WOKUtils_Trigger& AddFile(const Handle(TCollection_HAsciiString)& afile,const WOKUtils_Param& params,const WOKTools_InterpFileType type = WOKTools_TclInterp) ; + WOKUtils_Trigger& operator ()(const Handle(TCollection_HAsciiString)& afile,const WOKUtils_Param& params,const WOKTools_InterpFileType type) + { + return AddFile(afile,params,type); + } + + Standard_EXPORT WOKUtils_Trigger& AddFile(const Standard_CString afile,const WOKUtils_Param& params,const WOKTools_InterpFileType type = WOKTools_TclInterp) ; + WOKUtils_Trigger& operator ()(const Standard_CString afile,const WOKUtils_Param& params,const WOKTools_InterpFileType type) + { + return AddFile(afile,params,type); + } + + Standard_EXPORT WOKUtils_Trigger& AddArg(const Handle(TCollection_HAsciiString)& anarg) ; + WOKUtils_Trigger& operator <<(const Handle(TCollection_HAsciiString)& anarg) + { + return AddArg(anarg); + } + + Standard_EXPORT WOKUtils_Trigger& AddArg(const Standard_CString anarg) ; + WOKUtils_Trigger& operator <<(const Standard_CString anarg) + { + return AddArg(anarg); + } + + Standard_EXPORT WOKUtils_Trigger& AddArg(const Standard_Boolean anarg) ; + WOKUtils_Trigger& operator <<(const Standard_Boolean anarg) + { + return AddArg(anarg); + } + + Standard_EXPORT WOKUtils_Trigger& AddArg(const Standard_Integer anarg) ; + WOKUtils_Trigger& operator <<(const Standard_Integer anarg) + { + return AddArg(anarg); + } + + Standard_EXPORT WOKUtils_Trigger& AddControl(const WOKUtils_TriggerControl anctrl) ; + WOKUtils_Trigger& operator <<(const WOKUtils_TriggerControl anctrl) + { + return AddControl(anctrl); + } + + Standard_EXPORT const WOKTools_Return& Args() const; + Standard_EXPORT WOKUtils_TriggerStatus Execute() ; + Standard_EXPORT WOKUtils_Trigger& AddResult(const Handle(TCollection_HAsciiString)& aresult) ; + Standard_EXPORT WOKUtils_Trigger& AddResult(const Standard_CString aresult) ; + Standard_EXPORT WOKUtils_Trigger& AddResult(const Standard_Boolean aresult) ; + Standard_EXPORT WOKUtils_Trigger& AddResult(const Standard_Integer aresult) ; + Standard_EXPORT WOKUtils_Trigger& GetResult(Handle(TCollection_HAsciiString)& aresult) ; + WOKUtils_Trigger& operator >>(Handle(TCollection_HAsciiString)& aresult) + { + return GetResult(aresult); + } + + Standard_EXPORT WOKUtils_Trigger& GetResult(Standard_Boolean& aresult) ; + WOKUtils_Trigger& operator >>(Standard_Boolean& aresult) + { + return GetResult(aresult); + } + + Standard_EXPORT WOKUtils_Trigger& GetResult(Standard_Integer& aresult) ; + WOKUtils_Trigger& operator >>(Standard_Integer& aresult) + { + return GetResult(aresult); + } + + Standard_EXPORT const WOKTools_Return& Return() const; + Standard_EXPORT WOKTools_Return& ChangeReturn() ; + Standard_EXPORT WOKUtils_TriggerStatus Status() const; + +private: + + // Fields PRIVATE + // + Handle_WOKUtils_Path myfile; + Handle_TCollection_HAsciiString myname; + WOKTools_InterpFileType mytype; + WOKTools_Return myargs; + WOKTools_Return myrets; + Standard_Integer myidx; + WOKUtils_TriggerStatus mystat; + + +}; + +#endif diff --git a/src/WOKUtils/WOKUtils_Triggers.hxx b/src/WOKUtils/WOKUtils_Triggers.hxx new file mode 100755 index 0000000..1b798c1 --- /dev/null +++ b/src/WOKUtils/WOKUtils_Triggers.hxx @@ -0,0 +1,26 @@ +// File: WOKUtils_Triggers.hxx +// Created: Thu Nov 14 14:48:10 1996 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_Triggers_HeaderFile +#define WOKUtils_Triggers_HeaderFile + +#include + +#ifndef __WOKUTILS_API +# ifdef WNT +# ifdef __WOKUtils_DLL +# define __WOKUTILS_API __declspec( dllexport ) +# else +# define __WOKUTILS_API __declspec( dllimport ) +# endif // __WOKUtils_DLL +# else +# define __WOKUTILS_API +# endif // WNT +#endif // __WOKUTILS_API + +__WOKUTILS_API WOKUtils_Trigger& endt(WOKUtils_Trigger&); + +#endif diff --git a/src/WOKUtils/WOKUtils_WOKSteps.edl b/src/WOKUtils/WOKUtils_WOKSteps.edl new file mode 100755 index 0000000..49bff75 --- /dev/null +++ b/src/WOKUtils/WOKUtils_WOKSteps.edl @@ -0,0 +1,13 @@ +-- File: WOKUtils_WOKSteps.edl +-- Author: Jean GAUTIER +-- History: Tue Aug 12 17:12:59 1997 Jean GAUTIER Creation +-- Copyright: Matra Datavision 1997 + +@ifnotdefined ( %WOKUtils_WOKSteps_EDL) then +@set %WOKUtils_WOKSteps_EDL = ""; + + +@string %WOKSteps_XcppGroup += "xcpp.repl"; +@set %WOKSteps_xcpp_repl = "*WOKUtils_Replace(xcpp.header)"; + +@endif; diff --git a/src/WOKUtils/WOKUtils_WOKVersion.hxx b/src/WOKUtils/WOKUtils_WOKVersion.hxx new file mode 100755 index 0000000..1dc4881 --- /dev/null +++ b/src/WOKUtils/WOKUtils_WOKVersion.hxx @@ -0,0 +1,12 @@ +// File: WOKUtils_WOKVersion.hxx +// Created: Thu Feb 13 17:16:41 1997 +// Author: Jean GAUTIER +// + + +#ifndef WOKUtils_WOKVersion_HeaderFile +#define WOKUtils_WOKVersion_HeaderFile + +#define WOK_VERSION "2.0" + +#endif -- 2.39.5