/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/* aplparsg APL2 V1.0.0 ************************************************
* Called by aplparse to return a token_code based on the most recently *
* obtained token code from aplscan. Generic codes ALPHABET and DIGIT   *
* may be returned if appropriate.                                      *
***********************************************************************/
#define INCLUDES APLCHDEF+APLTOKEN
#include "includes.h"
int aplparsg(next_code)
int next_code; /* Most recently obtained token code. */
{
	int ret;

	ret = next_code; /* set default return value */
	if (ret == DELTA || 
		(ret >= ALPHAONE && ret <= ALPHATWO))
		ret = ALPHABET; /* generic */
	else	if (ret >= APL_0 && ret <= APL_9)
		ret = DIGIT; /* generic */
	return(ret);
}