![[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 / d / usr / bin / emacs|
Return to spawn.c CVS log | Up to [MW Coherent from dump] / coherent / d / usr / bin / emacs |
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: register uchar *cp;
45: char *getenv();
46: #endif
47: #if VMS
48: movecursor(term.t_nrow, 0); /* In last line. */
49: mlputs("[Starting DCL]\r\n");
50: tflush(); /* Ignore "ttcol". */
51: sgarbf = TRUE;
52: return (sys(NULL)); /* NULL => DCL. */
53: #endif
54: #if CPM
55: mlwrite("Not in CP/M-86");
56: #endif
57: #if GEM
58: movecursor(term.t_nrow, 0); /* Seek to last line. */
59: tflush();
60: tclose();
61: system("msh");
62: sgarbf = TRUE;
63: topen();
64: return (TRUE);
65: #endif
66: #if MSDOS
67: movecursor(term.t_nrow, 0); /* Seek to last line. */
68: tflush();
69: ttclose();
70: execall("c:\\command.com", ""); /* Run CLI. */
71: ttopen();
72: sgarbf = TRUE;
73: return (TRUE);
74: #endif
75: #if V7
76: movecursor(term.t_nrow, 0); /* Seek to last line. */
77: tflush();
78: tclose(); /* stty to old settings */
79: if ((cp = getenv("SHELL")) != NULL && *cp != '\0')
80: system(cp);
81: else
82: system("exec /bin/sh");
83: sgarbf = TRUE;
84: topen();
85: return (TRUE);
86: #endif
87: }
88:
89: /*
90: * Run a one-liner in a subjob.
91: * When the command returns, wait for a single
92: * character to be typed, then mark the screen as
93: * garbage so a full repaint is done.
94: * Bound to "C-X !".
95: */
96: spawn(f, n)
97: {
98: register int s;
99: uchar line[NLINE];
100: #if VMS
101: if ((s=mlreply("DCL command: ", line, NLINE)) != TRUE)
102: return (s);
103: tputc('\n'); /* Already have '\r' */
104: tflush();
105: s = sys(line); /* Run the command. */
106: mlputs("\r\n\n[End]"); /* Pause. */
107: tflush();
108: while (tgetc() != '\r')
109: ;
110: sgarbf = TRUE;
111: return (s);
112: #endif
113: #if CPM
114: mlwrite("Not in CP/M-86");
115: return (FALSE);
116: #endif
117: #if GEM
118: if ((s=mlreply("! ", line, NLINE)) != TRUE)
119: return (s);
120: tputc('\n'); /* Already have '\r' */
121: tflush();
122: tclose();
123: system(line);
124: topen();
125: mlputs("[End]"); /* Pause. */
126: tflush();
127: while ((s = tgetc()) != '\r' && s != ' ')
128: ;
129: sgarbf = TRUE;
130: return (TRUE);
131: #endif
132: #if MSDOS
133: if ((s=mlreply("DOS command: ", line, NLINE)) != TRUE)
134: return (s);
135: (*term.t_putchar)('\n');
136: ttclose();
137: system(line);
138: ttopen();
139: mlputs("\n[End]");
140: while (tgetc() != '\r') /* Pause. */
141: ;
142: sgarbf = TRUE;
143: return (TRUE);
144: #endif
145: #if V7
146: if ((s=mlreply("! ", line, NLINE)) != TRUE)
147: return (s);
148: tputc('\n'); /* Already have '\r' */
149: tflush();
150: tclose(); /* stty to old modes */
151: system(line);
152: sleep(2);
153: topen();
154: mlputs("[End]"); /* Pause. */
155: tflush();
156: while ((s = tgetc()) != '\r' && s != ' ')
157: ;
158: sgarbf = TRUE;
159: return (TRUE);
160: #endif
161: }
162:
163: #if VMS
164: /*
165: * Run a command. The "cmd" is a pointer
166: * to a command string, or NULL if you want to run
167: * a copy of DCL in the subjob (this is how the standard
168: * routine LIB$SPAWN works. You have to do wierd stuff
169: * with the terminal on the way in and the way out,
170: * because DCL does not want the channel to be
171: * in raw mode.
172: */
173: sys(cmd)
174: register uchar *cmd;
175: {
176: struct dsc$descriptor cdsc;
177: struct dsc$descriptor *cdscp;
178: long status;
179: long substatus;
180: long iosb[2];
181:
182: status = SYS$QIOW(EFN, iochan, IO$_SETMODE, iosb, 0, 0,
183: oldmode, sizeof(oldmode), 0, 0, 0, 0);
184: if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
185: return (FALSE);
186: cdscp = NULL; /* Assume DCL. */
187: if (cmd != NULL) { /* Build descriptor. */
188: cdsc.dsc$a_pointer = cmd;
189: cdsc.dsc$w_length = strlen(cmd);
190: cdsc.dsc$b_dtype = DSC$K_DTYPE_T;
191: cdsc.dsc$b_class = DSC$K_CLASS_S;
192: cdscp = &cdsc;
193: }
194: status = LIB$SPAWN(cdscp, 0, 0, 0, 0, 0, &substatus, 0, 0, 0);
195: if (status != SS$_NORMAL)
196: substatus = status;
197: status = SYS$QIOW(EFN, iochan, IO$_SETMODE, iosb, 0, 0,
198: newmode, sizeof(newmode), 0, 0, 0, 0);
199: if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
200: return (FALSE);
201: if ((substatus&STS$M_SUCCESS) == 0) /* Command failed. */
202: return (FALSE);
203: return (TRUE);
204: }
205: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.