|
|
| version 1.3, 2025/03/09 15:20:18 | 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 <snw@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 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 735 void ssvn_job(short action, char *key, c | Line 724 void ssvn_job(short action, char *key, c |
| 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) { |