![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to spawn.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / g / usr / bin / me|
Return to spawn.c CVS log | Up to [MW Coherent from dump] / coherent / g / usr / bin / me |
1.1 ! root 1: /* ! 2: * The routines in this file ! 3: * are called to create a subjob running ! 4: * a command interpreter. This code is a big ! 5: * fat nothing on CP/M-86. You lose. ! 6: */ ! 7: #include <stdio.h> ! 8: #include "ed.h" ! 9: ! 10: #if VMS ! 11: #define EFN 0 /* Event flag. */ ! 12: ! 13: #include <ssdef.h> /* Random headers. */ ! 14: #include <stsdef.h> ! 15: #include <descrip.h> ! 16: #include <iodef.h> ! 17: ! 18: extern int oldmode[]; /* In "termio.c" */ ! 19: extern int newmode[]; /* In "termio.c" */ ! 20: extern short iochan; /* In "termio.c" */ ! 21: #endif ! 22: ! 23: #if MSDOS ! 24: #include <dos.h> ! 25: #endif ! 26: ! 27: #if V7 ! 28: #include <signal.h> ! 29: #endif ! 30: ! 31: /* ! 32: * Create a subjob with a copy ! 33: * of the command intrepreter in it. When the ! 34: * command interpreter exits, mark the screen as ! 35: * garbage so that you do a full repaint. Bound ! 36: * to "C-C". The message at ! 37: * the start in VMS puts out a newline. Under ! 38: * some (unknown) condition, you don't get one ! 39: * free when DCL starts up. ! 40: */ ! 41: spawncli(f, n) ! 42: { ! 43: #if V7 ! 44: uchar *cp; ! 45: char buf[80]; ! 46: char *getenv(); ! 47: #endif ! 48: #if VMS ! 49: movecursor(term.t_nrow, 0); /* In last line. */ ! 50: mlputs("[Starting DCL]\r\n"); ! 51: tflush(); /* Ignore "ttcol". */ ! 52: sgarbf = TRUE; ! 53: return (sys(NULL)); /* NULL => DCL. */ ! 54: #endif ! 55: #if CPM ! 56: mlwrite("Not in CP/M-86"); ! 57: #endif ! 58: #if GEM ! 59: movecursor(term.t_nrow, 0); /* Seek to last line. */ ! 60: tflush(); ! 61: tclose(); ! 62: system("msh"); ! 63: sgarbf = TRUE; ! 64: topen(); ! 65: return (TRUE); ! 66: #endif ! 67: #if MSDOS ! 68: movecursor(term.t_nrow, 0); /* Seek to last line. */ ! 69: tflush(); ! 70: ttclose(); ! 71: execall("c:\\command.com", ""); /* Run CLI. */ ! 72: ttopen(); ! 73: sgarbf = TRUE; ! 74: return (TRUE); ! 75: #endif ! 76: #if V7 ! 77: movecursor(term.t_nrow, 0); /* Seek to last line. */ ! 78: tflush(); ! 79: tclose(); /* stty to old settings */ ! 80: if ((cp = getenv("SHELL")) != NULL && *cp != '\0') { ! 81: sprintf(buf, "exec %s", cp); ! 82: system(buf); ! 83: } ! 84: else ! 85: system("exec /bin/sh"); ! 86: ! 87: sgarbf = TRUE; ! 88: topen(); ! 89: ! 90: return (TRUE); ! 91: #endif ! 92: } ! 93: ! 94: /* ! 95: * Run a one-liner in a subjob. ! 96: * When the command returns, wait for a single ! 97: * character to be typed, then mark the screen as ! 98: * garbage so a full repaint is done. ! 99: * Bound to "C-X !". ! 100: */ ! 101: spawn(f, n) ! 102: { ! 103: register int s; ! 104: uchar line[NLINE]; ! 105: #if VMS ! 106: if ((s=mlreply("DCL command: ", line, NLINE)) != TRUE) ! 107: return (s); ! 108: tputc('\n'); /* Already have '\r' */ ! 109: tflush(); ! 110: s = sys(line); /* Run the command. */ ! 111: mlputs("\r\n\n[End]"); /* Pause. */ ! 112: tflush(); ! 113: while (tgetc() != '\r') ! 114: ; ! 115: sgarbf = TRUE; ! 116: return (s); ! 117: #endif ! 118: #if CPM ! 119: mlwrite("Not in CP/M-86"); ! 120: return (FALSE); ! 121: #endif ! 122: #if GEM ! 123: if ((s=mlreply("! ", line, NLINE)) != TRUE) ! 124: return (s); ! 125: tputc('\n'); /* Already have '\r' */ ! 126: tflush(); ! 127: tclose(); ! 128: system(line); ! 129: topen(); ! 130: mlputs("[End]"); /* Pause. */ ! 131: tflush(); ! 132: while ((s = tgetc()) != '\r' && s != ' ') ! 133: ; ! 134: sgarbf = TRUE; ! 135: return (TRUE); ! 136: #endif ! 137: #if MSDOS ! 138: if ((s=mlreply("DOS command: ", line, NLINE)) != TRUE) ! 139: return (s); ! 140: (*term.t_putchar)('\n'); ! 141: ttclose(); ! 142: system(line); ! 143: ttopen(); ! 144: mlputs("\n[End]"); ! 145: while (tgetc() != '\r') /* Pause. */ ! 146: ; ! 147: sgarbf = TRUE; ! 148: return (TRUE); ! 149: #endif ! 150: #if V7 ! 151: if ((s=mlreply("! ", line, NLINE)) != TRUE) ! 152: return (s); ! 153: tputc('\n'); /* Already have '\r' */ ! 154: tflush(); ! 155: tclose(); /* stty to old modes */ ! 156: system(line); ! 157: sleep(2); ! 158: topen(); ! 159: mlputs("[End]"); /* Pause. */ ! 160: tflush(); ! 161: while ((s = tgetc()) != '\r' && s != ' ') ! 162: ; ! 163: sgarbf = TRUE; ! 164: return (TRUE); ! 165: #endif ! 166: } ! 167: ! 168: #if VMS ! 169: /* ! 170: * Run a command. The "cmd" is a pointer ! 171: * to a command string, or NULL if you want to run ! 172: * a copy of DCL in the subjob (this is how the standard ! 173: * routine LIB$SPAWN works. You have to do wierd stuff ! 174: * with the terminal on the way in and the way out, ! 175: * because DCL does not want the channel to be ! 176: * in raw mode. ! 177: */ ! 178: sys(cmd) ! 179: register uchar *cmd; ! 180: { ! 181: struct dsc$descriptor cdsc; ! 182: struct dsc$descriptor *cdscp; ! 183: long status; ! 184: long substatus; ! 185: long iosb[2]; ! 186: ! 187: status = SYS$QIOW(EFN, iochan, IO$_SETMODE, iosb, 0, 0, ! 188: oldmode, sizeof(oldmode), 0, 0, 0, 0); ! 189: if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL) ! 190: return (FALSE); ! 191: cdscp = NULL; /* Assume DCL. */ ! 192: if (cmd != NULL) { /* Build descriptor. */ ! 193: cdsc.dsc$a_pointer = cmd; ! 194: cdsc.dsc$w_length = strlen(cmd); ! 195: cdsc.dsc$b_dtype = DSC$K_DTYPE_T; ! 196: cdsc.dsc$b_class = DSC$K_CLASS_S; ! 197: cdscp = &cdsc; ! 198: } ! 199: status = LIB$SPAWN(cdscp, 0, 0, 0, 0, 0, &substatus, 0, 0, 0); ! 200: if (status != SS$_NORMAL) ! 201: substatus = status; ! 202: status = SYS$QIOW(EFN, iochan, IO$_SETMODE, iosb, 0, 0, ! 203: newmode, sizeof(newmode), 0, 0, 0, 0); ! 204: if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL) ! 205: return (FALSE); ! 206: if ((substatus&STS$M_SUCCESS) == 0) /* Command failed. */ ! 207: return (FALSE); ! 208: return (TRUE); ! 209: } ! 210: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.