version 1.12, 2003/02/14 22:29:18 |
version 1.15, 2003/05/14 07:08:48 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.11 2001/12/25 02:39:06 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.14 2003/03/07 06:39:59 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 234 void debug(SNODE f) |
|
Line 234 void debug(SNODE f) |
|
sprintf(prompt,"(debug) "); |
sprintf(prompt,"(debug) "); |
SETJMP(debug_env); |
SETJMP(debug_env); |
while ( 1 ) { |
while ( 1 ) { |
#if defined(FEP) |
#if FEP |
if ( !do_fep ) |
if ( !do_fep ) |
#endif |
#endif |
if ( !do_server_in_X11 ) |
if ( !do_server_in_X11 ) |
fputs(prompt,stderr); |
fputs(prompt,stderr); |
bzero(buf,BUFSIZ); |
bzero(buf,BUFSIZ); |
while ( 1 ) { |
while ( 1 ) { |
#if defined(FEP) |
#if FEP |
if ( do_fep ) { |
if ( do_fep ) { |
line = (char *)readline_console(prompt); |
line = (char *)readline_console(prompt); |
strcpy(buf,line); free(line); |
strcpy(buf,line); free(line); |
Line 355 void setf(int ac,char **av) |
|
Line 355 void setf(int ac,char **av) |
|
|
|
if ( !ac ) |
if ( !ac ) |
return; |
return; |
searchf(usrf,av[0],&r); |
searchuf(av[0],&r); |
if ( r ) { |
if ( r ) { |
targetf = r; |
targetf = r; |
curline = targetf->f.usrf->startl; |
curline = targetf->f.usrf->startl; |
Line 381 void setbp(char *p) |
|
Line 381 void setbp(char *p) |
|
char *buf,*savp; |
char *buf,*savp; |
char *fname; |
char *fname; |
FUNC r; |
FUNC r; |
USRF t; |
USRF uf,t; |
SNODE *snp = 0; |
SNODE *snp = 0; |
FNODE cond; |
FNODE cond; |
NODE tn; |
NODE tn; |
Line 393 void setbp(char *p) |
|
Line 393 void setbp(char *p) |
|
if ( !strcmp(av[0],"at") ) { |
if ( !strcmp(av[0],"at") ) { |
if ( !targetf ) |
if ( !targetf ) |
return; |
return; |
n = atoi(av[1]); fname = targetf->f.usrf->fname; |
n = atoi(av[1]); |
for ( tn = usrf; tn; tn = NEXT(tn) ) { |
uf = targetf->f.usrf; |
|
fname = uf->fname; |
|
tn = uf->module?uf->module->usrf_list:usrf; |
|
for ( ; tn; tn = NEXT(tn) ) { |
r = (FUNC)BDY(tn); t = r->f.usrf; |
r = (FUNC)BDY(tn); t = r->f.usrf; |
if ( t && t->fname && !strcmp(t->fname,fname) |
if ( t && t->fname && !strcmp(t->fname,fname) |
&& ( t->startl <= n ) && ( n <= t->endl ) ) |
&& ( t->startl <= n ) && ( n <= t->endl ) ) |
Line 408 void setbp(char *p) |
|
Line 411 void setbp(char *p) |
|
} |
} |
at = 1; searchsn(&BDY(t),n,&snp); |
at = 1; searchsn(&BDY(t),n,&snp); |
} else if ( !strcmp(av[0],"in") ) { |
} else if ( !strcmp(av[0],"in") ) { |
searchf(usrf,av[1],&r); |
searchuf(av[1],&r); |
if ( !r ) { |
if ( !r ) { |
fprintf(stderr,"%s() : no such function\n",av[1]); |
fprintf(stderr,"%s() : no such function\n",av[1]); |
return; |
return; |
Line 494 void settp(char *p) |
|
Line 497 void settp(char *p) |
|
} |
} |
at = 1; searchsn(&BDY(t),n,&snp); |
at = 1; searchsn(&BDY(t),n,&snp); |
} else if ( !strcmp(av[0],"in") ) { |
} else if ( !strcmp(av[0],"in") ) { |
searchf(usrf,av[1],&r); |
searchuf(av[1],&r); |
if ( !r ) { |
if ( !r ) { |
fprintf(stderr,"%s() : no such function\n",av[1]); |
fprintf(stderr,"%s() : no such function\n",av[1]); |
return; |
return; |
Line 719 void println(int ac,char **av,int l) |
|
Line 722 void println(int ac,char **av,int l) |
|
else if ( isdigit(av[0][0]) ) |
else if ( isdigit(av[0][0]) ) |
ln = atoi(av[0]); |
ln = atoi(av[0]); |
else { |
else { |
searchf(usrf,av[0],&r); |
searchuf(av[0],&r); |
if ( r && r->id != A_UNDEF ) { |
if ( r && r->id != A_UNDEF ) { |
targetf = r; |
targetf = r; |
ln = r->f.usrf->startl; |
ln = r->f.usrf->startl; |