[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.33 and 1.35

version 1.33, 2004/05/14 09:20:57 version 1.35, 2004/07/07 07:40:19
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.32 2004/04/30 08:25:38 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.34 2004/06/21 09:05:16 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 863  void gen_searchf(char *name,FUNC *r)
Line 861  void gen_searchf(char *name,FUNC *r)
                 searchuf(name,&val);                  searchuf(name,&val);
         if ( !val )          if ( !val )
                 appenduf(name,&val);                  appenduf(name,&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;          *r = val;
 }  }
   
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.35
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>