/******************************************************************************

			UNSW Prolog (version 4)

			Written by Claude Sammut
		     Department of Computer Science
		     University of New South Wales
		   (and St. Joseph's U., Philadelphia)

		   Copyright (c)  1983 - Claude Sammut

******************************************************************************/





/*			Global definitions for input routines		*/


#define readch getc(input)


/*	funny chars for making quoted atoms	*/

#define isfunny(ch) (chtype[ch] != WORDCH)

typedef enum
{
	WORDCH, STRINGCH, SYMBOLCH, PUNCTCH, QUOTECH, DIGIT, WHITESP, 
	ILLEGALCH
} chartype;


typedef enum
{
	WORD_T, STRING_T, SYMBOL_T, PUNCT_T, FUNCT_T, INT_T, ILLEGAL, END
} lextype;

extern FILE *input;
