home *** CD-ROM | disk | FTP | other *** search
- /*
- * Name: MicroEMACS
- * Spawn an AmigaDOS subprocess
- * Version: 31
- * Last edit: 17-Apr-86
- * By: ...!ihnp4!seismo!ut-sally!ut-ngp!mic
- */
-
- #include <libraries/dos.h>
- #include <libraries/dosextens.h>
- #undef TRUE
- #undef FALSE
- #include "def.h" /* AFTER system files to avoid redef's */
-
- /*
- * Create a subjob with a copy
- * of the command intrepreter in it. Since the command
- * interpreter doesn't run in the same window, there's no
- * need for a refresh. Ah, the beauties of windowing system...
- */
- spawncli(f, n, k)
- {
- struct FileHandle *newcli, *Open();
-
- eprintf("[Starting new CLI]");
- newcli = Open("CON:1/1/639/199/MicroEmacs Subprocess",
- MODE_NEWFILE);
- if (newcli == (struct FileHandle *) 0) {
- eprintf("Can't create new CLI window");
- return (FALSE);
- }
- Execute("", newcli, 0L);
- Close(newcli);
- return (TRUE);
- }
-
-
-