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; |
|
|