DataMuseum.dk

top - download

    Length: 950 (0x3b6)
    Types: TextFile
    Names: »spawn.c«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/micrognu/sys/amiga/spawn.c« 

TextFile

/*
 * Name:	MicroEMACS
 *		Spawn an AmigaDOS subprocess
 * Version:	Gnu30
 * Last edit:	17-Aug-1986
 * 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.
 * This is really a way to get a new copy of the CLI, because
 * we don't wait around for the new process to quit.  Note the use
 * of a file handle to nil: to avoid the "endcli" message going out
 * to Emacs's standard output.
 */

spawncli(f, n, k)
{
	struct FileHandle *nil, *Open();
	
	ewprintf("[Starting new CLI]");
	nil = Open("NIL:", MODE_NEWFILE);
	if (nil == (struct FileHandle *) 0) { /* highly unlikely */
		ewprintf("Can't create nil file handle");
		return (FALSE);
	}
	Execute("NEWCLI \"CON:0/0/640/200/MicroEmacs Subprocess\"",nil,nil);
	Close(nil);
	return (TRUE);
}