--- freem/src/xecline.c 2025/05/05 14:53:17 1.22 +++ freem/src/xecline.c 2025/05/19 02:03:31 1.26 @@ -1,5 +1,5 @@ /* - * $Id: xecline.c,v 1.22 2025/05/05 14:53:17 snw Exp $ + * $Id: xecline.c,v 1.26 2025/05/19 02:03:31 snw Exp $ * freem interpreter proper * * @@ -24,6 +24,18 @@ * along with FreeM. If not, see . * * $Log: xecline.c,v $ + * 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 + * + * Revision 1.23 2025/05/06 16:10:06 snw + * Add extra blank before readline call on NetBSD + * * Revision 1.22 2025/05/05 14:53:17 snw * Modify rpm spec to include documentation TODO * @@ -258,7 +270,7 @@ next_line: /* entry point for n if (debug_mode) { debug_mode = debugger (DEBENTRY_LINE, entryref); } - + job_set_status (pid, JSTAT_INTERPRETER); if (then_ctr > 0) { @@ -5286,6 +5298,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 */ @@ -5425,7 +5442,7 @@ zgo: merr_raise (NOPGM); break; - } /*error */ + } /* error */ stcpy (varnam, rou_name); } @@ -5561,11 +5578,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; @@ -7287,7 +7304,11 @@ direct_mode: set_io (UNIX); job_set_status (pid, JSTAT_DIRECTMODE); - + +#if defined(__NetBSD__) + printf ("\r\n"); +#endif + /* readline() does its own malloc() */ fmrl_buf = readline (fmrl_prompt); @@ -7298,6 +7319,7 @@ direct_mode: goto halt; } + if (strlen (fmrl_buf) > 0) { add_history (fmrl_buf);