[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.4 and 1.6

version 1.4, 2001/08/06 01:48:32 version 1.6, 2001/08/22 00:54:29
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.3 2000/08/22 05:03:59 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.5 2001/08/21 01:39:38 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 188  Obj *rp;
Line 188  Obj *rp;
                         MKLIST(arg,t0);                          MKLIST(arg,t0);
                         switch ( f->id ) {                          switch ( f->id ) {
                                 case I_LIST:                                  case I_LIST:
                                         *rp = (Obj)arg; break;                                          MKSTR(head,"()"); break;
                                 case I_EV:                                  case I_EV:
                                         MKSTR(head,"exponent_vector");                                          MKSTR(head,"exponent_vector"); break;
                                         n = mknode(2,head,arg);  
                                         MKLIST(r,n);  
                                         *rp = (Obj)r;  
                                         break;  
                         }                          }
                           n = mknode(2,head,arg);
                           MKLIST(r,n);
                           *rp = (Obj)r;
                         break;                          break;
                 case I_FUNC:                  case I_FUNC:
                         fnodetotree((FNODE)FA1(f),&arg);                          fnodetotree((FNODE)FA1(f),&arg);
Line 217  Obj *rp;
Line 216  Obj *rp;
                         n = mknode(2,head,arg);                          n = mknode(2,head,arg);
                         MKLIST(r,n);                          MKLIST(r,n);
                         *rp = (Obj)r;                          *rp = (Obj)r;
                           break;
                   case I_PAREN:
                           fnodetotree((FNODE)FA0(f),&arg);
                           MKSTR(head,"()");
                           n = mknode(2,head,arg);
                           MKLIST(r,n);
                           *rp = (Obj)r;
                           break;
                   case I_STR:
                           MKSTR(head,FA0(f));
                           *rp = (Obj)head;
                         break;                          break;
                 case I_FORMULA:                  case I_FORMULA:
                         *rp = (Obj)FA0(f);                          *rp = (Obj)FA0(f);
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>