--- freem/src/ssvn_job.c 2025/02/28 20:51:20 1.2 +++ freem/src/ssvn_job.c 2025/04/10 17:21:54 1.7 @@ -1,23 +1,11 @@ /* - * * - * * * - * * * - * *************** - * * * * * - * * MUMPS * - * * * * * - * *************** - * * * - * * * - * * - * - * ssvn_job.c - * ^$JOB ssv + * $Id: ssvn_job.c,v 1.7 2025/04/10 17:21:54 snw Exp $ + * ^$JOB ssvn * * - * Author: Serena Willis + * Author: Serena Willis * 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. @@ -35,6 +23,22 @@ * You should have received a copy of the GNU Affero Public License * along with FreeM. If not, see . * + * $Log: ssvn_job.c,v $ + * 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 @@ -349,20 +353,6 @@ void ssvn_job_update(void) stcpy (d_buf, rou_name); 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); } @@ -370,7 +360,6 @@ void ssvn_job_update(void) void ssvn_job(short action, char *key, char *data) { - int errsav; pid_t t_pid; int i; char ch; @@ -735,36 +724,6 @@ void ssvn_job(short action, char *key, c 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) { symtab_shm (set_sym, key, data); @@ -981,7 +940,7 @@ void ssvn_job(short action, char *key, c stcpy (data, g_o_val); goto done; } - case dat: + case fra_dat: case fra_order: case fra_query: if (strcmp (mref_get_subscript (r, 1), "LVNQOVAL") == 0) {