[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.4 and 1.6

version 1.4, 2004/07/13 07:59:54 version 1.6, 2004/12/17 03:09:08
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.3 2004/05/14 06:02:54 noro Exp $ */  /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.5 2004/12/02 13:48:43 noro Exp $ */
   
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))  #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
   
Line 38  void PRINTTB();
Line 38  void PRINTTB();
 void PRINTDPV();  void PRINTDPV();
 void PRINTFNODE();  void PRINTFNODE();
 void PRINTBF();  void PRINTBF();
   void PRINTDAlg();
   
 void PRINTEXPR(vl,p)  void PRINTEXPR(vl,p)
 VL vl;  VL vl;
 Obj p;  Obj p;
 {  {
 #if defined(FPRINT)  
         if ( asir_texmacs && !user_print_function ) printf("\2verbatim:");  
 #endif  
         if ( !p ) {          if ( !p ) {
                 PRINTR(vl,(R)p);                  PRINTR(vl,(R)p);
         } else          } else
Line 97  Obj p;
Line 95  Obj p;
                         default:                          default:
                                 break;                                  break;
                 }                  }
 #if defined(FPRINT)  
         if ( asir_texmacs && !user_print_function )  
                 { putchar('\5'); fflush(stdout); }  
 #endif  
 }  }
   
 #if defined(FPRINT)  #if defined(FPRINT)
Line 600  void PRINTNUM(q)
Line 594  void PRINTNUM(q)
 Num q;  Num q;
 {  {
         char real_format[20];          char real_format[20];
           DAlg d;
           DP nm;
           Q dn;
   
         if ( !q ) {          if ( !q ) {
                 PUTS("0");                  PUTS("0");
Line 820  Num q;
Line 817  Num q;
                         break;                          break;
                 case N_GFSN:                  case N_GFSN:
                         PRINTUM(BDY((GFSN)q));                          PRINTUM(BDY((GFSN)q));
                           break;
                   case N_DA:
                           d = (DAlg)q;
                           nm = d->nm;
                           dn = d->dn;
                           if ( SGN((Q)dn) == -1 ) PUTS("-");
                           PUTS("(");
                           PRINTDP(CO,((DAlg)q)->nm);
                           PUTS(")");
                           if ( !UNIN(NM(dn)) ) {
                                   PUTS("/");
                                   PRINTN(NM(dn));
                           }
                         break;                          break;
         }          }
 }  }
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>