version 1.1.1.1, 1999/12/03 07:39:11 |
version 1.3, 2000/01/16 06:28:00 |
|
|
/* $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.2 1999/12/11 13:50:13 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 20000116. ox_help(0); ox_help(\"keyword\"); for help message ")$ |
|
|
|
|
/*&C-texi |
/*&C-texi |
Line 38 ToAsir_Debug = 0$ |
|
Line 38 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)$ |
} |
} |
} |
} |
|
|
Line 130 def ox_check_errors2(P) { |
|
Line 130 def ox_check_errors2(P) { |
|
} |
} |
return(P); |
return(P); |
} |
} |
|
|
|
def first(A) {return(A[0]);} |
|
|
load("sm1")$ |
load("sm1")$ |
load("gnuplot")$ |
load("gnuplot")$ |