[BACK]Return to debug.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/debug.c between version 1.10 and 1.12

version 1.10, 2001/10/09 01:36:23 version 1.12, 2003/02/14 22:29:18
Line 45 
Line 45 
  * 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.9 2001/10/05 03:21:27 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.11 2001/12/25 02:39:06 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
 #include <ctype.h>  #include <ctype.h>
 #if PARI  #if defined(PARI)
 #include "genpari.h"  #include "genpari.h"
 #endif  #endif
   
Line 78  static int curline = 1;
Line 78  static int curline = 1;
 extern NODE PVSS;  extern NODE PVSS;
 extern unsigned int evalstatline;  extern unsigned int evalstatline;
 extern int debug_mode;  extern int debug_mode;
 extern jmp_buf debug_env;  extern JMP_BUF debug_env;
   
 char *debcom[] = {  char *debcom[] = {
         "next",          "next",
Line 216  void debug(SNODE f)
Line 216  void debug(SNODE f)
         extern int do_fep;          extern int do_fep;
         NODE pvss;          NODE pvss;
   
 #if !MPI && !defined(VISUAL)  #if !defined(MPI) && !defined(VISUAL)
         if ( !isatty(fileno(stdin)) && !do_server_in_X11 )          if ( !isatty(fileno(stdin)) && !do_server_in_X11 )
                 if ( do_file )                  if ( do_file )
                         ExitAsir();                          ExitAsir();
Line 232  void debug(SNODE f)
Line 232  void debug(SNODE f)
 #endif  #endif
                 show_debug_window(1);                  show_debug_window(1);
         sprintf(prompt,"(debug) ");          sprintf(prompt,"(debug) ");
         setjmp(debug_env);          SETJMP(debug_env);
         while ( 1 ) {          while ( 1 ) {
 #if FEP  #if defined(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 FEP  #if defined(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 700  void bp(SNODE f)
Line 700  void bp(SNODE f)
                 CPVS->usrf->name,ln,CPVS->usrf->f.usrf->fname);                  CPVS->usrf->name,ln,CPVS->usrf->f.usrf->fname);
         targetf = CPVS->usrf; curline = ln;          targetf = CPVS->usrf; curline = ln;
         println(0,0,1);          println(0,0,1);
 #if !MPI && !defined(VISUAL)  #if !defined(MPI) && !defined(VISUAL)
         if ( do_server_in_X11 || isatty(0) )          if ( do_server_in_X11 || isatty(0) )
 #endif  #endif
                 debug(f);                  debug(f);
Line 761  void printvars(char *s,VS vs)
Line 761  void printvars(char *s,VS vs)
                 }                  }
         if ( exprparse(vs==GPVS?0:vs->usrf,s,&expr) ) {          if ( exprparse(vs==GPVS?0:vs->usrf,s,&expr) ) {
                 cpvs = CPVS; CPVS = vs;                  cpvs = CPVS; CPVS = vs;
                 if ( !(err = setjmp(debug_env)) )                  if ( !(err = SETJMP(debug_env)) )
                         val = eval(expr);                          val = eval(expr);
                 CPVS = cpvs;                  CPVS = cpvs;
                 if ( !err ) {                  if ( !err ) {
 #if PARI  #if defined(PARI)
 #if PARI1  #if defined(PARI1)
                         outfile = stderr;                          outfile = stderr;
 #else  #else
                         pari_outfile = stderr;                          pari_outfile = stderr;
Line 784  void printvars(char *s,VS vs)
Line 784  void printvars(char *s,VS vs)
 #if defined(VISUAL_LIB)  #if defined(VISUAL_LIB)
                         w_noflush_stderr(0);                          w_noflush_stderr(0);
 #endif  #endif
 #if PARI  #if defined(PARI)
 #if PARI1  #if defined(PARI1)
                         outfile = stdout;                          outfile = stdout;
 #else  #else
                         pari_outfile = stdout;                          pari_outfile = stdout;
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>