--- freem/src/mpsdef0.h 2025/02/28 23:35:24 1.4 +++ freem/src/mpsdef0.h 2025/03/24 01:47:38 1.11 @@ -1,23 +1,11 @@ /* - * * - * * * - * * * - * *************** - * * * * * - * * MUMPS * - * * * * * - * *************** - * * * - * * * - * * - * - * mpsdef0.h + * $Id: mpsdef0.h,v 1.11 2025/03/24 01:47:38 snw Exp $ * common constants definitions for all mumps modules * * - * Author: Serena Willis + * Author: Serena Willis * 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. @@ -35,9 +23,28 @@ * You should have received a copy of the GNU Affero Public License * along with FreeM. If not, see . * + * $Log: mpsdef0.h,v $ + * 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" +/*#pragma GCC diagnostic ignored "-Wformat-contains-nul"*/ #ifdef HAVE_CONFIG_H # include @@ -150,7 +157,9 @@ #define ARGS_IN_ESC 5 /* 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 */ #define ZTLEN 20 @@ -273,7 +282,7 @@ #define kill_sym 2 #define kill_all 4 #define killexcl 6 -#define new_sym 8 +#define new_sym 8 #define new_all 10 #define newexcl 12 #define killone 14 @@ -282,15 +291,20 @@ #define lock_dec 26 #define lock_old 28 -#define get_sym 1 -#define dat 3 -#define fra_order 5 -#define fra_query 7 +#define get_sym 1 +#if !defined(__OS2--) +# define dat 3 +#else +const int dat = 3; +#endif + +#define fra_order 5 +#define fra_query 7 #define bigquery 9 -#define getinc 11 +#define getinc 11 #define getnext 13 #define m_alias 15 -#define zdata 17 +#define zdata 17 /* sets 8th bit in A */ #define SETBIT(A) ((A)|0200)