/* Copyright (C) 1994 by Thomas Glen Smith.	All Rights Reserved. */
/* executf APL2 V1.0.0 *************************************************
* Called by compute, execute, and funcsusq.                            *
* Internal interface to APL EXECUTE function.                          *
***********************************************************************/
#define INCLUDES APLTOKEN+APLCHDEF+APLCB+TREE
#include "includes.h"
Aplcb executf(rite)
Aplcb rite;
{
	Errinit; Errstop; Executg;
	extern Treelist treehdr;
	extern int aplerr;
	Aplcb out=NULL;

	if (!errinit()) {
		out = executg(rite);
		if (aplerr) execmsg(rite->aplptr.aplchar,rite->aplcount,
			treehdr->avloff, NULL); /* err msg */
	}
	return(errstop(0,NULL,rite,out));
}