Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / sam-t2 / sam / system / blaze / ui.cc

// ========== Copyright Header Begin ==========================================
// 
// OpenSPARC T2 Processor File: ui.cc
// Copyright (c) 2006 Sun Microsystems, Inc.  All Rights Reserved.
// DO NOT ALTER OR REMOVE COPYRIGHT NOTICES.
// 
// The above named program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public
// License version 2 as published by the Free Software Foundation.
// 
// The above named 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 work; if not, write to the Free Software
// Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
// 
// ========== Copyright Header End ============================================

#include "ui.h"
#include <stdarg.h>
#include <stdlib.h>
#include <errno.h>

UserInterface* ui = new UserInterface();

FILE* UserInterface::log_file = 0;

UserInterface::UserInterface( const char* module_name_ )/*{{{*/
 :
  module_name(module_name_ ? strdup(module_name) : 0)
{}
/*}}}*/

void UserInterface::output( const char* format, ... )/*{{{*/
{
  va_list ap;

  va_start(ap, fmt);
  vfprintf(stdout,format,ap);
  va_end(ap);

  if (log_file)
  {
    va_start(ap, fmt);
    vfprintf(log_file,format,ap);
    va_end(ap);
  }
}
/*}}}*/
void UserInterface::verbose( const char* format, ... )/*{{{*/
{
  va_list ap;

  if (log_file)
  {
    va_start(ap, fmt);
    vfprintf(log_file,format,ap);
    va_end(ap);
  }
}
/*}}}*/
void UserInterface::warning( const char* format, ... )/*{{{*/
{
  va_list ap;

  va_start(ap, fmt);
  fprintf(stdout,"WARNING: ");
  if (module_name)
    fprintf(stdout,"%s: ",module_name);
  vfprintf(stdout,format,ap);
  va_end(ap);

  if (log_file)
  {
    va_start(ap, fmt);
    fprintf(log_file,"WARNING: ");
    if (module_name)
      fprintf(stdout,"%s: ",module_name);
    vfprintf(log_file,format,ap);
    va_end(ap);
  }
}
/*}}}*/
void UserInterface::error( const char* format, ... )/*{{{*/
{
  va_list ap;
  
  va_start(ap, fmt);
  fprintf(stdout,"ERROR: ");
  if (module_name)
    fprintf(stdout,"%s: ",module_name);
  vfprintf(stdout,format,ap);
  va_end(ap);
  
  if (log_file)
  {
    va_start(ap, fmt);
    fprintf(log_file,"ERROR: ");
    if (module_name)
      fprintf(stdout,"%s: ",module_name);
    vfprintf(log_file,format,ap);
    va_end(ap);
  }
}
/*}}}*/
void UserInterface::fatal( const char* format, ... )/*{{{*/
{
  va_list ap;
  
  va_start(ap, fmt);
  fprintf(stdout,"FATAL: ");
  if (module_name)
    fprintf(stdout,"%s: ",module_name);
  vfprintf(stdout,format,ap);
  va_end(ap);
  fprintf(stdout,"FATAL: forcing core dump.\n");
  fflush(stdout);

  if (log_file)
  {
    va_start(ap, fmt);
    fprintf(log_file,"FATAL: ");
    if (module_name)
      fprintf(log_file,"%s: ",module_name);
    vfprintf(log_file,format,ap);
    va_end(ap);
    fprintf(log_file,"FATAL: forcing core dump.\n");
    fflush(log_file);
  }

  abort();

  *(int*)0=0;
}
/*}}}*/
void UserInterface::perror( const char* s )/*{{{*/
{
  error("s: %s",strerror(errno));
}
/*}}}*/


void UserInterface::input( const char* s )/*{{{*/
{
  if (log_file)
    fprintf(log_file,s);
}
/*}}}*/
void UserInterface::flush()/*{{{*/
{ 
  fflush(stdout);
  if (log_file)
    fflush(log_file);
}
/*}}}*/

void UserInterface::set_log_file( FILE* log_file_ )/*{{{*/
{ 
  if (log_file)
    fflush(log_file);

  log_file = log_file_; 
}
/*}}}*/
FILE* UserInterface::get_output_file()/*{{{*/
{
  return stdout;
}
/*}}}*/