/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* aplquad APL2 V1.0.0 *************************************************
* Called from aplparsf when the current character is a quad to parse a *
* potential quad name, e.g. Lio or Lav.                                *
***********************************************************************/
#define INCLUDES APLTOKEN
#include "includes.h"
void aplquad(cur,sp,spend)
Apltoken cur;
char *sp[]; /* pointer to pointer to string being parsed */
char *spend; /* pointer to after end of string being parsed */
{
	Aplquae;
	int i;

	if (0 == (i = aplquae(sp,spend)))
		return; /* Not a quad name. */
	cur->token_code = i;
}