lvect_io.cpp

Go to the documentation of this file.

/*
 * $Id$
 *
 * Author: David Fournier
 * Copyright (c) 2008-2012 Regents of the University of California
 */
// file: dvect_io.cpp
#include "fvar.hpp"

// i/o ooperations for class lvector

#ifdef __TURBOC__
  #pragma hdrstop
  #include <iostream.h>
  #include <iomanip.h>
  #include <fstream.h>
  #define __USE_IOSTREAM__
#endif

#ifdef __ZTC__
  #include <iostream.hpp>
  #include <iomanip.hpp>
  #include <fstream.hpp>
  #define __USE_IOSTREAM__
#endif

#include <string.h>

ostream& operator<<(const ostream& _ostr, const lvector& z)
{
  ostream & ostr = (ostream&) _ostr;
  z.write_on(ostr);
  return ostr;
}

void lvector::write_on(const ostream& _s) const
{
  ostream& s = (ostream&)_s;
#ifdef __USE_IOSTREAM__
  using std::streamsize;
  streamsize new_w = s.width();
  streamsize new_p = s.precision();
#if !defined(__cplusplus)
  long new_form = s.flags();
#else
  ios::fmtflags new_form = s.flags();
#endif
  char new_fill = s.fill();
#endif
  for (int i=indexmin(); i <= indexmax(); i++)
  {
  #ifdef __USE_IOSTREAM__
     s.width(0);
     s << " ";
     s.width(new_w);
     s.precision(new_p);
     s.flags(new_form);
     s.fill(new_fill);
     s << (*this)[i];
     /*
     if (!s.good())
     {
       cerr << " Error in lvector write\n";
       ad_exit(1);
     }
     */
  #else
     s << " " << (*this)[i];
     /*
     if (!s.good())
     {
       cerr << " Error in lvector write\n";
       ad_exit(1);
     }
     */
  #endif
  }
}

istream& operator>>(const istream& _istr, const lvector& _z)
{
  ADUNCONST(lvector,z)
  istream & istr = (istream&) _istr;
  z.read_from(istr);

  return istr;
}

void lvector::read_from(const istream& _s)
{
  istream& s=(istream&) _s;
  int n = indexmax() - indexmin() + 1;
  AD_LONG_INT * p = v + indexmin();

  for (int i=1; i <= n; i++)
  {
     s >> *(p++);
  }
}