Commit c973887d authored by John P. Willis's avatar John P. Willis
Browse files

Documentation updates and more ZNOSTAND checks

parent 3753917f
Pipeline #757 passed with stage
in 1 minute and 28 seconds
This diff is collapsed.
......@@ -769,12 +769,13 @@ void freem_usage(void)
fprintf (stdout, "\t-n <NAMESPACE>, --namespace=<NAMESPACE>\n\t\tselects <NAMESPACE> as the startup namespace instead of USER\n\n");
fprintf (stdout, "\t-q, --quiet\n\t\tdisables startup messages and prompt string\n\n");
fprintf (stdout, "\t-r <LABEL^ROUTINE>, --routine=<LABEL^ROUTINE>\n\t\texecute <LABEL^ROUTINE> on startup instead of entering direct mode\n\n");
fprintf (stdout, "\t-s, --standard\n\t\trestrict access to FreeM vendor extensions not present in relevant standards\n\n");
fprintf (stdout, "\t-s, --standard\n\t\trestrict access to FreeM vendor extensions not present in relevant standards*\n\n");
fprintf (stdout, "\t-v, --version\n\t\tdisplay FreeM version information\n\n");
fprintf (stdout, "\t-x <MCODE>, --execute=<MCODE>\n\t\texecute M code <MCODE> on startup\n\n");
fprintf (stdout, "\t-d, --daemon\n\t\trun the FreeM daemon (one FreeM daemon must always be running)\n\n");
fprintf (stdout, "\t-k, --nofork\n\t\trun the FreeM daemon in foreground (requires --daemon)\n\n");
fprintf (stdout, "\t-p <PIDFILE>, --pidfile=<PIDFILE>\n\t\tuse <PIDFILE> to record the PID of the FreeM daemon\n\n");
fprintf (stdout, "\t-p <PIDFILE>, --pidfile=<PIDFILE>\n\t\tuse <PIDFILE> to record the PID of the FreeM daemon\n\n\n");
fprintf (stdout, "\t* FreeM attempts to conform (at least loosely) to the Millennium Draft Standard when this mode is selected.\n\n\n");
fprintf (stdout, "Report bugs to: freem-bugs@coherent-logic.com\n");
fprintf (stdout, "FreeM home page: <https://freem.coherent-logic.com>\n\n");
......
......@@ -423,7 +423,15 @@ next0:
goto err;
}
if (ch == '@') goto do_xecute;
if (ch == '@') {
if (!standard) {
goto do_xecute;
}
else {
ierr = NOSTAND;
goto err;
}
}
if (ch == '!') { /* UNIXCALL */
......@@ -837,6 +845,11 @@ again:
char mapping_obj[256];
char mapping_ns[256];
char tmp_key[256];
if (standard) {
ierr = NOSTAND;
goto err;
}
expr (NAME);
......@@ -888,6 +901,11 @@ again:
char mapping_obj[256];
char tmp_data[256];
char tmp_key[256];
if (standard) {
ierr = NOSTAND;
goto err;
}
expr (NAME);
......@@ -2618,7 +2636,11 @@ s_end:
break;
case OO_USING:
write_m ("using\r\n\201");
if (standard) {
ierr = NOSTAND;
goto err;
}
break;
case OO_WITH:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment