* lispreader.h
*
* Copyright (C) 1998-2000 Mark Probst
+ * Copyright (C) 2002 Ingo Ruhnke <grumbel@gmx.de>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
#define __LISPREADER_H__
#include <stdio.h>
+#include <zlib.h>
+#include <string>
+#include <vector>
+#include <exception>
+#include "exceptions.h"
#define LISP_STREAM_FILE 1
#define LISP_STREAM_STRING 2
#define LISP_PATTERN_LIST 7
#define LISP_PATTERN_OR 8
-typedef struct
+// Exception
+class LispReaderException : public SuperTuxException
{
+ public:
+ LispReaderException(const char* _message = "lispreader error", const char* _file = "", const unsigned int _line = 0)
+ : SuperTuxException(_message, _file, _line) { };
+};
+
+typedef struct
+ {
int type;
union
- {
- FILE *file;
- struct
- {
- char *buf;
- int pos;
- } string;
+ {
+ FILE *file;
struct
- {
- void *data;
- int (*next_char) (void *data);
- void (*unget_char) (char c, void *data);
- } any;
- } v;
-} lisp_stream_t;
+ {
+ char *buf;
+ int pos;
+ }
+ string;
+ struct
+ {
+ void *data;
+ int (*next_char) (void *data);
+ void (*unget_char) (char c, void *data);
+ }
+ any;
+ } v;
+ }
+lisp_stream_t;
typedef struct _lisp_object_t lisp_object_t;
struct _lisp_object_t
-{
+ {
int type;
union
- {
- struct
- {
- struct _lisp_object_t *car;
- struct _lisp_object_t *cdr;
- } cons;
-
- char *string;
- int integer;
- float real;
-
- struct
- {
- int type;
- int index;
- struct _lisp_object_t *sub;
- } pattern;
- } v;
-};
+ {
+ struct
+ {
+ struct _lisp_object_t *car;
+ struct _lisp_object_t *cdr;
+ }
+ cons;
+
+ char *string;
+ int integer;
+ float real;
+
+ struct
+ {
+ int type;
+ int index;
+ struct _lisp_object_t *sub;
+ }
+ pattern;
+ } v;
+ };
lisp_stream_t* lisp_stream_init_file (lisp_stream_t *stream, FILE *file);
lisp_stream_t* lisp_stream_init_string (lisp_stream_t *stream, char *buf);
-lisp_stream_t* lisp_stream_init_any (lisp_stream_t *stream, void *data,
- int (*next_char) (void *data),
- void (*unget_char) (char c, void *data));
+lisp_stream_t* lisp_stream_init_any (lisp_stream_t *stream, void *data,
+ int (*next_char) (void *data),
+ void (*unget_char) (char c, void *data));
lisp_object_t* lisp_read (lisp_stream_t *in);
+lisp_object_t* lisp_read_from_file(const std::string& filename);
void lisp_free (lisp_object_t *obj);
lisp_object_t* lisp_read_from_string (const char *buf);
#define lisp_cons_p(obj) (lisp_type((obj)) == LISP_TYPE_CONS)
#define lisp_boolean_p(obj) (lisp_type((obj)) == LISP_TYPE_BOOLEAN)
+/** */
+class LispReader
+{
+private:
+ lisp_object_t* owner;
+ lisp_object_t* lst;
+
+ lisp_object_t* search_for(const char* name);
+
+public:
+ /** cur == ((pos 1 2 3) (id 12 3 4)...) */
+ LispReader(lisp_object_t* l);
+ ~LispReader();
+
+ bool read_int_vector(const char* name, std::vector<int>& vec);
+ bool read_int_vector(const char* name, std::vector<unsigned int>& vec);
+ bool read_char_vector(const char* name, std::vector<char>& vec);
+ bool read_string_vector(const char* name, std::vector<std::string>& vec);
+ bool read_string(const char* name, std::string& str);
+ bool read_int(const char* name, int& i);
+ bool read_float(const char* name, float& f);
+ bool read_bool(const char* name, bool& b);
+ bool read_lisp(const char* name, lisp_object_t*& b);
+ LispReader* read_lisp(const char* name);
+
+ static LispReader* load(const std::string& filename,
+ const std::string& toplevellist);
+
+ lisp_object_t* get_lisp();
+};
+
#endif
+