src/lispreader.h

   1 /* $Id$ */
   2 /*
   3  * lispreader.h
   4  *
   5  * Copyright (C) 1998-2000 Mark Probst
   6  * Copyright (C) 2002 Ingo Ruhnke <grumbel@gmx.de>
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Library General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Library General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Library General Public
  19  * License along with this library; if not, write to the
  20  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  21  * Boston, MA 02111-1307, USA.
  22  */
  23
  24 #ifndef __LISPREADER_H__
  25 #define __LISPREADER_H__
  26
  27 #include <stdio.h>
  28 #include <zlib.h>
  29 #include <string>
  30 #include <vector>
  31
  32 #define LISP_STREAM_FILE       1
  33 #define LISP_STREAM_STRING     2
  34 #define LISP_STREAM_ANY        3
  35
  36 #define LISP_TYPE_INTERNAL      -3
  37 #define LISP_TYPE_PARSE_ERROR   -2
  38 #define LISP_TYPE_EOF           -1
  39 #define LISP_TYPE_NIL           0
  40 #define LISP_TYPE_SYMBOL        1
  41 #define LISP_TYPE_INTEGER       2
  42 #define LISP_TYPE_STRING        3
  43 #define LISP_TYPE_REAL          4
  44 #define LISP_TYPE_CONS          5
  45 #define LISP_TYPE_PATTERN_CONS  6
  46 #define LISP_TYPE_BOOLEAN       7
  47 #define LISP_TYPE_PATTERN_VAR   8
  48
  49 #define LISP_PATTERN_ANY        1
  50 #define LISP_PATTERN_SYMBOL     2
  51 #define LISP_PATTERN_STRING     3
  52 #define LISP_PATTERN_INTEGER    4
  53 #define LISP_PATTERN_REAL       5
  54 #define LISP_PATTERN_BOOLEAN    6
  55 #define LISP_PATTERN_LIST       7
  56 #define LISP_PATTERN_OR         8
  57
  58 typedef struct
  59   {
  60     int type;
  61
  62     union
  63       {
  64         FILE *file;
  65         struct
  66           {
  67             char *buf;
  68             int pos;
  69           }
  70         string;
  71         struct
  72           {
  73             void *data;
  74             int (*next_char) (void *data);
  75             void (*unget_char) (char c, void *data);
  76           }
  77         any;
  78       } v;
  79   }
  80 lisp_stream_t;
  81
  82 typedef struct _lisp_object_t lisp_object_t;
  83 struct _lisp_object_t
  84   {
  85     int type;
  86
  87     union
  88       {
  89         struct
  90           {
  91             struct _lisp_object_t *car;
  92             struct _lisp_object_t *cdr;
  93           }
  94         cons;
  95
  96         char *string;
  97         int integer;
  98         float real;
  99
 100         struct
 101           {
 102             int type;
 103             int index;
 104             struct _lisp_object_t *sub;
 105           }
 106         pattern;
 107       } v;
 108   };
 109
 110 lisp_stream_t* lisp_stream_init_gzfile (lisp_stream_t *stream, gzFile file);
 111 lisp_stream_t* lisp_stream_init_file (lisp_stream_t *stream, FILE *file);
 112 lisp_stream_t* lisp_stream_init_string (lisp_stream_t *stream, char *buf);
 113 lisp_stream_t* lisp_stream_init_any (lisp_stream_t *stream, void *data,
 114                                      int (*next_char) (void *data),
 115                                      void (*unget_char) (char c, void *data));
 116
 117 lisp_object_t* lisp_read (lisp_stream_t *in);
 118 lisp_object_t* lisp_read_from_file(const std::string& filename);
 119 void lisp_free (lisp_object_t *obj);
 120
 121 lisp_object_t* lisp_read_from_string (const char *buf);
 122
 123 int lisp_compile_pattern (lisp_object_t **obj, int *num_subs);
 124 int lisp_match_pattern (lisp_object_t *pattern, lisp_object_t *obj, lisp_object_t **vars, int num_subs);
 125 int lisp_match_string (const char *pattern_string, lisp_object_t *obj, lisp_object_t **vars);
 126
 127 int lisp_type (lisp_object_t *obj);
 128 int lisp_integer (lisp_object_t *obj);
 129 float lisp_real (lisp_object_t *obj);
 130 char* lisp_symbol (lisp_object_t *obj);
 131 char* lisp_string (lisp_object_t *obj);
 132 int lisp_boolean (lisp_object_t *obj);
 133 lisp_object_t* lisp_car (lisp_object_t *obj);
 134 lisp_object_t* lisp_cdr (lisp_object_t *obj);
 135
 136 lisp_object_t* lisp_cxr (lisp_object_t *obj, const char *x);
 137
 138 lisp_object_t* lisp_make_integer (int value);
 139 lisp_object_t* lisp_make_real (float value);
 140 lisp_object_t* lisp_make_symbol (const char *value);
 141 lisp_object_t* lisp_make_string (const char *value);
 142 lisp_object_t* lisp_make_cons (lisp_object_t *car, lisp_object_t *cdr);
 143 lisp_object_t* lisp_make_boolean (int value);
 144
 145 int lisp_list_length (lisp_object_t *obj);
 146 lisp_object_t* lisp_list_nth_cdr (lisp_object_t *obj, int index);
 147 lisp_object_t* lisp_list_nth (lisp_object_t *obj, int index);
 148
 149 void lisp_dump (lisp_object_t *obj, FILE *out);
 150
 151 #define lisp_nil()           ((lisp_object_t*)0)
 152
 153 #define lisp_nil_p(obj)      (obj == 0)
 154 #define lisp_integer_p(obj)  (lisp_type((obj)) == LISP_TYPE_INTEGER)
 155 #define lisp_real_p(obj)     (lisp_type((obj)) == LISP_TYPE_REAL)
 156 #define lisp_symbol_p(obj)   (lisp_type((obj)) == LISP_TYPE_SYMBOL)
 157 #define lisp_string_p(obj)   (lisp_type((obj)) == LISP_TYPE_STRING)
 158 #define lisp_cons_p(obj)     (lisp_type((obj)) == LISP_TYPE_CONS)
 159 #define lisp_boolean_p(obj)  (lisp_type((obj)) == LISP_TYPE_BOOLEAN)
 160
 161 /** */
 162 class LispReader
 163   {
 164   private:
 165     lisp_object_t* lst;
 166
 167     lisp_object_t* search_for(const char* name);
 168   public:
 169     /** cur == ((pos 1 2 3) (id 12 3 4)...) */
 170     LispReader (lisp_object_t* l);
 171
 172     bool read_int_vector (const char* name, std::vector<int>* vec);
 173     bool read_char_vector (const char* name, std::vector<char>* vec);
 174     bool read_string_vector (const char* name, std::vector<std::string>* vec);
 175     bool read_string (const char* name, std::string* str);
 176     bool read_int (const char* name, int* i);
 177     bool read_float (const char* name, float* f);
 178     bool read_bool (const char* name, bool* b);
 179     bool read_lisp (const char* name, lisp_object_t** b);
 180   };
 181
 182 /** */
 183 class LispWriter
 184   {
 185   private:
 186     std::vector<lisp_object_t*> lisp_objs;
 187
 188     void append (lisp_object_t* obj);
 189     lisp_object_t* make_list3 (lisp_object_t*, lisp_object_t*, lisp_object_t*);
 190     lisp_object_t* make_list2 (lisp_object_t*, lisp_object_t*);
 191   public:
 192     LispWriter (const char* name);
 193     void write_float (const char* name, float f);
 194     void write_int (const char* name, int i);
 195     void write_boolean (const char* name, bool b);
 196     void write_string (const char* name, const char* str);
 197     void write_symbol (const char* name, const char* symname);
 198     void write_lisp_obj(const char* name, lisp_object_t* lst);
 199
 200     /** caller is responible to free the returned lisp_object_t */
 201     lisp_object_t* create_lisp ();
 202   };
 203
 204 #endif