Annotation of freem/src/objects.c, revision 1.3
1.1 snw 1: /*
1.3 ! snw 2: * $Id$
1.1 snw 3: * implementation of OO support
4: *
5: *
1.2 snw 6: * Author: Serena Willis <snw@coherent-logic.com>
1.1 snw 7: * Copyright (C) 1998 MUG Deutschland
1.3 ! snw 8: * Copyright (C) 2023, 2025 Coherent Logic Development LLC
1.1 snw 9: *
10: *
11: * This file is part of FreeM.
12: *
13: * FreeM is free software: you can redistribute it and/or modify
14: * it under the terms of the GNU Affero Public License as published by
15: * the Free Software Foundation, either version 3 of the License, or
16: * (at your option) any later version.
17: *
18: * FreeM is distributed in the hope that it will be useful,
19: * but WITHOUT ANY WARRANTY; without even the implied warranty of
20: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21: * GNU Affero Public License for more details.
22: *
23: * You should have received a copy of the GNU Affero Public License
24: * along with FreeM. If not, see <https://www.gnu.org/licenses/>.
25: *
1.3 ! snw 26: * $Log$
! 27: *
! 28: * SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC
! 29: * SPDX-License-Identifier: AGPL-3.0-or-later
1.1 snw 30: **/
31: #include <string.h>
32: #include <stdlib.h>
33: #include <stdio.h>
34: #include <unistd.h>
35: #include <ctype.h>
36:
37: #include "mpsdef.h"
38: #include "mref.h"
39: #include "objects.h"
40:
41: void obj_init(void)
42: {
43: register int i;
44:
45: for (i = 0; i < MAX_PRIVATE_KEYS; i++) {
46: private_keys[i][0] = EOL;
47: }
48: }
49:
50: short obj_is_field_private(char *key)
51: {
52: register int i;
53:
54: for (i = 0; i < MAX_PRIVATE_KEYS; i++) {
55: if (stcmp (private_keys[i], key) == 0) {
56: return TRUE;
57: }
58: }
59:
60: return FALSE;
61: }
62:
63: void obj_set_field_private(char *key)
64: {
65: register int i;
66:
67: if (obj_is_field_private (key) == TRUE) return;
68:
69: for (i = 0; i < MAX_PRIVATE_KEYS; i++) {
70: if (private_keys[i][0] == EOL) {
71: stcpy (private_keys[i], key);
72: return;
73: }
74: }
75:
76: merr_raise (OBJPRIVOVFL);
77: return;
78: }
79:
80: void obj_set_field_public(char *key)
81: {
82: register int i;
83:
84: for (i = 0; i < MAX_PRIVATE_KEYS; i++) {
85: if (stcmp (private_keys[i], key) == 0) {
86: private_keys[i][0] = EOL;
87: return;
88: }
89: }
90: }
91:
92: short obj_is_object(char *inst)
93: {
94: char t_buf[255];
95:
96: return obj_get_attribute (inst, "CLASS", t_buf);
97: }
98:
99: short obj_instance_of(char *inst, char *class)
100: {
101: char t_buf[255];
102: short res;
103:
104: res = obj_get_attribute (inst, "CLASS", t_buf);
105:
106: if ((res == FALSE) || (strcmp (t_buf, class) != 0)) {
107: return FALSE;
108: }
109:
110: return TRUE;
111: }
112:
113: void obj_set_attribute(char *inst, char *attrib, char *value)
114: {
115: char t_key[255];
116: char t_data[255];
117:
118: snprintf (t_key, 254, "^$OBJECT\202%s\202%s\201", inst, attrib);
119: snprintf (t_data, 254, "%s\201", value);
120:
121: symtab_bltin (set_sym, t_key, t_data);
122: }
123:
124: short obj_get_attribute(char *inst, char *attrib, char *buf)
125: {
126: char t_key[255];
127:
128: snprintf (t_key, 254, "^$OBJECT\202%s\202%s\201", inst, attrib);
129:
130: symtab_bltin (get_sym, t_key, buf);
131:
132: if (merr () == UNDEF || merr () == M6) {
133:
134: if (strcmp (attrib, "CLASS") == 0) {
135: // non-object variables always belong to the ^%STRING class
136: snprintf (buf, 9, "^%%STRING");
137:
138: merr_clear ();
139: return TRUE;
140:
141: }
142: else {
143: merr_clear ();
144: return FALSE;
145: }
146: }
147: else {
148: stcnv_m2c (buf);
149: return TRUE;
150: }
151:
152: }
153:
154: void obj_destroy(char *inst)
155: {
156: char t_key[255];
157:
158: snprintf (t_key, 254, "^$OBJECT\202\%s\201", inst);
159: symtab_bltin (kill_sym, t_key, " \201");
160: }
161:
162: void obj_create_symbols(char *objvar, char *class)
163: {
164: char t_key[255];
165: char t_data[255];
166:
167: snprintf (t_key, 254, "%s\201", objvar);
168: snprintf (t_data, 254, " \201");
169:
170: symtab_bltin (set_sym, t_key, t_data);
171:
172: obj_set_attribute (objvar, "CLASS", class);
173:
174: }
175:
176: void obj_get_constructor(char *constructor, char *class, char *instvar)
177: {
178: freem_ref_t inref;
179: freem_ref_t outref;
180: register int i;
181: int argct;
182:
183: argct = 0;
184:
185: mref_init (&inref, MREF_RT_GLOBAL, "");
186: internal_to_mref (&inref, class);
187: mref_init (&outref, MREF_RT_GLOBAL, inref.name);
188:
189: strcpy (outref.name, inref.name);
190: outref.subscript_count = inref.subscript_count + 1;
191:
192: snprintf (outref.subscripts[0], 255, ".%s", instvar);
193:
194: for (i = 0; i < inref.subscript_count; i++) {
195: strcpy (outref.subscripts[i + 1], inref.subscripts[i]);
196: }
197:
198: // mref_to_internal_prealloc (constructor, &outref);
199: mref_to_external (&outref, constructor);
200: return;
201:
202: /*
203: for (i = 0; i < stlen (constructor); i++) {
204:
205: switch (constructor[i]) {
206: case '\202':
207: if (argct == 0) {
208: constructor[i] = '(';
209: argct++;
210: }
211: else {
212: constructor[i] = ',';
213: argct++;
214: }
215: break;
216: case '\201':
217: constructor[i] = ')';
218: }
219:
220: }
221: constructor[i] = ')';
222:
223: if (argct > 1) ierr = ARGLIST;
224: */
225: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to objects.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src