print.cc

Go to the documentation of this file.

/////////////////////////////////////////////////////////////////////////////
//! \file  print.cc  Printing - like printf
//
// Copyright (c) 1991-2004 Petr Peringer
//
// This library is licensed under GNU Library GPL. See the file COPYING.
//
 
//
// implementation of direct output to user
//
 
#include "simlib.h"
#include "internal.h"
 
#include <cstdio>
#include <cstdarg>
 
////////////////////////////////////////////////////////////////////////////
// implementation
//
 
namespace simlib3 {
 
SIMLIB_IMPLEMENTATION;
 
 
////////////////////////////////////////////////////////////////////////////
//  OutFile
//
 
// This singleton solves module initialization order problem
class _FileWrap {
    static FILE *OutFile;
    static FILE *get() {
        if(!OutFile)
            OutFile = stdout;
        return OutFile;
    }
  public:
    operator FILE *()           { return get(); }
    void operator = (FILE *f)   { OutFile=f; }
} OutFile;
 
FILE *_FileWrap::OutFile = 0;
 
////////////////////////////////////////////////////////////////////////////
//  SetOutput
//
void SetOutput(const char *name)
{
  if(OutFile!=stdout)
    fclose(OutFile);            // close non-default
 
  if (*name != '\0') {
    OutFile = fopen(name,"wt");
    // TODO: SIMLIB_error(CantOpenOutFile);
    if(!OutFile)                // can not be open
      OutFile = stdout;         // use default
  } else {
    OutFile = stdout;           // empty name "" means stdout
  }
}
 
////////////////////////////////////////////////////////////////////////////
//  _Print
//
int _Print(const char *fmt, ...)
{
   va_list argptr;
   int cnt;
 
   va_start(argptr, fmt);
   cnt = vfprintf(OutFile, fmt, argptr);
   va_end(argptr);
 
   fflush(OutFile);
 
   if (OutFile!=stdout) {
       // copy the same output to stderr
       va_start(argptr, fmt);
       cnt = vfprintf(stderr, fmt, argptr);
       va_end(argptr);
   }
 
   return(cnt);
}
 
////////////////////////////////////////////////////////////////////////////
//  Print
//
int Print(const char *fmt, ...)
{
   va_list argptr;
   int cnt;
 
   va_start(argptr, fmt);
   cnt = vfprintf(OutFile, fmt, argptr);
   fflush(OutFile);
   va_end(argptr);
 
   return(cnt);
}
 
int Print(const double x)
{
  return Print(" %g ", x);
}
 
int Print(const double x, const double y)
{
  return Print(" %g %g ", x, y);
}
 
int Print(const double x, const double y, const double z)
{
  return Print(" %g %g %g ", x, y, z);
}
 
////////////////////////////////////////////////////////////////////////////
//  Error - print message & end of program
//
void Error(const char *fmt, ...)
{
  va_list argptr;
 
  va_start(argptr, fmt);
  vfprintf(OutFile, fmt, argptr);
  fflush(OutFile);
  if (OutFile!=stdout)
    vfprintf(stderr, fmt, argptr);
  va_end(argptr);
 
  _Print("\n");
  SIMLIB_error(UserError);
}
 
} // end