version 1.18, 2002/08/10 11:12:32 |
version 1.21, 2009/02/19 15:48:26 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.17 2002/08/04 07:16:54 takayama Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.20 2003/05/21 23:31:54 takayama Exp $ |
*/ |
*/ |
/** xm **/ |
/** xm **/ |
Xm_noX = 0$ |
Xm_noX = 0$ |
Line 217 def first(A) {return(A[0]);} |
|
Line 217 def first(A) {return(A[0]);} |
|
|
|
|
|
def ox_grep(A) { |
def ox_grep(A) { |
|
if (type(A) == 2) { |
|
A = rtostr(A); |
|
}else if (type(A) != 7) { |
|
return("Usage: ox_grep(keyword)"); |
|
} |
|
|
if (ox_getenv("LANG") == "ja_JP.EUC") { |
if (ox_getenv("LANG") == "ja_JP.EUC") { |
F = get_rootdir()+"/help-jp/"; |
F = get_rootdir()+"/help-ja/"; |
}else{ |
}else{ |
F = get_rootdir()+"/help-eg/"; |
F = get_rootdir()+"/help-en/"; |
} |
} |
Pager = ox_getenv("PAGER"); |
Pager = ox_getenv("PAGER"); |
if (Pager == 0) Pager="more"; |
if (Pager == 0) Pager="more"; |
|
|
load("gnuplot")$ |
load("gnuplot")$ |
load("tigers")$ |
load("tigers")$ |
load("phc")$ |
load("phc")$ |
load("longname")$ |
|
|
/* This module is obsolete and will no be supported. |
|
See OpenXM/src/asir-contrib/packages/src/oxrfc100.rr |
|
*/ |
|
|
end$ |
end$ |