=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/xm,v retrieving revision 1.2 retrieving revision 1.6 diff -u -p -r1.2 -r1.6 --- OpenXM_contrib2/asir2000/lib/xm 1999/12/11 13:50:13 1.2 +++ OpenXM_contrib2/asir2000/lib/xm 2000/02/02 07:29:48 1.6 @@ -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.5 2000/02/01 12:22:01 takayama Exp $ */ /** xm **/ Xm_noX = 0$ /* 1 : using X-window system. 0 : not using X-window system. */ @@ -6,9 +6,10 @@ Xm_noX = 0$ cf. var.sm1, debugMode */ -print("xm Version 19991118. ox_help(0); ox_help(\"keyword\"); for help message ")$ +print("xm version 20000202. Copyright (C) OpenXM Developing Team. 2000.")$ +print("ox_help(0); ox_help(\"keyword\"); ox_grep(\"keyword\"); for help message ")$ +XM_debug=1$ - /*&C-texi @c DO NOT EDIT THIS FILE oxxm.texi */ @@ -116,20 +117,64 @@ 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]);} + + +def ox_grep(A) { + if (getenv("LANG") == "ja_JP.EUC") { + F = get_rootdir()+"/help-jp/"; + }else{ + F = get_rootdir()+"/help-eg/"; + } + Pager = getenv("PAGER"); + if (Pager == 0) Pager="more"; + OF = F+"xm.help"; + + print("---------- Result of grep (ox_grep) ---------------------")$ + shell("(cd " + F + " ; " + " grep "+A+" * xm.help/* | "+Pager+" )"); + + print("---------- Possible help keyword for help -------------")$ + shell("ls "+F+" | grep "+A); + print("---------- Possible help keyword for ox_help ----------")$ + shell("ls "+OF+" | grep "+A); + + return(0); +} + + load("sm1")$ load("gnuplot")$