cons.hpp

Go to the documentation of this file.

#ifndef CONS_HPP
#define CONS_HPP

#include <iostream>
#include "Cell.hpp"

using namespace std;

inline Cell* make_int(const int i)
{
  return new Cell(i);
}

inline Cell* make_double(const double d)
{
  return new Cell(d);
}

inline Cell* make_string(const char* const s)
{
  return new Cell(s);
}

inline Cell* make_symbol(const char* const s)
{
  return new Cell(true, s);
}

inline Cell* cons(Cell* const my_car, Cell* const my_cdr)
{
  return new Cell(my_car, my_cdr);
}

inline bool intp(Cell* const c)
{
  return c->is_int();
}

inline bool doublep(Cell* const c)
{
  return c->is_double();
}

inline bool stringp(Cell* const c)
{
  return c->is_string();
}

inline bool symbolp(Cell* const c)
{
  return c->is_symbol();
}

inline bool listp(Cell* const c)
{
  return c->is_cons();
}

inline int get_int(Cell* const c)
{
  return c->get_int();
}

inline double get_double(Cell* const c)
{
  return c->get_double();
}

inline string get_string(Cell* const c)
{
  return c->get_string();
}

inline string symbol_to_string(Cell* const c)
{
  return c->get_symbol();
}

inline Cell* car(Cell* const c)
{
  return c->get_car();
}

inline Cell* cdr(Cell* const c)
{
  return c->get_cdr();
}

inline ostream& operator<<(ostream& os, const Cell& c)
{
  c.print(os);
  return os;
}

#endif // CONS_HPP

---