[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.1 and 1.4

version 1.1, 2004/03/17 03:22:47 version 1.4, 2004/07/13 07:59:54
Line 1 
Line 1 
 /* $OpenXM$ */  /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.3 2004/05/14 06:02:54 noro Exp $ */
   
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))  #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
   
Line 19  void PRINTGF2MAT();
Line 19  void PRINTGF2MAT();
 void PRINTGFMMAT();  void PRINTGFMMAT();
 void PRINTBYTEARRAY();  void PRINTBYTEARRAY();
 void PRINTQUOTE();  void PRINTQUOTE();
   void PRINTQUOTEARG();
 void PRINTERR();  void PRINTERR();
 void PRINTCPLX();  void PRINTCPLX();
 void PRINTLM();  void PRINTLM();
Line 34  void PRINTSF();
Line 35  void PRINTSF();
 void PRINTSYMBOL();  void PRINTSYMBOL();
 void PRINTRANGE();  void PRINTRANGE();
 void PRINTTB();  void PRINTTB();
   void PRINTDPV();
 void PRINTFNODE();  void PRINTFNODE();
 void PRINTBF();  void PRINTBF();
   
Line 82  Obj p;
Line 84  Obj p;
                                 PRINTBYTEARRAY(vl,(BYTEARRAY)p); break;                                  PRINTBYTEARRAY(vl,(BYTEARRAY)p); break;
                         case O_QUOTE:                          case O_QUOTE:
                                 PRINTQUOTE(vl,(QUOTE)p); break;                                  PRINTQUOTE(vl,(QUOTE)p); break;
                           case O_QUOTEARG:
                                   PRINTQUOTEARG(vl,(QUOTEARG)p); break;
                         case O_SYMBOL:                          case O_SYMBOL:
                                 PRINTSYMBOL((SYMBOL)p); break;                                  PRINTSYMBOL((SYMBOL)p); break;
                         case O_RANGE:                          case O_RANGE:
                                 PRINTRANGE(vl,(RANGE)p); break;                                  PRINTRANGE(vl,(RANGE)p); break;
                         case O_TB:                          case O_TB:
                                 PRINTTB(vl,(TB)p); break;                                  PRINTTB(vl,(TB)p); break;
                           case O_DPV:
                                   PRINTDPV(vl,(DPV)p); break;
                         default:                          default:
                                 break;                                  break;
                 }                  }
Line 239  VECT vect;
Line 245  VECT vect;
         }          }
 }  }
   
   void PRINTDPV(vl,d)
   VL vl;
   DPV d;
   {
           int i;
           DP *ptr;
   
           PUTS("modvect(");
           for ( i = 0, ptr = BDY(d); i < d->len; i++ ) {
                   if ( i != 0 ) PUTS(",");
                   PRINTEXPR(vl,(Obj)ptr[i]);
           }
           PUTS(")");
   }
   
 void PRINTMAT(vl,mat)  void PRINTMAT(vl,mat)
 VL vl;  VL vl;
 MAT mat;  MAT mat;
Line 980  QUOTE quote;
Line 1001  QUOTE quote;
         }          }
 }  }
   
   void PRINTQUOTEARG(vl,quote)
   VL vl;
   QUOTEARG quote;
   {
           PUTS("<...quoted...>");
   }
   
 void PRINTTB(VL vl,TB p)  void PRINTTB(VL vl,TB p)
 {  {
         int i;          int i;
   #if defined(SPRINT)
           char *ptr,*e;
   
           for ( i = 0, ptr = buf+strlen(OUT); i < p->next; i++ )
                   for ( e = p->body[i]; *e; *ptr++ = *e++ );
           *ptr = 0;
   #else
         for ( i = 0; i < p->next; i++ ) {          for ( i = 0; i < p->next; i++ ) {
                 PUTS(p->body[i]);                  PUTS(p->body[i]);
         }          }
   #endif
 }  }
   
 void PRINTUP2(p)  void PRINTUP2(p)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>