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

Diff for /OpenXM_contrib2/asir2000/parse/eval.c between version 1.17 and 1.20

version 1.17, 2001/12/21 08:23:15 version 1.20, 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/eval.c,v 1.16 2001/10/09 01:36:24 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.19 2002/12/11 10:54:12 saito Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 54 
Line 54 
 #include "parse.h"  #include "parse.h"
 #include <sys/types.h>  #include <sys/types.h>
 #include <sys/stat.h>  #include <sys/stat.h>
 #if PARI  #if defined(PARI)
 #include "genpari.h"  #include "genpari.h"
 #endif  #endif
   
 extern jmp_buf timer_env;  extern JMP_BUF timer_env;
   
 int f_break,f_return,f_continue;  int f_break,f_return,f_continue;
 int evalstatline;  int evalstatline;
Line 182  pointer eval(FNODE f)
Line 182  pointer eval(FNODE f)
                                 expired = (Obj)eval((FNODE)FA2(f));                                  expired = (Obj)eval((FNODE)FA2(f));
                                 set_timer(interval);                                  set_timer(interval);
                                 savepvs();                                  savepvs();
                                 if ( !setjmp(timer_env) )                                  if ( !SETJMP(timer_env) )
                                         val = eval((FNODE)FA1(f));                                          val = eval((FNODE)FA1(f));
                                 else {                                  else {
                                         val = (pointer)expired;                                          val = (pointer)expired;
Line 350  pointer evalstat(SNODE f)
Line 350  pointer evalstat(SNODE f)
                 case S_BP:                  case S_BP:
                         if ( !nextbp && (!FA1(f) || eval((FNODE)FA1(f))) ) {                          if ( !nextbp && (!FA1(f) || eval((FNODE)FA1(f))) ) {
                                 if ( (FNODE)FA2(f) ) {                                  if ( (FNODE)FA2(f) ) {
 #if PARI  #if defined(PARI)
                                         pari_outfile = stderr;                                          pari_outfile = stderr;
 #endif  #endif
                                         asir_out = stderr;                                          asir_out = stderr;
                                         printexpr(CO,eval((FNODE)FA2(f)));                                          printexpr(CO,eval((FNODE)FA2(f)));
                                         putc('\n',asir_out); fflush(asir_out);                                          putc('\n',asir_out); fflush(asir_out);
 #if PARI  #if defined(PARI)
                                         pari_outfile = stdout;                                          pari_outfile = stdout;
 #endif  #endif
                                         asir_out = stdout;                                          asir_out = stdout;
Line 456  pointer evalf(FUNC f,FNODE a,FNODE opt)
Line 456  pointer evalf(FUNC f,FNODE a,FNODE opt)
         NODE tn,sn,opts,opt1;          NODE tn,sn,opts,opt1;
     VS pvs;      VS pvs;
         char errbuf[BUFSIZ];          char errbuf[BUFSIZ];
         static int stack_size;          static unsigned int stack_size;
         static void *stack_base;          static void *stack_base;
   
         if ( f->id == A_UNDEF ) {          if ( f->id == A_UNDEF ) {
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.20
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>