Return to shell.hh CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

Annotation of OpenXM/src/kan96xx/Kan/shell.hh, Revision 1.1

1.1     ! takayama    1: /* $OpenXM$ */
        !             2: else if (strcmp(key,"shell:which") == 0) {
        !             3:   rob = NullObject;
        !             4:   if (size == 2) {
        !             5:        obj1 = getoa(obj,1);
        !             6:        if (obj1.tag != Sdollar) errorKan1("%s\n","[(shell:which) cmdname] extension");
        !             7:        rob = KoxWhich(obj1,KpoInteger(0));
        !             8:   }else if (size == 3) {
        !             9:        obj1 = getoa(obj,1);
        !            10:        if (obj1.tag != Sdollar) errorKan1("%s\n","[(shell:which) cmdname] extension");
        !            11:        obj2 = getoa(obj,2);
        !            12:        if (obj2.tag != Sdollar) errorKan1("%s\n","[(shell:which) cmdname path] extension");
        !            13:        obj1=getoa(obj,1); obj2=getoa(obj,2);
        !            14:        rob = KoxWhich(obj1,obj2);
        !            15:   }else{
        !            16:        errorKan1("%s\n","[(shell:which) cmdname] extension or [(shell:which) cmdnamd path] extension ");
        !            17:   }
        !            18: }