* 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
+ {
+ 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;
+ {
+ 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_gzfile (lisp_stream_t *stream, gzFile file);
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* lst;
+
+ lisp_object_t* search_for(const char* name);
+ public:
+ /** cur == ((pos 1 2 3) (id 12 3 4)...) */
+ LispReader (lisp_object_t* l);
+
+ 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);
+ };
+
#endif