[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.37 and 1.40

version 1.37, 2004/11/22 02:26:56 version 1.40, 2005/07/27 04:35:11
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.36 2004/10/27 08:21:47 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.39 2004/12/18 03:27:17 noro Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 223  pointer eval(FNODE f)
Line 223  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 428  pointer evalstat(SNODE f)
Line 430  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 691  pointer bevalf(FUNC f,NODE a)
Line 700  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 ) {
Line 743  pointer bevalf(FUNC f,NODE a)
Line 752  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 988  void mkuf(char *name,char *fname,NODE args,SNODE body,
Line 1003  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.37  
changed lines
  Added in v.1.40
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>