[BACK]Return to print.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/print.c between version 1.12 and 1.13

version 1.12, 2001/09/05 04:43:58 version 1.13, 2001/09/05 09:01:27
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/builtin/print.c,v 1.11 2001/09/04 03:12:20 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.12 2001/09/05 04:43:58 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 127  Obj *rp;
Line 127  Obj *rp;
         }          }
         switch ( f->id ) {          switch ( f->id ) {
                 /* unary operators */                  /* unary operators */
                 case I_NOT: case I_PAREN:                  case I_NOT: case I_PAREN: case I_MINUS:
                         MKSTR(head,"u_op");                          MKSTR(head,"u_op");
                         switch ( f->id ) {                          switch ( f->id ) {
                                 case I_NOT:                                  case I_NOT:
Line 136  Obj *rp;
Line 136  Obj *rp;
                                 case I_PAREN:                                  case I_PAREN:
                                         MKSTR(op,"()");                                          MKSTR(op,"()");
                                         break;                                          break;
                                   case I_MINUS:
                                           MKSTR(op,"-");
                                           break;
                         }                          }
                         fnodetotree((FNODE)FA0(f),&a1);                          fnodetotree((FNODE)FA0(f),&a1);
                         n = mknode(3,head,op,a1);                          n = mknode(3,head,op,a1);
Line 309  FNODE f;
Line 312  FNODE f;
   
         switch ( f->id ) {          switch ( f->id ) {
                 /* unary operators */                  /* unary operators */
                 case I_NOT: case I_PAREN:                  case I_NOT: case I_PAREN: case I_MINUS:
                         a1 = eval_pvar_in_fnode((FNODE)FA0(f));                          a1 = eval_pvar_in_fnode((FNODE)FA0(f));
                         return mkfnode(1,f->id,a1);                          return mkfnode(1,f->id,a1);
   
Line 387  FNODE g;
Line 390  FNODE g;
   
         switch ( f->id ) {          switch ( f->id ) {
                 /* unary operators */                  /* unary operators */
                 case I_NOT: case I_PAREN:                  case I_NOT: case I_PAREN: case I_MINUS:
                         a1 = subst_in_fnode((FNODE)FA0(f),v,g);                          a1 = subst_in_fnode((FNODE)FA0(f),v,g);
                         return mkfnode(1,f->id,a1);                          return mkfnode(1,f->id,a1);
   
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>