task: track interpState during MDI execution

the halui.program.is-running pin now makes sense during MDI execution.
The current MDI command is reflected in emcstatus->task.command
during MDI execution.

Author: mhaberler

src/emc/task/emctask.cc

@@ -187,6 +187,8 @@ int emcTaskAbort()
     emcStatus->task.task_paused = 0;
     emcStatus->task.motionLine = 0;
     emcStatus->task.readLine = 0;
+    emcStatus->task.command[0] = 0;
+
     stepping = 0;
     steppingWait = 0;
 

src/emc/task/emctaskmain.cc

@@ -679,6 +679,7 @@ static void mdi_execute_abort(void)
     mdi_execute_next = 0;
 
     mdi_execute_queue.clear();
+    emcStatus->task.interpState = EMC_TASK_INTERP_IDLE;
 }
 
 static void mdi_execute_hook(void)
@@ -701,6 +702,22 @@ static void mdi_execute_hook(void)
 	return;
     }
 
+    // determine when a MDI command actually finishes normally.
+    if (interp_list.len() == 0 &&
+	emcTaskCommand == 0 &&
+	emcStatus->task.execState ==  EMC_TASK_EXEC_DONE && 
+	emcStatus->task.interpState != EMC_TASK_INTERP_IDLE && 
+	emcStatus->motion.traj.queue == 0 &&
+	emcStatus->io.status == RCS_DONE && 
+	!mdi_execute_wait && 
+	!mdi_execute_next) {
+
+	if (emc_debug & EMC_DEBUG_INTERP)
+	    rcs_print("mdi_execute_hook: MDI command '%s' done\n", emcStatus->task.command); 
+	emcStatus->task.command[0] = 0;
+	emcStatus->task.interpState = EMC_TASK_INTERP_IDLE;
+    }
+
     if (!mdi_execute_next) return;
 
     if (interp_list.len() > emc_task_interp_max_len) return;
@@ -2086,11 +2103,17 @@ static int emcTaskIssueCommand(NMLmsg * cmd)
             retval = -1;
             break;
         }
+	// track interpState also during MDI - it might be an oword sub call
+	emcStatus->task.interpState = EMC_TASK_INTERP_READING;
+
 	if (execute_msg->command[0] != 0) {
 	    char * command = execute_msg->command;
 	    if (command[0] == (char) 0xff) {
 		// Empty command recieved. Consider it is NULL
 		command = NULL;
+	    } else {
+		// record initial MDI command
+		strcpy(emcStatus->task.command, execute_msg->command);
 	    }
 
 	    if ((mdi_execute_level >= 0 || mdi_execute_wait) && command) {