version 1.2, 2025/02/28 20:51:20
|
version 1.6, 2025/04/09 19:52:02
|
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.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 350 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 357 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 981 void ssvn_job(short action, char *key, c
|
Line 967 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) { |