[BACK]Return to man.k CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097
File: [local] / OpenXM / src / k097 / man.k (download)

Revision 1.1, Fri Jan 5 11:14:25 2001 UTC (23 years, 4 months ago) by takayama
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9 

Bug fix of the new manual system of kan/k0.
Moved some functions with the name *Indexed* to debug/indexed.k

/* $OpenXM: OpenXM/src/k097/man.k,v 1.1 2001/01/05 11:14:25 takayama Exp $ */

def man(a) {
  local lang,n,m,i,s,astarisk;
  n = Length(Arglist);
  lang = GetEnv("LANG");
  astarisk = 42;
  if (n >= 1) {
    s = StringToAsciiArray(a);
    m = Length(s);
    for (i=0; i<m; i++) {
      if (s[i] == astarisk) {
        n = 0;
      }
    }
  } else {
    a = "*";
  }
  if (lang == "C" || Length(lang) == 0) {
    if (n < 1) {
      sm1(" [(cd $OpenXM_HOME/lib/k097/help/help-en/ ; ls -C ) a ( | more)] cat system ");
    }else {
      sm1(" [(more $OpenXM_HOME/lib/k097/help/help-en/) a] cat system ");
    }
  }else{
    if (n < 1) {
      sm1(" [(cd  $OpenXM_HOME/lib/k097/help/help-ja/ ; ls -C ) a ( | more)] cat system ");
    }else {
      sm1(" [(jless $OpenXM_HOME/lib/k097/help/help-ja/) a] cat system ");
    }
  }
}