perlembeddedinterpreter.h

Unix下的MUD客户端程序

#ifndef PERLEMBEDDEDINTERPRETER_H_
#define PERLEMBEDDEDINTERPRETER_H_

#include "EmbeddedInterpreter.h"
#include <EXTERN.h>
#include <perl.h>

class PerlEmbeddedInterpreter : public EmbeddedInterpreter
{
  public:
    ~PerlEmbeddedInterpreter();
    virtual bool load_file(const char*, bool suppress = false);
    virtual void eval(const char*, char*);
    virtual bool run(const char*, const char*, char*);
    virtual bool run_quietly(const char*, const char*, char*,
                             bool suppress = true);
    virtual void *match_prepare(const char*, const char*);
    virtual void *substitute_prepare(const char*, const char*);
    virtual bool match(void*, const char*, char*&);
    virtual void set(const char*, int);
    virtual void set(const char*, const char*);
    virtual int get_int(const char*);
    virtual char *get_string(const char*);
  
    PerlEmbeddedInterpreter();
    
    PerlInterpreter *perl_interp;
    SV *default_var;
};  
#endif