|
|
| version 1.1, 2025/01/19 02:04:04 | 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 137 | Line 132 |
| #if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) | #if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) |
| long time (); | long time (); |
| #endif | #endif |
| void cond_round (char *a, int digits); | |
| void cond_round (); | void zkey (char *a, long type); |
| void zdate (); | int levenshtein (char *word1, char *word2); |
| void zkey (); | |
| void ztime (); | |
| int levenshtein (); | |
| time_t horolog_to_unix (char *horo); | time_t horolog_to_unix (char *horo); |
| extern int xecline(int typ); | extern int xecline(int typ); |
| short rbuf_slot_from_name(char *); | short rbuf_slot_from_name(char *); |
| Line 5546 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 */ |