/*
 * 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);
}