home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / EDITOR / MG2A_SRC.ZIP / SYS / AMIGA / SPAWN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-08-23  |  974 b   |  39 lines
  1. /*
  2.  * Name:    MG
  3.  * Version:    2x
  4.  *        Spawn an AmigaDOS subprocess
  5.  * Last edit:    05-Sep-1987
  6.  * By:        ...!ihnp4!seismo!ut-sally!ut-ngp!mic
  7.  */
  8.  
  9. #include <libraries/dos.h>
  10. #include <libraries/dosextens.h>
  11. #undef TRUE
  12. #undef FALSE
  13. #include "def.h"        /* AFTER system files to avoid redef's */
  14.  
  15. /*
  16.  * Create a subjob with a copy of the command intrepreter in it.
  17.  * This is really a way to get a new copy of the CLI, because
  18.  * we don't wait around for the new process to quit.  Note the use
  19.  * of a file handle to nil: to avoid the "endcli" message going out
  20.  * to Emacs's standard output.
  21.  */
  22.  
  23. spawncli(f, n)
  24. {
  25.     struct FileHandle *nil, *Open();
  26.     
  27.     ewprintf("[Starting new CLI]");
  28.     nil = Open("NIL:", MODE_NEWFILE);
  29.     if (nil == (struct FileHandle *) 0) { /* highly unlikely */
  30.         ewprintf("Can't create nil file handle");
  31.         return (FALSE);
  32.     }
  33.     Execute("NEWCLI \"CON:0/0/640/200/MicroEmacs Subprocess\"",nil,nil);
  34.     Close(nil);
  35.     return (TRUE);
  36. }
  37.  
  38.  
  39.