[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.39 and 1.43

version 1.39, 2005/11/16 23:42:54 version 1.43, 2018/03/29 01:32:53
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.38 2004/12/17 03:09:08 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/pexpr.c,v 1.42 2017/08/31 02:36:21 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 56 
Line 56 
 #define FPRINT  #define FPRINT
 #endif  #endif
   
 #if defined(PARI)  
 #include "genpari.h"  
 #endif  
   
 extern int outputstyle;  extern int outputstyle;
   
 FILE *asir_out;  FILE *asir_out;
Line 101  int printmode = PRINTF_G;
Line 97  int printmode = PRINTF_G;
 #define PRINTSTR printstr  #define PRINTSTR printstr
 #define PRINTCOMP printcomp  #define PRINTCOMP printcomp
 #define PRINTDP printdp  #define PRINTDP printdp
   #define PRINTDPM printdpm
 #define PRINTUI printui  #define PRINTUI printui
 #define PRINTGF2MAT printgf2mat  #define PRINTGF2MAT printgf2mat
 #define PRINTGFMMAT printgfmmat  #define PRINTGFMMAT printgfmmat
Line 130  int printmode = PRINTF_G;
Line 127  int printmode = PRINTF_G;
 /* spetial functions for file output */  /* spetial functions for file output */
   
 void output_init() {  void output_init() {
         OUT = stdout;    OUT = stdout;
         sprintf(DFORMAT,"%%0%dd",DLENGTH);    sprintf(DFORMAT,"%%0%dd",DLENGTH);
 }  }
   
 int mmono(p)  int mmono(p)
 P p;  P p;
 {  {
         if ( NUM(p) )    if ( NUM(p) )
 #if defined(INTERVAL)  #if defined(INTERVAL)
                 if ( NID(p) != N_IP && NID(p) != N_IntervalDouble && NID(p) != N_IntervalQuad && NID(p) != N_IntervalBigFloat      if ( NID(p) != N_IP && NID(p) != N_IntervalDouble && NID(p) != N_IntervalQuad && NID(p) != N_IntervalBigFloat
                         && compnum(CO,(Num)p,0) < 0 )        && compnum(CO,(Num)p,0) < 0 )
 #else  #else
                 if ( compnum(CO,(Num)p,0) < 0 )      if ( compnum(CO,(Num)p,0) < 0 )
 #endif  #endif
                         return ( 1 );        return ( 1 );
                 else      else
                         return ( 0 );        return ( 0 );
         else if ( NEXT(DC(p)) )    else if ( NEXT(DC(p)) )
                 return ( 0 );      return ( 0 );
         else    else
                 return (mmono(COEF(DC(p))));      return (mmono(COEF(DC(p))));
 }  }
   
 #if defined(PARI)  void printbf(BF a)
 void printbf(a)  
 BF a;  
 {  {
         sor(a->body,double_output ? 'f' : 'g',-1,0);    int dprec;
     char fbuf[BUFSIZ];
     char *s;
     dprec = (a->body->_mpfr_prec)*0.30103;
     if ( !dprec ) dprec = 1;
     sprintf(fbuf,"%%.%dR%c",dprec,double_output?'f':'g');
     mpfr_asprintf(&s,fbuf,a->body);
     TAIL PUTS(s);
     mpfr_free_str(s);
 }  }
 #endif  
   
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.43
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>