[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.32 and 1.38

version 1.32, 2004/04/30 08:25:38 version 1.38, 2004/11/22 04:11:36
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.31 2004/02/09 08:23:30 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.37 2004/11/22 02:26:56 noro Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 306  pointer eval(FNODE f)
Line 306  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 454  extern NODE PVSS;
Line 452  extern NODE PVSS;
 pointer evalf(FUNC f,FNODE a,FNODE opt)  pointer evalf(FUNC f,FNODE a,FNODE opt)
 {  {
         LIST args;          LIST args;
         OPTLIST optlist;  
         pointer val;          pointer val;
         int i,n,level;          int i,n,level;
         NODE tn,sn,opts,opt1,dmy;          NODE tn,sn,opts,opt1,dmy;
Line 467  pointer evalf(FUNC f,FNODE a,FNODE opt)
Line 464  pointer evalf(FUNC f,FNODE a,FNODE opt)
                 sprintf(errbuf,"evalf : %s undefined",NAME(f));                  sprintf(errbuf,"evalf : %s undefined",NAME(f));
                 error(errbuf);                  error(errbuf);
         }          }
           if ( getsecuremode() && !PVSS && !f->secure ) {
                   sprintf(errbuf,"evalf : %s not permitted",NAME(f));
                   error(errbuf);
           }
         if ( f->id != A_PARI ) {          if ( f->id != A_PARI ) {
                 for ( i = 0, tn = a?(NODE)FA0(a):0; tn; i++, tn = NEXT(tn) );                  for ( i = 0, tn = a?(NODE)FA0(a):0; 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 495  pointer evalf(FUNC f,FNODE a,FNODE opt)
Line 496  pointer evalf(FUNC f,FNODE a,FNODE opt)
                                 (*f->f.binf)(&val);                                  (*f->f.binf)(&val);
                         } else {                          } else {
                                 args = (LIST)eval(a);                                  args = (LIST)eval(a);
                                 if ( opts ) {                                  current_option = opts;
                                         NEWOPTLIST(optlist);  
                                         BDY(optlist) = opts;  
                                         appendtonode(BDY(args),(pointer)optlist,&dmy);  
                                         if ( !BDY(args) ) BDY(args) = dmy;  
                                 }  
                                 cur_binf = f;                                  cur_binf = f;
                                 (*f->f.binf)(args?BDY(args):0,&val);                                  (*f->f.binf)(args?BDY(args):0,&val);
                         }                          }
Line 702  pointer bevalf(FUNC f,NODE a)
Line 698  pointer bevalf(FUNC f,NODE a)
                 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 872  void gen_searchf(char *name,FUNC *r)
Line 872  void gen_searchf(char *name,FUNC *r)
         *r = val;          *r = val;
 }  }
   
   void gen_searchf_searchonly(char *name,FUNC *r)
   {
           FUNC val = 0;
           int global = 0;
           if ( *name == ':' ) {
                   global = 1;
                   name += 2;
           }
           if ( CUR_MODULE && !global )
                   searchf(CUR_MODULE->usrf_list,name,&val);
           if ( !val )
                   searchf(sysf,name,&val);
           if ( !val )
                   searchf(ubinf,name,&val);
           if ( !val )
                   searchpf(name,&val);
           if ( !val )
                   searchuf(name,&val);
           *r = val;
   }
   
 void searchf(NODE fn,char *name,FUNC *r)  void searchf(NODE fn,char *name,FUNC *r)
 {  {
         NODE tn;          NODE tn;
Line 967  void mkuf(char *name,char *fname,NODE args,SNODE body,
Line 988  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.32  
changed lines
  Added in v.1.38
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>