cons.hpp

Go to the documentation of this file.

#ifndef CONS_HPP
#define CONS_HPP

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

using namespace std;

extern Cell* const nil;

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

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

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

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

inline Cell* lambda(Cell* const my_formals, Cell* const my_body)
{
  return new ProcedureCell(my_formals, my_body);
}

inline bool nullp(Cell* const c)
{
  return (c == nil);
}

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

inline bool procedurep(Cell* const c)
{
  return !nullp(c) && c->is_procedure();
}

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

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

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

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_symbol(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 Cell* get_formals(Cell* const c)
{
  return c->get_formals();
}

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

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

#endif // CONS_HPP