===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/pexpr.c,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -p -r1.31 -r1.32
--- OpenXM_contrib2/asir2000/io/pexpr.c	2004/02/27 09:13:04	1.31
+++ OpenXM_contrib2/asir2000/io/pexpr.c	2004/03/03 09:25:30	1.32
@@ -44,7 +44,7 @@
  * 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/pexpr.c,v 1.30 2004/02/13 05:48:36 saito Exp $
+ * $OpenXM: OpenXM_contrib2/asir2000/io/pexpr.c,v 1.31 2004/02/27 09:13:04 noro Exp $
 */
 #include "ca.h"
 #include "al.h"
@@ -110,6 +110,7 @@ extern int asir_texmacs;
 #define PRINTSF printsf
 #define PRINTSYMBOL printsymbol
 #define PRINTRANGE printrange
+#define PRINTTB printtb
 #endif
 
 #ifdef SPRINT
@@ -159,6 +160,7 @@ extern int print_quote;
 #define PRINTSF sprintsf
 #define PRINTSYMBOL sprintsymbol
 #define PRINTRANGE sprintrange
+#define PRINTTB sprinttb
 #endif
 
 void PRINTEXPR();
@@ -192,6 +194,7 @@ void PRINTQOP();
 void PRINTSF();
 void PRINTSYMBOL();
 void PRINTRANGE();
+void PRINTTB();
 
 #ifdef FPRINT
 void output_init() {
@@ -314,6 +317,8 @@ Obj p;
 				PRINTSYMBOL((SYMBOL)p); break;
 			case O_RANGE:
 				PRINTRANGE(vl,(RANGE)p); break;
+			case O_TB:
+				PRINTTB(vl,(TB)p); break;
 			default:
 				break;
 		}
@@ -1204,4 +1209,13 @@ void PRINTRANGE(VL vl,RANGE p)
 	PUTS(",");
 	PRINTEXPR(vl,p->end);
 	PUTS(")");
+}
+
+void PRINTTB(VL vl,TB p)
+{
+	int i;
+
+	for ( i = 0; i < p->next; i++ ) {
+		PUTS(p->body[i]);
+	}
 }