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

Diff for /freem/src/ssvn_job.c between versions 1.1.1.1 and 1.7

version 1.1.1.1, 2025/01/19 02:04:04 version 1.7, 2025/04/10 17:21:54
Line 1 Line 1
 /*  /*
  *                            *   *   $Id$
  *                           * *   *    ^$JOB ssvn
  *                          *   *  
  *                     ***************  
  *                      * *       * *  
  *                       *  MUMPS  *  
  *                      * *       * *  
  *                     ***************  
  *                          *   *  
  *                           * *  
  *                            *  
  *  
  *   ssvn_job.c  
  *    ^$JOB ssv  
  *   *
  *     *  
  *   Author: Serena Willis <jpw@coherent-logic.com>   *   Author: Serena Willis <snw@coherent-logic.com>
  *    Copyright (C) 1998 MUG Deutschland   *    Copyright (C) 1998 MUG Deutschland
  *    Copyright (C) 2020 Coherent Logic Development LLC   *    Copyright (C) 2020, 2025 Coherent Logic Development LLC
  *   *
  *   *
  *   This file is part of FreeM.   *   This file is part of FreeM.
Line 35 Line 23
  *   You should have received a copy of the GNU Affero Public License   *   You should have received a copy of the GNU Affero Public License
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.   *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *   *
    *   $Log$
    *   Revision 1.7  2025/04/10 17:21:54  snw
    *   Remove traces of BDB global handler
    *
    *   Revision 1.6  2025/04/09 19:52:02  snw
    *   Eliminate as many warnings as possible while building with -Wall
    *
    *   Revision 1.5  2025/03/24 04:13:11  snw
    *   Replace action macro dat with fra_dat to avoid symbol conflict on OS/2
    *
    *   Revision 1.4  2025/03/09 19:50:47  snw
    *   Second phase of REUSE compliance and header reformat
    *
    *
    * SPDX-FileCopyrightText:  (C) 2025 Coherent Logic Development LLC
    * SPDX-License-Identifier: AGPL-3.0-or-later
  **/   **/
   
 #include <stdio.h>  #include <stdio.h>
Line 159  void ssvn_job_update(void) Line 163  void ssvn_job_update(void)
     symtab_shm (set_sym, k_buf, d_buf);      symtab_shm (set_sym, k_buf, d_buf);
   
     snprintf (k_buf, 512 - 1, "^$JOB\202%d\202ROUTINE_BUFFER_COUNT\201", pid);      snprintf (k_buf, 512 - 1, "^$JOB\202%d\202ROUTINE_BUFFER_COUNT\201", pid);
     snprintf (d_buf, 512 - 1, "%d\201", NO_OF_RBUF);      snprintf (d_buf, 512 - 1, "%ld\201", NO_OF_RBUF);
     symtab_shm (set_sym, k_buf, d_buf);      symtab_shm (set_sym, k_buf, d_buf);
   
     snprintf (k_buf, 512 - 1, "^$JOB\202%d\202ROUTINE_BUFFER_AUTO_ADJUST\201", pid);      snprintf (k_buf, 512 - 1, "^$JOB\202%d\202ROUTINE_BUFFER_AUTO_ADJUST\201", pid);
Line 349  void ssvn_job_update(void) Line 353  void ssvn_job_update(void)
     stcpy (d_buf, rou_name);      stcpy (d_buf, rou_name);
     stcnv_m2c (d_buf);      stcnv_m2c (d_buf);
   
 #if !defined(__FreeBSD__)  
   
     if (run_daemon == FALSE) {  
         sprintf (k_buf, "    freem: namespace %s routine %s", nsname, d_buf);  
     }  
     else {  
         sprintf (k_buf, "    freem: %s environment daemon", shm_env);  
     }  
     if (!libflag) {  
         strcpy (m_argv[0], k_buf);  
     }  
   
 #endif  
   
     merr_raise (ierr_sav);      merr_raise (ierr_sav);
           
 }  }
Line 370  void ssvn_job_update(void) Line 360  void ssvn_job_update(void)
   
 void ssvn_job(short action, char *key, char *data)  void ssvn_job(short action, char *key, char *data)
 {  {
     int errsav;  
     pid_t t_pid;      pid_t t_pid;
     int i;      int i;
     char ch;      char ch;
Line 730  void ssvn_job(short action, char *key, c Line 719  void ssvn_job(short action, char *key, c
   
                     tzoffset = tzo;                      tzoffset = tzo;
   
                     snprintf (data, 512 - 1, "%d\201", tzoffset);                      snprintf (data, 512 - 1, "%ld\201", tzoffset);
                     symtab_shm (action, key, data);                      symtab_shm (action, key, data);
   
                     goto done;                      goto done;
                 }                                      }                    
                 else if (strcmp (mref_get_subscript (r, 1), "ENGINES") == 0) {  
   
                     if (strcmp (mref_get_subscript (r, 2), "GLOBAL") == 0) {  
   
                         if ((strcmp (mref_get_subscript (r, 3), nsname) == 0) && (strcmp (mref_get_subscript (r, 3), "SYSTEM") != 0)) {  
                             stcpy (tbuf, data);  
                             stcnv_m2c (tbuf);  
                               
                             global_set_engine ('u', tbuf);  
   
                             goto done;  
                               
                         }  
                         else if (strcmp (mref_get_subscript (r, 3), "SYSTEM") == 0) {  
   
                             stcpy (tbuf, data);  
                             stcnv_m2c (tbuf);  
   
                             global_set_engine ('s', tbuf);  
                           
                             goto done;  
                               
                         }  
                           
                     }  
                       
                     merr_raise (M29);  
                     goto done;  
                       
                 }  
                 else if (strcmp (mref_get_subscript (r, 1), "USER_ERRORS") == 0) {                  else if (strcmp (mref_get_subscript (r, 1), "USER_ERRORS") == 0) {
   
                     symtab_shm (set_sym, key, data);                      symtab_shm (set_sym, key, data);
Line 981  void ssvn_job(short action, char *key, c Line 940  void ssvn_job(short action, char *key, c
                 stcpy (data, g_o_val);                  stcpy (data, g_o_val);
                 goto done;                  goto done;
             }              }
         case dat:          case fra_dat:
         case fra_order:          case fra_order:
         case fra_query:          case fra_query:
             if (strcmp (mref_get_subscript (r, 1), "LVNQOVAL") == 0) {              if (strcmp (mref_get_subscript (r, 1), "LVNQOVAL") == 0) {
Line 1125  void frm_process_alias (char *key) Line 1084  void frm_process_alias (char *key)
     name[i] = '\0';      name[i] = '\0';
     subprt = key + i;      subprt = key + i;
   
     snprintf (k_buf, STRLEN - 1, "^$JOB\202%ld\202ALIASES\202%s\201", pid, name);      snprintf (k_buf, STRLEN - 1, "^$JOB\202%ld\202ALIASES\202%s\201", (long) pid, name);
     symtab_shm (get_sym, k_buf, d_buf);      symtab_shm (get_sym, k_buf, d_buf);
   
     stcnv_m2c (d_buf);      stcnv_m2c (d_buf);
Removed from v.1.1.1.1  
changed lines
  Added in v.1.7

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