===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/print.c,v
retrieving revision 1.16
retrieving revision 1.21
diff -u -p -r1.16 -r1.21
--- OpenXM_contrib2/asir2000/builtin/print.c	2004/03/03 01:16:28	1.16
+++ OpenXM_contrib2/asir2000/builtin/print.c	2006/02/01 07:29:29	1.21
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.15 2003/11/08 01:12:02 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.20 2005/12/10 14:14:15 noro Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
@@ -65,18 +65,20 @@ struct ftab print_tab[] = {
 	{0,0,0},
 };
 
+extern int I_am_server;
+
 void Pprint(NODE arg,pointer *rp)
 {
 	Obj obj;
-	OPTLIST opt;
+	Q opt;
 
 	if ( arg ) {
 		obj = (Obj)ARG0(arg);
 		if ( NEXT(arg) ) {
-			opt = (OPTLIST)ARG1(arg);
+			opt = (Q)ARG1(arg);
 			if ( INT(opt) ) {
 				printexpr(CO,obj);
-				switch ( QTOS((Q)opt) ) {
+				switch ( QTOS(opt) ) {
 					case 0:
 						break;
 					case 2:
@@ -85,7 +87,6 @@ void Pprint(NODE arg,pointer *rp)
 					case 1: default:
 						putc('\n',asir_out); break;
 				}
-			} else if ( OID(opt) == O_OPTLIST ) {
 			} else
 				error("print : invalid argument");
 		} else {
@@ -93,6 +94,9 @@ void Pprint(NODE arg,pointer *rp)
 			putc('\n',asir_out);
 		}
 	}
+	/* XXX : if ox_asir, we have to fflush always */
+	if ( I_am_server )
+		fflush(asir_out);
 	*rp = 0;
 }
 
@@ -215,6 +219,21 @@ void fnodetotree(FNODE f,LIST *rp)
 			MKLIST(*rp,n);
 			break;
 
+		case I_NARYOP: 
+			/* head */
+			MKSTR(head,"n_op");
+			n = (NODE)FA1(f);
+			for ( t0 = 0; n; n = NEXT(n) ) {
+				NEXTNODE(t0,t);
+				fnodetotree((FNODE)BDY(n),&a1);
+				BDY(t) = (pointer)a1;
+			}
+			MKSTR(op,((ARF)FA0(f))->name);
+			MKNODE(t,op,t0);
+			MKNODE(n,head,t);
+			MKLIST(*rp,n);
+			break;
+
 		/* ternary operators */
 		case I_CE:
 			MKSTR(head,"t_op");
@@ -242,11 +261,11 @@ void fnodetotree(FNODE f,LIST *rp)
 			break;
 
 		/* function */
-		case I_FUNC: case I_CAR: case I_CDR: case I_EV:
+		case I_FUNC: case I_FUNC_QARG: case I_CAR: case I_CDR: case I_EV:
 			MKSTR(head,"function");
 			switch ( f->id ) {
-				case I_FUNC:
-					MKSTR(op,((FUNC)FA0(f))->name);
+				case I_FUNC: case I_FUNC_QARG:
+					MKSTR(op,((FUNC)FA0(f))->fullname);
 					fnodetotree((FNODE)FA1(f),&a1);
 					break;
 				case I_CAR: