--- freem/src/xecline.c	2025/03/27 03:27:35	1.10
+++ freem/src/xecline.c	2025/04/10 01:24:39	1.13
@@ -1,5 +1,5 @@
 /*
- *   $Id: xecline.c,v 1.10 2025/03/27 03:27:35 snw Exp $
+ *   $Id: xecline.c,v 1.13 2025/04/10 01:24:39 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.13  2025/04/10 01:24:39  snw
+ *   Remove C++ style comments
+ *
+ *   Revision 1.12  2025/04/09 19:52:02  snw
+ *   Eliminate as many warnings as possible while building with -Wall
+ *
+ *   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
  *
@@ -901,8 +910,7 @@ set0:
 
                 if (isalpha (vn[0]) && *(codptr + 1) == ':') {
                     char sc_string[255];
-                    register int sci;
-                    
+
                     codptr += 2;
                     expr (NAME);
 
@@ -938,8 +946,7 @@ set0:
 
                     if (*++codptr != '=') {
 
-/* SET A++ or SET A-- equivalent to SET A+=1 SET A-=1 currently disabled */
-//#ifdef NEVER
+                        /* unary ++/-- */
                         if ((ch == '+' || ch == '-') && ch == *codptr) {
                             codptr++;
                             setop = ch;
@@ -948,7 +955,6 @@ set0:
                             
                             goto set2;
                         }
-//#endif /* NEVER */
 
                         merr_raise (ASSIGNER);
                         break;
@@ -1034,7 +1040,9 @@ set2:
 
                 if (new_and_set == TRUE) new_and_set = FALSE;
                 if (new_object == TRUE) new_object = FALSE;
+/*                
 set1:
+*/
                 if (*codptr != ',') break;
 
                 if (*++codptr == '@') goto again;
@@ -1598,7 +1606,7 @@ set10:
                     }
 
                     if (stcat (tmp2, &tmp3[arg4]) == 0) {
-                        merr_raise (M56); //JPW
+                        merr_raise (M56); /* snw */
                         goto err;
                     }
 
@@ -2377,7 +2385,6 @@ s_end:
 #ifdef DEBUG_NEWSTACK
                 printf ("EXTRINSIC\r\n");
 #endif
-                //printf (" extr_types[%d] = '%d'\r\n", nstx, extr_types[nstx]);
                 if (*codptr == EOL || *codptr == SP) {
 
 #ifdef DEBUG_NEWSTACK
@@ -4002,8 +4009,9 @@ off3:
                     goto set2;
                 }
 
+/*                
 post_new:
-                
+*/                
                 ch = nstx;
                 
                 while (nestc[ch] == FOR) ch--;       /* FOR does not define a NEW level */
@@ -5092,15 +5100,11 @@ open_socket:
 #endif
 
                     if (nestc[nstx] == BREAK) {
-//                        printf ("nestc[nstx] was BREAK\r\n");
                         if (repQUIT) continue;
                         merr_raise (OK - CTRLB);
                         
                         goto zgo;   /*cont. single step */
                     }
-//                    else {
-//                        printf ("nestc[nstx] was _not_ BREAK\r\n");
-//                    }
 
                     if (nestc[nstx] == FOR) {
 
@@ -5676,9 +5680,6 @@ zgo:
             }
 
         case ZWRITE:
-
-
-zwrite:
             {
                 short k;
                 char w_tmp[512];
@@ -5802,7 +5803,6 @@ zwritep:
 
                 expr (NAME);
 
-                //if (varnam[0] == '^') merr_raise (GLOBER);
                 if (merr () > OK) goto err;
                 
                 codptr++;
@@ -6044,62 +6044,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 */
@@ -6638,15 +6583,15 @@ evthandler:            /* for event hand
 
                     
                     /* run the next iteration of GTK's event loop */
-                    //TODO: replace with libXt event loop
-                    //gtk_main_iteration_do (TRUE);
+                    /* TODO: replace with libXt event loop */
+                    /* gtk_main_iteration_do (TRUE); */
 
                     /* dequeue any events */
                     evt_count = mwapi_dequeue_events (syn_handlers);
 
                     if (evt_count) {
                         /* write them out */
-                        //printf ("event handlers = '%s'\r\n", syn_handlers);
+                        /* printf ("event handlers = '%s'\r\n", syn_handlers); */
 
                         syn_event_entry_nstx = nstx;
                         
@@ -7091,7 +7036,7 @@ restart:
 
         DSW &= ~BIT0;       /* enable ECHO */
 
-        // print here
+        /* print here */
         {
             char *t_rtn;
             char *t_nsn = (char *) malloc (STRLEN * sizeof (char));
@@ -7429,17 +7374,12 @@ direct_mode:
 #endif
 
             if (merr () > OK) goto err;
-
-
-            //      printf ("zbflag = %d\r\n", zbflag);
             
             if (code[0] == EOL && zbflag && nestc[nstx] == BREAK) {
 
-                //printf ("cont single step\r\n");
                 debug_mode = TRUE;
                 merr_raise (OK - CTRLB);
 
-                //printf ("ierr now '%d'\r\n", ierr);
                 goto zgo;
             }           /* single step */
         }
@@ -7505,7 +7445,7 @@ void rbuf_dump(void)
     
     for (i = 0; i < NO_OF_RBUF; i++) {
 
-        sprintf (flgs, "");
+        flgs[0] = '\0';
         
         if (ages[i] == 0) {
             sprintf (rnam, "---------");