Return to shell.c CVS log

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

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

1.1     ! takayama    1: /* $OpenXM$ */
        !             2: #include <stdio.h>
        !             3: #include <sys/types.h>
        !             4: #include <sys/stat.h>
        !             5: #include <fcntl.h>
        !             6: #include <stdlib.h>
        !             7: #include <unistd.h>
        !             8: #include <sys/wait.h>
        !             9: #include "datatype.h"
        !            10: #include "stackm.h"
        !            11: #include "extern.h"
        !            12: #include "extern2.h"
        !            13: #include <signal.h>
        !            14: #include "plugin.h"
        !            15: #include "kclass.h"
        !            16: #include <ctype.h>
        !            17: #include "ox_pathfinder.h"
        !            18:
        !            19:
        !            20: /* Functions for ox_shell */
        !            21: struct object KoxWhich(struct object cmdo,struct object patho) {
        !            22:   struct object rob;
        !            23:   char *sss;
        !            24:   rob = NullObject;
        !            25:   if (cmdo.tag != Sdollar) errorKan1("%s\n","KoxWhich(str-obj,str-obj)");
        !            26:   if (patho.tag == Sdollar) {
        !            27:     sss=oxWhich(KopString(cmdo),KopString(patho));
        !            28:     if (sss != NULL) rob=KpoString(sss);
        !            29:     else{
        !            30:       sss=getCommandPath(KopString(cmdo));
        !            31:       if (sss != NULL) rob=KpoString(sss);
        !            32:     }
        !            33:   }else{
        !            34:     sss=getCommandPath(KopString(cmdo));
        !            35:     if (sss != NULL) rob=KpoString(sss);
        !            36:   }
        !            37:   return(rob);
        !            38: }
        !            39:
        !            40: