freem/src/expr.c - diff

Return to expr.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.5, 2025/03/09 19:14:24	version 1.6, 2025/03/22 03:05:19
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/03/22 03:05:19 snw
	* Comply with X11-96/13 portable length of names
	*
* Revision 1.5 2025/03/09 19:14:24 snw	* Revision 1.5 2025/03/09 19:14:24 snw
* First phase of REUSE compliance and header reformat	* First phase of REUSE compliance and header reformat
*	*
Line 173 void expr (short extyp)	Line 176 void expr (short extyp)
volatile int ch = 0;	volatile int ch = 0;

short group; /* flag to scan grouped patterns */	short group; /* flag to scan grouped patterns */

	int max_namlen = 255;

	if ((rtn_dialect () == D_MDS) \|\| (rtn_dialect () == D_M5) \|\| (rtn_dialect () == D_FREEM)) {
	max_namlen = 255;
	}
	else {
	max_namlen = 8;
	}

#ifdef DEBUG_NEWPTR	#ifdef DEBUG_NEWPTR
int loop;	int loop;
Line 201 void expr (short extyp)	Line 213 void expr (short extyp)
(((ch == '/' && varnam[i - 1] != '/') \|\|	(((ch == '/' && varnam[i - 1] != '/') \|\|
(ch == '%' && varnam[i - 1] == '/')) &&	(ch == '%' && varnam[i - 1] == '/')) &&
(varnam[1] == '.' \|\| varnam[1] == '/'))))) \|\| (f != '^') && (ch == '.')) {	(varnam[1] == '.' \|\| varnam[1] == '/'))))) \|\| (f != '^') && (ch == '.')) {

varnam[i++] = ch;

	if ((i + 1) <= max_namlen) {
	varnam[i++] = ch;
	}
	else {
	merr_raise (M56);
	return;
	}

}	}