iverilog/vhdlpp/sequential_debug.cc

/*
 * Copyright (c) 2011 Stephen Williams (steve@icarus.com)
 *
 *    This source code is free software; you can redistribute it
 *    and/or modify it in source code form 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 */

# include  "sequential.h"
# include  "expression.h"
# include  <fstream>
# include  <iomanip>
# include  <typeinfo>

using namespace std;

void SequentialStmt::dump(ostream&out, int indent) const
{
      out << setw(indent) << "" << "SequentialStmt[" << typeid(*this).name() << "]"
	  << " at file=" << get_fileline() << endl;
}

void IfSequential::dump(ostream&out, int indent) const
{
      out << setw(indent) << "" << "IfSequential at file=" << get_fileline() << endl;
      out << setw(indent+3) << "" << "Condition:" << endl;
      cond_->dump(out, indent+4);

      out << setw(indent+3) << "" << "TRUE clause (" << if_.size() << "):" << endl;
      for (list<SequentialStmt*>::const_iterator cur = if_.begin()
		 ; cur != if_.end() ; ++cur)
	    (*cur)->dump(out, indent+4);

      for (list<IfSequential::Elsif*>::const_iterator cur = elsif_.begin()
		 ; cur != elsif_.end() ; ++cur)
	    (*cur)->dump(out, indent);

      out << setw(indent+3) << "" << "FALSE clause (" << else_.size() << "):" << endl;
      for (list<SequentialStmt*>::const_iterator cur = else_.begin()
		 ; cur != else_.end() ; ++cur)
	    (*cur)->dump(out, indent+4);

}

void IfSequential::Elsif::dump(ostream&out, int indent) const
{
      out << setw(indent+3) << "" << "Elsif Condition at " << get_fileline() << ":" << endl;
      cond_->dump(out, indent+4);

      out << setw(indent+3) << "" << "ELSIF TRUE clause (" << if_.size() << "):" << endl;
      for (list<SequentialStmt*>::const_iterator cur = if_.begin()
		 ; cur != if_.end() ; ++cur)
	    (*cur)->dump(out, indent+4);

}

void ReturnStmt::dump(ostream&out, int indent) const
{
      out << setw(indent) << "" << "ReturnStmt at file=" << get_fileline() << endl;
      if (val_)
	    val_->dump(out, indent+4);
      else
	    out << setw(indent+4) << "" << "()" << endl;
}

void SignalSeqAssignment::dump(ostream&out, int indent) const
{
      out << setw(indent) << "" << "SignalSeqAssignment at file=" << get_fileline() << endl;

      out << setw(indent+3) << "" << "l-value:" << endl;
      lval_->dump(out, indent+4);

      out << setw(indent+3) << "" << "r-values (" << waveform_.size() << "):" << endl;
      for (list<Expression*>::const_iterator cur = waveform_.begin()
		 ; cur != waveform_.end() ; ++cur)
	    (*cur)->dump(out, indent+4);
}

void CaseSeqStmt::dump(ostream& out, int indent) const
{
	out << setw(indent) << "" << "CaseSeqStmt at file=" << get_fileline() << endl;

	out << setw(indent+3) << "" << "Case: " << endl;
	cond_->dump(out, indent+4);

	for (list<CaseSeqStmt::CaseStmtAlternative*>::const_iterator cur = alt_.begin()
		; cur != alt_.end() ; ++cur)
		(*cur)->dump(out, indent+4);
}

void CaseSeqStmt::CaseStmtAlternative::dump(ostream& out, int indent) const
{
      out << setw(indent) << "" << "CaseStmtAlternative at file=" << get_fileline() << endl;

      out << setw(indent) << "" << "when ";
      if (exp_)
	    exp_->dump(out, 0);
      else
	    out << "others" << endl;

      for (list<SequentialStmt*>::const_iterator cur = stmts_.begin()
		 ; cur != stmts_.end(); ++cur)
	    (*cur)->dump(out, indent+1);
}

void ProcedureCall::dump(ostream& out, int indent) const
{
    out << setw(indent) << "" << "ProcedureCall at file=" << get_fileline() << endl;
    out << setw(indent+2) << "" << name_ << "(";
    for(list<named_expr_t*>::const_iterator it = param_list_->begin();
        it != param_list_->end(); ++it)
        (*it)->dump(out, indent);
    out << ")" << endl;
}

void LoopStatement::dump(ostream&out, int indent) const
{
    for(list<SequentialStmt*>::const_iterator it = stmts_.begin();
        it != stmts_.end(); ++it)
        (*it)->dump(out, indent);
}

void ForLoopStatement::dump(ostream&out, int indent) const
{
    out << setw(indent) << "" << "ForLoopStatement at file=" << get_fileline() << endl;
    out << setw(indent) << "" << it_ << " in ";
    range_->dump(out, indent);
    LoopStatement::dump(out, indent+2);
}

void VariableSeqAssignment::dump(ostream&out, int indent) const
{
      out << setw(indent) << "" << "VariableSeqAssignment at file=" << get_fileline() << endl;

      out << setw(indent+3) << "" << "l-value:" << endl;
      lval_->dump(out, indent+4);

      out << setw(indent+3) << "" << "r-value:" << endl;
      rval_->dump(out, indent+4);
}

void WhileLoopStatement::dump(ostream&out, int indent) const
{
    out << setw(indent) << "" << "WhileLoopStatement at file=" << get_fileline() << endl;
    out << setw(indent) << "" << "condition: ";
    cond_->dump(out, indent);
    LoopStatement::dump(out, indent+2);
}

void BasicLoopStatement::dump(ostream&out, int indent) const
{
    out << setw(indent) << "" << "BasicLoopStatement at file=" << get_fileline() << endl;
    LoopStatement::dump(out, indent+2);
}