--- freem/src/xecline.c	2025/05/14 12:22:04	1.24
+++ freem/src/xecline.c	2025/05/19 21:29:29	1.27
@@ -1,5 +1,5 @@
 /*
- *   $Id: xecline.c,v 1.24 2025/05/14 12:22:04 snw Exp $
+ *   $Id: xecline.c,v 1.27 2025/05/19 21:29:29 snw Exp $
  *    freem interpreter proper
  *
  *  
@@ -24,6 +24,15 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: xecline.c,v $
+ *   Revision 1.27  2025/05/19 21:29:29  snw
+ *   Add basic tab completion to direct mode
+ *
+ *   Revision 1.26  2025/05/19 02:03:31  snw
+ *   Reverse-engineer and document argumented ZPRINT (thanks to D. Wicksell)
+ *
+ *   Revision 1.25  2025/05/18 18:15:38  snw
+ *   Add ZEDIT command for editing routines
+ *
  *   Revision 1.24  2025/05/14 12:22:04  snw
  *   Further work on shared memory
  *
@@ -177,6 +186,150 @@ void rbuf_dump(void);
 short rbuf_slot_from_name(char *);
 short is_standard(void);
 
+#ifdef HAVE_LIBREADLINE
+char *m_commands[] = {
+  "@",
+  "!",
+  "!!",
+  "ablock",
+  "astart",
+  "astop",
+  "aunblock",
+  "break",
+  "close",
+  "do",
+  "else",
+  "for",
+  "goto",
+  "halt",
+  "hang",
+  "if",
+  "job",
+  "kill",
+  "ksubscripts",
+  "kvalue",
+  "lock",
+  "merge",
+  "new",
+  "open",
+  "quit",
+  "read",
+  "set",
+  "tcommit",
+  "then",
+  "trollback",
+  "tstart",
+  "use",
+  "view",
+  "write",
+  "xecute",
+  "zassert",
+  "zbreak",
+  "zconst",
+  "zedit",
+  "zgoto",
+  "zhalt",
+  "zinsert",
+  "zjob",
+  "zload",
+  "zmap",
+  "znew",
+  "zprint",
+  "zquit",
+  "zremove",
+  "zsave",
+  "zthrow",
+  "ztrap",
+  "zunmap",
+  "zwatch",
+  "zwith",
+  "zwrite",
+  "ABLOCK",
+  "ASTART",
+  "ASTOP",
+  "AUNBLOCK",
+  "BREAK",
+  "CLOSE",
+  "DO",
+  "ELSE",
+  "FOR",
+  "GOTO",
+  "HALT",
+  "HANG",
+  "IF",
+  "JOB",
+  "KILL",
+  "KSUBSCRIPTS",
+  "KVALUE",
+  "LOCK",
+  "MERGE",
+  "NEW",
+  "OPEN",
+  "QUIT",
+  "READ",
+  "SET",
+  "TCOMMIT",
+  "THEN",
+  "TROLLBACK",
+  "TSTART",
+  "USE",
+  "VIEW",
+  "WRITE",
+  "XECUTE",
+  "ZASSERT",
+  "ZBREAK",
+  "ZCONST",
+  "ZEDIT",
+  "ZGOTO",
+  "ZHALT",
+  "ZINSERT",
+  "ZJOB",
+  "ZLOAD",
+  "ZMAP",
+  "ZNEW",
+  "ZPRINT",
+  "ZQUIT",
+  "ZREMOVE",
+  "ZSAVE",
+  "ZTHROW",
+  "ZTRAP",
+  "ZUNMAP",
+  "ZWATCH",
+  "ZWITH",
+  "ZWRITE",
+  NULL
+};
+
+char **command_completion(const char *, int, int);
+char *command_generator(const char *, int);
+
+char **command_completion(const char *text, int start, int end)
+{
+    if (start > 0) return NULL;
+    rl_attempted_completion_over = 1;
+    return rl_completion_matches(text, command_generator);
+}
+
+char *command_generator(const char *text, int state)
+{
+    static int list_index, len;
+    char *name;
+
+    if (!state) {
+        list_index = 0;
+        len = strlen(text);
+    }
+
+    while ((name = m_commands[list_index++])) {
+        if (strncmp(name, text, len) == 0) {
+            return strdup(name);
+        }
+    }
+
+    return NULL;
+}
+#endif
+
 /*
  * xecline():
  *   typ (where to go on function entry):   1 = restart
@@ -5292,6 +5445,11 @@ halt:
             break;
 
         /* Z-COMMANDS */
+        case ZEDIT:
+            merr_raise (cmd_zedit (&ra));
+            MRESCHECK(ra);
+            break;
+            
         case ZGO:
 
             /* ZGO with arguments: same as GOTO but with BREAK on */
@@ -5431,7 +5589,7 @@ zgo:
                     merr_raise (NOPGM);
 
                     break;
-                }           /*error */
+                }           /* error */
 
                 stcpy (varnam, rou_name);
             }
@@ -5567,11 +5725,11 @@ zgo:
                 if (*codptr == EOL || *codptr == SP) {
                     merr_raise (ARGLIST);
                     break;
-                }           /*error */
+                }           /* error */
                 
                 dosave[0] = EOL;
 
-                /* parse stringlit */
+                /* parse strlit */
                 expr (STRING);
                 
                 if (merr () > OK) break;
@@ -7282,6 +7440,8 @@ direct_mode:
                 int hist_idx;
                 HIST_ENTRY *hist_ent;
 
+                rl_attempted_completion_function = command_completion;
+                
                 if (quiet_mode == FALSE) {
                     if (tp_level == 0) {
                         snprintf (fmrl_prompt, sizeof (fmrl_prompt) - 1, "\r\n%s.%s> ", shm_env, nsname);