===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/ctrl.c,v
retrieving revision 1.45
retrieving revision 1.50
diff -u -p -r1.45 -r1.50
--- OpenXM_contrib2/asir2000/builtin/ctrl.c	2014/09/19 01:25:59	1.45
+++ OpenXM_contrib2/asir2000/builtin/ctrl.c	2016/04/01 03:04:35	1.50
@@ -45,12 +45,12 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.44 2014/05/27 09:53:46 ohara Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.49 2016/03/31 06:41:20 ohara Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
 #include <string.h>
-#if defined(VISUAL)
+#if defined(VISUAL) || defined(__MINGW32__)
 #include <windows.h>
 #include <winnls.h>
 #else
@@ -121,9 +121,7 @@ static struct {
 	{"cputime",&prtime},
 	{"nez",&nez},
 	{"echo",&echoback},
-#if defined(PARI)
 	{"bigfloat",&bigfloat},
-#endif
 	{"evalef",&evalef},
 	{"verbose",&Verbose},
 	{"quiet_mode",&do_quiet},
@@ -174,6 +172,10 @@ Q *rp;
 	STRING s;
 	NODE node,p;
 	LIST list;
+	P f;
+	extern Q ox_pari_stream;
+	extern int ox_pari_stream_initialized;
+	extern P ox_pari_starting_function;
 
 	if ( !arg ) {
 		*rp = 0;
@@ -262,6 +264,39 @@ Q *rp;
 			}
 		}
 		return;
+	} else if ( !strcmp(key,"oxpari_id") ) {
+        if ( argc(arg) == 1 ) {
+            if(!ox_pari_stream_initialized) {
+                t=-1;
+                STOQ(t,*rp);
+            }else {
+                *rp = ox_pari_stream;
+            }
+        }else {
+			c = (Q)ARG1(arg);
+			if ( !c || ( NUM(c) && INT(c) && SGN(c)>0 ) ) {
+				ox_pari_stream_initialized = 1;
+				ox_pari_stream = c;
+				*rp = c;
+			}else {
+                t=-1;
+                STOQ(t,*rp);
+			}
+		}
+		return;
+	} else if ( !strcmp(key,"oxpari_start") ) {
+        if ( argc(arg) == 1 ) {
+			*rp = ox_pari_starting_function;
+		} else {
+			f = (Obj)ARG1(arg);
+			if ( !f || OID(f) == O_P) {
+				ox_pari_starting_function = f;
+				*rp = f;
+			}else {
+				*rp = 0;
+			}
+		}
+		return;
 	}
 	for ( i = 0; ctrls[i].key; i++ )
 		if ( !strcmp(key,ctrls[i].key) )
@@ -294,7 +329,7 @@ void Psysinfo(LIST *rp)
     MKLIST(*rp,n);
 }
 
-#if !defined(VISUAL)
+#if !defined(VISUAL) && !defined(__MINGW32__)
 
 static char *get_lang()
 {