[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.29 and 1.30

version 1.29, 2003/05/30 00:47:24 version 1.30, 2003/11/08 01:12:03
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.28 2003/05/24 10:42:18 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.29 2003/05/30 00:47:24 noro Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 453  extern NODE PVSS;
Line 453  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;          NODE tn,sn,opts,opt1,dmy;
     VS pvs,prev_mpvs;          VS pvs,prev_mpvs;
         char errbuf[BUFSIZ];          char errbuf[BUFSIZ];
         static unsigned int stack_size;          static unsigned int stack_size;
         static void *stack_base;          static void *stack_base;
Line 474  pointer evalf(FUNC f,FNODE a,FNODE opt)
Line 475  pointer evalf(FUNC f,FNODE a,FNODE opt)
         }          }
         switch ( f->id ) {          switch ( f->id ) {
                 case A_BIN:                  case A_BIN:
                           if ( opt ) {
                                   opts = BDY((LIST)eval(opt));
                                   /* opts = ["opt1",arg1],... */
                                   opt1 = BDY((LIST)BDY(opts));
                                   if ( !strcmp(BDY((STRING)BDY(opt1)),"option_list") ) {
                                           /*
                                            * the special option specification:
                                            *  option_list=[["o1","a1"],...]
                                            */
                                           asir_assert(BDY(NEXT(opt1)),O_LIST,"evalf");
                                           opts = BDY((LIST)BDY(NEXT(opt1)));
                                   }
                           } else
                                   opts = 0;
                         if ( !n ) {                          if ( !n ) {
                                 cur_binf = f;                                  cur_binf = f;
                                 (*f->f.binf)(&val);                                  (*f->f.binf)(&val);
                         } else {                          } else {
                                 args = (LIST)eval(a);                                  args = (LIST)eval(a);
                                   if ( opts ) {
                                           NEWOPTLIST(optlist);
                                           BDY(optlist) = opts;
                                           appendtonode(BDY(args),(pointer)optlist,&dmy);
                                   }
                                 cur_binf = f;                                  cur_binf = f;
                                 (*f->f.binf)(args?BDY(args):0,&val);                                  (*f->f.binf)(args?BDY(args):0,&val);
                         }                          }
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>