some changes

// -*- C++ -*-

//*************************************************************************

//

// Copyright 2000-2013 by Wilson Snyder.  This program is free software;

// you can redistribute it and/or modify it under the terms of either the GNU

// Lesser General Public License Version 3 or the Perl Artistic License Version 2.0.

//

// 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.

//

//*************************************************************************

/// \file

/// \brief Verilog::Preproc: Error handling implementation

///

/// Authors: Wilson Snyder

///

/// Code available from: http://www.veripool.org/verilog-perl

///

//*************************************************************************

#include <cstdio>

#include <cstdlib>

#include "VFileLine.h"

int VFileLine::s_numErrors = 0;		///< Number of errors detected

//============================================================================

void VFileLine::init(const string& filename, int lineno) {

    m_filename = filename;

    m_lineno = lineno;

}

const string VFileLine::filebasename () const {

    string name = filename();

    string::size_type slash;

    if ((slash = name.rfind("/")) != string::npos) {

	name.erase(0,slash+1);

    }

    return name;

}

void VFileLine::fatal(const string& msg) {

    error(msg);

    error("Fatal Error detected");

    abort();

}

void VFileLine::error(const string& msg) {

    VFileLine::s_numErrors++;

    if (msg[msg.length()-1] != '\n') {

	fprintf (stderr, "%%Error: %s", msg.c_str());

    } else {

	fprintf (stderr, "%%Error: %s\n", msg.c_str());	// Append newline, as user omitted it.

    }

}

const char* VFileLine::itoa(int i) {

    static char buf[100];

    sprintf(buf,"%d",i);

    return buf;

}

string VFileLine::lineDirectiveStrg(int enterExit) const {

    char numbuf[20]; sprintf(numbuf, "%d", lineno());

    char levelbuf[20]; sprintf(levelbuf, "%d", enterExit);

    return ((string)"// `line first "+numbuf+" \""+filename()+"\" "+levelbuf+"\n");

}

VFileLine* VFileLine::lineDirective(const char* textp, int& enterExitRef) {

    // Handle `line directive

    // Skip `line

    while (*textp && isspace(*textp)) textp++;

    while (*textp && !isspace(*textp)) textp++;

    while (*textp && (isspace(*textp) || *textp=='"')) textp++;

    // Grab linenumber

    int lineno = this->lineno();

    const char *ln = textp;

    while (*textp && !isspace(*textp)) textp++;

    if (isdigit(*ln)) {

	lineno = atoi(ln);

    }

    while (*textp && (isspace(*textp) || *textp=='"')) textp++;

    // Grab filename

    string filename = this->filename();

    const char* fn = textp;

    while (*textp && !(isspace(*textp) || *textp=='"')) textp++;

    if (textp != fn) {

	string strfn = fn;

	strfn = strfn.substr(0, textp-fn);

	filename = strfn;

    }

    // Grab level

    while (*textp && (isspace(*textp) || *textp=='"')) textp++;

    if (isdigit(*textp)) enterExitRef = atoi(textp);

    else enterExitRef = 0;

    return create(filename,lineno);

}

//======================================================================

// Global scope

ostream& operator<<(ostream& os, VFileLine* flp) {

    if (flp->filename()!="") {

	os <<flp->filename()<<":"<<dec<<flp->lineno()<<": "<<hex;

    }

    return(os);

}

// -*- C++ -*-

//*************************************************************************

//

// Copyright 2000-2013 by Wilson Snyder.  This program is free software;

// you can redistribute it and/or modify it under the terms of either the GNU

// Lesser General Public License Version 3 or the Perl Artistic License Version 2.0.

//

// 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.

//

//*************************************************************************

/// \file

/// \brief Verilog::Preproc: Error handling

///

/// Authors: Wilson Snyder

///

/// Code available from: http://www.veripool.org/verilog-perl

///

//*************************************************************************

#ifndef _VFILELINE_H_

#define _VFILELINE_H_ 1

#include <string>

#include <iostream>

#include <sstream>

using namespace std;

//============================================================================

// VFileLine

/// User information and error reporting functions

////

/// Users can override this class to implement their own error handling

class VFileLine {

private:

    int		m_lineno;		///< Line number in file

    string	m_filename;		///< File name

    static int	s_numErrors;		///< Number of errors detected

protected:

    VFileLine(int called_only_for_default) {init("",0);}

public:

    // CONSTRUCTORS

    /// Create a new fileline, for a new file and/or line number.

    /// Member functions, so that if a user provides another class, a change in the

    /// filename/linenumber will create a new element using the derived class.

    virtual VFileLine* create(const string& filename, int lineno) = 0;

    /// Create with same filename, new line number; just calls create(fn,ln)

    virtual VFileLine* create(int lineno)

     { 

      return create(filename(), lineno); 

      }

    virtual void init(const string& filename, int lineno);

    virtual ~VFileLine() {}

    // ACCESSORS

    int lineno () const { return m_lineno; }	///< Return line number

    void linenoIncInPlace() { m_lineno++; }	///< Increment line IN PLACE; normally use create() instead

    const string filename () const { return m_filename; }	///< Return filename

    const string filebasename () const;	///< Filename with any directory stripped

    string lineDirectiveStrg(int enter_exit_level) const;

    // METHODS

    virtual void fatal(const string& msg);	///< Report a fatal error at given location

    virtual void error(const string& msg);	///< Report a error at given location

    VFileLine* lineDirective(const char* textp, int& enterExitRef);

    // STATIC METHODS

    static int numErrors() {return s_numErrors;}	///< Return total errors detected

    // Internal methods -- special use

    static const char* itoa(int i);	///< Internal: Not reentrant! - for fatalSrc() only

};

ostream& operator<<(ostream& os, VFileLine* fileline);

/// Use this instead of fatal() to mention the source code line.

#define fatalSrc(msg) fatal((string)"Internal Error: "+__FILE__+":"+VFileLine::itoa(__LINE__)+": "+(msg))

template< class T> std::string cvtToStr (const T& t) {

    ostringstream os; os<<t; return os.str();

}

class VerilogFileLine : public VFileLine

{

 public:

    VerilogFileLine(const string& file,int line):VFileLine(0)

    {

      init(file,line);

    }

 virtual VFileLine* create(const string& filename, int lineno)

 {

 VerilogFileLine* fnew=new VerilogFileLine(filename,lineno);

 return fnew;

 }

    /// Create with same filename, new line number; just calls create(fn,ln)

 virtual VFileLine* create(int lineno) { return create(filename(), lineno); }

};

#endif // Guard