Return to man.k CVS log

Up to [local] / OpenXM / src / k097

Annotation of OpenXM/src/k097/man.k, Revision 1.1

1.1     ! takayama    1: /* $OpenXM$ */
        !             2:
        !             3: def man(a) {
        !             4:   local lang,n,m,i,s,astarisk;
        !             5:   n = Length(Arglist);
        !             6:   lang = GetEnv("LANG");
        !             7:   astarisk = 42;
        !             8:   if (n >= 1) {
        !             9:     s = StringToAsciiArray(a);
        !            10:     m = Length(s);
        !            11:     for (i=0; i<m; i++) {
        !            12:       if (s[i] == astarisk) {
        !            13:         n = 0;
        !            14:       }
        !            15:     }
        !            16:   } else {
        !            17:     a = "*";
        !            18:   }
        !            19:   if (lang == "C" || Length(lang) == 0) {
        !            20:     if (n < 1) {
        !            21:       sm1(" [(cd $OpenXM_HOME/lib/k097/help/help-en/ ; ls -C ) a ( | more)] cat system ");
        !            22:     }else {
        !            23:       sm1(" [(more $OpenXM_HOME/lib/k097/help/help-en/) a] cat system ");
        !            24:     }
        !            25:   }else{
        !            26:     if (n < 1) {
        !            27:       sm1(" [(cd  $OpenXM_HOME/lib/k097/help/help-ja/ ; ls -C ) a ( | more)] cat system ");
        !            28:     }else {
        !            29:       sm1(" [(jless $OpenXM_HOME/lib/k097/help/help-ja/) a] cat system ");
        !            30:     }
        !            31:   }
        !            32: }
        !            33: