--- /dev/null
+TOOLKITS
+WOKLibs_CMPLRS.edl
+WOKLibs_WOKSteps.edl
+pkgIndex.tcl
+pkgIndex.tcl-hp
+pkgIndex.tcl-wnt
+
--- /dev/null
+TKWOKBase
+TKWOK
+TKWOKTcl
+TKWOKServer
+TKWOKNet
--- /dev/null
+-- File: WOKLibs.cdl
+-- Created: Thu Oct 5 19:54:46 1995
+-- Author: Jean GAUTIER
+-- <jga@cobrax>
+---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;
--- /dev/null
+-- 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;
--- /dev/null
+-- 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;
--- /dev/null
+// File: ms.cxx
+// Created: Thu Oct 5 20:15:39 1995
+// Author: Jean GAUTIER
+// <jga@cobrax>
+
+#include <tcl.h>
+
+#include <OSD.hxx>
+
+#include <WOKTclTools_Interpretor.hxx>
+#include <WOKTclTools_Package.hxx>
+
+#include <MSAPI_MetaSchema.hxx>
+#include <MSAPI_Package.hxx>
+#include <MSAPI_Schema.hxx>
+#include <MSAPI_Class.hxx>
+#include <MSAPI_StdClass.hxx>
+#include <MSAPI_GenClass.hxx>
+#include <MSAPI_InstClass.hxx>
+#include <MSAPI_Method.hxx>
+#include <MSAPI_ExternMet.hxx>
+#include <MSAPI_MemberMet.hxx>
+
+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;
+}
--- /dev/null
+# 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}}}"
--- /dev/null
+# 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}}}"
+
--- /dev/null
+# 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}}}"
+
--- /dev/null
+// File: wok.cxx
+// Created: Thu Oct 5 20:23:30 1995
+// Author: Jean GAUTIER
+// <jga@cobrax>
+
+
+#include <tcl.h>
+#include <strstream.h>
+
+#include <Standard_ErrorHandler.hxx>
+#include <Standard_Failure.hxx>
+
+#include <OSD.hxx>
+
+#include <WOKTools_Messages.hxx>
+
+#ifdef WNT
+#include <WOKUtils_ShellManager.hxx>
+#define WOKUtils_ProcessManager WOKUtils_ShellManager
+#else
+#include <WOKUtils_Signal.hxx>
+#include <WOKUtils_SigHandler.hxx>
+#include <WOKUtils_ProcessManager.hxx>
+#endif
+#include <WOKUtils_Trigger.hxx>
+
+#include <WOKAPI_Session.hxx>
+#include <WOKAPI_Command.hxx>
+
+#include <WOKTclTools_Package.hxx>
+
+#include <WOKTCL_Interpretor.hxx>
+
+#include <WOKTCL_TriggerHandler.hxx>
+
+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;
+}
--- /dev/null
+// File: wokdeliv.cxx
+// Created: Thu Jun 27 15:02:13 1996
+// Author: Jean GAUTIER
+// <jga@cobrax.paris1.matra-dtv.fr>
+
+#include <WOKMake_StepAccessMacro.hxx>
+
+#include <WOKDeliv_DeliverySource.hxx>
+#include <WOKDeliv_DeliveryBase.hxx>
+#include <WOKDeliv_DeliveryCopy.hxx>
+#include <WOKDeliv_DeliveryGET.hxx>
+#include <WOKDeliv_DeliverySOURCES.hxx>
+#include <WOKDeliv_DelivBuildSource.hxx>
+#include <WOKDeliv_DeliveryShared.hxx>
+#include <WOKDeliv_DeliveryArchive.hxx>
+#include <WOKDeliv_DelivBuildArchive.hxx>
+#include <WOKDeliv_DeliverySTUBClient.hxx>
+#include <WOKDeliv_DeliveryOBJSSchema.hxx>
+#include <WOKDeliv_DeliveryDATA.hxx>
+#include <WOKDeliv_DeliveryExecList.hxx>
+#include <WOKDeliv_DelivBuildExec.hxx>
+#include <WOKDeliv_DeliveryFiles.hxx>
+#include <WOKDeliv_DeliveryStepList.hxx>
+#include <WOKDeliv_DeliveryListShared.hxx>
+
+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)
+
+
--- /dev/null
+// File: WOKStep.cxx
+// Created: Thu Jun 27 15:02:13 1996
+// Author: Jean GAUTIER
+// <jga@cobrax.paris1.matra-dtv.fr>
+
+#include <WOKMake_StepAccessMacro.hxx>
+
+#include <WOKDFLT_DFLTExtract.hxx>
+
+DECLARE_STEP(WOKDFLT_DFLTExtract)
--- /dev/null
+// File: WOKOBJY.cxx
+// Created: Fri Jun 28 15:18:52 1996
+// Author: Jean GAUTIER
+// <jga@cobrax.paris1.matra-dtv.fr>
+
+#include <WOKMake_StepAccessMacro.hxx>
+
+#include <WOKOBJS_SchExtract.hxx>
+#include <WOKOBJS_SchGen.hxx>
+#include <WOKOBJS_EngLinkList.hxx>
+
+
+DECLARE_STEP(WOKOBJS_SchExtract)
+DECLARE_STEP(WOKOBJS_SchGen)
+DECLARE_STEP(WOKOBJS_EngLinkList)
--- /dev/null
+// File: wokorbixsteps.cxx
+// Created: Mon Aug 18 12:07:10 1997
+// Author: Jean GAUTIER
+// <jga@hourax.paris1.matra-dtv.fr>
+
+
+#include <WOKMake_StepAccessMacro.hxx>
+
+#include <WOKOrbix_IDLSource.hxx>
+#include <WOKOrbix_IDLSourceExtract.hxx>
+#include <WOKOrbix_IDLCompile.hxx>
+#include <WOKOrbix_IDLFill.hxx>
+
+#include <WOKOrbix_ServerSource.hxx>
+#include <WOKOrbix_ExtractServerList.hxx>
+
+
+DECLARE_STEP(WOKOrbix_IDLSource)
+DECLARE_STEP(WOKOrbix_IDLSourceExtract)
+DECLARE_STEP(WOKOrbix_IDLCompile)
+DECLARE_STEP(WOKOrbix_IDLFill)
+
+DECLARE_STEP(WOKOrbix_ServerSource)
+DECLARE_STEP(WOKOrbix_ExtractServerList)
--- /dev/null
+// File: WOKStep.cxx
+// Created: Thu Jun 27 15:02:13 1996
+// Author: Jean GAUTIER
+// <jga@cobrax.paris1.matra-dtv.fr>
+
+#include <WOKMake_StepAccessMacro.hxx>
+
+#include <WOKStep_Source.hxx>
+#include <WOKStep_CDLUnitSource.hxx>
+#include <WOKStep_ExecutableSource.hxx>
+#include <WOKStep_ResourceSource.hxx>
+#include <WOKStep_ToolkitSource.hxx>
+#include <WOKStep_MSFill.hxx>
+#include <WOKStep_SourceExtract.hxx>
+#include <WOKStep_HeaderExtract.hxx>
+#include <WOKStep_ServerExtract.hxx>
+#include <WOKStep_ClientExtract.hxx>
+#include <WOKStep_EngineExtract.hxx>
+#include <WOKStep_TemplateExtract.hxx>
+#include <WOKStep_ExtractExecList.hxx>
+#include <WOKStep_Include.hxx>
+#include <WOKStep_CodeGenerate.hxx>
+#include <WOKStep_Compile.hxx>
+#include <WOKStep_TKList.hxx>
+#include <WOKStep_LibUnCompress.hxx>
+#include <WOKStep_LibExtract.hxx>
+#include <WOKStep_LibLimit.hxx>
+#include <WOKStep_TransitiveTKReplace.hxx>
+#include <WOKStep_DirectTKReplace.hxx>
+#include <WOKStep_ArchiveLibrary.hxx>
+#include <WOKStep_DynamicLibrary.hxx>
+#include <WOKStep_ImplementationDep.hxx>
+#include <WOKStep_TransitiveLinkList.hxx>
+#include <WOKStep_DirectLinkList.hxx>
+#include <WOKStep_LibLink.hxx>
+#include <WOKStep_ExecLink.hxx>
+#include <WOKStep_EngLinkList.hxx>
+#include <WOKStep_EngDatFiles.hxx>
+#include <WOKStep_EngLDFile.hxx>
+
+#ifdef WNT
+#include <WOKStep_DLLink.hxx>
+#include <WOKStep_ImportLibrary.hxx>
+#include <WOKStep_StaticLibrary.hxx>
+#include <WOKStep_WNTK.hxx>
+#include <WOKStep_EXELink.hxx>
+#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
--- /dev/null
+// File: woktools.cxx
+// Created: Tue Aug 13 10:43:29 1996
+// Author: Jean GAUTIER
+// <jga@cobrax.paris1.matra-dtv.fr>
+
+#include <tcl.h>
+
+#include <OSD.hxx>
+
+#include <WOKTclTools_Interpretor.hxx>
+#include <WOKTclTools_Messages.hxx>
+#include <WOKTclTools_MsgAPI.hxx>
+#include <WOKTclTools_Package.hxx>
+
+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;
+}
+
+
--- /dev/null
+// File: wokutilscmd.cxx
+// Created: Thu Feb 27 19:57:33 1997
+// Author: Jean GAUTIER
+// <jga@hourax.paris1.matra-dtv.fr>
+
+
+#include <tcl.h>
+
+#include <WOKTclTools_Interpretor.hxx>
+#include <WOKTclUtils_Path.hxx>
+#include <WOKTclTools_Package.hxx>
+
+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;
+}
+
+
projects / occt-wok.git / commitdiff