freem/src/xecline.c - diff

Return to xecline.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.24, 2025/05/14 12:22:04	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
	* Add ZEDIT command for editing routines
	*
* Revision 1.24 2025/05/14 12:22:04 snw	* Revision 1.24 2025/05/14 12:22:04 snw
* Further work on shared memory	* Further work on shared memory
*	*
Line 5292 halt:	Line 5298 halt:
break;	break;

/* Z-COMMANDS */	/* Z-COMMANDS */
	case ZEDIT:
	merr_raise (cmd_zedit (&ra));
	MRESCHECK(ra);
	break;

case ZGO:	case ZGO:

/* ZGO with arguments: same as GOTO but with BREAK on */	/* ZGO with arguments: same as GOTO but with BREAK on */
Line 5431 zgo:	Line 5442 zgo:
merr_raise (NOPGM);	merr_raise (NOPGM);

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

stcpy (varnam, rou_name);	stcpy (varnam, rou_name);
}	}
Line 5567 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;