xref: /csrg-svn/old/sh/ctype.c (revision 30367)
114478Ssam #ifndef lint
2*30367Ssam static char sccsid[] = "@(#)ctype.c	4.3 01/11/87";
314478Ssam #endif
46686Smckusick 
56686Smckusick #
66686Smckusick /*
76686Smckusick  *	UNIX shell
86686Smckusick  *
96686Smckusick  *	S. R. Bourne
106686Smckusick  *	Bell Telephone Laboratories
116686Smckusick  *
126686Smckusick  */
136686Smckusick 
146686Smckusick #include	"defs.h"
156686Smckusick 
16*30367Ssam char	_ctype1[] = {
176686Smckusick /*	000	001	002	003	004	005	006	007	*/
186686Smckusick 	_EOF,	0,	0,	0,	0,	0,	0,	0,
196686Smckusick 
206686Smckusick /*	bs	ht	nl	vt	np	cr	so	si	*/
216686Smckusick 	0,	_TAB,	_EOR,	0,	0,	0,	0,	0,
226686Smckusick 
236686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
246686Smckusick 
256686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
266686Smckusick 
276686Smckusick /*	sp	!	"	#	$	%	&	'	*/
286686Smckusick 	_SPC,	0,	_DQU,	0,	_DOL1,	0,	_AMP,	0,
296686Smckusick 
306686Smckusick /*	(	)	*	+	,	-	.	/	*/
316686Smckusick 	_BRA,	_KET,	0,	0,	0,	0,	0,	0,
326686Smckusick 
336686Smckusick /*	0	1	2	3	4	5	6	7	*/
346686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
356686Smckusick 
366686Smckusick /*	8	9	:	;	<	=	>	?	*/
376686Smckusick 	0,	0,	0,	_SEM,	_LT,	0,	_GT,	0,
386686Smckusick 
396686Smckusick /*	@	A	B	C	D	E	F	G	*/
406686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
416686Smckusick 
426686Smckusick /*	H	I	J	K	L	M	N	O	*/
436686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
446686Smckusick 
456686Smckusick /*	P	Q	R	S	T	U	V	W	*/
466686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
476686Smckusick 
486686Smckusick /*	X	Y	Z	[	\	]	^	_	*/
496686Smckusick 	0,	0,	0,	0,	_BSL,	0,	_HAT,	0,
506686Smckusick 
516686Smckusick /*	`	a	b	c	d	e	f	g	*/
526686Smckusick 	_LQU,	0,	0,	0,	0,	0,	0,	0,
536686Smckusick 
546686Smckusick /*	h	i	j	k	l	m	n	o	*/
556686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
566686Smckusick 
576686Smckusick /*	p	q	r	s	t	u	v	w	*/
586686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
596686Smckusick 
606686Smckusick /*	x	y	z	{	|	}	~	del	*/
616686Smckusick 	0,	0,	0,	0,	_BAR,	0,	0,	0
626686Smckusick };
636686Smckusick 
646686Smckusick 
65*30367Ssam char	_ctype2[] = {
666686Smckusick /*	000	001	002	003	004	005	006	007	*/
676686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
686686Smckusick 
696686Smckusick /*	bs	ht	nl	vt	np	cr	so	si	*/
706686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
716686Smckusick 
726686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
736686Smckusick 
746686Smckusick 	0,	0,	0,	0,	0,	0,	0,	0,
756686Smckusick 
766686Smckusick /*	sp	!	"	#	$	%	&	'	*/
776686Smckusick 	0,	_PCS,	0,	_NUM,	_DOL2,	0,	0,	0,
786686Smckusick 
796686Smckusick /*	(	)	*	+	,	-	.	/	*/
806686Smckusick 	0,	0,	_AST,	_PLS,	0,	_MIN,	0,	0,
816686Smckusick 
826686Smckusick /*	0	1	2	3	4	5	6	7	*/
836686Smckusick 	_DIG,	_DIG,	_DIG,	_DIG,	_DIG,	_DIG,	_DIG,	_DIG,
846686Smckusick 
856686Smckusick /*	8	9	:	;	<	=	>	?	*/
866686Smckusick 	_DIG,	_DIG,	0,	0,	0,	_EQ,	0,	_QU,
876686Smckusick 
886686Smckusick /*	@	A	B	C	D	E	F	G	*/
896686Smckusick 	_AT,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,
906686Smckusick 
916686Smckusick /*	H	I	J	K	L	M	N	O	*/
926686Smckusick 	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,
936686Smckusick 
946686Smckusick /*	P	Q	R	S	T	U	V	W	*/
956686Smckusick 	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,	_UPC,
966686Smckusick 
976686Smckusick /*	X	Y	Z	[	\	]	^	_	*/
986686Smckusick 	_UPC,	_UPC,	_UPC,	_SQB,	0,	0,	0,	_UPC,
996686Smckusick 
1006686Smckusick /*	`	a	b	c	d	e	f	g	*/
1016686Smckusick 	0,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,
1026686Smckusick 
1036686Smckusick /*	h	i	j	k	l	m	n	o	*/
1046686Smckusick 	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,
1056686Smckusick 
1066686Smckusick /*	p	q	r	s	t	u	v	w	*/
1076686Smckusick 	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,	_LPC,
1086686Smckusick 
1096686Smckusick /*	x	y	z	{	|	}	~	del	*/
1106686Smckusick 	_LPC,	_LPC,	_LPC,	_CBR,	0,	_CKT,	0,	0
1116686Smckusick };
1126686Smckusick 
113