jengine.h

Go to the documentation of this file.

/* -*- mode: c++; indent-tabs-mode:nil -*- */
#ifndef JENGINE_H
#define JENGINE_H
 
#include <string>
#include <vector>
#include <set>
 
#include "util.h"
#include "jarray.h"
 
class jengine {
public:
  friend class jarray;
  typedef jarray (*monad) (jarray y);
  typedef jarray (*dyad) (jarray x, jarray y);
  typedef jarray (*amonad) (monad um, dyad ud, jarray y);
  typedef jarray (*adyad) (monad um, dyad ud, jarray x, jarray y);
 
  jengine();
  ~jengine();
 
  static void initJlibrary(std::ostream &);
  
  bool doJ(const std::string s);
 
  const jarray get(const std::string name);
 
  bool set(const std::string name, jarray &value);
 
  int getError();
  
  inline bool ok() {
    return (getError()==0);
  };
 
  const static int RMAX=10000;
 
  bool defVerb(std::string name, monad mf, dyad df, int mr=RMAX, int lr=RMAX, int rr=RMAX);
 
  bool defAdverb(std::string name, amonad mf, adyad df);
 
  bool defScript(std::string name, int type, std::string code, 
                 int mr=jengine::RMAX, 
                 int lr=jengine::RMAX, 
                 int rr=jengine::RMAX);
 
  bool isBuiltin(std::string name) const;
 
  std::set<std::string> getBuiltins() const;
 
  jarray::I PROLOG();
 
  jarray::I EPILOG(jarray::I oldtop);
 
  void* EPILOG(jarray::I oldtop, void *hdr);
 
protected:
  void* GA(const jarray::I t, const jarray::I n, const jarray::I r, const jarray::I *s);
  void FR(void *hdr);
  
private:
  // copy disabled
  jengine(const jengine &);
  const jengine& operator=(const jengine&);
  
  class Impl;
  Impl* pImpl;
};
#endif