divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`NSPEC',25)
define(`TWOCHK',6)	# location of % operator
	#any operators before % may be start of 2 character symbol
define(`NSPEC2',7)
divert(0)
CHARACTER(1) spec(NSPEC)
CHARACTER(2) spec2(NSPEC2)
integer tktp(NSPEC),tktp2(NSPEC2)
data (spec(i),tktp(i),i=1,NSPEC)/_
	">",	LOGOP,
	"<",	LOGOP,
	"!",	NOT,
	"*",	MULOP,
	"=",	EQUAL,
	"-",	ADDOP,
	"%",	PERCENT,
	"+",	ADDOP,
	"/",	MULOP,
	"^",	UARROW,
	":",	COLON,
	"$",	DOLLAR,
	"[",	LBRACK,
	"_",	LARROW,
	"&",	ANDOR,
	"|",	ANDOR,
	"(",	LPAR,
	")",	RPAR,
	"]",	RBRACK,
	",",	COMMA,
	"{",	LBRACE,
	"}",	RBRACE,
	";",	SEMI ,
	"?",	QUESTION,
	"`#'",	COMMENT /
data (spec2(i),tktp2(i),i=1,NSPEC2)/_
	"<=",	LOGOP,
	">=",	LOGOP,
	"!=",	LOGOP,
	"==",	LOGOP,
	"<-",	LARROW,
	"->",	RARROW,
	"**",	UARROW /
SCCS_ID(93573,`@(#)'spctok.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
