[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.40 and 1.41

version 1.40, 2005/07/27 04:35:11 version 1.41, 2005/09/13 06:40:46
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.39 2004/12/18 03:27:17 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.40 2005/07/27 04:35:11 noro Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 71  pointer eval(FNODE f)
Line 71  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 85  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 173  pointer eval(FNODE f)
Line 174  pointer eval(FNODE f)
                         val = evalmapf((FUNC)FA0(f),(FNODE)FA1(f)); break;                          val = evalmapf((FUNC)FA0(f),(FNODE)FA1(f)); break;
                 case I_RECMAP:                  case I_RECMAP:
                         val = eval_rec_mapf((FUNC)FA0(f),(FNODE)FA1(f)); break;                          val = eval_rec_mapf((FUNC)FA0(f),(FNODE)FA1(f)); break;
                   case I_UNIFY:
                           MKQUOTE(expr,(FNODE)FA0(f));
                           MKQUOTE(pattern,(FNODE)FA1(f));
                           ret = quote_unify(expr,pattern,&match);
                           if ( !ret ) val = 0;
                           else {
                                   do_assign(match);
                                   val = (pointer)ONE;
                           }
                           break;
                 case I_IFUNC:                  case I_IFUNC:
                         val = evalif((FNODE)FA0(f),(FNODE)FA1(f)); break;                          val = evalif((FNODE)FA0(f),(FNODE)FA1(f)); break;
 #if !defined(VISUAL)  #if !defined(VISUAL)
Line 775  pointer bevalf(FUNC f,NODE a)
Line 786  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;
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>