| version 1.1, 1999/12/03 07:39:11 |
version 1.8, 2000/04/13 04:30:23 |
|
|
| /* $OpenXM: OpenXM/src/asir99/lib/xm,v 1.4 1999/11/18 03:22:07 takayama Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.7 2000/02/11 04:30:16 takayama Exp $ */ |
| /** xm **/ |
/** xm **/ |
| Xm_noX = 0$ |
Xm_noX = 0$ |
| /* 1 : using X-window system. 0 : not using X-window system. */ |
/* 1 : using X-window system. 0 : not using X-window system. */ |
|
|
| cf. var.sm1, debugMode |
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("http://www.math.sci.kobe-u.ac.jp/OpenXM ")$ |
| |
print("ox_help(0); ox_help(\"keyword\"); ox_grep(\"keyword\"); for help message ")$ |
| |
XM_debug=1$ |
| |
|
| |
|
| /*&C-texi |
/*&C-texi |
| @c DO NOT EDIT THIS FILE oxxm.texi |
@c DO NOT EDIT THIS FILE oxxm.texi |
| */ |
*/ |
| Line 38 ToAsir_Debug = 0$ |
|
| Line 40 ToAsir_Debug = 0$ |
|
| |
|
| def ox_help(A) { |
def ox_help(A) { |
| if (type(A) == 0) { |
if (type(A) == 0) { |
| shell("ls "+getenv("OpenXM_HOME")+"/lib/asir/help/xm.eg.help"); |
shell("ls "+getenv("OpenXM_HOME")+"/lib/asir/help/xm.help"); |
| }else{ |
}else{ |
| help("xm.eg.help/"+A)$ |
help("xm.help/"+A)$ |
| } |
} |
| } |
} |
| |
|
|
|
| 0 |
0 |
| [221] ox_check_errors2(P); |
[221] ox_check_errors2(P); |
| [error([7,4294967295,executeString: Usage:get])] |
[error([7,4294967295,executeString: Usage:get])] |
| Type in ox_pops(P,N) to clean the stack of the ox server. |
Error on the server of the process number = 1 |
| (debug) |
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 |
@end example |
| */ |
*/ |
| def ox_check_errors2(P) { |
def ox_check_errors2(P) { |
| |
extern XM_debug; |
| E = ox_get_errors(P); |
E = ox_get_errors(P); |
| if (E == [ ]) return(P); |
if (E == [ ]) return(P); |
| else { |
else { |
| print(E); |
print(E); |
| print("Type in ox_pops(P,N) to clean the stack of the ox server."); |
print("Error on the server of the process number = ",0)$ |
| debug; |
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); |
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("sm1")$ |
| load("gnuplot")$ |
load("gnuplot")$ |
| load("tigers")$ |
load("tigers")$ |
| load("phc")$ |
load("phc")$ |
| |
load("longname")$ |
| |
|
| end$ |
end$ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to xm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / lib