freem/src/xecline.c - diff

Return to xecline.c CVS log

Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/xecline.c between versions 1.16 and 1.18

version 1.16, 2025/04/28 14:52:54	version 1.18, 2025/04/29 18:46:17
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.18 2025/04/29 18:46:17 snw
	* Begin work on interactive debugger
	*
	* Revision 1.17 2025/04/28 19:38:55 snw
	* Add trace mode
	*
* Revision 1.16 2025/04/28 14:52:54 snw	* Revision 1.16 2025/04/28 14:52:54 snw
* Temporarily revert global handler refactor and fix reference regression in xecline	* Temporarily revert global handler refactor and fix reference regression in xecline
*	*
Line 172 int xecline(int typ)	Line 178 int xecline(int typ)
unsigned long jobtime;	unsigned long jobtime;
char label[256], routine[256];	char label[256], routine[256];

	char tracestr[512];

char *vn;	char *vn;
char *an;	char *an;
char *tmp;	char *tmp;
Line 235 int xecline(int typ)	Line 243 int xecline(int typ)

next_line: /* entry point for next command line */	next_line: /* entry point for next command line */

	if (debug_mode) {
	debug_mode = debugger ();
	}

job_set_status (pid, JSTAT_INTERPRETER);	job_set_status (pid, JSTAT_INTERPRETER);

Line 854 again:	Line 865 again:
}	}
}	}

	if (trace_mode) tracestr[0] = '\0';

switch (mcmnd) {	switch (mcmnd) {

case MAP:	case MAP:
Line 2367 s_end:	Line 2380 s_end:

case QUIT:	case QUIT:

	if (trace_mode) {
	fprintf (stderr, ">> TRACE: $STACK = %d QUIT CMD = %c\r\n", nstx, nestc[nstx]);
	}

if (tp_level > 0) {	if (tp_level > 0) {
merr_raise (M42);	merr_raise (M42);
goto err;	goto err;
Line 2396 s_end:	Line 2413 s_end:
if (nestc[nstx] == '$') { /* extrinsic function/variable */	if (nestc[nstx] == '$') { /* extrinsic function/variable */


	if (trace_mode) {
	fprintf (stderr, ">> TRACE: QUIT FROM EXTRINSIC\r\n");
	}

#ifdef DEBUG_NEWSTACK	#ifdef DEBUG_NEWSTACK
printf ("EXTRINSIC\r\n");	printf ("EXTRINSIC\r\n");
#endif	#endif
Line 2425 s_end:	Line 2446 s_end:
else {	else {

expr (STRING);	expr (STRING);

	if (trace_mode) {
	fprintf (stderr, ">> TRACE: QUIT FROM SUBROUTINE\r\n");
	}

if (ierr != OK - CTRLB && merr () != OK && merr () != INRPT) {	if (ierr != OK - CTRLB && merr () != OK && merr () != INRPT) {

Line 3061 do_xecute:	Line 3086 do_xecute:

do_goto:	do_goto:

	if (trace_mode) {
	char rn[256];
	stcpy (rn, rou_name);
	stcnv_m2c (rn);

	switch (mcmnd) {
	case DO:
	snprintf (tracestr, sizeof (tracestr) - 1, "rtn = %s $stack = %d do ", rn, nstx);
	break;
	case GOTO:
	snprintf (tracestr, sizeof (tracestr) - 1, "rtn = %s $stack = %d goto ", rn, nstx);
	break;
	}
	}

offset = 0;	offset = 0;
label[0] = routine[0] = EOL;	label[0] = routine[0] = EOL;
dofram0 = 0;	dofram0 = 0;
Line 3095 do_goto:	Line 3135 do_goto:

stcpy (label, varnam);	stcpy (label, varnam);

	if (trace_mode) {
	char ttt[256];
	stcpy (ttt, label);
	stcnv_m2c (ttt);

	strcat (tracestr, ttt);
	}

ch = *++codptr;	ch = *++codptr;
}	}

Line 3110 do_goto:	Line 3158 do_goto:

/* unless argument is numeric, expr returns wrong codptr */	/* unless argument is numeric, expr returns wrong codptr */
if ((ch = codptr) != SP && (ch != EOL) && (ch != ',') && (ch != '^')) ch = ++codptr;	if ((ch = codptr) != SP && (ch != EOL) && (ch != ',') && (ch != '^')) ch = ++codptr;

	if (trace_mode) {
	char ttt[256];
	snprintf (ttt, 255, "+%d", offset);
	strcat (tracestr, ttt);
	}
}	}

if (ch == '^') { /* parse routine */	if (ch == '^') { /* parse routine */
Line 3120 do_goto:	Line 3173 do_goto:
if (merr () > OK) goto err;	if (merr () > OK) goto err;

stcpy (routine, varnam);	stcpy (routine, varnam);

	if (trace_mode) {
	char ttt[256];
	char ttx[256];

	stcpy (ttt, routine);
	stcnv_m2c (ttt);
	snprintf (ttx, 255, "^%s", ttt);
	strcat (tracestr, ttx);
	}

dosave[0] = EOL;	dosave[0] = EOL;
ch = *++codptr;	ch = *++codptr;
loadsw = TRUE;	loadsw = TRUE;
}	}

	if (trace_mode) {
	fprintf (stderr, ">> TRACE: %s\r\n", tracestr);
	}

if (ch == '(' && mcmnd == DO) { /* parse parameter */	if (ch == '(' && mcmnd == DO) { /* parse parameter */

if (offset) {	if (offset) {
Line 5082 open_socket:	Line 5149 open_socket:
expr (STRING);	expr (STRING);
if (merr () > OK) break;	if (merr () > OK) break;

switch (intexpr (argptr)) {	{
	char brkstr[256];
case 2:
DSM2err = TRUE;	stcpy (brkstr, argptr);
break; /* enable DSM V 2 error processing */	stcnv_m2c (brkstr);

case -2:	if (strcmp (brkstr, "DEBUG") == 0) {
DSM2err = FALSE;	debug_mode = TRUE;
break; /* enable normal error processing */	}
	else {
case 0:	switch (intexpr (argptr)) {
breakon = FALSE;
break; /* disable CTRL/C */	case 2:
	DSM2err = TRUE;
default:	break; /* enable DSM V 2 error processing */
breakon = TRUE;
break; /* enable CTRL/C */	case -2:
	DSM2err = FALSE;
	break; /* enable normal error processing */

	case 0:
	breakon = FALSE;
	break; /* disable CTRL/C */

	default:
	breakon = TRUE;
	break; /* enable CTRL/C */
	}
	}
}	}

break;	break;

case VIEW:	case VIEW:
Line 7228 direct_mode:	Line 7308 direct_mode:
}	}

}	}
else if (strcmp (fmrl_buf, "step") == 0) {
debug_mode = TRUE;
goto zgo;
}
else if ((strcmp (fmrl_buf, "cont") == 0) \|\| (strcmp (fmrl_buf, "continue") == 0)) {
debug_mode = FALSE;
}
else if (strcmp (fmrl_buf, "rbuf") == 0) {	else if (strcmp (fmrl_buf, "rbuf") == 0) {
rbuf_dump ();	rbuf_dump ();
}	}

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

Removed from v.1.16
changed lines
	Added in v.1.18