58 static char lex[256];  variable
82 #define IS_SYMBOL_COMPONENT(c)		(lex[c] == LEX_IS_SYMBOL_COMPONENT)
83 #define IS_WHITESPACE(c)		(lex[c] == LEX_IS_WHITESPACE)
84 #define IS_LINE_SEPARATOR(c)		(lex[c] == LEX_IS_LINE_SEPARATOR)
85 #define IS_PARALLEL_SEPARATOR(c)	(lex[c] == LEX_IS_PARALLEL_SEPARATOR)
86 #define IS_COMMENT(c)			(lex[c] == LEX_IS_COMMENT_START)
87 #define IS_LINE_COMMENT(c)		(lex[c] == LEX_IS_LINE_COMMENT_START)
88 #define	IS_NEWLINE(c)			(lex[c] == LEX_IS_NEWLINE)
102   lex[' '] = LEX_IS_WHITESPACE;  in do_scrub_begin()
103   lex['\t'] = LEX_IS_WHITESPACE;  in do_scrub_begin()
104   lex['\r'] = LEX_IS_WHITESPACE;  in do_scrub_begin()
105   lex['\n'] = LEX_IS_NEWLINE;  in do_scrub_begin()
106   lex[':'] = LEX_IS_COLON;  in do_scrub_begin()
114       lex['"'] = LEX_IS_STRINGQUOTE;  in do_scrub_begin()
118       lex['\''] = LEX_IS_ONECHAR_QUOTE;  in do_scrub_begin()
122       lex['\''] = LEX_IS_STRINGQUOTE;  in do_scrub_begin()
132     lex[(unsigned char) *p] = LEX_IS_SYMBOL_COMPONENT;  in do_scrub_begin()
135     lex[c] = LEX_IS_SYMBOL_COMPONENT;  in do_scrub_begin()
144     lex[(unsigned char) *p] = LEX_IS_SYMBOL_COMPONENT;  in do_scrub_begin()
152     lex[(unsigned char) *p] = LEX_IS_COMMENT_START;  in do_scrub_begin()
155     lex[(unsigned char) *p] = LEX_IS_LINE_COMMENT_START;  in do_scrub_begin()
158     lex[(unsigned char) *p] = LEX_IS_LINE_SEPARATOR;  in do_scrub_begin()
164     lex[(unsigned char) *p] = LEX_IS_PARALLEL_SEPARATOR;  in do_scrub_begin()
169   if (lex['/'] == 0)  in do_scrub_begin()
170     lex['/'] = LEX_IS_TWOCHAR_COMMENT_1ST;  in do_scrub_begin()
175       lex['\''] = LEX_IS_STRINGQUOTE;  in do_scrub_begin()
176       lex[';'] = LEX_IS_COMMENT_START;  in do_scrub_begin()
177       lex['*'] = LEX_IS_LINE_COMMENT_START;  in do_scrub_begin()
180       lex['!'] = LEX_IS_LINE_COMMENT_START;  in do_scrub_begin()
185   lex['-'] = LEX_IS_DOUBLEDASH_1ST;  in do_scrub_begin()
188   lex['|'] = LEX_IS_DOUBLEBAR_1ST;  in do_scrub_begin()
192   lex['-'] = LEX_IS_SYMBOL_COMPONENT;  in do_scrub_begin()
780 		      && lex[ch] == LEX_IS_WHITESPACE)  in do_scrub_chars()
788 		   || (lex[ch] != LEX_IS_WHITESPACE  in do_scrub_chars()
789 		       && lex[ch] != LEX_IS_NEWLINE))  in do_scrub_chars()
823       switch (lex[ch])  in do_scrub_chars()
845 	  if (lex[ch] == LEX_IS_COLON)  in do_scrub_chars()
881 	      && lex[ch] == LEX_IS_COLON  in do_scrub_chars()
1319 		  type = lex[ch2];  in do_scrub_chars()