freem/src/routine.c - diff

Return to routine.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.3, 2025/03/09 19:50:47	version 1.4, 2025/03/27 03:27:35
Line 24	Line 24
* along with FreeM. If not, see <https://www.gnu.org/licenses/>.	* along with FreeM. If not, see <https://www.gnu.org/licenses/>.
*	*
* $Log$	* $Log$
	* 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	* Revision 1.3 2025/03/09 19:50:47 snw
* Second phase of REUSE compliance and header reformat	* Second phase of REUSE compliance and header reformat
*	*
Line 205 short rtn_get_superclass(char *rou, char	Line 208 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 248 short rtn_get_path(char rou, char buf)	Line 257 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);