version 1.2, 2025/02/28 20:06:07
|
version 1.5, 2025/03/09 19:14:24
|
Line 1
|
Line 1
|
/* |
/* |
* * |
* $Id$ |
* * * |
|
* * * |
|
* *************** |
|
* * * * * |
|
* * MUMPS * |
|
* * * * * |
|
* *************** |
|
* * * |
|
* * * |
|
* * |
|
* |
|
* expr.c |
|
* expression parser |
* expression parser |
* |
* |
* |
* |
* 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.5 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 |
**/ |
**/ |
|
|
#if !defined(__osf__) |
#if !defined(__osf__) |
Line 5543 errexfun:
|
Line 5538 errexfun:
|
|
|
/* $STORAGE */ |
/* $STORAGE */ |
case 's': |
case 's': |
snprintf (a, 255 , "%d\201", DEFPSIZE); |
snprintf (a, 255 , "%ld\201", DEFPSIZE); |
goto exec; |
goto exec; |
|
|
/* $WITH */ |
/* $WITH */ |