Blockstructured Adaptive Mesh Refinement in object-oriented C++

---

       

---

control-device.C

Go to the documentation of this file.

#if defined __KCC
#include "map.h" 
#else
#include "map" 
#endif
#include <fstream.h>
#include "string_CompConf.h"

/* #include "Iso-std/sstream" */
#include <strstream.h> 

#include "IO/control-device.h"
#include "IO/istream-control-device.h"
#include "IO/skip-comments.h"

string Mutator::description() const { return string("");}



void ControlDevice::update() { impl->update(); print_unrecognized(cerr);}

void ControlDevice::print_values(ostream& out) const { impl->print_values(out);}
void ControlDevice::print_unrecognized(ostream& out) const { impl->print_unrecognized(out);}

void ControlDevice::attach_to(istream& in) { impl->attach_to(in);}

void ControlDevice::add(const string& name,Mutator* value_ref) 
{ impl->add(name,value_ref);}

void ControlDevice::add(const char*   nm,Mutator* value_ref)
{ add(string(nm),value_ref);}

void ControlDevice::register_at(ControlDevice& Ctrl, const string& prefix)
{ impl->register_at(Ctrl,prefix);}

string ControlDevice::name() const { return impl->name();}

ControlDevice ControlDevice::getSubDevice(const string& nm) 
{ 
  ControlDevice sub(impl->get_sub_device(nm));
  sub.register_at(*this,"");
  return sub;
}

ControlDevice ControlDevice::getSubDevice(const char*   name) 
{ return getSubDevice(string(name));}




void istream_control_device_impl::read(istream& in) {
  char c;
  in >> c;
  if( c == '{') {
    (in >> ws).get(c);
    while( c != '}') {
      in.putback(c);
    
      skip_comment(in);
      (in >> ws).get(c); 
      if( c== '}') return;
      in.putback(c);

      MV.ReadVariable(in);
      (in >> ws).get(c); 
     }
  }
}

void istream_control_device_impl::print(ostream& out) const {
  out <<  '\n' << indent_ << "{\n";
  print_values(out, indent_);
  out << indent_ << "}";
}

void istream_control_device_impl::print_unrecognized(ostream& out) const {
  if(MV.HasUnrecognized()) {
    out << "WARNING: Unrecognized Values in ControlDevice " << name() << ":\n";
    MV.PrintUnrecognized(out);
    out << "END Unrecognized Values in ControlDevice " << name() << '\n';
  }
}


class multi_istream_control_device : public istream_control_device_impl {
  typedef istream_control_device_impl base;
public:
  multi_istream_control_device(istream* i1, istream* i2,
                               const string& nm, const string& ind = "")
    : base(i1,nm,ind), in2(i2)  {}
  virtual void update() {
    base::update();  
    MV.ReadValues(*in2);
  }
private:
 istream* in2;
};


ControlDevice GetStreamDevice(istream* in, const string& name)
{ return ControlDevice( new istream_control_device_impl(in,name));}

ControlDevice GetFileControlDevice(const string& filename, const string& name) 
{ return GetFileControlDevice(filename.c_str(),name);} 

ControlDevice GetFileControlDevice(const char* filename, const string& name) {
 ifstream * infile = new ifstream(filename);
 return ControlDevice(new istream_control_device_impl(infile, name));
}


#include "IO/command-line.h"


ControlDevice GetDuplexControlDevice(istream& in2,
                                     const char* filename, const string& name) {
 ifstream * in1 = new ifstream(filename);
  return ControlDevice(new multi_istream_control_device(in1,&in2,name));
}

ControlDevice GetDuplexControlDevice(istream* in2,
                                     const char* filename, const string& name) {
 ifstream * in1 = new ifstream(filename);
  return ControlDevice(new multi_istream_control_device(in1,in2,name));
}

ControlDevice GetDuplexControlDevice(istream& in2,
                                     const string& filename, const string& name) {
  return GetDuplexControlDevice(in2,filename.c_str(),name);
}

ControlDevice GetCommandlineAndFileControlDevice(int argc, char* argv[],
                                                 const string& filename, 
                                                 const string& name) 
{
  Commandline cmd(argc,argv);
  //  istringstream* in = new istringstream(cmd.get().str());
  istrstream* in = new istrstream(cmd.c_str());
  return GetDuplexControlDevice(in,
                                filename.c_str(),
                                name);
}

---

Quickstart     Users Guide     Programmers Reference     Installation      Examples     Download

---

AMROC Main      Home      Contact

last update: 06/01/04