===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/ox_asir.c,v
retrieving revision 1.28
retrieving revision 1.30
diff -u -p -r1.28 -r1.30
--- OpenXM_contrib2/asir2000/io/ox_asir.c	2001/10/05 01:38:21	1.28
+++ 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.27 2001/09/20 23:11:42 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"
@@ -706,7 +706,8 @@ void ox_asir_init(int argc,char **argv)
 		fclose(ifp);
 	}
 	input_init(0,"string");
-#if !MPI
+/* 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;