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

Diff for /OpenXM_contrib2/asir2000/io/pexpr_body.c between version 1.9 and 1.10

version 1.9, 2005/09/28 08:08:34 version 1.10, 2005/11/16 23:42:54
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.8 2005/01/17 07:43:24 saito Exp $ */  /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.9 2005/09/28 08:08:34 noro Exp $ */
   
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))  #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
   
Line 21  void PRINTGFMMAT();
Line 21  void PRINTGFMMAT();
 void PRINTBYTEARRAY();  void PRINTBYTEARRAY();
 void PRINTQUOTE();  void PRINTQUOTE();
 void PRINTQUOTEARG();  void PRINTQUOTEARG();
   void PRINTNBP();
 void PRINTERR();  void PRINTERR();
 void PRINTCPLX();  void PRINTCPLX();
 void PRINTLM();  void PRINTLM();
Line 89  Obj p;
Line 90  Obj p;
                                 PRINTQUOTE(vl,(QUOTE)p); break;                                  PRINTQUOTE(vl,(QUOTE)p); break;
                         case O_QUOTEARG:                          case O_QUOTEARG:
                                 PRINTQUOTEARG(vl,(QUOTEARG)p); break;                                  PRINTQUOTEARG(vl,(QUOTEARG)p); break;
                           case O_NBP:
                                   PRINTNBP(vl,(NBP)p); break;
                         case O_SYMBOL:                          case O_SYMBOL:
                                 PRINTSYMBOL((SYMBOL)p); break;                                  PRINTSYMBOL((SYMBOL)p); break;
                         case O_RANGE:                          case O_RANGE:
Line 1072  VL vl;
Line 1075  VL vl;
 QUOTEARG quote;  QUOTEARG quote;
 {  {
         PUTS("<...quoted...>");          PUTS("<...quoted...>");
   }
   
   void PRINTNBP(VL vl,NBP p)
   {
           NODE t;
           NBM m;
           int d,i;
           unsigned int *b;
           if ( !p ) PUTS("0");
           else {
                   for ( t = BDY(p); t; t = NEXT(t) ) {
                           m = (NBM)BDY(t);
                           PRINTEXPR(vl,(Obj)m->c);
                           d = m->d;
                           b = m->b;
                           for ( i = 0; i < d; i++ ) {
                                   if ( NBM_GET(b,i) ) PUTS("x");
                                   else PUTS("y");
                           }
                           if ( NEXT(t) ) PUTS("+");
                   }
           }
 }  }
   
 void PRINTTB(VL vl,TB p)  void PRINTTB(VL vl,TB p)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>