perlscriptinterpreter.h

Go to the documentation of this file.

/*******************************************************************\

                   SESAME project software license

              Copyright (C) 2002 University of Amsterdam

    This program is free software; you can redistribute it and/or
     modify it under the terms of the GNU General Public License
    as published by the Free Software Foundation; either version 2
        of the License, or (at your option) any later version.

   This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
             GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
     along with this program; if not, write to the Free Software
      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                           02111-1307, USA.

      For information regarding the SESAME software project see
              http://sesamesim.sourceforge.net or email
                    jcofflan@users.sourceforge.net

\*******************************************************************/
#ifndef PERLSCRIPTINTERPRETER_H
#define PERLSCRIPTINTERPRETER_H

#include "interpreter.h"

struct interpreter;
typedef struct interpreter PerlInterpreter;


// Interpreter
class PerlScriptInterpreter: public Interpreter {
  PerlInterpreter *my_perl;

  bool started;

  static PerlScriptInterpreter *singleton;

  public:
  PerlScriptInterpreter();
  virtual ~PerlScriptInterpreter();

  static PerlScriptInterpreter *getSingleton();

  virtual void start();
  virtual void stop();
  virtual void *define(const char *var, const char *value);
  virtual bool defined(const char *var);
  virtual void *eval(const char *script);
  virtual int toint(void *value);
  virtual const char *tostring(void *value);
  virtual double todouble(void *value);
  virtual bool tobool(void *value);
  virtual void upscope();
  virtual void downscope();
};
#endif

---