===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/miscf.c,v
retrieving revision 1.9
retrieving revision 1.11
diff -u -p -r1.9 -r1.11
--- OpenXM_contrib2/asir2000/builtin/miscf.c	2000/11/14 08:38:38	1.9
+++ OpenXM_contrib2/asir2000/builtin/miscf.c	2001/03/08 07:49:11	1.11
@@ -45,11 +45,11 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.8 2000/08/22 05:03:59 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.10 2000/12/05 01:24:50 noro Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
-#if INET && !defined(VISUAL)
+#if !defined(VISUAL)
 #include <X11/Xlib.h>
 #include <X11/cursorfont.h>
 #endif
@@ -73,7 +73,7 @@ struct ftab misc_tab[] = {
 	{"debug",Pdebug,0},
 	{"shell",Pshell,-2},
 	{"heap",Pheap,-1},
-	{"version",Pversion,0},
+	{"version",Pversion,-99999},
 	{"nmono",Pnmono,1},
 	{"error",Perror,1},
 	{"error3",Perror3,3},
@@ -88,7 +88,7 @@ struct ftab misc_tab[] = {
 	{"hex_dump",Phex_dump,2},
 	{"peek",Ppeek,1},
 	{"poke",Ppoke,2},
-#if INET && !defined(VISUAL) && DO_PLOT
+#if !defined(VISUAL) && DO_PLOT
 	{"xpause",Pxpause,0},
 #endif
 #if 0
@@ -196,14 +196,30 @@ Q *rp;
 }
 
 unsigned int get_asir_version();
+char *get_asir_distribution();
 
-void Pversion(rp)
-Q *rp;
+void Pversion(arg,rp)
+NODE arg;
+Obj *rp;
 {
 	unsigned int version;
+	char *distribution;
+	Q q;
+	STRING str;
+	NODE n;
+	LIST l;
 
 	version = get_asir_version();
-	STOQ(version,*rp);
+	distribution = get_asir_distribution();
+	STOQ(version,q);
+	if ( !argc(arg) )
+		*rp = (Obj)q;
+	else {
+		MKSTR(str,distribution);	
+		n = mknode(2,q,str);
+		MKLIST(l,n);
+		*rp = (Obj)l;
+	}
 }
 
 extern int nez;
@@ -333,7 +349,7 @@ Q *rp;
 	STOQ(ret,*rp);	
 }
 
-#if INET && !defined(VISUAL) && DO_PLOT
+#if !defined(VISUAL) && DO_PLOT
 void Pxpause(rp)
 Q *rp;
 {