//
// $Id: lexer.c,v 1.1 1999/07/31 03:32:27 nygard Exp $
//

//
//  This file is a part of class-dump v2, a utility for examining the
//  Objective-C segment of Mach-O files.
//  Copyright (C) 1997  Steve Nygard
//
//  This program is free software; you can redistribute it and/or modify
//  it under the terms of the GNU General Public License as published by
//  the Free Software Foundation; either version 2 of the License, or
//  (at your option) any later version.
//
//  This program is distributed in the hope that it will be useful,
//  but WITHOUT ANY WARRANTY; without even the implied warranty of
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//  GNU General Public License for more details.
//
//  You should have received a copy of the GNU General Public License
//  along with this program; if not, write to the Free Software
//  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
//
//  You may contact the author by:
//     e-mail:  nygard@telusplanet.net
//

#include <ctype.h>
#include <stdio.h>
#include "gram.h"

#define LEX_BUFFER_SIZE 1024

int ident_state = 0;

char yytext[LEX_BUFFER_SIZE];
static const char *yyend = yytext + LEX_BUFFER_SIZE - 1;
static const char *string = NULL;
const char *scanner_ptr = NULL;

#define is_other(x) (x=='$'||x=='_'||x=='<'||x=='>')

void yy_scan_string (const char *str)
{
    scanner_ptr = string = str;
}

int yylex (void)
{
    if (ident_state == 1)
    {
        if (*scanner_ptr == '?')
        {
            scanner_ptr++;
            strcpy (yytext, "?");
            ident_state = 0;
            return TK_IDENTIFIER;
        }

        if (*scanner_ptr == '"')
        {
            scanner_ptr++;
            ident_state = 0;
            return '"';
        }

        if (isalpha (*scanner_ptr) || is_other (*scanner_ptr))
        {
            char *yptr = yytext;
            *yptr++ = *scanner_ptr++;

            // Need bounds checking.
            while ((isalnum (*scanner_ptr) || is_other (*scanner_ptr)) && yptr < yyend)
            {
                *yptr++ = *scanner_ptr++;
            }
            *yptr = 0;

            ident_state = 0;
            return TK_IDENTIFIER;
        }
    }

    if (isdigit (*scanner_ptr))
    {
        char *yptr = yytext;

        //printf ("here\n");

        while ((isdigit (*scanner_ptr)) && yptr < yyend)
        {
            *yptr++ = *scanner_ptr++;
        }
        *yptr = 0;
        ident_state = 0;

        return TK_NUMBER;
    }

    if (*scanner_ptr == 0)
        return 0;

    return *scanner_ptr++;
}