===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/ox_asir.c,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -p -r1.29 -r1.30
--- OpenXM_contrib2/asir2000/io/ox_asir.c	2001/10/05 02:33:41	1.29
+++ OpenXM_contrib2/asir2000/io/ox_asir.c	2001/10/05 10:23:06	1.30
@@ -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/ox_asir.c,v 1.28 2001/10/05 01:38:21 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.29 2001/10/05 02:33:41 noro Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
@@ -653,9 +653,6 @@ void ox_asir_init(int argc,char **argv)
 	char *homedir;
 	char *ptr;
 
-#if !MPI
-	ox_io_init();
-#endif
 #if !defined(VISUAL) && !MPI
 	do_server_in_X11 = 1; /* XXX */
 #endif
@@ -709,6 +706,10 @@ void ox_asir_init(int argc,char **argv)
 		fclose(ifp);
 	}
 	input_init(0,"string");
+/* XXX Windows compatibility */
+#if defined(VISUAL)
+	ox_io_init();
+#endif
 	create_my_mathcap("ox_asir");
 }
 
@@ -718,6 +719,7 @@ void ox_io_init() {
 	int i;
 
 	/* XXX : ssh forwards stdin to a remote host */
+#if !defined(VISUAL)
 #if defined(linux) || defined(__NeXT__) || defined(ultrix)
 #include <sys/param.h>
 			close(0);
@@ -731,6 +733,7 @@ void ox_io_init() {
 			close(0);
 			for ( i = 5; i < rl.rlim_cur; i++ )
 				close(i);
+#endif
 #endif
 
 	I_am_server = 1;