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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>