freem/src/routine.c - diff

Return to routine.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.4, 2025/03/27 03:27:35	version 1.6, 2025/04/13 04:22:43
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.6 2025/04/13 04:22:43 snw
	* Fix snprintf calls
	*
	* 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	* Revision 1.4 2025/03/27 03:27:35 snw
* Install init scripts to share/freem/examples/init and fix regression in method dispatch	* Install init scripts to share/freem/examples/init and fix regression in method dispatch
*	*
Line 256 short rtn_get_path(char rou, char buf)	Line 262 short rtn_get_path(char rou, char buf)
stcnv_m2c (pth);	stcnv_m2c (pth);
}	}

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

if ((fp = fopen (buf, "r")) != NULL) {	if ((fp = fopen (buf, "r")) != NULL) {
(void) fclose (fp);	(void) fclose (fp);
Line 313 m_entry rtn_get_entries(char rou)	Line 319 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;