--- freem/src/xecline.c 2025/03/27 03:27:35 1.10 +++ freem/src/xecline.c 2025/04/02 03:02:42 1.11 @@ -1,5 +1,5 @@ /* - * $Id: xecline.c,v 1.10 2025/03/27 03:27:35 snw Exp $ + * $Id: xecline.c,v 1.11 2025/04/02 03:02:42 snw Exp $ * freem interpreter proper * * @@ -24,6 +24,9 @@ * along with FreeM. If not, see . * * $Log: xecline.c,v $ + * Revision 1.11 2025/04/02 03:02:42 snw + * Stop requiring users to pass -e to fmadm when -u or -g are passed + * * Revision 1.10 2025/03/27 03:27:35 snw * Install init scripts to share/freem/examples/init and fix regression in method dispatch * @@ -6044,62 +6047,7 @@ zwritep: break; - case ZALLOCATE: - - /* argumentless is not permitted */ - if (*codptr == SP || *codptr == EOL) { - merr_raise (ARGLIST); - break; - } - - expr (NAME); - - if (merr () > OK) goto err; - - tmp[0] = SP; - stcpy (&tmp[1], varnam); - stcat (tmp, "\001\201"); - - frm_timeout = (-1L); /* no timeout */ - - if (*++codptr == ':') { - codptr++; - - expr (STRING); - - frm_timeout = intexpr (argptr); - - if (merr () > OK) goto err; - if (frm_timeout < 0L) frm_timeout = 0L; - } - - lock (tmp, frm_timeout, ZALLOCATE); - break; - - - case ZDEALLOCATE: - - tmp[0] = SP; - - if (*codptr == SP || *codptr == EOL) { - tmp[1] = EOL; - } - else { - expr (NAME); - - if (merr () > OK) goto err; - - stcpy (&tmp[1], varnam); - - codptr++; - } - - lock (tmp, -1L, ZDEALLOCATE); /* -1: no timeout */ - break; - - /* user defined Z-COMMAND */ - - + /* user defined Z-COMMAND */ case PRIVATE: private: /* for in-MUMPS defined commands */