freem/src/expr.c - diff

Return to expr.c CVS log

Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/expr.c between versions 1.13 and 1.19

version 1.13, 2025/04/13 04:22:43	version 1.19, 2026/01/16 20:31:56
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.19 2026/01/16 20:31:56 snw
	* Fix LBLUNDEF error on reverse $QUERY
	*
	* Revision 1.18 2025/05/02 16:30:16 snw
	* Fix broken build due to time issues
	*
	* Revision 1.17 2025/05/01 03:56:29 snw
	* -m
	*
	* Revision 1.16 2025/04/30 20:03:09 snw
	* Work on entryref parser
	*
	* Revision 1.15 2025/04/30 14:41:03 snw
	* Further debugger work
	*
	* Revision 1.14 2025/04/14 23:20:23 snw
	* Restore support for any 8-bit character in
	*
* Revision 1.13 2025/04/13 04:22:43 snw	* Revision 1.13 2025/04/13 04:22:43 snw
* Fix snprintf calls	* Fix snprintf calls
*	*
Line 153	Line 171
#define GET 'Y'	#define GET 'Y'
#define GETX ':'	#define GETX ':'

#if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) && !defined(__OS2__)	#if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) && !defined(__OS2__) && !defined(__linux__)
long time ();	long time ();
#endif	#endif
void cond_round (char *a, int digits);	void cond_round (char *a, int digits);
Line 1688 uparrow:	Line 1706 uparrow:
case 'c': /* $CHARACTER */	case 'c': /* $CHARACTER */

{	{
char chrtmp[256];
long pnum;
short l, l1, m, n;	short l, l1, m, n;

l1 = f;	l1 = f;
Line 1700 uparrow:	Line 1716 uparrow:
n = 1;	n = 1;
l = 0;	l = 0;

stcpy (chrtmp, a);
stcnv_m2c (chrtmp);
pnum = atol (chrtmp);

if (pnum > 127) {
merr_raise (MXNUM);
return;
}

for (;;) {	for (;;) {

Line 2321 f20:	Line 2329 f20:

/* set up for calling into polyfill wrapper */	/* set up for calling into polyfill wrapper */
code[0] = '\201';	code[0] = '\201';
stcpy (code, "$^%ZREVQRY\201");	stcpy (code, "$%ZREVQRY^%ZREVQRY\201");

codptr = code;	codptr = code;

Line 2992 f20:	Line 3000 f20:
long l1, rouoldc;	long l1, rouoldc;
short reload = FALSE;	short reload = FALSE;

	/*
	printf ("a = %s f = %d arg = %d\r\n", a, f, arg);
	for (i = arg; i < arg + f; i++) {
	printf ("argstck[%d] = '%s'\r\n", i, argstck[i]);
	}

	for (i = 0; i < strlen (a); i++)
	printf ("%c = %d\r\n", a[i], (unsigned char) a[i]);
	*/

if (f > 3) {	if (f > 3) {
merr_raise (FUNARG);	merr_raise (FUNARG);
return;	return;

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

Removed from v.1.13
changed lines
	Added in v.1.19