From 93f4176acbfe3aa2ba97d6ad4ba056224e09ea34 Mon Sep 17 00:00:00 2001 From: unknown Date: Wed, 15 Sep 2010 22:56:39 +0100 Subject: [PATCH] Removing old files --- LispNil.cpp | 9 --------- LispNil.h | 12 ----------- LispSymbol.cpp | 14 ------------- LispSymbol.h | 63 ---------------------------------------------------------- 4 files changed, 98 deletions(-) delete mode 100644 LispNil.cpp delete mode 100644 LispNil.h delete mode 100644 LispSymbol.cpp delete mode 100644 LispSymbol.h diff --git a/LispNil.cpp b/LispNil.cpp deleted file mode 100644 index 1612a1b..0000000 --- a/LispNil.cpp +++ /dev/null @@ -1,9 +0,0 @@ - -#include "LispObj.h" -#include "LispNil.h" - - -namespace Lisp -{ -struct LispObj nil; -} diff --git a/LispNil.h b/LispNil.h deleted file mode 100644 index 5b0c745..0000000 --- a/LispNil.h +++ /dev/null @@ -1,12 +0,0 @@ -#if !defined(H_LISPNIL) -#define H_LISPNIL - -namespace Lisp -{ -// the singulariy is here! -extern LispObj nil; - -} - - -#endif diff --git a/LispSymbol.cpp b/LispSymbol.cpp deleted file mode 100644 index 487aee6..0000000 --- a/LispSymbol.cpp +++ /dev/null @@ -1,14 +0,0 @@ - -#include - -#include -#include -#include -#include -#include -#include - -#include "LispObj.h" -#include "LispString.h" -#include "LispCons.h" -#include "LispSymbol.h" diff --git a/LispSymbol.h b/LispSymbol.h deleted file mode 100644 index 0be3e2c..0000000 --- a/LispSymbol.h +++ /dev/null @@ -1,63 +0,0 @@ -#if !defined(LISP_SYMBOL_H_INCLUDED) -#define LISP_SYMBOL_H_INCLUDED - -namespace Lisp -{ - - -struct Symbol : public LispObj -{ - void make(const CharType *symname) - { - int i = 0; - - object.setType(eSymbolObj); - - // calc length - while (*symname != '\0') - { - ++i; - ++symname; - } - - // insert the pigs - object.values.resize(i); - symname = symname - i; - i = 0; - while(*symname != '\0') - { - object.values.push_back( LispValue( *symname ) ); - ++i; - ++symname; - } - } - - std::size_t length() const - { - return object.values.size(); - } - - bool operator==(const Symbol& sym) - { - if (sym.length() == length()) - { - bool result = true; - std::size_t i = 0; - - while ((i < length()) && result) - { - result = ( - CharType(sym.object.values[i]) == - CharType(object.values[i]) ); - i++; - } - return result; - } - return false; - } -}; - -} // end namespace lisp - - -#endif -- 2.11.4.GIT