From: Pavel Shramov <p...@lebu.psha.org.ru>
Returns call_level value from interpreter
Signed-off-by: Pavel Shramov <shra...@mexmat.net>
---
src/emc/nml_intf/emc.hh | 1 +
src/emc/task/emctask.cc | 11 +++++++++++
2 files changed, 12 insertions(+), 0 deletions(-)
diff --git a/src/emc/nml_intf/emc.hh b/src/emc/nml_intf/emc.hh
index 4c1c615..d1a779e 100644
--- a/src/emc/nml_intf/emc.hh
+++ b/src/emc/nml_intf/emc.hh
@@ -470,6 +470,7 @@ extern int emcTaskPlanResume();
extern int emcTaskPlanClose();
extern int emcTaskPlanLine();
+extern int emcTaskPlanLevel();
extern int emcTaskPlanCommand(char *cmd);
extern int emcTaskUpdate(EMC_TASK_STAT * stat);
diff --git a/src/emc/task/emctask.cc b/src/emc/task/emctask.cc
index 61a400e..d86d439 100644
--- a/src/emc/task/emctask.cc
+++ b/src/emc/task/emctask.cc
@@ -560,6 +560,17 @@ int emcTaskPlanLine()
return retval;
}
+int emcTaskPlanLevel()
+{
+ int retval = interp.call_level();
+
+ if (EMC_DEBUG & EMC_DEBUG_INTERP) {
+ rcs_print("emcTaskPlanLevel() returned %d\n", retval);
+ }
+
+ return retval;
+}
+
int emcTaskPlanCommand(char *cmd)
{
char buf[LINELEN];
--
1.7.1
------------------------------------------------------------------------------
Start uncovering the many advantages of virtual appliances
and start using them to simplify application deployment and
accelerate your shift to cloud computing.
http://p.sf.net/sfu/novell-sfdev2dev
_______________________________________________
Emc-developers mailing list
Emc-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/emc-developers
