/Users/mourrain/Devel/mmx/basix/src/port.cpp

Go to the documentation of this file.

/******************************************************************************
* MODULE     : port.cpp
* DESCRIPTION: Abstract input and output
* COPYRIGHT  : (C) 2010  Joris van der Hoeven
*******************************************************************************
* This software falls under the GNU general public license and comes WITHOUT
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
* If you don't have this file, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************/

#include <basix/port.hpp>
#include <basix/string.hpp>


namespace mmx {

bool texmacs_mode= false;
bool math_mode= false;

/******************************************************************************
* Default implementations of virtual methods
******************************************************************************/

bool
port_rep::is_output_port () {
  return false;
}

bool
port_rep::is_input_port () {
  return false;
}

bool
port_rep::error_flag () {
  return false;
}

string
port_rep::error_message () {
  return "";
}

bool
port_rep::busy () {
  return false;
}

nat
port_rep::can_write () {
  return 0;
}

nat
port_rep::can_read () {
  return 0;
}

void
port_rep::write (const char* s, nat n) {
  (void) s; (void) n;
  mmerr << "port= " << expression () << lf;
  ERROR ("output port expected");
}

void
port_rep::read (char* s, nat n) {
  (void) n;
  mmerr << "port= " << expression () << lf;
  ERROR ("input port expected");
}

bool
port_rep::wait (int msecs) {
  (void) msecs;
  return false;
}

void
port_rep::flush () {
}

port
port_rep::accept () {
  mmerr << "port= " << expression () << lf;
  ERROR ("socket server port expected");
}

port
port_rep::component (const string& name) {
  mmerr << "port= " << expression () << lf;
  ERROR ("composite port expected");
}

void
port_rep::format (const print_format& fm) {
  mmerr << "port= " << expression () << lf;
  ERROR ("formatting port expected");  
}

string error_message (const port& p) {
  return inside (p)->error_message (); }
port component (const port& p, const string& name) {
  return inside (p)->component (name); }

/******************************************************************************
* Error ports (for ports which did not open, for instance)
******************************************************************************/

class error_port_rep: public port_rep {
  string s;

public:
  virtual syntactic expression () const {
    return syn ("error_port", syntactic (quote (s))); }
  bool error_flag () { return true; }
  string error_message () { return s; }

public:
  inline error_port_rep (const string& s2): s (s2) {}
};

port
error_port (const string& s) {
  return (port_rep*) new error_port_rep (s);
}

port::port (): rep ((port_rep*) new error_port_rep ("no port")) {}

} // namespace mmx