OpenXM_contrib2/asir2000/lib/xm - diff

Return to xm CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

version 1.4, 2000/01/23 00:25:56

version 1.9, 2000/07/15 05:52:11

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.3 2000/01/16 06:28:00 takayama Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.8 2000/04/13 04:30:23 takayama Exp $ */

/** xm **/

Xm_noX = 0$

/* 1 : using X-window system. 0 : not using X-window system. */

Line 6 Xm_noX = 0$

cf. var.sm1, debugMode

print("xm Version 20000123. ox_help(0); ox_help(\"keyword\"); for help message ")$

print("xm version 20000715. Copyright (C) OpenXM Developing Team. 2000.")$

print("ox_help(0); ox_help(\"keyword\"); ox_grep(\"keyword\"); for help message ")$

XM_debug=1$

/*&C-texi

Line 151 def ox_check_errors2(P) {

Line 153 def ox_check_errors2(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);

}

load("sm1")$

load("gnuplot")$

load("tigers")$

load("phc")$

load("longname")$

end$