=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/xm,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -p -r1.1.1.1 -r1.3 --- OpenXM_contrib2/asir2000/lib/xm 1999/12/03 07:39:11 1.1.1.1 +++ OpenXM_contrib2/asir2000/lib/xm 2000/01/16 06:28:00 1.3 @@ -1,4 +1,4 @@ -/* $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_noX = 0$ /* 1 : using X-window system. 0 : not using X-window system. */ @@ -6,7 +6,7 @@ Xm_noX = 0$ 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 @@ -38,9 +38,9 @@ ToAsir_Debug = 0$ def ox_help(A) { 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{ - help("xm.eg.help/"+A)$ + help("xm.help/"+A)$ } } @@ -130,6 +130,8 @@ def ox_check_errors2(P) { } return(P); } + +def first(A) {return(A[0]);} load("sm1")$ load("gnuplot")$