version 1.1, 1999/12/03 07:39:11 |
version 1.7, 2000/02/11 04:30:16 |
|
|
/* $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.6 2000/02/02 07:29:48 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("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 39 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$ |