do_scrub_begin ()
do_scrub_begin (m68k_mri) int m68k_mri;
do_scrub_begin (){  const char *p;  lex[' '] = LEX_IS_WHITESPACE;  lex['\t'] = LEX_IS_WHITESPACE;  lex['\n'] = LEX_IS_NEWLINE;  lex[';'] = LEX_IS_LINE_SEPARATOR;  lex[':'] = LEX_IS_COLON;  if (! flag_mri)    {      lex['"'] = LEX_IS_STRINGQUOTE;#ifndef TC_HPPA      lex['\''] = LEX_IS_ONECHAR_QUOTE;#endif#ifdef SINGLE_QUOTE_STRINGS      lex['\''] = LEX_IS_STRINGQUOTE;#endif    }  /* Note: if any other character can be LEX_IS_STRINGQUOTE, the loop     in state 5 of do_scrub_chars must be changed.  */  /* Note that these override the previous defaults, e.g. if ';' is a     comment char, then it isn't a line separator.  */  for (p = symbol_chars; *p; ++p)    {      lex[(unsigned char) *p] = LEX_IS_SYMBOL_COMPONENT;    }				/* declare symbol characters */  for (p = comment_chars; *p; p++)    {      lex[(unsigned char) *p] = LEX_IS_COMMENT_START;    }				/* declare comment chars */  for (p = line_comment_chars; *p; p++)    {      lex[(unsigned char) *p] = LEX_IS_LINE_COMMENT_START;    }				/* declare line comment chars */  for (p = line_separator_chars; *p; p++)    {      lex[(unsigned char) *p] = LEX_IS_LINE_SEPARATOR;    }				/* declare line separators */  /* Only allow slash-star comments if slash is not in use */  if (lex['/'] == 0)    {      lex['/'] = LEX_IS_TWOCHAR_COMMENT_1ST;    }  /* FIXME-soon.  This is a bad hack but otherwise, we can't do     c-style comments when '/' is a line comment char. xoxorich. */  if (lex['*'] == 0)    {      lex['*'] = LEX_IS_TWOCHAR_COMMENT_2ND;    }  if (flag_mri)    {      lex['\''] = LEX_IS_STRINGQUOTE;      lex[';'] = LEX_IS_COMMENT_START;      lex['*'] = LEX_IS_LINE_COMMENT_START;      /* The MRI documentation says '!' is LEX_IS_COMMENT_START, but         then it can't be used in an expression.  */      lex['!'] = LEX_IS_LINE_COMMENT_START;    }}				/* do_scrub_begin() */