/ray/src/lib/lex/test-scanner-main.cc

Go to the documentation of this file.

/*
 * lib/lex/test-scanner-main.ll
 * 
 * Test and demo scanner. 
 * 
 * Copyright (c) 2004 by Wolfgang Wieser ] wwieser (a) gmx <*> de [ 
 * 
 * This file may be distributed and/or modified under the terms of the 
 * GNU General Public License version 2 as published by the Free Software 
 * Foundation. (See COPYING.GPL for details.)
 * 
 * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
 * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 * 
 */


#include "test-scanner.h"

#include <lib/message/manager.h>
#include <lib/message/handler_console.h>

static const int MyDbg=0x10000000;


int main()
{
    MessageManager::init();
    MessageHandler_Console cons_hdl(Message::MTAll,/*use_color=*/0);
    
    TestScanner scan;
    
    fprintf(stderr,"sizeof(SourcePosition)=%u, sizeof(SCLocation)=%u\n",
        sizeof(SourcePosition),sizeof(SCLocation));
    
    SError error;
    TLString path; // null ref for now
    int rv=scan.SetInput(path,error,0);
    Debug(MyDbg,"SetInput=%d (%s)",rv,error.msg().str());
    
    for(;;)
    {
        TestScanner::TestToken *tok=
            (TestScanner::TestToken*)scan.LexNextToken();
        
        if(!tok)
        {  Debug(MyDbg,"-EOF-");  break;  }
        
        switch(tok->token)
        {
            case TS_IDENTIFIER:
                Debug(MyDbg,tok->lloc.loc0,"identifier >%s<",
                    tok->lval.string_val);
                if(tok->lval.string_val && !(rand()%4))
                {  *tok->lval.string_val='\0';  }
                break;
            case TS_INTEGER:
                Debug(MyDbg,tok->lloc.loc0,"integer >%d<",tok->lval.int_val);
                break;
            case TS_IF:
                Debug(MyDbg,tok->lloc.loc0,"IF token");
                break;
            case TS_ELSE:
                Debug(MyDbg,tok->lloc.loc0,"ELSE token");
                break;
            default:
                if(tok->token>0 && tok->token<256)
                {
                    Debug(MyDbg,tok->lloc.loc0,"char token %d '%c'",
                        tok->token,(char)tok->token);
                }
                else
                {
                    // This should not happen. 
                    Error(tok->lloc.loc0,"OOPS: unknown token %d ?!",
                        tok->token);
                }
                break;
        }
    }
    
    MessageManager::cleanup();
    return(0);
}

---