[BACK]Return to xecline.c CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/xecline.c between versions 1.10 and 1.12

version 1.10, 2025/03/27 03:27:35 version 1.12, 2025/04/09 19:52:02
Line 24 Line 24
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.   *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *   *
  *   $Log$   *   $Log$
    *   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   *   Revision 1.10  2025/03/27 03:27:35  snw
  *   Install init scripts to share/freem/examples/init and fix regression in method dispatch   *   Install init scripts to share/freem/examples/init and fix regression in method dispatch
  *   *
Line 901  set0: Line 907  set0:
   
                 if (isalpha (vn[0]) && *(codptr + 1) == ':') {                  if (isalpha (vn[0]) && *(codptr + 1) == ':') {
                     char sc_string[255];                      char sc_string[255];
                     register int sci;  
                       
                     codptr += 2;                      codptr += 2;
                     expr (NAME);                      expr (NAME);
   
Line 1034  set2: Line 1039  set2:
   
                 if (new_and_set == TRUE) new_and_set = FALSE;                  if (new_and_set == TRUE) new_and_set = FALSE;
                 if (new_object == TRUE) new_object = FALSE;                  if (new_object == TRUE) new_object = FALSE;
   /*                
 set1:  set1:
   */
                 if (*codptr != ',') break;                  if (*codptr != ',') break;
   
                 if (*++codptr == '@') goto again;                  if (*++codptr == '@') goto again;
Line 4002  off3: Line 4009  off3:
                     goto set2;                      goto set2;
                 }                  }
   
   /*                
 post_new:  post_new:
                   */                
                 ch = nstx;                  ch = nstx;
                                   
                 while (nestc[ch] == FOR) ch--;       /* FOR does not define a NEW level */                  while (nestc[ch] == FOR) ch--;       /* FOR does not define a NEW level */
Line 5676  zgo: Line 5684  zgo:
             }              }
   
         case ZWRITE:          case ZWRITE:
   
   
 zwrite:  
             {              {
                 short k;                  short k;
                 char w_tmp[512];                  char w_tmp[512];
Line 6044  zwritep: Line 6049  zwritep:
             break;              break;
   
   
         case ZALLOCATE:          /* user defined Z-COMMAND */
   
             /* 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 */  
   
   
         case PRIVATE:          case PRIVATE:
   
 private:            /* for in-MUMPS defined commands */  private:            /* for in-MUMPS defined commands */
Line 7505  void rbuf_dump(void) Line 7455  void rbuf_dump(void)
           
     for (i = 0; i < NO_OF_RBUF; i++) {      for (i = 0; i < NO_OF_RBUF; i++) {
   
         sprintf (flgs, "");          flgs[0] = '\0';
                   
         if (ages[i] == 0) {          if (ages[i] == 0) {
             sprintf (rnam, "---------");              sprintf (rnam, "---------");
Removed from v.1.10  
changed lines
  Added in v.1.12

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>