From 5cecedb2402a2be4d1061289200e837b13f818b4 Mon Sep 17 00:00:00 2001 From: cas Date: Fri, 22 Oct 1999 18:05:40 +0000 Subject: [PATCH] Initial revision --- src/WOKLibs/FILES | 7 ++ src/WOKLibs/TOOLKITS | 5 + src/WOKLibs/WOKLibs.cdl | 78 +++++++++++++ src/WOKLibs/WOKLibs_CMPLRS.edl | 22 ++++ src/WOKLibs/WOKLibs_WOKSteps.edl | 15 +++ src/WOKLibs/mscmd.cxx | 91 ++++++++++++++++ src/WOKLibs/pkgIndex.tcl | 39 +++++++ src/WOKLibs/pkgIndex.tcl-hp | 39 +++++++ src/WOKLibs/pkgIndex.tcl-wnt | 34 ++++++ src/WOKLibs/wokcmd.cxx | 181 +++++++++++++++++++++++++++++++ src/WOKLibs/wokdeliverysteps.cxx | 44 ++++++++ src/WOKLibs/wokdfltsteps.cxx | 10 ++ src/WOKLibs/wokobjssteps.cxx | 15 +++ src/WOKLibs/wokorbixsteps.cxx | 24 ++++ src/WOKLibs/woksteps.cxx | 89 +++++++++++++++ src/WOKLibs/woktoolscmd.cxx | 59 ++++++++++ src/WOKLibs/wokutilscmd.cxx | 43 ++++++++ 17 files changed, 795 insertions(+) create mode 100755 src/WOKLibs/FILES create mode 100755 src/WOKLibs/TOOLKITS create mode 100755 src/WOKLibs/WOKLibs.cdl create mode 100755 src/WOKLibs/WOKLibs_CMPLRS.edl create mode 100755 src/WOKLibs/WOKLibs_WOKSteps.edl create mode 100755 src/WOKLibs/mscmd.cxx create mode 100755 src/WOKLibs/pkgIndex.tcl create mode 100755 src/WOKLibs/pkgIndex.tcl-hp create mode 100755 src/WOKLibs/pkgIndex.tcl-wnt create mode 100755 src/WOKLibs/wokcmd.cxx create mode 100755 src/WOKLibs/wokdeliverysteps.cxx create mode 100755 src/WOKLibs/wokdfltsteps.cxx create mode 100755 src/WOKLibs/wokobjssteps.cxx create mode 100755 src/WOKLibs/wokorbixsteps.cxx create mode 100755 src/WOKLibs/woksteps.cxx create mode 100755 src/WOKLibs/woktoolscmd.cxx create mode 100755 src/WOKLibs/wokutilscmd.cxx diff --git a/src/WOKLibs/FILES b/src/WOKLibs/FILES new file mode 100755 index 0000000..f1bd17b --- /dev/null +++ b/src/WOKLibs/FILES @@ -0,0 +1,7 @@ +TOOLKITS +WOKLibs_CMPLRS.edl +WOKLibs_WOKSteps.edl +pkgIndex.tcl +pkgIndex.tcl-hp +pkgIndex.tcl-wnt + diff --git a/src/WOKLibs/TOOLKITS b/src/WOKLibs/TOOLKITS new file mode 100755 index 0000000..6bbb57e --- /dev/null +++ b/src/WOKLibs/TOOLKITS @@ -0,0 +1,5 @@ +TKWOKBase +TKWOK +TKWOKTcl +TKWOKServer +TKWOKNet diff --git a/src/WOKLibs/WOKLibs.cdl b/src/WOKLibs/WOKLibs.cdl new file mode 100755 index 0000000..ece92ef --- /dev/null +++ b/src/WOKLibs/WOKLibs.cdl @@ -0,0 +1,78 @@ +-- File: WOKLibs.cdl +-- Created: Thu Oct 5 19:54:46 1995 +-- Author: Jean GAUTIER +-- +---Copyright: Matra Datavision 1995 + +executable WOKLibs +is + + executable wokcmd + uses + Tcl_Lib as external + is + wokcmd; + end; + + executable woktoolscmd + uses + Tcl_Lib as external + is + woktoolscmd; + end; + + executable wokutilscmd + uses + Tcl_Lib as external + is + wokutilscmd; + end; + + executable woksteps + + is + woksteps; + end; + + executable wokobjssteps + + is + wokobjssteps; + end; + + executable wokdfltsteps + + is + wokdfltsteps; + end; + + executable wokdeliverysteps + + is + wokdeliverysteps; + end; + + + executable wokorbixsteps + + is + wokorbixsteps; + end; + + executable mscmd + uses + Tcl_Lib as external + is + mscmd; + end; + +--- executable woknetcmd +--- uses +--- NTD as library, +--- AccesServer as library, +--- Tcl_Lib as external +--- is +--- woknetcmd; +--- end; + +end; diff --git a/src/WOKLibs/WOKLibs_CMPLRS.edl b/src/WOKLibs/WOKLibs_CMPLRS.edl new file mode 100755 index 0000000..7bc7e5e --- /dev/null +++ b/src/WOKLibs/WOKLibs_CMPLRS.edl @@ -0,0 +1,22 @@ +-- File: WOKLibs_CMPLRS.edl +-- Author: Stagiaire Pascal BABIN +-- History: Tue Jul 9 13:39:27 1996 Stagiaire Pascal BABIN Creation +-- Copyright: Matra Datavision 1996 + +@ifnotdefined ( %WOKLibs_CMPLRS_EDL) then +@set %WOKLibs_CMPLRS_EDL = ""; + +@if ( (%Station != "wnt") && (%Station != "hp") ) then + @string %CMPLRS_CXX_Options = " -I/usr/tcltk/include -I/usr/tcltk/include/itcl -I/usr/include " %CMPLRS_CXX_Options; +@endif; + +@if ( %Station == "hp" ) then + @string %CMPLRS_CXX_Options = " -I/usr/tcltk/include -I/usr/tcltk/include/itcl " %CMPLRS_CXX_Options; +@endif; + +@if ( %Station == "wnt" ) then + @string %CMPLRS_CXX_Options = %CMPLRS_CXX_Options " -ID:/DevTools/TclTk/include "; + @string %CMPLRS_ExportBehaviour = " -D__" %Entity "_DLL"; +@endif; + +@endif; diff --git a/src/WOKLibs/WOKLibs_WOKSteps.edl b/src/WOKLibs/WOKLibs_WOKSteps.edl new file mode 100755 index 0000000..7d735c0 --- /dev/null +++ b/src/WOKLibs/WOKLibs_WOKSteps.edl @@ -0,0 +1,15 @@ +-- File: WOKLibs_WOKSteps.edl@gallion +-- Author: Jean GAUTIER +-- History: Fri Aug 8 15:26:24 1997 Jean GAUTIER Creation +-- Copyright: Matra Datavision 1997 + +@ifnotdefined ( %WOKLibs_WOKSteps_EDL) then +@set %WOKLibs_WOKSteps_EDL = ""; + +@if( %Station != "wnt" ) then +@set %WOKSteps_exec_link = "#WOKStep_LibLink(exec.tks)"; +@else +@set %WOKSteps_exec_link = "#WOKStep_DLLink(exec.tks)"; +@endif; + +@endif; diff --git a/src/WOKLibs/mscmd.cxx b/src/WOKLibs/mscmd.cxx new file mode 100755 index 0000000..beddeb9 --- /dev/null +++ b/src/WOKLibs/mscmd.cxx @@ -0,0 +1,91 @@ +// File: ms.cxx +// Created: Thu Oct 5 20:15:39 1995 +// Author: Jean GAUTIER +// + +#include + +#include + +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +extern Standard_IMPORT Handle(WOKTclTools_Interpretor) CurrentInterp; + +#ifdef WNT +# ifdef _DEBUG +extern "C" void _debug_break ( char* ); +# endif // _DEBUG +# define MS_EXPORT __declspec( dllexport ) +#else +# define MS_EXPORT +#endif // WNT + +extern "C" MS_EXPORT int Ms_Init(WOKTclTools_PInterp); + +int Ms_Init(WOKTclTools_PInterp interp) +{ + + OSD::SetSignal(); //==== Armed the signals. ============= + + if(WOKTclTools_Interpretor::Current().IsNull()) + { + CurrentInterp = new WOKTclTools_Interpretor; + CurrentInterp->Set(interp); + } + else + { + if(WOKTclTools_Interpretor::Current()->Interp() != interp) + { + CurrentInterp = new WOKTclTools_Interpretor; + CurrentInterp->Set(interp); + } + } + +#ifdef WNT + WOKTclTools_Package tcl(CurrentInterp, "Tcl", "7.6"); +#else + WOKTclTools_Package tcl(CurrentInterp, "Tcl", "7.5"); +#endif + tcl.Require(); + + // MetaSchema Commands + + CurrentInterp->Add("mstranslate", "CDL Translator", MSAPI_MetaSchema::Translate, "MS COMMAND"); + CurrentInterp->Add("mscheck", "Checks from MS", MSAPI_MetaSchema::Check, "MS COMMAND"); + CurrentInterp->Add("msextract", "Extracts from MS", MSAPI_MetaSchema::Extract, "MS COMMAND"); + CurrentInterp->Add("msinfo", "Information about MS", MSAPI_MetaSchema::Info, "MS COMMAND"); + CurrentInterp->Add("msrm", "Remove type or entity", MSAPI_MetaSchema::Remove, "MS COMMAND"); + CurrentInterp->Add("msclear", "Clear meta schema", MSAPI_MetaSchema::Clear, "MS COMMAND"); + + CurrentInterp->Add("mspkinfo", "MSPackage Information", MSAPI_Package::Info, "MS COMMAND"); + + CurrentInterp->Add("msschinfo", "MS Schema Information", MSAPI_Schema::Info, "MS COMMAND"); + + CurrentInterp->Add("msclinfo", "Class Information", MSAPI_Class::Info, "MS COMMAND"); + CurrentInterp->Add("msstdinfo", "StdClass Information", MSAPI_StdClass::Info, "MS COMMAND"); + CurrentInterp->Add("msgeninfo", "GenClass Information", MSAPI_GenClass::Info, "MS COMMAND"); + CurrentInterp->Add("msinstinfo", "InstClass Information", MSAPI_InstClass::Info, "MS COMMAND"); + + + CurrentInterp->Add("msmthinfo", "Method Information", MSAPI_Method::Info, "MS COMMAND"); + CurrentInterp->Add("msxmthinfo", "Extern Method Information", MSAPI_ExternMet::Info, "MS COMMAND"); + CurrentInterp->Add("msmmthinfo", "Member Method Information", MSAPI_MemberMet::Info, "MS COMMAND"); + + WOKTclTools_Package ms(CurrentInterp, "Ms", "2.0"); + + ms.Provide(); + + return TCL_OK; +} diff --git a/src/WOKLibs/pkgIndex.tcl b/src/WOKLibs/pkgIndex.tcl new file mode 100755 index 0000000..af750f6 --- /dev/null +++ b/src/WOKLibs/pkgIndex.tcl @@ -0,0 +1,39 @@ +# Tcl package index file, version 1.0 +# This file is generated by the "pkg_mkIndex" command +# and sourced either when an application starts up or +# by a "package unknown" script. It invokes the +# "package ifneeded" command to set up package-related +# information so that packages will be loaded automatically +# in response to "package require" commands. When this +# script is sourced, the variable $dir must contain the +# full path name of this file's directory. + +package ifneeded Woktools 2.0 "tclPkgSetup $dir Woktools 2.0 { + {libwoktoolscmd.so load { + msgprint msgisset msgissetcmd msgissetlong msgset msgsetcmd + msgsetlong msgunset msgunsetcmd msgunsetlong msgsetheader + msgunsetheader msgissetheader msginfo}}}" + +package ifneeded Wokutils 2.0 "tclPkgSetup $dir Wokutils 2.0 { + {libwokutilscmd.so load { wokcmp} } }" + +package ifneeded Wok 2.0 "package require Woktools; + tclPkgSetup $dir Wok 2.0 { + {libwokcmd.so load { + Sinfo Wcreate Winfo Wrm Wdeclare fcreate finfo frm pinfo screate + sinfo srm ucreate uinfo umpmake umake urm w_info wcreate + wokcd wokclose wokinfo wokparam wokprofile wokenv wrm wmove + stepinputaddstepinputinfo stepoutputadd stepoutputinfo stepaddexecdepitem }}}" + +package ifneeded Ms 2.0 "package require Woktools; + tclPkgSetup $dir Ms 2.0 { + {libmscmd.so load { + mscheck msclear msclinfo msextract msgeninfo msinfo msinstinfo + msmmthinfo msmthinfo mspkinfo msschinfo msrm msstdinfo + mstranslate msxmthinfo}}}" + + +package ifneeded Woknet 2.0 "package require Woktools; + tclPkgSetup $dir Woknet 2.0 { + {libwoknetcmd.so load { + unetmake woknetclose}}}" diff --git a/src/WOKLibs/pkgIndex.tcl-hp b/src/WOKLibs/pkgIndex.tcl-hp new file mode 100755 index 0000000..91e87f4 --- /dev/null +++ b/src/WOKLibs/pkgIndex.tcl-hp @@ -0,0 +1,39 @@ +# Tcl package index file, version 1.0 +# This file is generated by the "pkg_mkIndex" command +# and sourced either when an application starts up or +# by a "package unknown" script. It invokes the +# "package ifneeded" command to set up package-related +# information so that packages will be loaded automatically +# in response to "package require" commands. When this +# script is sourced, the variable $dir must contain the +# full path name of this file's directory. + +package ifneeded Woktools 2.0 "tclPkgSetup $dir Woktools 2.0 { + {libwoktoolscmd.sl load { + msgprint msgisset msgissetcmd msgissetlong msgset msgsetcmd + msgsetlong msgunset msgunsetcmd msgunsetlong msgsetheader + msgunsetheader msgissetheader msginfo}}}" + +package ifneeded Wokutils 2.0 "tclPkgSetup $dir Wokutils 2.0 { + {libwokutilscmd.sl load { wokcmp} } }" + +package ifneeded Wok 2.0 "package require Woktools; + tclPkgSetup $dir Wok 2.0 { + {libwokcmd.sl load { + Sinfo Wcreate Winfo Wrm Wdeclare fcreate finfo frm pinfo screate + sinfo srm ucreate uinfo umpmake umake urm w_info wcreate + wokcd wokclose wokinfo wokparam wokprofile wokenv wrm wmove + stepinputaddstepinputinfo stepoutputadd stepoutputinfo stepaddexecdepitem }}}" + +package ifneeded Ms 2.0 "package require Woktools; + tclPkgSetup $dir Ms 2.0 { + {libmscmd.sl load { + mscheck msclear msclinfo msextract msgeninfo msinfo msinstinfo + msmmthinfo msmthinfo mspkinfo msschinfo msrm msstdinfo + mstranslate msxmthinfo}}}" + +package ifneeded Woknet 2.0 "package require Woktools; + tclPkgSetup $dir Woknet 2.0 { + {libwoknetcmd.sl load { + unetmake woknetclose}}}" + diff --git a/src/WOKLibs/pkgIndex.tcl-wnt b/src/WOKLibs/pkgIndex.tcl-wnt new file mode 100755 index 0000000..5d4d219 --- /dev/null +++ b/src/WOKLibs/pkgIndex.tcl-wnt @@ -0,0 +1,34 @@ +# Tcl package index file, version 1.0 +# This file is generated by the "pkg_mkIndex" command +# and sourced either when an application starts up or +# by a "package unknown" script. It invokes the +# "package ifneeded" command to set up package-related +# information so that packages will be loaded automatically +# in response to "package require" commands. When this +# script is sourced, the variable $dir must contain the +# full path name of this file's directory. + +package ifneeded Woktools 2.0 "tclPkgSetup $dir Woktools 2.0 { + {woktoolscmd.dll load { + msgprint msgisset msgissetcmd msgissetlong msgset msgsetcmd + msgsetlong msgunset msgunsetcmd msgunsetlong msgsetheader + msgunsetheader msgissetheader msginfo}}}" + +package ifneeded Wokutils 2.0 "tclPkgSetup $dir Wokutils 2.0 { + {wokutilscmd.dll load { wokcmp wokfind} } }" + +package ifneeded Wok 2.0 "package require Woktools; + tclPkgSetup $dir Wok 2.0 { + {wokcmd.dll load { + Sinfo Wcreate Winfo Wrm Wdeclare fcreate finfo frm pinfo screate + sinfo srm ucreate uinfo umpmake umake urm w_info wcreate wprocess + wokcd wokclose wokinfo wokparam wokprofile wokenv wrm wmove + stepinputaddstepinputinfo stepoutputadd stepoutputinfo stepaddexecdepitem }}}" + +package ifneeded Ms 2.0 "package require Woktools; + tclPkgSetup $dir Ms 2.0 { + {mscmd.dll load { + mscheck msclear msclinfo msextract msgeninfo msinfo msinstinfo + msmmthinfo msmthinfo mspkinfo msschinfo msrm msstdinfo + mstranslate msxmthinfo}}}" + diff --git a/src/WOKLibs/wokcmd.cxx b/src/WOKLibs/wokcmd.cxx new file mode 100755 index 0000000..bf099ef --- /dev/null +++ b/src/WOKLibs/wokcmd.cxx @@ -0,0 +1,181 @@ +// File: wok.cxx +// Created: Thu Oct 5 20:23:30 1995 +// Author: Jean GAUTIER +// + + +#include +#include + +#include +#include + +#include + +#include + +#ifdef WNT +#include +#define WOKUtils_ProcessManager WOKUtils_ShellManager +#else +#include +#include +#include +#endif +#include + +#include +#include + +#include + +#include + +#include + +extern Standard_IMPORT Handle(WOKTclTools_Interpretor) CurrentInterp; + +#ifdef WNT +# ifdef _DEBUG +extern "C" void _debug_break ( char* ); +# endif // _DEBUG +# define WOK_EXPORT __declspec( dllexport ) +#else +# define WOK_EXPORT +#endif // WNT + +extern "C" WOK_EXPORT void Wok_ExitHandler(void *); +extern "C" WOK_EXPORT int Wok_Init(WOKTclTools_PInterp ); + +void Wok_ExitHandler(void *) +{ + WOKUtils_ProcessManager::KillAll(); +} + +int Wok_Init(WOKTclTools_PInterp interp) +{ +#if defined( WNT ) && defined( _DEBUG ) + _debug_break ( "Wok_Init" ); +#endif // WNT && _DEBUG + + OSD::SetSignal(); //==== Armed the signals. ============= + + if(WOKTclTools_Interpretor::Current().IsNull()) + { + CurrentInterp = new WOKTCL_Interpretor; + CurrentInterp->Set(interp); + } + else + { + if(WOKTclTools_Interpretor::Current()->Interp() != interp) + { + CurrentInterp = new WOKTCL_Interpretor; + CurrentInterp->Set(interp); + } + } + + + +#ifdef WNT + WOKTclTools_Package tcl(CurrentInterp, "Tcl", "7.6"); +#else + WOKTclTools_Package tcl(CurrentInterp, "Tcl", "7.5"); +#endif + + + tcl.Require(); + + +#ifndef WNT + WOKUtils_Signal::Arm(WOKUtils_SIGINT, (WOKUtils_SigHandler) NULL); +#endif //WNT + + Handle(WOKTCL_Interpretor) WOKInter = Handle(WOKTCL_Interpretor)::DownCast(CurrentInterp); + + if(WOKInter.IsNull()) + { + WOKInter = new WOKTCL_Interpretor(interp); + } + + if(CurrentInterp->EndMessageProc() != NULL) + WOKInter->SetEndMessageProc(CurrentInterp->EndMessageProc()); + + CurrentInterp = WOKInter; + + // GENERAL PURPOSE COMMANDS + WOKInter->Add("Sinfo", "Information about session", WOKAPI_Command::SessionInfo, "WOK COMMAND\n"); + WOKInter->Add("wokenv", "Set run environment", WOKAPI_Command::EnvironmentMgr, "WOK COMMAND\n"); + WOKInter->Add("wokcd", "Moves in a path", WOKAPI_Command::MoveTo, "WOK COMMAND\n"); + WOKInter->Add("wokparam", "Entity Parameters Mgt", WOKAPI_Command::ParametersMgr, "WOK COMMAND\n"); + WOKInter->Add("wokinfo", "Entity Information", WOKAPI_Command::EntityInfo, "WOK COMMAND\n"); + WOKInter->Add("wokclose", "Entity closing", WOKAPI_Command::EntityClose, "WOK COMMAND\n"); + WOKInter->Add("wokprofile","Manages DBMS current System", WOKAPI_Command::ProfileMgt, "WOK COMMAND\n"); + WOKInter->Add("woklocate", "Locates WOK elements", WOKAPI_Command::Locate, "WOK COMMAND\n"); + + // FACTORY COMMANDS + WOKInter->Add("fcreate", "creates a factory", WOKAPI_Command::FactoryCreate, "WOK COMMAND\n"); + WOKInter->Add("finfo", "Information about factory", WOKAPI_Command::FactoryInfo, "WOK COMMAND\n"); + WOKInter->Add("frm", "removes a factory", WOKAPI_Command::FactoryDestroy, "WOK COMMAND\n"); + + // WAREHOUSE COMMANDS + WOKInter->Add("Wcreate", "creates a warehouse", WOKAPI_Command::WarehouseCreate, "WOK COMMAND\n"); + WOKInter->Add("Winfo", "Information about Warehouse", WOKAPI_Command::WarehouseInfo, "WOK COMMAND\n"); + WOKInter->Add("Wrm", "removes a Warehouse", WOKAPI_Command::WarehouseDestroy, "WOK COMMAND\n"); + WOKInter->Add("Wdeclare", "Declares a parcel in a Warehouse", WOKAPI_Command::WarehouseDeclare, "WOK COMMAND\n"); + + // PARCEL COMMANDS + WOKInter->Add("pinfo", "Information about parcel", WOKAPI_Command::ParcelInfo, "WOK COMMAND\n"); + + // WORKSHOP COMMANDS + WOKInter->Add("sinfo", "Information about workshop", WOKAPI_Command::WorkshopInfo, "WOK COMMAND\n"); + WOKInter->Add("screate", "creates a workshop", WOKAPI_Command::WorkshopCreate, "WOK COMMAND\n"); + WOKInter->Add("srm", "removes a workshop", WOKAPI_Command::WorkshopDestroy, "WOK COMMAND\n"); + + // WORKBENCH COMMANDS + WOKInter->Add("w_info", "Information about workbench", WOKAPI_Command::WorkbenchInfo, "WOK COMMAND\n"); + WOKInter->Add("wcreate", "creates a workbench", WOKAPI_Command::WorkbenchCreate, "WOK COMMAND\n"); + WOKInter->Add("wrm", "removes a workbench", WOKAPI_Command::WorkbenchDestroy, "WOK COMMAND\n"); + WOKInter->Add("wmove", "moves a workbench", WOKAPI_Command::WorkbenchMove, "WOK COMMAND\n"); + WOKInter->Add("wprocess", "builds a worbench", WOKAPI_Command::WorkbenchProcess, "WOK COMMAND\n"); + + // UNIT COMMANDS + WOKInter->Add("uinfo", "Information about Unit", WOKAPI_Command::UnitInfo, "WOK COMMAND\n"); + WOKInter->Add("umake", "Unit Construction command", WOKAPI_Command::UnitMake, "WOK COMMAND\n"); + WOKInter->Add("ucreate", "Unit Creation command", WOKAPI_Command::UnitCreate, "WOK COMMAND\n"); + WOKInter->Add("urm", "Unit Removal command", WOKAPI_Command::UnitDestroy, "WOK COMMAND\n"); + + // Triggered step COMMANDS + WOKInter->Add("stepinputadd", "Trigger step input add", WOKAPI_Command::AddInputFile, "WOK COMMAND\n"); + WOKInter->Add("stepinputinfo", "Trigger step input info", WOKAPI_Command::InputFileInfo, "WOK COMMAND\n"); + WOKInter->Add("stepoutputadd", "Trigger step output add", WOKAPI_Command::AddOutputFile, "WOK COMMAND\n"); + WOKInter->Add("stepoutputinfo", "Trigger step output info", WOKAPI_Command::OutputFileInfo, "WOK COMMAND\n"); + WOKInter->Add("stepaddexecdepitem", "Adds a depitem to step", WOKAPI_Command::AddExecDepItem, "WOK COMMAND\n"); + + WOKUtils_ProcessManager::Arm(); + + try { + WOKInter->ChangeSession().Open(); + } + catch(Standard_Failure) { + Handle(Standard_Failure) E = Standard_Failure::Caught(); + strstream astream; + astream << E << ends; + ErrorMsg << "WOKTCL_AppInit" << "Exception was raised : " << astream.str() << endm; + WOKUtils_ProcessManager::UnArm(); + return TCL_ERROR; + } + + WOKUtils_ProcessManager::UnArm(); + WOKUtils_Trigger::SetTriggerHandler(WOKTCL_TriggerHandler); + + WOKInter->AddExitHandler(Wok_ExitHandler); + + // + // PROVIDE PACKAGE WOK + // + WOKTclTools_Package wok(WOKInter, "Wok", "2.0"); + + if(wok.EvalInitFile()) return TCL_ERROR; + if(wok.Provide()) return TCL_ERROR; + return TCL_OK; +} diff --git a/src/WOKLibs/wokdeliverysteps.cxx b/src/WOKLibs/wokdeliverysteps.cxx new file mode 100755 index 0000000..43b8f03 --- /dev/null +++ b/src/WOKLibs/wokdeliverysteps.cxx @@ -0,0 +1,44 @@ +// File: wokdeliv.cxx +// Created: Thu Jun 27 15:02:13 1996 +// Author: Jean GAUTIER +// + +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +DECLARE_STEP(WOKDeliv_DeliverySource) +DECLARE_STEP(WOKDeliv_DeliveryBase) +DECLARE_STEP(WOKDeliv_DeliveryCopy) +DECLARE_STEP(WOKDeliv_DeliveryGET) +DECLARE_STEP(WOKDeliv_DeliverySOURCES) +DECLARE_STEP(WOKDeliv_DelivBuildSource) +DECLARE_STEP(WOKDeliv_DeliveryShared) +DECLARE_STEP(WOKDeliv_DeliveryArchive) +DECLARE_STEP(WOKDeliv_DelivBuildArchive) +DECLARE_STEP(WOKDeliv_DeliverySTUBClient) +DECLARE_STEP(WOKDeliv_DeliveryOBJSSchema) +DECLARE_STEP(WOKDeliv_DeliveryDATA) +DECLARE_STEP(WOKDeliv_DeliveryExecList) +DECLARE_STEP(WOKDeliv_DelivBuildExec) +DECLARE_STEP(WOKDeliv_DeliveryFiles) +DECLARE_STEP(WOKDeliv_DeliveryStepList) +DECLARE_STEP(WOKDeliv_DeliveryListShared) + + diff --git a/src/WOKLibs/wokdfltsteps.cxx b/src/WOKLibs/wokdfltsteps.cxx new file mode 100755 index 0000000..f85ddc2 --- /dev/null +++ b/src/WOKLibs/wokdfltsteps.cxx @@ -0,0 +1,10 @@ +// File: WOKStep.cxx +// Created: Thu Jun 27 15:02:13 1996 +// Author: Jean GAUTIER +// + +#include + +#include + +DECLARE_STEP(WOKDFLT_DFLTExtract) diff --git a/src/WOKLibs/wokobjssteps.cxx b/src/WOKLibs/wokobjssteps.cxx new file mode 100755 index 0000000..c6f89cb --- /dev/null +++ b/src/WOKLibs/wokobjssteps.cxx @@ -0,0 +1,15 @@ +// File: WOKOBJY.cxx +// Created: Fri Jun 28 15:18:52 1996 +// Author: Jean GAUTIER +// + +#include + +#include +#include +#include + + +DECLARE_STEP(WOKOBJS_SchExtract) +DECLARE_STEP(WOKOBJS_SchGen) +DECLARE_STEP(WOKOBJS_EngLinkList) diff --git a/src/WOKLibs/wokorbixsteps.cxx b/src/WOKLibs/wokorbixsteps.cxx new file mode 100755 index 0000000..4cb8540 --- /dev/null +++ b/src/WOKLibs/wokorbixsteps.cxx @@ -0,0 +1,24 @@ +// File: wokorbixsteps.cxx +// Created: Mon Aug 18 12:07:10 1997 +// Author: Jean GAUTIER +// + + +#include + +#include +#include +#include +#include + +#include +#include + + +DECLARE_STEP(WOKOrbix_IDLSource) +DECLARE_STEP(WOKOrbix_IDLSourceExtract) +DECLARE_STEP(WOKOrbix_IDLCompile) +DECLARE_STEP(WOKOrbix_IDLFill) + +DECLARE_STEP(WOKOrbix_ServerSource) +DECLARE_STEP(WOKOrbix_ExtractServerList) diff --git a/src/WOKLibs/woksteps.cxx b/src/WOKLibs/woksteps.cxx new file mode 100755 index 0000000..72521d8 --- /dev/null +++ b/src/WOKLibs/woksteps.cxx @@ -0,0 +1,89 @@ +// File: WOKStep.cxx +// Created: Thu Jun 27 15:02:13 1996 +// Author: Jean GAUTIER +// + +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#ifdef WNT +#include +#include +#include +#include +#include +#endif + + +DECLARE_STEP(WOKStep_Source) +DECLARE_STEP(WOKStep_CDLUnitSource) +DECLARE_STEP(WOKStep_ExecutableSource) +DECLARE_STEP(WOKStep_ResourceSource) +DECLARE_STEP(WOKStep_ToolkitSource) +DECLARE_STEP(WOKStep_MSFill) +DECLARE_STEP(WOKStep_SourceExtract) +DECLARE_STEP(WOKStep_HeaderExtract) +DECLARE_STEP(WOKStep_ServerExtract) +DECLARE_STEP(WOKStep_ClientExtract) +DECLARE_STEP(WOKStep_EngineExtract) +DECLARE_STEP(WOKStep_TemplateExtract) +DECLARE_STEP(WOKStep_ExtractExecList) +DECLARE_STEP(WOKStep_Include) +DECLARE_STEP(WOKStep_CodeGenerate) +DECLARE_STEP(WOKStep_Compile) +DECLARE_STEP(WOKStep_TKList) +DECLARE_STEP(WOKStep_LibUnCompress) +DECLARE_STEP(WOKStep_LibExtract) +DECLARE_STEP(WOKStep_LibLimit) +DECLARE_STEP(WOKStep_TransitiveTKReplace) +DECLARE_STEP(WOKStep_DirectTKReplace) +DECLARE_STEP(WOKStep_ArchiveLibrary) +DECLARE_STEP(WOKStep_DynamicLibrary) +DECLARE_STEP(WOKStep_ImplementationDep) +DECLARE_STEP(WOKStep_TransitiveLinkList) +DECLARE_STEP(WOKStep_DirectLinkList) +DECLARE_STEP(WOKStep_LibLink) +DECLARE_STEP(WOKStep_ExecLink) +DECLARE_STEP(WOKStep_EngLinkList) +DECLARE_STEP(WOKStep_EngDatFiles) +DECLARE_STEP(WOKStep_EngLDFile) + +#ifdef WNT +DECLARE_STEP(WOKStep_DLLink) +DECLARE_STEP(WOKStep_ImportLibrary) +DECLARE_STEP(WOKStep_StaticLibrary) +DECLARE_STEP(WOKStep_WNTK) +DECLARE_STEP(WOKStep_EXELink) +#endif diff --git a/src/WOKLibs/woktoolscmd.cxx b/src/WOKLibs/woktoolscmd.cxx new file mode 100755 index 0000000..ca2eb61 --- /dev/null +++ b/src/WOKLibs/woktoolscmd.cxx @@ -0,0 +1,59 @@ +// File: woktools.cxx +// Created: Tue Aug 13 10:43:29 1996 +// Author: Jean GAUTIER +// + +#include + +#include + +#include +#include +#include +#include + +extern Standard_IMPORT Handle(WOKTclTools_Interpretor) CurrentInterp; + +#ifdef WNT +# ifdef _DEBUG +extern "C" void _debug_break ( char* ); +# endif // _DEBUG +# define WOKTOOLS_EXPORT __declspec( dllexport ) +#else +# define WOKTOOLS_EXPORT +#endif // WNT + +extern "C" WOKTOOLS_EXPORT Woktools_Init(WOKTclTools_PInterp); + +int Woktools_Init(WOKTclTools_PInterp interp) +{ + OSD::SetSignal(); //==== Armed the signals. ============= + + if(WOKTclTools_Interpretor::Current().IsNull()) + { + CurrentInterp = new WOKTclTools_Interpretor(interp); + } + + CurrentInterp->Add("msgsetcmd", "Set Message handler", WOKTclTools_MessageCmdSet, "WOK COMMAND\n"); + CurrentInterp->Add("msgunsetcmd", "UnSet Message handler", WOKTclTools_MessageCmdUnSet, "WOK COMMAND\n"); + CurrentInterp->Add("msgissetcmd", "Set Message handler", WOKTclTools_MessageCmdIsSet, "WOK COMMAND\n"); + CurrentInterp->Add("msgset", "enable message", WOKTclTools_MsgAPI::Set, "WOK COMMAND\n"); + CurrentInterp->Add("msgunset", "disable message", WOKTclTools_MsgAPI::UnSet, "WOK COMMAND\n"); + CurrentInterp->Add("msgisset", "message status", WOKTclTools_MsgAPI::IsSet, "WOK COMMAND\n"); + CurrentInterp->Add("msgsetlong", "print msg context", WOKTclTools_MsgAPI::DoPrintContext, "WOK COMMAND\n"); + CurrentInterp->Add("msgunsetlong", "dont print msg context", WOKTclTools_MsgAPI::DontPrintContext,"WOK COMMAND\n"); + CurrentInterp->Add("msgissetlong", "long format ?", WOKTclTools_MsgAPI::IsPrintContext, "WOK COMMAND\n"); + CurrentInterp->Add("msgsetheader", "print msg head", WOKTclTools_MsgAPI::DoPrintHeader, "WOK COMMAND\n"); + CurrentInterp->Add("msgunsetheader", "dont print msg head", WOKTclTools_MsgAPI::DontPrintHeader, "WOK COMMAND\n"); + CurrentInterp->Add("msgissetheader", "print header ???", WOKTclTools_MsgAPI::IsPrintHeader, "WOK COMMAND\n"); + CurrentInterp->Add("msgprint", "print a msg", WOKTclTools_MsgAPI::PrintMessage, "WOK COMMAND\n"); + CurrentInterp->Add("msginfo", "info about message handler", WOKTclTools_MsgAPI::MessageInfo, "WOK COMMAND\n"); + + WOKTclTools_Package woktools(CurrentInterp, "woktools", "2.0"); + + woktools.Provide(); + + return TCL_OK; +} + + diff --git a/src/WOKLibs/wokutilscmd.cxx b/src/WOKLibs/wokutilscmd.cxx new file mode 100755 index 0000000..e877590 --- /dev/null +++ b/src/WOKLibs/wokutilscmd.cxx @@ -0,0 +1,43 @@ +// File: wokutilscmd.cxx +// Created: Thu Feb 27 19:57:33 1997 +// Author: Jean GAUTIER +// + + +#include + +#include +#include +#include + +extern Standard_IMPORT Handle(WOKTclTools_Interpretor) CurrentInterp; + +#ifdef WNT +# ifdef _DEBUG +extern "C" void _debug_break ( char* ); +# endif // _DEBUG +# define WOKUTILS_EXPORT __declspec( dllexport ) +#else +# define WOKUTILS_EXPORT +#endif // WNT + +extern "C" WOKUTILS_EXPORT Wokutils_Init(WOKTclTools_PInterp); + +int Wokutils_Init(WOKTclTools_PInterp interp) +{ + if(WOKTclTools_Interpretor::Current().IsNull()) + { + CurrentInterp = new WOKTclTools_Interpretor(interp); + } + + CurrentInterp->Add("wokcmp", "compares two files", WOKTclUtils_Path::FileCompare, "WOK COMMAND\n"); + CurrentInterp->Add("wokfind", "lists a fiel tree", WOKTclUtils_Path::DirectorySearch, "WOK COMMAND\n"); + + WOKTclTools_Package woktools(CurrentInterp, "wokutils", "2.0"); + + woktools.Provide(); + + return TCL_OK; +} + + -- 2.39.5