---
src/emc/usr_intf/emcsh.cc | 15 +++++++++++++++
1 files changed, 15 insertions(+), 0 deletions(-)
diff --git a/src/emc/usr_intf/emcsh.cc b/src/emc/usr_intf/emcsh.cc
index c6c67fb..eeafdda 100644
--- a/src/emc/usr_intf/emcsh.cc
+++ b/src/emc/usr_intf/emcsh.cc
@@ -3488,6 +3488,18 @@ static void initMain()
programStartLine = 0;
}
+int emc_setini(ClientData cd, Tcl_Interp *interp, int argc, const char **argv)
+{
+ if(argc > 1)
+ {
+ strcpy(EMC_INIFILE, argv[1]);
+ iniLoad(EMC_INIFILE);
+ }
+ Tcl_ResetResult(interp);
+ Tcl_AppendElement(interp, EMC_INIFILE);
+ return TCL_OK;
+}
+
int emc_init(ClientData cd, Tcl_Interp *interp, int argc, const char **argv)
{
initMain();
@@ -3541,6 +3553,9 @@ int Emc_Init(Tcl_Interp * interp)
Tcl_CreateCommand(interp, "emc_init", emc_init, (ClientData) NULL,
(Tcl_CmdDeleteProc *) NULL);
+ Tcl_CreateCommand(interp, "emc_setini", emc_setini, (ClientData) NULL,
+ (Tcl_CmdDeleteProc *) NULL);
+
Tcl_CreateObjCommand(interp, "emc_plat", emc_plat, (ClientData) NULL,
(Tcl_CmdDeleteProc *) NULL);
--
1.6.2.1.469.gdffc
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Emc-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/emc-developers
