OpenXM_contrib2/asir2000/io/spexpr.c - diff

Return to spexpr.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/spexpr.c between version 1.14 and 1.15

-version 1.14, 2001/08/06 01:48:33
+version 1.15, 2001/08/28 05:46:26
 Line 44
 Line 44
 Line 44
   * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
-  * $OpenXM: OpenXM_contrib2/asir2000/io/spexpr.c,v 1.13 2001/04/20 02:34:23 noro Exp $
+  * $OpenXM: OpenXM_contrib2/asir2000/io/spexpr.c,v 1.14 2001/08/06 01:48:33 noro Exp $
  */
  #include "ca.h"
  #include "al.h"
 Line 315  N n;
 Line 315  N n;
 Line 315  N n;
          }
  }
- extern int      printmode;
+ #if defined(FPRINT)
+ #if defined(ITVDEBUG)
+ void printbin(double z)
+ {
+         int     i, j, mask;
+         union {
+                 double  x;
+                 char    c[8];
+         } a;
+         a.x = z;
+         for(i=7;i>=0;i--) {
+                 mask = 0x80;
+                 for(j=0;j<8;j++) {
+                         if (a.c[i] & mask) fprintf(stderr,"1");
+                         else fprintf(stderr,"0");
+                         mask >>= 1;
+                 }
+         }
+         fprintf(stderr,"\n");
+ }
+ #endif
+ #endif
+ #if defined(FPRINT)
+ #if 0
+ int     printmode = PRINTF_E;
+ #else
+ int     printmode = PRINTF_G;
+ #endif
+ #else
+ extern int printmode;
+ #endif
  void PRINTNUM(q)
  Num q;
  {
-Line 734  void PRINTQUOTE(vl,quote)
+Line 766  void PRINTQUOTE(vl,quote)
 Line 734  void PRINTQUOTE(vl,quote)
 Line 766  void PRINTQUOTE(vl,quote)
  VL vl;
  QUOTE quote;
  {
-         PUTS("<...quoted...>");
+         LIST list;
+         if ( print_quote ) {
+                 fnodetotree(BDY(quote),&list);
+                 PRINTEXPR(vl,(Obj)list);
+         } else {
+                 PUTS("<...quoted...>");
+         }
  }
  void PRINTERR(vl,e)

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