[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.34 and 1.43

version 1.34, 2004/06/21 09:05:16 version 1.43, 2005/09/14 02:48:38
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.33 2004/05/14 09:20:57 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.42 2005/09/13 06:54:22 noro Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 64  int f_break,f_return,f_continue;
Line 64  int f_break,f_return,f_continue;
 int evalstatline;  int evalstatline;
 int recv_intr;  int recv_intr;
 int show_crossref;  int show_crossref;
   void gen_searchf_searchonly(char *name,FUNC *r);
   
 pointer eval(FNODE f)  pointer eval(FNODE f)
 {  {
Line 71  pointer eval(FNODE f)
Line 72  pointer eval(FNODE f)
         STRING str;          STRING str;
         pointer val = 0;          pointer val = 0;
         pointer a,a1,a2;          pointer a,a1,a2;
         NODE tn,ind;          NODE tn,ind,match;
         R u;          R u;
         DP dp;          DP dp;
         unsigned int pv;          unsigned int pv;
         int c;          int c,ret;
         FNODE f1;          FNODE f1;
         UP2 up2;          UP2 up2;
         UP up;          UP up;
Line 85  pointer eval(FNODE f)
Line 86  pointer eval(FNODE f)
         GFPN gfpn;          GFPN gfpn;
         GFSN gfsn;          GFSN gfsn;
         RANGE range;          RANGE range;
           QUOTE expr,pattern;
   
 #if defined(VISUAL)  #if defined(VISUAL)
         if ( recv_intr ) {          if ( recv_intr ) {
Line 223  pointer eval(FNODE f)
Line 225  pointer eval(FNODE f)
                                 error("-- : not implemented yet");                                  error("-- : not implemented yet");
                         break;                          break;
                 case I_PVAR:                  case I_PVAR:
                         pv = (unsigned int)FA0(f); ind = (NODE)FA1(f); GETPV(pv,a);                          pv = (unsigned int)FA0(f);
                           ind = (NODE)FA1(f);
                           GETPV(pv,a);
                         if ( !ind )                          if ( !ind )
                                 val = a;                                  val = a;
                         else {                          else {
Line 306  pointer eval(FNODE f)
Line 310  pointer eval(FNODE f)
                                 MKLIST(t,NEXT(BDY((LIST)a))); val = (pointer)t;                                  MKLIST(t,NEXT(BDY((LIST)a))); val = (pointer)t;
                         }                          }
                         break;                          break;
                 case I_PROC:  
                         val = (pointer)FA0(f); break;  
                 case I_INDEX:                  case I_INDEX:
                         a = eval((FNODE)FA0(f)); ind = (NODE)FA1(f);                          a = eval((FNODE)FA0(f)); ind = (NODE)FA1(f);
                         evalnodebody(ind,&tn); getarray(a,tn,&val);                          evalnodebody(ind,&tn); getarray(a,tn,&val);
Line 332  pointer eval(FNODE f)
Line 334  pointer eval(FNODE f)
         return ( val );          return ( val );
 }  }
   
   V searchvar(char *name);
   
 pointer evalstat(SNODE f)  pointer evalstat(SNODE f)
 {  {
         pointer val = 0,t,s,s1;          pointer val = 0,t,s,s1;
         P u;          P u;
         NODE tn;          NODE tn;
         int i,ac;          int i,ac;
           V v;
         V *a;          V *a;
         char *buf;          char *buf;
           FUNC func;
   
         if ( !f )          if ( !f )
                 return ( 0 );                  return ( 0 );
Line 378  pointer evalstat(SNODE f)
Line 384  pointer evalstat(SNODE f)
                                 makevar(buf,&u); a[i] = VR(u);                                  makevar(buf,&u); a[i] = VR(u);
                                 substr(CO,0,(Obj)s,VR((P)t),(Obj)u,(Obj *)&s1); s = s1;                                  substr(CO,0,(Obj)s,VR((P)t),(Obj)u,(Obj *)&s1); s = s1;
                         }                          }
                         mkpf((char *)FA0(f),(Obj)s,ac,a,0,0,0,(PF *)&val); val = 0; break;                          mkpf((char *)FA0(f),(Obj)s,ac,a,0,0,0,(PF *)&val); val = 0;
                           v = searchvar((char *)FA0(f));
                           if ( v ) {
                                   searchpf((char *)FA0(f),&func);
                                   makesrvar(func,&u);
                           }
                           break;
                 case S_SINGLE:                  case S_SINGLE:
                         val = eval((FNODE)FA0(f)); break;                          val = eval((FNODE)FA0(f)); break;
                 case S_CPLX:                  case S_CPLX:
Line 430  pointer evalstat(SNODE f)
Line 442  pointer evalstat(SNODE f)
                                         break;                                          break;
                         }                          }
                         f_break = 0; break;                          f_break = 0; break;
                   case S_MODULE:
                           CUR_MODULE = (MODULE)FA0(f);
                           if ( CUR_MODULE )
                                           MPVS = CUR_MODULE->pvs;
                           else
                                           MPVS = 0;
                           break;
                 default:                  default:
                         error("evalstat : unknown id");                          error("evalstat : unknown id");
                         break;                          break;
Line 461  pointer evalf(FUNC f,FNODE a,FNODE opt)
Line 480  pointer evalf(FUNC f,FNODE a,FNODE opt)
         char errbuf[BUFSIZ];          char errbuf[BUFSIZ];
         static unsigned int stack_size;          static unsigned int stack_size;
         static void *stack_base;          static void *stack_base;
           FUNC f1;
   
         if ( f->id == A_UNDEF ) {          if ( f->id == A_UNDEF ) {
                 sprintf(errbuf,"evalf : %s undefined",NAME(f));                  gen_searchf_searchonly(f->fullname,&f1);
                   if ( f1->id == A_UNDEF ) {
                           sprintf(errbuf,"evalf : %s undefined",NAME(f));
                           error(errbuf);
                   } else
                           *f = *f1;
           }
           if ( getsecuremode() && !PVSS && !f->secure ) {
                   sprintf(errbuf,"evalf : %s not permitted",NAME(f));
                 error(errbuf);                  error(errbuf);
         }          }
         if ( f->id != A_PARI ) {          if ( f->id != A_PARI ) {
Line 689  pointer bevalf(FUNC f,NODE a)
Line 717  pointer bevalf(FUNC f,NODE a)
         pointer val;          pointer val;
         int i,n;          int i,n;
         NODE tn,sn;          NODE tn,sn;
     VS pvs;      VS pvs,prev_mpvs;
         char errbuf[BUFSIZ];          char errbuf[BUFSIZ];
   
         if ( f->id == A_UNDEF ) {          if ( f->id == A_UNDEF ) {
                 sprintf(errbuf,"bevalf : %s undefined",NAME(f));                  sprintf(errbuf,"bevalf : %s undefined",NAME(f));
                 error(errbuf);                  error(errbuf);
         }          }
           if ( getsecuremode() && !PVSS && !f->secure ) {
                   sprintf(errbuf,"bevalf : %s not permitted",NAME(f));
                   error(errbuf);
           }
         if ( f->id != A_PARI ) {          if ( f->id != A_PARI ) {
                 for ( i = 0, tn = a; tn; i++, tn = NEXT(tn) );                  for ( i = 0, tn = a; tn; i++, tn = NEXT(tn) );
                 if ( ((n = f->argc)>= 0 && i != n) || (n < 0 && i > -n) ) {                  if ( ((n = f->argc)>= 0 && i != n) || (n < 0 && i > -n) ) {
Line 737  pointer bevalf(FUNC f,NODE a)
Line 769  pointer bevalf(FUNC f,NODE a)
                         for ( tn = f->f.usrf->args, sn = a;                          for ( tn = f->f.usrf->args, sn = a;
                                 sn; tn = NEXT(tn), sn = NEXT(sn) )                                  sn; tn = NEXT(tn), sn = NEXT(sn) )
                                 ASSPV((int)FA0((FNODE)BDY(tn)),BDY(sn));                                  ASSPV((int)FA0((FNODE)BDY(tn)),BDY(sn));
                         val = evalstat((SNODE)BDY(f->f.usrf));                          if ( f->f.usrf->module ) {
                                   prev_mpvs = MPVS;
                                   MPVS = f->f.usrf->module->pvs;
                                   val = evalstat((SNODE)BDY(f->f.usrf));
                                   MPVS = prev_mpvs;
                           } else
                                   val = evalstat((SNODE)BDY(f->f.usrf));
                         f_return = f_break = f_continue = 0; poppvs();                          f_return = f_break = f_continue = 0; poppvs();
                         break;                          break;
                 case A_PURE:                  case A_PURE:
Line 754  pointer bevalf(FUNC f,NODE a)
Line 792  pointer bevalf(FUNC f,NODE a)
 pointer evalif(FNODE f,FNODE a)  pointer evalif(FNODE f,FNODE a)
 {  {
         Obj g;          Obj g;
           FNODE t;
   
         g = (Obj)eval(f);          g = (Obj)eval(f);
         if ( g && (OID(g) == O_P) && (VR((P)g)->attr == (pointer)V_SR) )          if ( g && (OID(g) == O_P) && (VR((P)g)->attr == (pointer)V_SR) )
                 return evalf((FUNC)VR((P)g)->priv,a,0);                  return evalf((FUNC)VR((P)g)->priv,a,0);
         else {          else if ( g && OID(g) == O_QUOTEARG && ((QUOTEARG)g)->type == A_func ) {
                   t = mkfnode(2,I_FUNC,((QUOTEARG)g)->body,a);
                   return eval(t);
           } else {
                 error("invalid function pointer");                  error("invalid function pointer");
                 /* NOTREACHED */                  /* NOTREACHED */
                 return (pointer)-1;                  return (pointer)-1;
Line 982  void mkuf(char *name,char *fname,NODE args,SNODE body,
Line 1024  void mkuf(char *name,char *fname,NODE args,SNODE body,
         char *longname;          char *longname;
         int argc;          int argc;
   
           if ( getsecuremode() ) {
                   error("defining function is not permitted in the secure mode");
           }
         if ( *name == ':' )          if ( *name == ':' )
                 name += 2;                  name += 2;
         if ( !module ) {          if ( !module ) {
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.43
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>