cons.hpp

Go to the documentation of this file.

#ifndef CONS_HPP
#define CONS_HPP

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

extern const Cell* nil;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#endif // CONS_HPP

---