Documentation updates and more ZNOSTAND checks

src/mumps.c

@@ -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");   
     

src/xecline.c

@@ -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: