version 1.1, 2025/01/19 02:04:04
|
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 159 void ssvn_job_update(void)
|
Line 160 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 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 730 void ssvn_job(short action, char *key, c
|
Line 716 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; |
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) { |
Line 1125 void frm_process_alias (char *key)
|
Line 1111 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); |