freem/src/symtab_dispatch.c - diff

Return to symtab_dispatch.c CVS log

Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/symtab_dispatch.c between versions 1.2 and 1.7

version 1.2, 2025/03/09 15:20:18	version 1.7, 2025/04/28 19:38:55
Line 1	Line 1
/*	/*
* *	* $Id$
* * *
* * *
* ***************
* * * * *
* * MUMPS *
* * * * *
* ***************
* * *
* * *
* *
*
* symtab_dispatch.c
* symbol table dispatch module	* symbol table dispatch module
*	*
*	*
* Author: Serena Willis <snw@coherent-logic.com>	* Author: Serena Willis <snw@coherent-logic.com>
* Copyright (C) 1998 MUG Deutschland	* Copyright (C) 1998 MUG Deutschland
* Copyright (C) 2020 Coherent Logic Development LLC	* Copyright (C) 2020, 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.7 2025/04/28 19:38:55 snw
	* Add trace mode
	*
	* Revision 1.6 2025/04/28 14:52:54 snw
	* Temporarily revert global handler refactor and fix reference regression in xecline
	*
	* Revision 1.5 2025/04/13 04:22:43 snw
	* Fix snprintf calls
	*
	* Revision 1.4 2025/03/27 03:27:35 snw
	* Install init scripts to share/freem/examples/init and fix regression in method dispatch
	*
	* 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>
Line 60 void symtab (short action, char *key, ch	Line 67 void symtab (short action, char *key, ch
mref_init (r, MREF_RT_LOCAL, "");	mref_init (r, MREF_RT_LOCAL, "");
internal_to_mref (r, key);	internal_to_mref (r, key);

	/*
res = obj_is_object (r->name);	res = obj_is_object (r->name);

if (res == TRUE) {	if (res == TRUE) {
Line 75 void symtab (short action, char *key, ch	Line 83 void symtab (short action, char *key, ch

if (r->subscript_count == 0 && action == kill_sym) {	if (r->subscript_count == 0 && action == kill_sym) {

if (destructor_ct < 10) {	if (destructor_ct < 10) {
snprintf (destructors[destructor_ct++], 50, "DESTROY^%%SYSOOP(\"%s\",.%s)", t_cls, r->name);	snprintf (destructors[destructor_ct++], OBJ_DSTRSIZE - 1, "DESTROY^%%SYSOOP(\"%s\",.%s)", t_cls, r->name);
}	}

obj_destroy (key);	obj_destroy (key);

}	}

}	}
	*/

if (action != fra_order && action != fra_query) {	if (action != fra_order && action != fra_query) {
for (i = 0; i < r->subscript_count; i++) {	for (i = 0; i < r->subscript_count; i++) {
Line 112 void symtab (short action, char *key, ch	Line 121 void symtab (short action, char *key, ch
}	}

}	}

symtab_bltin (action, key, data);	symtab_bltin (action, key, data);

}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.7