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

Diff for /OpenXM_contrib2/asir2000/io/spexpr.c between version 1.34 and 1.39

version 1.34, 2004/07/13 07:59:54 version 1.39, 2015/08/20 08:53:05
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/spexpr.c,v 1.33 2004/05/14 06:02:54 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/spexpr.c,v 1.38 2015/08/07 09:19:43 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 56 
Line 56 
 #define SPRINT  #define SPRINT
 #endif  #endif
   
 #if defined(PARI)  
 #include "genpari.h"  
 #endif  
   
 extern int outputstyle;  extern int outputstyle;
   
 static char *buf;  static char *buf;
Line 90  extern int hideargs;
Line 86  extern int hideargs;
 #define PRINTLIST sprintlist  #define PRINTLIST sprintlist
 #define PRINTVECT sprintvect  #define PRINTVECT sprintvect
 #define PRINTMAT sprintmat  #define PRINTMAT sprintmat
   #define PRINTIMAT sprintimat
 #define PRINTSTR sprintstr  #define PRINTSTR sprintstr
 #define PRINTCOMP sprintcomp  #define PRINTCOMP sprintcomp
 #define PRINTDP sprintdp  #define PRINTDP sprintdp
Line 99  extern int hideargs;
Line 96  extern int hideargs;
 #define PRINTBYTEARRAY sprintbytearray  #define PRINTBYTEARRAY sprintbytearray
 #define PRINTQUOTE sprintquote  #define PRINTQUOTE sprintquote
 #define PRINTQUOTEARG sprintquotearg  #define PRINTQUOTEARG sprintquotearg
   #define PRINTNBP sprintnbp
 #define PRINTERR sprinterr  #define PRINTERR sprinterr
 #define PRINTLF sprintlf  #define PRINTLF sprintlf
 #define PRINTLOP sprintlop  #define PRINTLOP sprintlop
Line 126  char *s;
Line 124  char *s;
         s[0] = 0; buf = s;          s[0] = 0; buf = s;
 }  }
   
 #if defined(PARI)  
 void myoutbrute(g)  
 GEN g;  
 {  
 # if PARI_VERSION_CODE > 131588  
         brute(g, 'f', -1);  
 # else  
         bruteall(g,'f',-1,1);  
 # endif  
 }  
   
 void sprintbf(BF a)  void sprintbf(BF a)
 {  {
         char *str;          int dprec;
         char *GENtostr0();          char fbuf[BUFSIZ];
           char *s;
         if ( double_output ) {          dprec = a->body->_mpfr_prec*0.30103;
                 str = GENtostr0(a->body,myoutbrute);          sprintf(fbuf,"%%.%dR%c",dprec,double_output?'f':'g');
         } else {          mpfr_asprintf(&s,fbuf,a->body);
                 str = GENtostr(a->body);          TAIL PUTS(s);
         }          mpfr_free_str(s);
         TAIL PRINTF(OUT,"%s",str);  
         free(str);  
 }  }
 #endif  
   

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.39

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>