freem/src/operator.c - diff

Return to operator.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.10, 2025/05/05 23:02:39	version 1.11, 2025/05/05 23:09: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.11 2025/05/05 23:09:19 snw
	* Revert errors in E notation parsing
	*
* Revision 1.10 2025/05/05 23:02:39 snw	* Revision 1.10 2025/05/05 23:02:39 snw
* More fixes around E notation	* More fixes around E notation
*	*
Line 1983 int numlit (char *str)	Line 1986 int numlit (char *str)
}	}
continue;	continue;
}	}
if (expflg) {	if (expflg) {
if (ch == MINUS) {	if (ch == MINUS) {
	/* TODO: revisit this; it breaks string coercion
if (str[i + 1] == '-') {	if (str[i + 1] == '-') {
merr_raise (INVEXPR);	merr_raise (INVEXPR);
return (0);	return (0);
Line 1993 int numlit (char *str)	Line 1997 int numlit (char *str)
merr_raise (INVEXPR);	merr_raise (INVEXPR);
return (0);	return (0);
}	}
	*/
expflg = (-expflg);	expflg = (-expflg);
continue;	continue;
}	}
if (ch == PLUS) {	if (ch == PLUS) {
	/* TODO: revisit this; it breaks string coercion
if (str[i + 1] == '+') {	if (str[i + 1] == '+') {
merr_raise (INVEXPR);	merr_raise (INVEXPR);
return (0);	return (0);
Line 2005 int numlit (char *str)	Line 2011 int numlit (char *str)
merr_raise (INVEXPR);	merr_raise (INVEXPR);
return (0);	return (0);
}	}
	*/
continue;	continue;
}	}
}	}