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

Diff for /OpenXM_contrib2/asir2000/io/pexpr.c between version 1.26 and 1.29

version 1.26, 2003/12/24 08:00:38 version 1.29, 2004/02/09 08:23:30
Line 44 
Line 44 
  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY   * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
  * 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/io/pexpr.c,v 1.25 2003/12/02 06:56:48 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/pexpr.c,v 1.28 2004/02/04 07:42:07 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 52 
Line 52 
 #include "comp.h"  #include "comp.h"
 #include "base.h"  #include "base.h"
   
   #if defined(PARI)
   #include "genpari.h"
   #endif
   
 #ifndef FPRINT  #ifndef FPRINT
 #define FPRINT  #define FPRINT
 #endif  #endif
Line 103  int print_quote;
Line 107  int print_quote;
 #define PRINTUP printup  #define PRINTUP printup
 #define PRINTUM printum  #define PRINTUM printum
 #define PRINTSF printsf  #define PRINTSF printsf
   #define PRINTSYMBOL printsymbol
   #define PRINTRANGE printrange
 #endif  #endif
   
 #ifdef SPRINT  #ifdef SPRINT
Line 113  extern int hex_output;
Line 119  extern int hex_output;
 extern int fortran_output;  extern int fortran_output;
 extern int double_output;  extern int double_output;
 extern int real_digit;  extern int real_digit;
   extern int real_binary;
 extern int print_quote;  extern int print_quote;
   
   
Line 149  extern int print_quote;
Line 156  extern int print_quote;
 #define PRINTUP sprintup  #define PRINTUP sprintup
 #define PRINTUM sprintum  #define PRINTUM sprintum
 #define PRINTSF sprintsf  #define PRINTSF sprintsf
   #define PRINTSYMBOL sprintsymbol
   #define PRINTRANGE sprintrange
 #endif  #endif
   
 void PRINTEXPR();  void PRINTEXPR();
Line 180  void PRINTEOP();
Line 189  void PRINTEOP();
 void PRINTLOP();  void PRINTLOP();
 void PRINTQOP();  void PRINTQOP();
 void PRINTSF();  void PRINTSF();
   void PRINTSYMBOL();
   void PRINTRANGE();
   
 #ifdef FPRINT  #ifdef FPRINT
 void output_init() {  void output_init() {
Line 210  P p;
Line 221  P p;
 void printbf(a)  void printbf(a)
 BF a;  BF a;
 {  {
         void sor();  
   
         sor(a->body,double_output ? 'f' : 'g',-1,0);          sor(a->body,double_output ? 'f' : 'g',-1,0);
 }  }
 #endif  #endif
Line 225  char *s;
Line 234  char *s;
 }  }
   
 #if defined(PARI)  #if defined(PARI)
 #include "genpari.h"  
   
 void myoutbrute(g)  void myoutbrute(g)
 GEN g;  GEN g;
 {  {
Line 237  void sprintbf(a)
Line 244  void sprintbf(a)
 BF a;  BF a;
 {  {
         char *str;          char *str;
         char *GENtostr();  
         char *GENtostr0();          char *GENtostr0();
   
         if ( double_output ) {          if ( double_output ) {
Line 295  Obj p;
Line 301  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_SYMBOL:
                           PRINTSYMBOL((SYMBOL)p); break;
                   case O_RANGE:
                           PRINTRANGE(vl,(RANGE)p); break;
                 default:                  default:
                         break;                          break;
         }          }
Line 1170  unsigned int i;
Line 1180  unsigned int i;
         } else {          } else {
                 TAIL PRINTF(OUT,"@_%d",IFTOF(i));                  TAIL PRINTF(OUT,"@_%d",IFTOF(i));
         }          }
   }
   
   void PRINTSYMBOL(SYMBOL sym)
   {
           PUTS(sym->name);
   }
   
   void PRINTRANGE(VL vl,RANGE p)
   {
           PUTS("range(");
           PRINTEXPR(vl,p->start);
           PUTS(",");
           PRINTEXPR(vl,p->end);
           PUTS(")");
 }  }
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.29
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>