freem/src/routine.c - diff

Return to routine.c CVS log

Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/routine.c between versions 1.1.1.1 and 1.5

version 1.1.1.1, 2025/01/19 02:04:04	version 1.5, 2025/04/09 19:52:02
Line 1	Line 1
/*	/*
* *	* $Id$
* * *
* * *
* ***************
* * * * *
* * MUMPS *
* * * * *
* ***************
* * *
* * *
* *
*
* routine.c
* Routine buffer management	* Routine buffer management
*	*
*	*
* 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.5 2025/04/09 19:52:02 snw
	* Eliminate as many warnings as possible while building with -Wall
	*
	* 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 210 short rtn_get_superclass(char *rou, char	Line 211 short rtn_get_superclass(char *rou, char

if (ch == ')') after_parens = TRUE;	if (ch == ')') after_parens = TRUE;

	/* ignore comments in search for superclass */
	if (ch == ';' && after_parens == TRUE) {
	found_super = FALSE;
	break;
	}

if (ch == ':' && after_parens == TRUE) {	if (ch == ':' && after_parens == TRUE) {
strcpy (buf, p);	strcpy (buf, p);
found_super = TRUE;	found_super = TRUE;
Line 253 short rtn_get_path(char rou, char buf)	Line 260 short rtn_get_path(char rou, char buf)
}	}

snprintf (buf, PATHLEN, "%s/%s.m", pth, rou);	snprintf (buf, PATHLEN, "%s/%s.m", pth, rou);

if ((fp = fopen (buf, "r")) != NULL) {	if ((fp = fopen (buf, "r")) != NULL) {
(void) fclose (fp);	(void) fclose (fp);

Line 309 m_entry rtn_get_entries(char rou)	Line 316 m_entry rtn_get_entries(char rou)
char cur_label[255];	char cur_label[255];
int has_args = 0;	int has_args = 0;
char *paren_pos;	char *paren_pos;
char *curarg;

if (rtn_get_path (rou, rou_path) == FALSE) {	if (rtn_get_path (rou, rou_path) == FALSE) {
return (m_entry *) NULL;	return (m_entry *) NULL;

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

Removed from v.1.1.1.1
changed lines
	Added in v.1.5