/* * This material contains unpublished, proprietary software of  * Entropic Research Laboratory, Inc. Any reproduction, distribution,  * or publication of this work must be authorized in writing by Entropic  * Research Laboratory, Inc., and must bear the notice:  * *    "Copyright (c) 1990-1993 Entropic Research Laboratory, Inc.  *                   All rights reserved" * * The copyright notice above does not evidence any actual or intended  * publication of this source code.      * * Written by:  Rod Johnson * Checked by: * Revised by: * * Brief description:  predicate: does code represent numeric data type? * */static char *sccs_id = "@(#)is_numeric.c	1.1	6/25/93	ERL";#include <esps/esps.h>intis_type_numeric(type)    int	    type;{    switch (type)    {    case BYTE:    case SHORT:    case LONG:    case FLOAT:    case DOUBLE:    case BYTE_CPLX:    case SHORT_CPLX:    case LONG_CPLX:    case FLOAT_CPLX:    case DOUBLE_CPLX:	return YES;    default:	return NO;    }}