=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/xm,v retrieving revision 1.2 retrieving revision 1.4 diff -u -p -r1.2 -r1.4 --- OpenXM_contrib2/asir2000/lib/xm 1999/12/11 13:50:13 1.2 +++ OpenXM_contrib2/asir2000/lib/xm 2000/01/23 00:25:56 1.4 @@ -1,4 +1,4 @@ -/* $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.1.1.1 1999/12/03 07:39:11 noro Exp $ */ +/* $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.3 2000/01/16 06:28:00 takayama Exp $ */ /** xm **/ Xm_noX = 0$ /* 1 : using X-window system. 0 : not using X-window system. */ @@ -6,9 +6,9 @@ Xm_noX = 0$ cf. var.sm1, debugMode */ -print("xm Version 19991118. ox_help(0); ox_help(\"keyword\"); for help message ")$ +print("xm Version 20000123. ox_help(0); ox_help(\"keyword\"); for help message ")$ +XM_debug=1$ - /*&C-texi @c DO NOT EDIT THIS FILE oxxm.texi */ @@ -116,20 +116,40 @@ Number 0 [221] ox_check_errors2(P); [error([7,4294967295,executeString: Usage:get])] -Type in ox_pops(P,N) to clean the stack of the ox server. -(debug) +Error on the server of the process number = 1 +To clean the stack of the ox server, +type in ox_pops(P,N) (P: process number, N: the number of data you need to pop) +out of the debug mode. +If you like to automatically clean data on the server stack, +set XM_debug=0; + @end example */ def ox_check_errors2(P) { + extern XM_debug; E = ox_get_errors(P); if (E == [ ]) return(P); else { print(E); - print("Type in ox_pops(P,N) to clean the stack of the ox server."); - debug; + print("Error on the server of the process number = ",0)$ + print(P); + if (XM_debug == 0) { + print("Automatically cleaning the stack (pop 100 data)....",0)$ + ox_pops(P,100)$ + print("done.")$ + print("If you want to do it by hand, set XM_debug = 1."); + }else{ + print("To clean the stack of the ox server,"); + print("type in ox_pops(P,N) (P: process number, N: the number of data you need to pop) out of the debug mode"); + print("If you like to automatically clean data on the server stack,"); + print("set XM_debug=0;"); + debug; + } } return(P); } + +def first(A) {return(A[0]);} load("sm1")$ load("gnuplot")$