Err.C

Go to the documentation of this file.

// Copyright (C) 2001, Compaq Computer Corporation
// 
// This file is part of Vesta.
// 
// Vesta is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
// 
// Vesta 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
// Lesser General Public License for more details.
// 
// You should have received a copy of the GNU Lesser General Public
// License along with Vesta; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

/* File: Err.C                                                 */
/* Last Modified On Mon May 23 23:21:06 EDT 2005 by ken@xorian.net         */
/*      Modified On Mon Apr 25 10:57:40 EDT 2005 by irina.furman@intel.com */
/*      Modified On Wed Nov 22 21:08:51 PST 2000 by yuanyu     */
/*      Modified On Fri Jul 14 20:37:33 PDT 2000 by mann       */
/*      Modified On Fri Oct 31 10:27:40 PST 1997 by heydon     */
/*      Modified On Thu Jan 18 10:03:11 PST 1996 by horning    */
/*      Modified On Wed Dec  1 14:18:50 PST 1993 by hanna      */

#include <VestaSource.H>
#include <ReposUI.H>
#include "Err.H"
#include "EvalBasics.H"
#include "ValExpr.H"
#include "Val.H"
#include "Expr.H"
#include "Location.H"
#include "ThreadData.H"

using std::ostream;
using std::cerr;
using std::endl;

int errorCount;
Basics::mutex outputMu;

void Error() {
  errorCount++;
}

int ErrorCount() {
  return errorCount;
}

void Error(const Text &msg, SrcLoc *loc) {
  errorCount++;
  if (loc != NULL && !loc->IsNone()) {
    cerr << loc->file << ", line " << loc->line << ", char "
         << loc->character << ":" << endl;
  }
  // Try to add a line break if "msg" contains "Current token class"
  int i = msg.FindText("Current token class");
  ThreadData* td = NULL;
  if (i < 0) {
    if (maxThreads > 1 && (td = ThreadDataGet()) != NULL) {
      cerr << td->id << "/Error: " << msg;
    }
    else {
      cerr << "Error: " << msg;
    }
  } else {
    if (maxThreads > 1 && (td = ThreadDataGet()) != NULL) {
      cerr << td->id
           << "/Parse error: " << msg.Sub(0, i) << '\n' << msg.Sub(i);
    }
    else {
      cerr << "Parse error: " << msg.Sub(0, i) << '\n' << msg.Sub(i);
    }
  }
}

void ErrorVal(const Val v) {
  v->PrintD(&cerr);
}

void ErrorExpr(const Expr e) {
  e->PrintD(&cerr);
}

void ErrorDetail(const Text &msg) {
  cerr << msg;
}

void InternalError(const Text &procName) {
  errorCount++;
  cerr << "\nVesta evaluator: Internal error in procedure "
    << procName << "\n";
  assert(false);
}

void ErrorArgs(const Vals &args) {
  Vals work = args;
  
  cerr << "(";
  while (!work.Null()) {
    work.Pop()->PrintD(&cerr);
    if (!work.Null())
      cerr << ", ";
  }
  cerr << ")";
  return;
}

bool ErrorSummary(ostream *out) {
  if (errorCount == 0) {
    //*out << "\nNo errors were reported.\n";
    return false;
  }
  if (errorCount == 1)
    *out << "\nOne error was reported.\n";
  else
    *out << "\n" << errorCount << " errors were reported.\n";
  out->flush();
  return true;
}

Val RecordErrorOnStack(Expr expr) {
  if (recordCallStack) {
    callStackMu.lock();          
    ThreadDataGet()->callStack->addlo(expr);
    callStackMu.unlock();              
  }
  Val result = NEW(ErrorVC);
  if (recordCallStack) {
    callStackMu.lock();              
    ThreadDataGet()->callStack->remlo();
    callStackMu.unlock();              
  }
  return result;
}

void ErrInit() { errorCount = 0; }

const Text VestaSourceErrorMsg(VestaSource::errorCode err) throw ()
{
  return ReposUI::errorCodeText(err);
}

---