/* yylex - scanner front-end for flex */

/*  Copyright (c) 1990 The Regents of the University of California. */

/*  All rights reserved. */

/*  This code is derived from software contributed to Berkeley by */

/*  Vern Paxson. */

/*  The United States Government has rights in this work pursuant */

/*  to contract no. DE-AC03-76SF00098 between the United States */

/*  Department of Energy and the University of California. */

/*  This file is part of flex. */

/*  Redistribution and use in source and binary forms, with or without */

/*  modification, are permitted provided that the following conditions */

/*  are met: */

/*  1. Redistributions of source code must retain the above copyright */

/*     notice, this list of conditions and the following disclaimer. */

/*  2. Redistributions in binary form must reproduce the above copyright */

/*     notice, this list of conditions and the following disclaimer in the */

/*     documentation and/or other materials provided with the distribution. */

/*  Neither the name of the University nor the names of its contributors */

/*  may be used to endorse or promote products derived from this software */

/*  without specific prior written permission. */

/*  THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR */

/*  IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED */

/*  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR */

/*  PURPOSE. */

#include <ctype.h>

#include "flexdef.h"

#include "parse.h"

/* yylex - scan for a regular expression token */

extern char *yytext;

int     yylex (void)

{

	int     toktype;

	static int beglin = false;

	if (eofseen)

		toktype = EOF;

	else

		toktype = flexscan ();

	if (toktype == EOF || toktype == 0) {

		eofseen = 1;

		if (sectnum == 1) {

			synerr (_("premature EOF"));

			sectnum = 2;

			toktype = SECTEND;

		}

		else

			toktype = 0;

	}

	if (trace) {

		if (beglin) {

			fprintf (stderr, "%d\t", num_rules + 1);

			beglin = 0;

		}

		switch (toktype) {

		case '<':

		case '>':

		case '^':

		case '$':

		case '"':

		case '[':

		case ']':

		case '{':

		case '}':

		case '|':

		case '(':

		case ')':

		case '-':

		case '/':

		case '\\':

		case '?':

		case '.':

		case '*':

		case '+':

		case ',':

			(void) putc (toktype, stderr);

			break;

		case '\n':

			(void) putc ('\n', stderr);

			if (sectnum == 2)

				beglin = 1;

			break;

		case SCDECL:

			fputs ("%s", stderr);

			break;

		case XSCDECL:

			fputs ("%x", stderr);

			break;

		case SECTEND:

			fputs ("%%\n", stderr);

			/* We set beglin to be true so we'll start

			 * writing out numbers as we echo rules.

			 * flexscan() has already assigned sectnum.

			 */

			if (sectnum == 2)

				beglin = 1;

			break;

		case NAME:

			fprintf (stderr, "'%s'", nmstr);

			break;

		case CHAR:

			switch (yylval) {

			case '<':

			case '>':

			case '^':

			case '$':

			case '"':

			case '[':

			case ']':

			case '{':

			case '}':

			case '|':

			case '(':

			case ')':

			case '-':

			case '/':

			case '\\':

			case '?':

			case '.':

			case '*':

			case '+':

			case ',':

				fprintf (stderr, "\\%c", yylval);

				break;

			default:

				if (!isascii (yylval) || !isprint (yylval)) {

					if(trace_hex)

						fprintf (stderr, "\\x%02x", (unsigned int) yylval);

					else

						fprintf (stderr, "\\%.3o", (unsigned int) yylval);

				} else

					(void) putc (yylval, stderr);

				break;

			}

			break;

		case NUMBER:

			fprintf (stderr, "%d", yylval);

			break;

		case PREVCCL:

			fprintf (stderr, "[%d]", yylval);

			break;

		case EOF_OP:

			fprintf (stderr, "<<EOF>>");

			break;

		case TOK_OPTION:

			fprintf (stderr, "%s ", yytext);

			break;

		case TOK_OUTFILE:

		case TOK_PREFIX:

		case CCE_ALNUM:

		case CCE_ALPHA:

		case CCE_BLANK:

		case CCE_CNTRL:

		case CCE_DIGIT:

		case CCE_GRAPH:

		case CCE_LOWER:

		case CCE_PRINT:

		case CCE_PUNCT:

		case CCE_SPACE:

		case CCE_UPPER:

		case CCE_XDIGIT:

			fprintf (stderr, "%s", yytext);

			break;

		case 0:

			fprintf (stderr, _("End Marker\n"));

			break;

		default:

			fprintf (stderr,

				 _

				 ("*Something Weird* - tok: %d val: %d\n"),

				 toktype, yylval);

			break;

		}

	}

	return toktype;

}