/*
 * scanner.h
 */
#define ALF 20

typedef enum {lprtok, rprtok, numtok, alftok} Ttype;
typedef char Alftype[ALF];
typedef double Numtype;
typedef struct {
	Ttype tokentype;
	union {
		Alftype alfval;
		Numtype numval;
	      } tokenval;
	} Token;

long gettoken (Token* tok);

/*-------------------------------------------------*/