home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d199 / csh.lha / Csh / run.c < prev    next >
C/C++ Source or Header  |  1989-03-31  |  5KB  |  219 lines
  1.  
  2. /*
  3.  * RUN.C
  4.  *
  5.  * (c)1986 Matthew Dillon     9 October 1986
  6.  *
  7.  *    RUN   handles running of external commands.
  8.  *
  9.  * Version 2.07M by Steve Drew 10-Sep-87
  10.  *
  11.  * Version 3.02A by Carlo Borreo & Cesare Dieni 20-Dec-88
  12.  *
  13.  */
  14.  
  15. extern char *v_path;
  16. char *FindIt();
  17.  
  18. do_run(str)
  19. char *str;
  20. {
  21. int i, len, retcode;
  22. char buf[200]; /* enough space for 100 char cmd name + path stuff */
  23. char *path;
  24.  
  25. char *p = av[0];
  26. char **args = av+1;
  27.  
  28. while(*p++) *p &= 0x7F;      /* allow "com mand" */
  29.  
  30. while(*args) {                /* if any arg contains a space then */
  31.     if (index(*args,' ')) {        /* surround with quotes, since must */
  32.     i = strlen(*args);        /* of specified via "arg u ment" on */
  33.     movmem(*args,(*args)+1,i);    /* original command line.        */
  34.     args[0][0] = args[0][i+1] = '\"';    /* mpush in execom.c has    */
  35.     args[0][i+2] = '\0';        /* allowed for these 2 extra bytes. */
  36.     }
  37.     ++args;
  38.     }
  39. if ((len = strlen(av[0])) > 100) { ierror(NULL,509); return -1; }
  40. if (path = FindIt(av[0],"",buf)) retcode = myfexecv(path, av);
  41. else {
  42.     Myprocess->pr_WindowPtr = (APTR)(-1);
  43.     /*
  44.      * manx's fexecv code only allows us 38
  45.      * chars for command name.
  46.      */
  47.     if (len > 37) av[0][37] = '\0';
  48.     retcode = myfexecv(av[0], av);
  49.     Myprocess->pr_WindowPtr = NULL;
  50.     }
  51. if (retcode < 0) {
  52.     char *copy;
  53.     if ((path = FindIt(av[0],".sh",buf)) == NULL) {
  54.         fprintf(stderr,"Command Not Found %s\n",av[0]);
  55.         return -1;
  56.         }
  57.     av[1] = buf;               /* particular to do_source() */
  58.     copy = malloc(strlen(str)+3);
  59.     sprintf(copy,"x %s",str);
  60.     retcode = do_source(copy);
  61.     free(copy);
  62.     }
  63. return retcode;
  64. }
  65.  
  66. char *dofind(cmd, ext, buf)
  67. char *cmd, *ext, *buf;
  68. {
  69. char *ptr, *s;
  70.  
  71. sprintf(buf,"%s%s",cmd,ext);
  72. if (exists(buf)) return buf;
  73. if (BaseName(buf)==buf) {
  74.     s = get_var(LEVEL_SET, v_path);
  75.     while (*s) {
  76.         for (ptr=buf; *s && *s!=','; ) *ptr++ = *s++;
  77.         sprintf(ptr, "%s%s", cmd, ext);
  78.         if (exists(buf)) return buf;
  79.         if (*s) s++;
  80.         }
  81.     }
  82. return NULL;
  83. }
  84.  
  85. char *FindIt(cmd,ext,buf)
  86. char *cmd, *ext, *buf;
  87. {
  88. char *response;
  89.  
  90. Myprocess->pr_WindowPtr = (APTR)(-1);
  91. response=dofind(cmd,ext,buf);
  92. Myprocess->pr_WindowPtr = NULL;
  93. return response;
  94. }
  95.  
  96. myfexecv(cmd, argv)
  97. char *cmd, **argv;
  98. {
  99. long ret_val;
  100. struct FileHandle *fhp;
  101. APTR sav_ret;
  102. register char **ap, *cp, *arg;
  103. int i;
  104. long len, seg, sav, stksiz;
  105. char buf[40];
  106. union {
  107.     long *lp;
  108.     long ll;
  109.     } l, stk;
  110. long oldcin, oldcout;
  111. long doexec();
  112. extern long _savsp;
  113.  
  114. if (seg = LoadPrg(cmd)) goto found;
  115. l.lp = (long *) Mycli->cli_CommandDir;
  116. while (l.ll) {
  117.     l.ll <<= 2;
  118.     sav = CurrentDir(l.lp[1]);
  119.     seg = LoadPrg(cmd);
  120.     CurrentDir(sav);
  121.     if (seg) goto found;
  122.     l.ll = *l.lp;
  123.     }
  124. sprintf(buf, "c:%s", cmd);
  125. if (seg = LoadPrg(buf)) goto found;
  126. return -1;
  127.  
  128. found:
  129.  
  130. stksiz = 4 * Mycli->cli_DefaultStack;
  131. if ((stk.lp = AllocMem(stksiz+8, 0L)) == 0) {
  132.     UnLoadPrg(seg);
  133.     return -1;
  134.     }
  135. for (len=0,ap=argv+1;*ap;ap++)
  136.     len += strlen(*ap) + 1;
  137. if (len==0) len++;
  138. if ((cp = arg = AllocMem(len, 0L)) == 0) {
  139.     UnLoadPrg(seg);
  140.     FreeMem(stk.lp, stksiz+8);
  141.     return -1;
  142.     }
  143. *stk.lp = stksiz + 8;
  144. stk.ll += stksiz;
  145. stk.lp[0] = stksiz;
  146. stk.lp[1] = ((long *)_savsp)[2];
  147. sav_ret = Myprocess->pr_ReturnAddr;
  148. Myprocess->pr_ReturnAddr = (APTR) stk.lp;
  149.  
  150. sav = Mycli->cli_Module;
  151. Mycli->cli_Module = seg;
  152.  
  153. for (ap=argv+1;*ap;ap++) {
  154.     strcpy(cp, *ap);
  155.     if (ap[1]) strcat(cp, " ");
  156.     cp += strlen(cp);
  157.     }
  158. if (len==1) arg[1]='\0';
  159. arg[len-1] = '\n';
  160.  
  161. cp = (char *)((long)Mycli->cli_CommandName << 2);
  162. movmem(cp, buf, 40);
  163. strcpy(cp+1, cmd);
  164. cp[0] = strlen(cmd);
  165.  
  166. fhp = (struct FileHandle *) (Myprocess->pr_CIS << 2);
  167. strncpy(fhp->fh_Buf<<2, arg, (int)(len < 200?len:199));
  168. fhp->fh_Pos = 0;
  169. fhp->fh_End = len < 200?len:199;
  170. oldcin  = Myprocess->pr_CIS;
  171. oldcout = Myprocess->pr_COS;
  172.  
  173. ret_val = doexec(len, stksiz, stksiz+8, len, arg, (seg+1)<<2, stk.ll);
  174.  
  175. Myprocess->pr_CIS = oldcin;
  176. Myprocess->pr_COS = oldcout;
  177. fhp->fh_Pos = fhp->fh_End;
  178. UnLoadPrg(Mycli->cli_Module);
  179. Myprocess->pr_ReturnAddr = sav_ret;
  180. Mycli->cli_Module = sav;
  181. FreeMem(arg, len);
  182. movmem(buf, cp, 40);
  183. return ret_val;
  184. }
  185.  
  186. static long doexec()
  187. {
  188. #asm
  189.     movem.l    d3-d7/a2-a5,-(sp)        ;save registers
  190.     lea        savsp(pc),a0
  191.     move.l    sp,(a0)                    ;save our sp
  192.     movem.l    8(a5),d0/d2/d3/d4/a0/a4/a7    ;load params
  193.     move.l    4(sp),a3                ;get old sp from CLI
  194.     movem.l    4(a3),a1/a2/a5/a6        ;get BCPL environment
  195.     move.l    d0,12(a1)                ;set length
  196.     move.l    a0,d1                    ;copy to dreg
  197.     lsr.l    #2,d1                    ;convert to BPTR
  198.     move.l    d1,8(a1)                ;set ptr
  199.     move.l    a0,d1                    ;copy to d1 as well
  200.     jsr        (a4)                    ;call new program
  201.     movem.l    (sp)+,d2/d3                ;get stk siz and old sp
  202.     move.l    sp,a1                    ;save current sp
  203.     move.l    savsp(pc),sp            ;get back our sp
  204.     movem.l    (sp)+,d3-d7/a2-a5        ;get back registers
  205.     move.l    d0,-(sp)                ;save return code
  206.     sub.l    d2,a1                    ;back up a bit
  207.     sub.l    #8,a1                    ;back up over header
  208.     move.l    (a1),d0                    ;get size to free
  209.     move.l    4,a6                    ;get ExecBase
  210.     jsr        -210(a6)                ;free the memory
  211.     move.l    (sp)+,d0                ;get the return code
  212. #endasm
  213. }
  214.  
  215. #asm
  216. savsp:
  217.     dc.l    0
  218. #endasm
  219.