src/aclvis/Interp.cpp

Go to the documentation of this file.

// -*- C++ -*-
/***************************************************************************
 *
 * The IPPL Framework
 * 
 * This program was prepared by PSI. 
 * All rights in the program are reserved by PSI.
 * Neither PSI nor the author(s)
 * makes any warranty, express or implied, or assumes any liability or
 * responsibility for the use of this software
 *
 * Visit http://www.acl.lanl.gov/POOMS for more details
 *
 ***************************************************************************/

// -*- C++ -*-
/***************************************************************************
 *
 * The IPPL Framework
 * 
 *
 * Visit http://people.web.psi.ch/adelmann/ for more details
 *
 ***************************************************************************/

#ifdef IPPL_USE_STANDARD_HEADERS
#include <iostream>
#include <fstream>
using namespace std;
#else
#include <iostream.h>
#include <fstream.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/time.h>
#include "aclvis/Interp.h"


// constructor
Interp::Interp(const char *nm) : InterpNamedObj(nm) { }


// destructor
Interp::~Interp() { }


// Provide a prompt and input a command from the user.  Return only
// when the command "go" is given.  If the timeout vlaue is < 0, this
// routine will only return if the user types "go".  Otherwise, it will
// return when a timeout occurs.
void Interp::interact(int timeoutseconds) { 
  // prepare to read command string(s)
  char inbuf[2048];

#ifndef IPPL_LINUX
  fd_set readvec;
  int stdin_fd = 0;
  struct timeval timeout;
  timeout.tv_sec = timeoutseconds;
  timeout.tv_usec = 0;
  FD_ZERO(&readvec);
  FD_SET(stdin_fd, &readvec);
#endif

  // read in commands, until either EOF, end command, or timeout if
  // requested
  bool done = false;
  while (!done) {
    // print prompt
    //printf("%s", name());
    //fflush(stdout);
    cout << name() << flush;

    // check for command
#ifndef IPPL_LINUX
    int ret = select(16, &readvec, 0, 0, timeoutseconds < 0 ? 0 : &timeout);
#else
    int ret = 1;
#endif
    if (ret == -1) {
      // there was an error
      cerr << "Interp: Error reading input." << endl;
      return;
    } else if (ret == 0) {
      // time out
      done = true;
    } else {
      // there is a command available to read in
      if (fgets(inbuf, 2047, stdin) == 0) {
        // end of file - no text available
        return;
      } else {
        // check if the user requests to exit interaction, or
        // execute the command
        cerr << "Read in string '" << inbuf << "'." << endl;
        if (!strcmp(inbuf, "go\n") || !strcmp(inbuf, "GO\n"))
          done = true;
        else 
          evalCommand(inbuf);
      }
    }
  }
}

/***************************************************************************
 * $RCSfile: Interp.cpp,v $   $Author: adelmann $
 * $Revision: 1.1.1.1 $   $Date: 2003/01/23 07:40:34 $
 * IPPL_VERSION_ID: $Id: Interp.cpp,v 1.1.1.1 2003/01/23 07:40:34 adelmann Exp $ 
 ***************************************************************************/

---