/* Spawn: various DOS access commands * for MicroEMACS * * $Log: spawn.c,v $ * Revision 1.2 1997/07/30 07:58:54 svalente * Call getpgrp() with no args on Posix. * * Revision 1.1 1996/04/09 18:38:31 ghudson * /mit/sipb/src/src/vile/spawn.c: * $Log: spawn.c,v $ * Revision 1.2 1997/07/30 07:58:54 svalente * Call getpgrp() with no args on Posix. * * * Revision 1.51 1993/05/04 17:05:14 pgf * see tom's CHANGES, 3.45 * * Revision 1.50 1993/04/28 17:11:22 pgf * got rid of NeWS ifdefs * * Revision 1.49 1993/04/28 14:34:11 pgf * see CHANGES, 3.44 (tom) * * Revision 1.48 1993/04/21 14:36:41 pgf * lint change * * Revision 1.47 1993/04/20 12:18:32 pgf * see tom's 3.43 CHANGES * * Revision 1.46 1993/04/01 13:07:50 pgf * see tom's 3.40 CHANGES * * Revision 1.45 1993/03/25 19:50:58 pgf * see 3.39 section of CHANGES * * Revision 1.44 1993/03/18 17:42:20 pgf * see 3.38 section of CHANGES * * Revision 1.43 1993/03/17 10:00:29 pgf * initial changes to make VMS work again * * Revision 1.42 1993/03/16 16:04:01 pgf * fix 'parentheses suggested' warnings * * Revision 1.41 1993/03/16 10:53:21 pgf * see 3.36 section of CHANGES file * * Revision 1.40 1993/03/05 17:50:54 pgf * see CHANGES, 3.35 section * * Revision 1.39 1993/02/24 10:59:02 pgf * see 3.34 changes, in CHANGES file * * Revision 1.38 1993/01/16 10:42:16 foxharp * use new macros * * Revision 1.37 1992/12/23 09:26:08 foxharp * lint cleanup -- mostly casting strcXX() to void. ugh. * * Revision 1.36 1992/12/14 09:03:25 foxharp * lint cleanup, mostly malloc * * Revision 1.35 1992/12/04 09:51:54 foxharp * linux apparently has strict prototypes * * Revision 1.34 1992/12/04 09:19:17 foxharp * reopen and flush the tty after returning from the shell, and * don't wait for children at this level when filtering * * Revision 1.33 1992/12/03 00:32:59 foxharp * use new mlreply_no_bs, so backslashes go to commands unchanges. also, * use new system_SHELL routine, and exec_sh_c routine to spawn processes * * Revision 1.32 1992/08/21 18:18:19 foxharp * cleaned up job control -- sort of. how can I tell if someone wants * the arg to getpgrp or not, since if they don't want it, their prototypes * will get me... * * Revision 1.31 1992/08/20 23:40:48 foxharp * typo fixes -- thanks, eric * * Revision 1.30 1992/08/19 23:02:01 foxharp * send SIGTSTP to whole pgrp, not just to pid * * Revision 1.29 1992/07/07 08:37:13 foxharp * wait() for child in filterregion() * * Revision 1.28 1992/06/25 23:00:50 foxharp * changes for dos/ibmpc * * Revision 1.27 1992/06/01 21:23:40 foxharp * fix ret codes on bktoshell and rtfrmshell * * Revision 1.26 1992/06/01 20:43:10 foxharp * bktoshell() and rtfrmshell() are now always defined, but may be null * if not supported * * Revision 1.25 1992/05/25 21:34:29 foxharp * added f,n args to bktoshell command * * Revision 1.23 1992/05/19 08:55:44 foxharp * more prototype and shadowed decl fixups * * Revision 1.22 1992/05/16 14:02:55 pgf * header/typedef fixups * * Revision 1.21 1992/05/16 12:00:31 pgf * prototypes/ansi/void-int stuff/microsoftC * * Revision 1.20 1992/05/13 09:13:04 pgf * don't need return() from void signal handler (rtfrmshell) * * Revision 1.19 1992/04/14 08:54:02 pgf * removed #if UNIX from pressreturn * * Revision 1.18 1992/03/19 23:26:04 pgf * SIGT for signals * * Revision 1.17 1992/03/05 09:19:55 pgf * changed some mlwrite() to mlforce(), due to new terse support * * Revision 1.16 1992/01/05 00:06:13 pgf * split mlwrite into mlwrite/mlprompt/mlforce to make errors visible more * often. also normalized message appearance somewhat. * * Revision 1.15 1992/01/03 23:31:49 pgf * use new ch_fname() to manipulate filenames, since b_fname is now * a malloc'ed sting, to avoid length limits * * Revision 1.14 1991/11/16 18:38:21 pgf * use UNIX ifdef instead of BSD|USG * * Revision 1.13 1991/11/13 20:09:27 pgf * X11 changes, from dave lemke * * Revision 1.12 1991/11/03 17:46:30 pgf * removed f,n args from all region functions -- they don't use them, * since they're no longer directly called by the user * * Revision 1.11 1991/11/01 14:38:00 pgf * saber cleanup * * Revision 1.10 1991/09/13 01:47:59 pgf * child now runs and exits correctly if there is no input for it in * filterregion * * Revision 1.9 1991/08/07 12:35:07 pgf * added RCS log messages * * revision 1.8 * date: 1991/08/06 15:25:58; * global/local values * and sprintf changes * * revision 1.7 * date: 1991/06/25 19:53:29; * massive data structure restructure * * revision 1.6 * date: 1991/05/30 16:10:14; * added extern decl for getenv() * * revision 1.5 * date: 1991/04/22 09:03:37; * removed non-portable initialization * * revision 1.4 * date: 1991/04/08 15:46:56; * fixed readin() arg count * * revision 1.3 * date: 1991/04/04 09:43:21; * added filterregion * * revision 1.2 * date: 1990/12/06 18:53:59; * added abortc to list that will terminate pressreturn * * revision 1.1 * date: 1990/09/21 10:26:01; * initial vile RCS revision */ #include "estruct.h" #include "edef.h" #if UNIX #include #endif #if AMIGA #define NEW 1006L #endif #if ST520 & MEGAMAX #include #define LOAD_EXEC 0 /* load and execute the program */ char *STcmd, /* the command filename & path */ *STargs, /* command args (if any) */ *STenv, /* environment */ *STwork; /* work area */ #endif #if VMS #define EFN 0 /* Event flag. */ #include /* Random headers. */ #include #include #include extern int oldmode[3]; /* In "termio.c" */ extern int newmode[3]; /* In "termio.c" */ extern short iochan; /* In "termio.c" */ #endif #if MSDOS & (MSC | TURBO | ZTC) #include #endif /* * Create a subjob with a copy of the command interpreter in it. When the * command interpreter exits, mark the screen as garbage so that you do a full * repaint. The message at the start in VMS puts out a newline. * Under some (unknown) condition, you don't get one free when DCL starts up. */ /* ARGSUSED */ int spawncli(f, n) int f,n; { #if UNIX # if X11 mlforce("[Not available under X11]"); return(FALSE); # else movecursor(term.t_nrow, 0); /* Seek to last line. */ ttclean(TRUE); TTputc('\n'); (void)system_SHELL((char *)0); TTflush(); ttunclean(); sgarbf = TRUE; return(TRUE); # endif /* X11 */ #endif /* UNIX */ #if AMIGA long newcli; mlwrite("[Starting new CLI]"); Execute("NEWCLI \"CON:0/0/640/200/MicroEMACS Subprocess\"", 0L, 0L); sgarbf = TRUE; return(TRUE); #endif #if VMS movecursor(term.t_nrow, 0); /* In last line. */ mlforce("[Starting DCL]\r\n"); TTflush(); /* Ignore "ttcol". */ sgarbf = TRUE; return sys(NULL); /* NULL => DCL. */ #endif #if CPM mlforce("[Not in CP/M-86]"); return FALSE; #endif #if ST520 mlforce("[Not in TOS]"); return FALSE; #endif #if MSDOS & (AZTEC | MSC | TURBO | ZTC) movecursor(term.t_nrow, 0); /* Seek to last line. */ TTflush(); TTkclose(); system("command.com"); TTkopen(); sgarbf = TRUE; return(TRUE); #endif #if MSDOS & LATTICE movecursor(term.t_nrow, 0); /* Seek to last line. */ TTflush(); TTkclose(); sys("\\command.com", ""); /* Run CLI. */ TTkopen(); sgarbf = TRUE; return(TRUE); #endif } /* ARGSUSED */ int bktoshell(f,n) /* suspend and wait to wake up */ int f,n; { #if UNIX && defined(SIGTSTP) && !X11 vttidy(TRUE); # if BERK killpg(getpgrp(0), SIGTSTP); # else # if AIX || POSIX /* strict prototypes -- doesn't like the (0) */ kill(-getpgrp(), SIGTSTP); # else kill(-getpgrp(0), SIGTSTP); # endif #endif return TRUE; #else mlforce("[Job control unavailable]"); return FALSE; #endif /* SIGTSTP */ } /*ARGSUSED*/ SIGT rtfrmshell(signo) int signo; { #if UNIX && defined(SIGTSTP) # if ! X11 ttunclean(); curwp->w_flag = WFHARD; /* is this needed, with sgarbf == TRUE? */ sgarbf = TRUE; # if APOLLO (void)TTgetc(); /* have to skip a character */ ttunclean(); /* ...so that I can finally suppress echo */ # endif # if USG signal(SIGCONT,rtfrmshell); /* suspend & restart */ update(TRUE); # endif # endif #endif SIGRET; } void pressreturn() { int s; mlprompt("[Press return to continue]"); TTflush(); /* loop for a CR, a space, or a : to do another named command */ while ((s = kbd_key()) != '\r' && s != ' ' && s != kcod2key(abortc)) { extern CMDFUNC f_namedcmd; if (kcod2fnc(s) == &f_namedcmd) { tungetc(kcod2key(s)); break; } } TTputc('\r'); TTputc('\n'); } /* ARGSUSED */ int respawn(f,n) int f,n; { return spawn1(TRUE); } /* ARGSUSED */ int spawn(f,n) int f,n; { return spawn1(FALSE); } #if UNIX || MSDOS || VMS static int ShellPrompt P(( TBUFF **, char *, int )); static TBUFF *save_shell[2]; /* * Common function for prompting for shell/pipe command, and for recording the * last shell/pipe command so that we can support "!!" convention. * * Note that for 'pipecmd()', we must retain a leading "!". */ static int ShellPrompt(holds, result, rerun) TBUFF **holds; char *result; int rerun; /* TRUE/FALSE: spawn, -TRUE: pipecmd */ { register int s; static char bang[] = SHPIPE_LEFT; int cb = anycb(), fix = (rerun != -TRUE); char save[NLINE], temp[NLINE], line[NLINE+1]; if ((s = tb_length(*holds)) != 0) strncpy(save, tb_values(*holds), s)[s] = EOS; else save[0] = EOS; /* if it doesn't start with '!', or if that's all it is */ if (!isShellOrPipe(save) || save[1] == EOS) (void)strcpy(save, bang); (void)strcpy(line, save); if (rerun != TRUE) { if (cb != 0) (void)lsprintf(temp, "Warning: %d modified buffer%s: %s", cb, PLURAL(cb), bang); else (void)lsprintf(temp, "%s%s", rerun == -TRUE ? "" : ": ", bang); if ((s = mlreply_no_bs(temp, line+1, NLINE)) != TRUE) return s; } if (line[1] == bang[0]) { hst_remove(line+1); if (line[2] == EOS) { /* "!!" alone */ (void)strcpy(line, save); } else { /* append the current text to the last */ (void) strcpy(line, strcat(strcpy(temp, save), line+2)); } hst_append(line+1, EOS); mlwrite(": %s", line); } if (line[1] == EOS) return FALSE; *holds = tb_scopy(holds, line); (void)strcpy(result, line+fix); return TRUE; } #endif /* * Run a one-liner in a subjob. When the command returns, wait for a single * character to be typed, then mark the screen as garbage so a full repaint is * done. */ /* the #ifdefs have been totally separated, for readability */ int spawn1(rerun) int rerun; { #if UNIX register int s; char line[NLINE]; /* command line send to shell */ if ((s = ShellPrompt(&save_shell[0], line, rerun)) != TRUE) return s; #if X11 (void)system_SHELL(line); #else ttclean(TRUE); (void)system_SHELL(line); TTflush(); ttunclean(); pressreturn(); TTopen(); TTflush(); sgarbf = TRUE; #endif /* X11 */ return (TRUE); #endif /* UNIX */ #if AMIGA register int s; static char oline[NLINE]; /* command line send to shell */ char line[NLINE]; /* command line send to shell */ register char *cp; char line2[NLINE]; long newcli; if ((s=mlreply("cmd: !", oline, NLINE)) != TRUE) return (s); (void)strcpy(line,oline); newcli = Open("CON:0/0/640/200/MicroEMACS Subprocess", NEW); Execute(line, 0L, newcli); Close(newcli); tgetc(FALSE); /* Pause. */ sgarbf = TRUE; return(TRUE); #endif #if ST520 & MEGAMAX register int s; static char oline[NLINE]; /* command line send to shell */ char line[NLINE]; /* command line send to shell */ register char *cp; char line2[NLINE]; int i,j,k; char *sptr,*tptr; if ((s=mlreply("cmd: !", oline, NLINE)) != TRUE) return(s); (void)strcpy(line,oline); movecursor(term.t_nrow - 1, 0); TTclose(); /* * break the line into the command and its args * be cute about it, if there is no '.' in the filename, try * to find .prg, .tos or .ttp in that order * in any case check to see that the file exists before we run * amok */ STenv = NULL; if((tptr = index(&line[0],' ')) == NULL) { /* no args */ STcmd = castalloc(char, strlen(line) + 1); (void)strcpy(STcmd,line); STargs = NULL; } else { /* separate out the args from the command */ /* resist the temptation to do ptr arithmetic */ STcmd = castalloc(char, strlen(line) + 1); for(i = 0,sptr = &line[0]; sptr != tptr; sptr++,i++) STcmd[i] = *sptr; STcmd[i] = '\0'; for(; *tptr == ' ' || *tptr == '\t'; tptr++); if(*tptr == '\0') STargs = NULL; else { STargs = castalloc(char, strlen(tptr) + 2); /* first byte of STargs is the length of the string */ STargs[0] = strlen(tptr); STargs[1] = NULL; /* fake it for strcat */ (void)strcat(STargs,tptr); } } /* * before we issue the command look for the '.', if it's not there * try adding .prg, .tos and .ttp to see if they exist, if not * issue the command as is */ if((tptr = index(STcmd,'.')) == NULL) { STwork = castalloc(char,strlen(STcmd) + 4); (void)strcpy(STwork,STcmd); (void)strcat(STwork,".prg"); tptr = index(STwork,'.'); if(Fsfirst(1,STwork) != 0) { /* try .tos */ (void)strcpy(tptr,".tos"); if(Fsfirst(1,STwork) != 0) { /* try .ttp */ (void)strcpy(tptr,".ttp"); if(Fsfirst(1,STwork) != 0) /* never mind */ *STwork = NULL; } } } if(*STwork != NULL) Pexec(LOAD_EXEC,STwork,STargs,STenv); else Pexec(LOAD_EXEC,STcmd,STargs,STenv); TTopen(); mlforce("\r\n\n[End]"); /* Pause. */ TTgetc(); /* Pause. */ sgarbf = TRUE; return (TRUE); #endif #if VMS register int s; static char oline[NLINE]; /* command line send to shell */ char line[NLINE]; /* command line send to shell */ register char *cp; char line2[NLINE]; if ((s=mlreply("cmd: !", oline, NLINE)) != TRUE) return (s); (void)strcpy(line,oline); TTputc('\n'); /* Already have '\r' */ TTflush(); s = sys(line); /* Run the command. */ mlforce("\r\n\n[End]"); /* Pause. */ TTflush(); tgetc(FALSE); sgarbf = TRUE; return (s); #endif #if CPM mlforce("[Not in CP/M-86]"); return (FALSE); #endif #if MSDOS || (ST520 & LATTICE) register int s; static char oline[NLINE]; /* command line send to shell */ char line[NLINE]; /* command line send to shell */ if ((s=mlreply("cmd: !", oline, NLINE)) != TRUE) return(s); (void)strcpy(line,oline); movecursor(term.t_nrow - 1, 0); TTkclose(); system(line); TTkopen(); /* if we are interactive, pause here */ if (clexec == FALSE) { mlforce("\r\n\n[End]"); tgetc(FALSE); } sgarbf = TRUE; return (TRUE); #endif } #if UNIX || MSDOS || VMS /* * Pipe a one line command into a window */ /* ARGSUSED */ int pipecmd(f, n) int f,n; { register BUFFER *bp; /* pointer to buffer to zot */ register int s; char line[NLINE]; /* command line send to shell */ static char bname[] = ScratchName(Output); /* get the command to pipe in */ hst_init('!'); s = ShellPrompt(&save_shell[!global_g_val(GMDSAMEBANGS)], line, -TRUE); hst_flush(); /* prompt ok? */ if (s == TRUE) { if (((s = ((bp = bfind(bname, OK_CREAT, 0)) != NULL)) == TRUE) && ((s = popupbuff(bp)) == TRUE) && ((s = swbuffer(bp)) == TRUE) && ((s = readin(line, FALSE, bp, TRUE)) == TRUE)) set_rdonly(bp, line); } return (s); } #else /* ! UNIX */ /* * Pipe a one line command into a window */ int pipecmd(f, n) { register int s; /* return status from CLI */ register WINDOW *wp; /* pointer to new window */ register BUFFER *bp; /* pointer to buffer to zot */ static char oline[NLINE]; /* command line send to shell */ char line[NLINE]; /* command line send to shell */ static char bname[] = ScratchName(Output); WINDOW *ocurwp; /* save the current window during delete */ #if AMIGA static char filnam[] = "ram:command"; long newcli; #else static char filnam[NSTRING] = "command"; #endif #if CPM mlforce("[Not available under CP/M-86]"); return(FALSE); #endif /* get the command to pipe in */ if ((s=mlreply("cmd: <", oline, NLINE)) != TRUE) return(s); (void)strcpy(line,oline); /* get rid of the command output buffer if it exists */ if ((bp=bfind(bname, NO_CREAT, 0)) != NULL) { /* try to make sure we are off screen */ ocurwp = NULL; for_each_window(wp) { if (wp->w_bufp == bp) { if (curwp != wp) { ocurwp = curwp; curwp = wp; } delwind(FALSE, 1); if (ocurwp != NULL) curwp = ocurwp; break; } } if (zotbuf(bp) != TRUE) return(FALSE); } #if AMIGA newcli = Open("CON:0/0/640/200/MicroEMACS Subprocess", NEW); (void)strcat(line, " >"); (void)strcat(line, filnam); Execute(line, 0L, newcli); s = TRUE; Close(newcli); sgarbf = TRUE; #endif if (s != TRUE) return(s); /* split the current window to make room for the command output */ if (splitwind(FALSE, 1) == FALSE) return(FALSE); /* and read the stuff in */ if (getfile(filnam, FALSE) == FALSE) return(FALSE); /* overwrite its buffer name for consistency */ (void)strcpy(curbp->b_bname, bname); /* make this window in VIEW mode, update buffer's mode lines */ make_local_b_val(curwp->w_bufp,MDVIEW); set_b_val(curwp->w_bufp,MDVIEW,TRUE); markWFMODE(curbp); #if FINDERR set_febuff(bname); #endif /* and get rid of the temporary file */ unlink(filnam); return(TRUE); } #endif /* UNIX */ /* run a region through an external filter, replace it with its output */ int filterregion() { #if UNIX||MSDOS static char oline[NLINE]; /* command line send to shell */ char line[NLINE]; /* command line send to shell */ FILE *fr, *fw; int s; /* get the filter name and its args */ if ((s=mlreply_no_bs("!", oline, NLINE)) != TRUE) return(s); (void)strcpy(line,oline); if ((s = inout_popen(&fr, &fw, line)) != TRUE) { mlforce("[Couldn't open pipe or command]"); return s; } killregion(); if (!softfork()) { KILL *kp; /* pointer into kill register */ kregcirculate(FALSE); kp = kbs[ukb].kbufh; while (kp != NULL) { if (kp->d_next == NULL) fwrite((char *)kp->d_chunk, 1, kbs[ukb].kused, fw); else fwrite((char *)kp->d_chunk, 1, KBLOCK, fw); kp = kp->d_next; } #if UNIX fflush(fw); fclose(fw); exit (0); /* NOTREACHED */ #else npflush(); /* fake multi-processing */ #endif } fclose(fw); DOT.l = lback(DOT.l); s = ifile((char *)0,TRUE,fr); npclose(fr); firstnonwhite(FALSE,1); setmark(); return s; #else mlforce("[Region filtering not available]"); return FALSE; #endif } /* * filter a buffer through an external DOS program * this is obsolete, the filterregion code is better. */ /* ARGSUSED */ int filter(f, n) int f,n; { register int s; /* return status from CLI */ register BUFFER *bp; /* pointer to buffer to zot */ static char oline[NLINE]; /* command line send to shell */ char line[NLINE]; /* command line send to shell */ char tnam[NFILEN]; /* place to store real file name */ static char bname1[] = "fltinp"; #if AMIGA static char filnam1[] = "ram:fltinp"; static char filnam2[] = "ram:fltout"; long newcli; #else static char filnam1[] = "fltinp"; static char filnam2[] = "fltout"; #endif #if VMS mlforce("[Not available under VMS]"); return(FALSE); #endif #if CPM mlforce("[Not available under CP/M-86]"); return(FALSE); #endif /* get the filter name and its args */ if ((s=mlreply("cmd: |", oline, NLINE)) != TRUE) return(s); (void)strcpy(line,oline); /* setup the proper file names */ bp = curbp; (void)strcpy(tnam, bp->b_fname);/* save the original name */ ch_fname(bp, bname1); /* set it to our new one */ /* write it out, checking for errors */ if (writeout(filnam1,curbp,TRUE) != TRUE) { mlforce("[Cannot write filter file]"); ch_fname(bp, tnam); return(FALSE); } #if AMIGA newcli = Open("CON:0/0/640/200/MicroEMACS Subprocess", NEW); (void)strcat(line, " ram:fltout"); Execute(line,0L,newcli); s = TRUE; Close(newcli); sgarbf = TRUE; #endif #if MSDOS (void)strcat(line," fltout"); movecursor(term.t_nrow - 1, 0); TTkclose(); system(line); TTkopen(); sgarbf = TRUE; s = TRUE; #endif #if UNIX ttclean(TRUE); (void)strcat(line," fltout"); system(line); ttunclean(); TTflush(); sgarbf = TRUE; s = TRUE; #endif /* on failure, escape gracefully */ if (s != TRUE || (readin(filnam2,FALSE,curbp,TRUE) == FALSE)) { mlforce("[Execution failed]"); ch_fname(bp, tnam); unlink(filnam1); unlink(filnam2); return(s); } ch_fname(bp, tnam); /* restore name */ bp->b_flag |= BFCHG; /* flag it as changed */ /* and get rid of the temporary file */ unlink(filnam1); unlink(filnam2); return(TRUE); } #if VMS /* * Run a command. The "cmd" is a pointer to a command string, or NULL if you * want to run a copy of DCL in the subjob (this is how the standard routine * LIB$SPAWN works. You have to do wierd stuff with the terminal on the way in * and the way out, because DCL does not want the channel to be in raw mode. */ int sys(cmd) register char *cmd; { struct dsc$descriptor cdsc; struct dsc$descriptor *cdscp; long status; long substatus; long iosb[2]; status = SYS$QIOW(EFN, iochan, IO$_SETMODE, iosb, 0, 0, oldmode, sizeof(oldmode), 0, 0, 0, 0); if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL) return (FALSE); cdscp = NULL; /* Assume DCL. */ if (cmd != NULL) { /* Build descriptor. */ cdsc.dsc$a_pointer = cmd; cdsc.dsc$w_length = strlen(cmd); cdsc.dsc$b_dtype = DSC$K_DTYPE_T; cdsc.dsc$b_class = DSC$K_CLASS_S; cdscp = &cdsc; } status = LIB$SPAWN(cdscp, 0, 0, 0, 0, 0, &substatus, 0, 0, 0); if (status != SS$_NORMAL) substatus = status; status = SYS$QIOW(EFN, iochan, IO$_SETMODE, iosb, 0, 0, newmode, sizeof(newmode), 0, 0, 0, 0); if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL) return (FALSE); if ((substatus&STS$M_SUCCESS) == 0) /* Command failed. */ return (FALSE); return (TRUE); } #endif #if ~AZTEC & ~MSC & ~TURBO & ~ZTC & MSDOS /* * This routine, once again by Bob McNamara, is a C translation of the "system" * routine in the MWC-86 run time library. It differs from the "system" routine * in that it does not unconditionally append the string ".exe" to the end of * the command name. We needed to do this because we want to be able to spawn * off "command.com". We really do not understand what it does, but if you don't * do it exactly "malloc" starts doing very very strange things. */ int sys(cmd, tail) char *cmd; char *tail; { #if MWC86 register unsigned n; extern char *__end; n = __end + 15; n >>= 4; n = ((n + dsreg() + 16) & 0xFFF0) + 16; return(execall(cmd, tail, n)); #endif #if LATTICE return(forklp(cmd, tail, (char *)NULL)); #endif } #endif #if MSDOS & LATTICE /* System: a modified version of lattice's system() function that detects the proper switchar and uses it written by Dana Hogget */ int system(cmd) char *cmd; /* Incoming command line to execute */ { static char *swchar = "/C"; /* Execution switch */ union REGS inregs; /* parameters for dos call */ union REGS outregs; /* Return results from dos call */ char *shell; /* Name of system command processor */ char *p; /* Temporary pointer */ int ferr; /* Error condition if any */ /* get name of system shell */ if ((shell = getenv("COMSPEC")) == NULL) { return (-1); /* No shell located */ } p = cmd; while (isspace(*p)) { /* find out if null command */ p++; } /** If the command line is not empty, bring up the shell **/ /** and execute the command. Otherwise, bring up the **/ /** shell in interactive mode. **/ if (p && *p) { /** detect current switch character and us it **/ inregs.h.ah = 0x37; /* get setting data */ inregs.h.al = 0x00; /* get switch character */ intdos(&inregs, &outregs); *swchar = outregs.h.dl; ferr = forkl(shell, "command", swchar, cmd, (char *)NULL); } else { ferr = forkl(shell, "command", (char *)NULL); } return (ferr ? ferr : wait()); } #endif