freem/src/xecline.c - diff

Return to xecline.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.25, 2025/05/18 18:15:38	version 1.26, 2025/05/19 02:03:31
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.26 2025/05/19 02:03:31 snw
	* Reverse-engineer and document argumented ZPRINT (thanks to D. Wicksell)
	*
* Revision 1.25 2025/05/18 18:15:38 snw	* Revision 1.25 2025/05/18 18:15:38 snw
* Add ZEDIT command for editing routines	* Add ZEDIT command for editing routines
*	*
Line 5439 zgo:	Line 5442 zgo:
merr_raise (NOPGM);	merr_raise (NOPGM);

break;	break;
} /error /	} /* error */

stcpy (varnam, rou_name);	stcpy (varnam, rou_name);
}	}
Line 5575 zgo:	Line 5578 zgo:
if (codptr == EOL \|\| codptr == SP) {	if (codptr == EOL \|\| codptr == SP) {
merr_raise (ARGLIST);	merr_raise (ARGLIST);
break;	break;
} /error /	} /* error */

dosave[0] = EOL;	dosave[0] = EOL;

/* parse stringlit */	/* parse strlit */
expr (STRING);	expr (STRING);

if (merr () > OK) break;	if (merr () > OK) break;