|
|
| version 1.1.1.1, 2025/01/19 02:04:04 | version 1.4, 2025/04/09 19:52:02 |
|---|---|
| Line 1 | Line 1 |
| /* | /* |
| * * | * $Id$ |
| * * * | |
| * * * | |
| * *************** | |
| * * * * * | |
| * * MUMPS * | |
| * * * * * | |
| * *************** | |
| * * * | |
| * * * | |
| * * | |
| * | |
| * objects.c | |
| * implementation of OO support | * implementation of OO support |
| * | * |
| * | * |
| * 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) 2023 Coherent Logic Development LLC | * Copyright (C) 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.4 2025/04/09 19:52:02 snw | |
| * Eliminate as many warnings as possible while building with -Wall | |
| * | |
| * Revision 1.3 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 | |
| **/ | **/ |
| #include <string.h> | #include <string.h> |
| #include <stdlib.h> | #include <stdlib.h> |
| Line 186 void obj_get_constructor(char *construct | Line 184 void obj_get_constructor(char *construct |
| freem_ref_t inref; | freem_ref_t inref; |
| freem_ref_t outref; | freem_ref_t outref; |
| register int i; | register int i; |
| int argct; | |
| argct = 0; | |
| mref_init (&inref, MREF_RT_GLOBAL, ""); | mref_init (&inref, MREF_RT_GLOBAL, ""); |
| internal_to_mref (&inref, class); | internal_to_mref (&inref, class); |
| Line 203 void obj_get_constructor(char *construct | Line 198 void obj_get_constructor(char *construct |
| strcpy (outref.subscripts[i + 1], inref.subscripts[i]); | strcpy (outref.subscripts[i + 1], inref.subscripts[i]); |
| } | } |
| // mref_to_internal_prealloc (constructor, &outref); | |
| mref_to_external (&outref, constructor); | mref_to_external (&outref, constructor); |
| return; | return; |