|
|
| version 1.1, 2025/01/19 02:04:04 | version 1.5, 2026/03/14 21:04:51 |
|---|---|
| Line 1 | Line 1 |
| /* | /* |
| * * | * $Id$ |
| * * * | |
| * * * | |
| * *************** | |
| * * * * * | |
| * * MUMPS * | |
| * * * * * | |
| * *************** | |
| * * * | |
| * * * | |
| * * | |
| * | |
| * errmsg.h | |
| * error message definitions | * error message definitions |
| * | * |
| * | * |
| * 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.5 2026/03/14 21:04:51 snw | |
| * Fix segfault in OPEN command with I/O channel specified but no file | |
| * | |
| * Revision 1.4 2025/05/20 16:20:42 snw | |
| * Update ROUTINE SSVN after ZEDIT and ZSAVE | |
| * | |
| * Revision 1.3 2025/03/09 19:14:24 snw | |
| * First phase of REUSE compliance and header reformat | |
| * | |
| * | |
| * SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC | |
| * SPDX-License-Identifier: AGPL-3.0-or-later | |
| **/ | **/ |
| int SIflag[MAXDEV + 1] = {1, 1, 1, 1, 1}; /* SI/SO flag */ | int SIflag[MAXDEV + 1] = {1, 1, 1, 1, 1}; /* SI/SO flag */ |
| Line 70 char errmes[MAXERR][ERRLEN] = { | Line 71 char errmes[MAXERR][ERRLEN] = { |
| "too many parameters\201", /* TOOPARA */ | "too many parameters\201", /* TOOPARA */ |
| "unit not open\201", /* NOPEN */ | "unit not open\201", /* NOPEN */ |
| "unit does not exist\201", /* NODEVICE */ | "unit does not exist\201", /* NODEVICE */ |
| "file protection violation\201",/* PROTECT */ | "current user lacks sufficient rank and station to access this file\201",/* PROTECT */ |
| "global not permitted\201", /* GLOBER */ | "global not permitted\201", /* GLOBER */ |
| "file not found\201", /* FILERR */ | "file not found\201", /* FILERR */ |
| "program overflow\201", /* PGMOV */ | "program overflow\201", /* PGMOV */ |
| Line 180 char errmes[MAXERR][ERRLEN] = { | Line 181 char errmes[MAXERR][ERRLEN] = { |
| " \201", | " \201", |
| " \201", | " \201", |
| " \201", | " \201", |
| "naked indicator undefined\201", /* 140 - M1 */ | "the naked indicator is, at the present moment, undefined\201", /* 140 - M1 */ |
| "invalid combination with $FNUMBER code atom\201", /* M2 */ | "invalid combination with $FNUMBER code atom\201", /* M2 */ |
| "$RANDOM seed less than 1\201", /* M3 */ | "$RANDOM seed less than 1\201", /* M3 */ |
| "no true condition in $SELECT\201", /* M4 */ | "the use of $SELECT without a true condition is quite illegal\201", /* M4 */ |
| "line reference less than zero\201", /* M5 */ | "line reference less than zero\201", /* M5 */ |
| "undefined local variable\201", /* M6 */ | "the local with which you have attempted to engage is not defined\201", /* M6 */ |
| "undefined global variable\201", /* M7 */ | "the global with which you have attempted to engage is not defined\201", /* M7 */ |
| "undefined intrinsic special variable\201", /* M8 */ | "the intrinsic special variable with which you have attempted to engage is not defined\201", /* M8 */ |
| "divide by zero\201", /* M9 */ | "one cannot divide by zero and expect a reasonable result\201", /* M9 */ |
| "invalid pattern match range\201", /* M10 */ | "the pattern match range herein atttempted is not valid\201", /* M10 */ |
| "no parameters passed\201", /* 150 - M11 */ | "no parameters have been passed\201", /* 150 - M11 */ |
| "invalid line reference (negative offset)\201", /* M12 */ | "invalid line reference (negative offset)\201", /* M12 */ |
| "invalid line reference (line not found)\201", /* M13 */ | "invalid line reference (line not found)\201", /* M13 */ |
| "line level not 1\201", /* M14 */ | "line level not 1\201", /* M14 */ |