|
|
| version 1.1, 2025/01/19 02:04:04 | version 1.12, 2025/03/24 01:48:40 |
|---|---|
| Line 1 | Line 1 |
| /* | /* |
| * * | * $Id$ |
| * * * | |
| * * * | |
| * *************** | |
| * * * * * | |
| * * MUMPS * | |
| * * * * * | |
| * *************** | |
| * * * | |
| * * * | |
| * * | |
| * | |
| * mpsdef0.h | |
| * common constants definitions for all mumps modules | * common constants definitions for all mumps modules |
| * | * |
| * | * |
| * 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, 2023 Coherent Logic Development LLC | * Copyright (C) 2020, 2023, 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.12 2025/03/24 01:48:40 snw | |
| * Make symtab action defines more portable | |
| * | |
| * Revision 1.11 2025/03/24 01:47:38 snw | |
| * Make symtab action defines more portable | |
| * | |
| * Revision 1.10 2025/03/24 01:35:23 snw | |
| * Make symtab action defines more portable | |
| * | |
| * Revision 1.9 2025/03/22 22:52:24 snw | |
| * Add STRLEN_GBL macro to manage global string length | |
| * | |
| * Revision 1.8 2025/03/22 18:43:54 snw | |
| * Make STRLEN 255 chars and add BIGSTR macro for larger buffers | |
| * | |
| * Revision 1.7 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 | |
| **/ | **/ |
| /*#pragma GCC diagnostic ignored "-Wformat-contains-nul"*/ | |
| #ifdef HAVE_CONFIG_H | #ifdef HAVE_CONFIG_H |
| # include <config.h> | # include <config.h> |
| Line 149 | Line 160 |
| #define ARGS_IN_ESC 5 | #define ARGS_IN_ESC 5 |
| /* maximum length of a string, 0 <= $L() <= 255 */ | /* maximum length of a string, 0 <= $L() <= 255 */ |
| #define STRLEN 65535 | #define STRLEN 255 |
| #define STRLEN_GBL 252 | |
| #define BIGSTR 65535 | |
| /* length of $ZTRAP variable */ | /* length of $ZTRAP variable */ |
| #define ZTLEN 20 | #define ZTLEN 20 |
| Line 272 | Line 285 |
| #define kill_sym 2 | #define kill_sym 2 |
| #define kill_all 4 | #define kill_all 4 |
| #define killexcl 6 | #define killexcl 6 |
| #define new_sym 8 | #define new_sym 8 |
| #define new_all 10 | #define new_all 10 |
| #define newexcl 12 | #define newexcl 12 |
| #define killone 14 | #define killone 14 |
| Line 281 | Line 294 |
| #define lock_dec 26 | #define lock_dec 26 |
| #define lock_old 28 | #define lock_old 28 |
| #define get_sym 1 | #define get_sym 1 |
| #define dat 3 | #if !defined(__OS2__) |
| #define fra_order 5 | # define dat 3 |
| #define fra_query 7 | #else |
| const int dat = 3; | |
| #endif | |
| #define fra_order 5 | |
| #define fra_query 7 | |
| #define bigquery 9 | #define bigquery 9 |
| #define getinc 11 | #define getinc 11 |
| #define getnext 13 | #define getnext 13 |
| #define m_alias 15 | #define m_alias 15 |
| #define zdata 17 | #define zdata 17 |
| /* sets 8th bit in A */ | /* sets 8th bit in A */ |
| #define SETBIT(A) ((A)|0200) | #define SETBIT(A) ((A)|0200) |
| Line 352 void unnew (void); | Line 370 void unnew (void); |
| /* functions from expr.c */ | /* functions from expr.c */ |
| void expr (short extyp); | void expr (short extyp); |
| void zsyntax (); | void zsyntax (char *a); |
| void zdate (); | void zkey (char *a, long type); |
| void ztime (); | |
| void zkey (); | |
| short is_horolog(char *s); | short is_horolog(char *s); |
| /* functions from ssvn.c */ | /* functions from ssvn.c */ |
| Line 425 void ssvn_routine_date(void); | Line 441 void ssvn_routine_date(void); |
| /* functions from symtab_dispatch.c */ | /* functions from symtab_dispatch.c */ |
| void symtab (short action, char *key, char *data); | void symtab (short action, char *key, char *data); |
| short int collate (); | |
| short int numeric (); | /* functions from symtab_bltin.c */ |
| short int comp (); | short int collate (char *s, char *t); |
| void intstr (); | short int numeric (char *str); |
| void lintstr (); | short int comp (char *s, char *t); |
| void udfsvn (); | void intstr (char *str, short integ); |
| long getpmore (); | void lintstr (char * str, long integ); |
| long getumore (); | void udfsvn (short action, char *key, char *data); |
| long getrmore (); | long getpmore (void); |
| short int getnewmore (); | long getumore (void); |
| long getrmore (void); | |
| short int getnewmore (void); | |
| /* functions from init.c */ | /* functions from init.c */ |
| void reset_terminal(void); | void reset_terminal(void); |
| /* functions from symtab_bltin.c */ | /* functions from symtab_bltin.c */ |
| void symtab_init (); | void symtab_init (void); |
| short symtab_get_sem(void); | short symtab_get_sem(void); |
| void symtab_release_sem(void); | void symtab_release_sem(void); |
| void symtab_shm (short action, char *key, char *data); | void symtab_shm (short action, char *key, char *data); |
| Line 455 void close_all_globals (); | Line 473 void close_all_globals (); |
| void global_bltin (short action, char *key, char *data); | void global_bltin (short action, char *key, char *data); |
| void gbl_dump_stat (void); | void gbl_dump_stat (void); |
| /* functions from global_bdb.c */ | |
| void global_bdb (short action, char *key, char *data); | |
| void frm_bdb_gbl_session_dump(void); | |
| void frm_bdb_flush_all(void); | |
| void frm_bdb_close_all(void); | |
| /* functions from operator.c */ | /* functions from operator.c */ |
| short int pattern (); | short int pattern (char *a, char *b); |
| void pminmax (); | void pminmax (char *str, int *min, int *max); |
| void add (); | void add (char *a, char *b); |
| void mul (); | void mul (char *a, char *b); |
| void mdiv (); | void mdiv (char *uu, char *v, short typ); |
| void power (); | void power (char *a, char *b); |
| void g_sqrt (); | void g_sqrt (char *a); |
| int numlit (); | void root (char *a, long n); |
| long intexpr (); | int numlit (char *str); |
| short int tvexpr (); | long intexpr (char *str); |
| void m_op (); | short int tvexpr (char *str); |
| void m_op (char *a, char *b, short op); | |
| void mround (char *a, int digits); | |
| /* functions from service.c */ | /* functions from service.c */ |
| long int find (); | long int find (char *string, char *pattern); |
| short int kill_ok (); | short int kill_ok (char *exceptions, char *); |
| void lineref (); | void write_f (char *intext); |
| void zi (); | void writeHOME (char *text); |
| void write_f (); | void m_output (char *text); |
| void writeHOME (); | void write_m (char *text); |
| void m_output (); | |
| void write_m (); | |
| void write_t (short int col); | void write_t (short int col); |
| void ontimo (); | void ontimo (void); |
| void read_m (char *stuff, long read_timeout, short read_timeoutms, short length); | void read_m (char *stuff, long read_timeout, short read_timeoutms, short length); |
| void hardcpf (); | int rdchk0 (int *data); |
| int rdchk0 (); | int locking (int fd, int action, long count); |
| int locking (); | |
| void set_io (short action); | void set_io (short action); |
| void set_break (short break_char); | void set_break (short break_char); |
| void set_zbreak (short quit_char); | void set_zbreak (short quit_char); |
| Line 496 void lock (char *lockarg, long time_o | Line 507 void lock (char *lockarg, long time_o |
| /* functions from routine.c */ | /* functions from routine.c */ |
| #include "routine.h" | #include "routine.h" |
| void lineref (char **addr); | |
| void zi (char *line, char *position); | |
| /* functions from strings.c */ | /* functions from strings.c */ |
| long int stlen (const char *source); | long int stlen (const char *source); |
| Line 552 struct vtstyp { | Line 565 struct vtstyp { |
| }; | }; |
| /* functions from views.c */ | /* functions from views.c */ |
| void view_com (); | void view_com (void); |
| void view_fun (); | void view_fun (int f, char *a); |
| short int newpsize (); | short int newpsize (long size); |
| short int newusize (); | short int newusize (long size); |
| short int newrsize (); | short int newrsize (long size, long nbrbuf); |
| void zreplace (); | void zreplace (char *a, char *b, char *c); |
| short int tstglvn (); | short int tstglvn (char *a); |
| void zname (); | void zname (char *a, char *b); |
| short int znamenumeric (); | short int znamenumeric (char *str); |
| void procv22 (); | void procv22 (char *key); |
| void v25 (); | void v25 (char *a, int i); |
| void m_tolower (); | void m_tolower (char *str); |
| void part_ref (struct vtstyp *scr, short from, short to); | void part_ref (struct vtstyp *scr, short from, short to); |
| #define D_FREEM 0 | #define D_FREEM 0 |