Changeset 490 for abuse/trunk/src/lisp/lisp.hTweet

Timestamp:

Apr 17, 2011, 10:28:44 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: implement LispList::GetLength?.

File:

• abuse/trunk/src/lisp/lisp.h (modified) (4 diffs)

abuse/trunk/src/lisp/lisp.h

@@ -11 +11 @@
 #define __LISP_HPP_
 
+#include <cstdlib>
 #include <stdint.h>
 
@@ -56 +57 @@
 struct LispList : LispObject
 {
-    void *cdr, *car;
+    size_t GetLength();
+
+    LispObject *cdr, *car;
 };
 
@@ -150 +153 @@
 };
 
-static inline void *&CAR(void *x) { return ((LispList *)x)->car; }
-static inline void *&CDR(void *x) { return ((LispList *)x)->cdr; }
+static inline LispObject *&CAR(void *x) { return ((LispList *)x)->car; }
+static inline LispObject *&CDR(void *x) { return ((LispList *)x)->cdr; }
 static inline ltype item_type(void *x) { if (x) return *(ltype *)x; return L_CONS_CELL; }
 
@@ -166 +169 @@
 void *lisp_eq(void *n1, void *n2);
 void *lisp_equal(void *n1, void *n2);
-long list_length(void *i);
 void lprint(void *i);
 void *eval(void *prog);