/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* execqfxl APL2 V1.0.0 ************************************************
* Called from apledix. Function establishment. The argument must be    *
* an APL character matrix representing a user-defined function.        *
***********************************************************************/
#define INCLUDES STRING+APLCB+APLTOKEN+APLFUNCI
#include "includes.h"
Apltoken execqfxl(fp)
Aplfunc fp; /* function definition structure */
{
	Execqfxd; Execqfxf; Execqfxi;
	extern int aplerr;
	Apltoken nametok;

	fp->funcname = execqfxd(fp); /* check header, get function name */
	if (aplerr == 0) {
		execqfxf(fp); /* do labels */
		execqfxi(fp); /* check for synonyms */
	}
	return(fp->funcname); /* return function name token */
}