engine/engine.h

   1 /*
   2     engine.h - MaLa core engine
   3
   4   Copyright (C) 2004, Christian Thaeter <chth@gmx.net>
   5
   6   This program is free software; you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License version 2 as
   8   published by the Free Software Foundation.
   9
  10   This program is distributed in the hope that it will be useful,
  11   but WITHOUT ANY WARRANTY; without even the implied warranty of
  12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13   GNU General Public License for more details.
  14
  15   You should have received a copy of the GNU General Public License
  16   along with this program; if not, contact me.
  17
  18 */
  19 \f
  20 #ifndef MALA_ENGINE_H
  21 #define MALA_ENGINE_H
  22
  23 #include "mala_types.h"
  24 #include "stringbucket.h"
  25 #include "stringlist.h"
  26 //#include "action.h"
  27
  28 /*
  29    Build a table of common strings, this strings are
  30    a) get never garbage collected (except at end)
  31    b) are fast accessible with their symbolic index
  32
  33    note that "--WORLD" must be the first one
  34 */
  35
  36 #define MALA_COMMON_STRINGS                                                             \
  37 {                                                                                       \
  38     MALA_COMMON_STRING (WORLD, "--WORLD"),                                              \
  39     MALA_COMMON_STRING (COMMANDLINE, "--COMMANDLINE"),                                  \
  40     MALA_COMMON_STRING (PROGRAM, "--PROGRAM"),                                          \
  41     MALA_COMMON_STRING (ARGUMENTS, "--ARGUMENTS"),                                      \
  42     MALA_COMMON_STRING (FALSE, "--FALSE"),                                              \
  43     MALA_COMMON_STRING (TRUE, "--TRUE"),                                                \
  44     MALA_COMMON_STRING (EMPTY, ""),                                                     \
  45     MALA_COMMON_STRING (ZERO, "0"),                                                     \
  46     MALA_COMMON_STRING (PASS, "--PASS"),                                                \
  47     MALA_COMMON_STRING (EXCLAMATIONMARK, "!"),                                          \
  48     MALA_COMMON_STRING (ASSIGN, "="),                                                   \
  49     MALA_COMMON_STRING (BACKQUOTE, "`"),                                                \
  50     MALA_COMMON_STRING (NOT, "--NOT"),                                                  \
  51     MALA_COMMON_STRING (LITERAL, "--LITERAL"),                                          \
  52     MALA_COMMON_STRING (ENVSUBST, "--ENVSUBST"),                                        \
  53     MALA_COMMON_STRING (SETENV, "--SETENV"),                                            \
  54     MALA_COMMON_STRING (SECTION, "--SECTION"),                                          \
  55     MALA_COMMON_STRING (BEFORE_HERE, "--BEFORE-HERE"),                                  \
  56     MALA_COMMON_STRING (BEGIN, "--BEGIN"),                                              \
  57     MALA_COMMON_STRING (END, "--END"),                                                  \
  58     MALA_COMMON_STRING (DEL, "--DEL"),                                                  \
  59     MALA_COMMON_STRING (DEFAULT_PARSER, "--DEFAULT-PARSER"),                            \
  60     MALA_COMMON_STRING (PP_COMMANDLINE, "--PP-COMMANDLINE"),                            \
  61     MALA_COMMON_STRING (PP_CONFIGFILE, "--PP-CONFIGFILE"),                              \
  62     MALA_COMMON_STRING (PP_INTERACTIVE, "--PP-INTERACTIVE"),                            \
  63     MALA_COMMON_STRING (FLAG_LITERAL_EXPANSION, "--FLAG-LITERAL-EXPANSION"),            \
  64     MALA_COMMON_STRING (FLAG_EXCLAM_EXPANSION, "--FLAG-EXCLAM-EXPANSION"),              \
  65     MALA_COMMON_STRING (FLAG_NO_EXPANSION, "--FLAG-NO-EXPANSION"),                      \
  66     MALA_COMMON_STRING (FLAG_NUMSPLIT_EXPANSION, "--FLAG-NUMSPLIT-EXPANSION"),          \
  67     MALA_COMMON_STRING (FLAG_CHAR_EXPANSION, "--FLAG-CHAR-EXPANSION"),                  \
  68     MALA_COMMON_STRING (FLAG_ASSIGN_EXPANSION, "--FLAG-ASSIGN-EXPANSION"),              \
  69     MALA_COMMON_STRING (FLAG_SETENV_EXPANSION, "--FLAG-SETENV-EXPANSION"),              \
  70     MALA_COMMON_STRING (FLAG_ENVVAR_EXPANSION, "--FLAG-ENVVAR-EXPANSION"),              \
  71     MALA_COMMON_STRING (FLAG_UNDERSCORE_EXPANSION, "--FLAG-UNDERSCORE-EXPANSION"),      \
  72     MALA_COMMON_STRING (FLAG_BRACKET_EXPANSION, "--FLAG-BRACKET-EXPANSION"),            \
  73     MALA_COMMON_STRING (FLAG_ASSIGN_CONTRACTION, "--FLAG-ASSIGN-CONTRACTION"),          \
  74     MALA_COMMON_STRING (ERROR, "--ERROR"),                                              \
  75     MALA_COMMON_STRING (ERROR_MISSING_ARGUMENT, "--ERROR-MISSING-ARGUMENT"),            \
  76     MALA_COMMON_STRING (ERROR_MISSING_END, "--ERROR-MISSING-END"),                      \
  77     MALA_COMMON_STRING (ERROR_END_WITHOUT_BEGIN, "--ERROR-END-WITHOUT-BEGIN"),          \
  78     MALA_COMMON_STRING (ERROR_MACRO_SYNTAX, "--ERROR-MACRO-SYNTAX"),                    \
  79     MALA_COMMON_STRING (ERROR_NESTING_LIMIT_EXCEED, "--ERROR-NESTING-LIMIT-EXCEED"),    \
  80     MALA_COMMON_STRING (ERROR_ACTION_NOT_DEFINED, "--ERROR-ACTION-NOT-DEFINED"),        \
  81     MALA_COMMON_STRING (ERROR_NOT_A_PREDICATE, "--ERROR-NOT-A-PREDICATE"),              \
  82     MALA_COMMON_STRING (ERROR_WRONG_TYPE, "--ERROR-WRONG-TYPE"),                        \
  83     MALA_COMMON_STRING (ERROR_OUT_OF_RANGE, "--ERROR-OUT-OF-RANGE"),                    \
  84     MALA_COMMON_STRING (MAX, "")                                                        \
  85 }
  86
  87
  88 #define MALA_COMMON_STRING(E,s) MALA_STRING_##E
  89 enum mala_common_strings_enum MALA_COMMON_STRINGS;
  90 #undef MALA_COMMON_STRING
  91
  92 typedef enum mala_common_strings_enum mala_common_string;
  93
  94 const char * mala_engine_states [MALA_STATE_TABLE_SIZEOF+1];
  95
  96 //#ifdef MALA_PRIVATE
  97 struct mala_engine_struct
  98 {
  99   /*
 100    * every tokenized word is collected in 'words'
 101    * actions can be bound to these words through the strings user variable
 102    */
 103   acogc_root gcroot;
 104
 105   acogc_factory gcfactory_buckets;
 106   acogc_factory gcfactory_strings;
 107   acogc_factory gcfactory_stringbucketnodes;
 108   acogc_factory gcfactory_stringlists;
 109   acogc_factory gcfactory_actions;
 110   acogc_factory gcfactory_programs;
 111
 112   MalaStringBucket words;
 113
 114   mala_trace engine_trace;      // TODO
 115
 116   /* --BEGIN ... --END blocks are translated to --BLOCK-xxxxxxxx macros,
 117      where xxxxxxxx is a monotonic incrementing counter, its value is stored here */
 118   unsigned blockcnt;
 119
 120   mala_state state;
 121
 122   MalaString common_string[MALA_STRING_MAX];
 123 };
 124 \f
 125
 126 /*
 127  * Mala engine
 128  */
 129 void
 130 mala_engine_init (MalaEngine self);
 131
 132 MalaEngine
 133 mala_engine_new ();
 134
 135 #if 0
 136 MalaEngine
 137 mala_engine_new_main (int (*initfunc) (MalaEngine),
 138                       int argc, char ** argv,
 139                       mala_actioninit * actions_init);
 140 #endif
 141
 142 void
 143 mala_engine_erase (MalaEngine self);
 144
 145 void
 146 mala_engine_free (MalaEngine self);
 147
 148 mala_state
 149 mala_engine_actions_register (MalaEngine, MalaActionInit);
 150
 151
 152 void
 153 mala_engine_action_new_cstr (MalaEngine self,
 154                              const char* name,
 155                              MalaParserFunc parser,
 156                              void *data,
 157                              acogc_alloc_type data_alloc,
 158                              MalaAction parent);
 159
 160
 161 void
 162 mala_engine_run_cstr (MalaEngine self,
 163                       const char* cmd,
 164                       MalaStringList_ref result);
 165
 166 mala_state
 167 mala_engine_state_get (MalaEngine self);
 168
 169 const char *
 170 mala_engine_state_str (MalaEngine self);
 171
 172 void
 173 mala_engine_clearstate (MalaEngine self);
 174
 175 MalaString
 176 mala_engine_tmpname (MalaEngine self, const char* templ);
 177
 178 static inline MalaAction
 179 mala_engine_action_get_cstr (MalaEngine engine, const char * cname)
 180 {
 181   MalaString s = mala_stringbucket_find (engine->words, cname);
 182   return  s ? s->action : NULL;
 183 }
 184
 185 #endif /*MALA_ENGINE_H*/
 186 /*
 187 // Local Variables:
 188 // mode: C
 189 // c-file-style: "gnu"
 190 // End:
 191 // arch-tag: 47d718f6-e397-400c-93a6-bc71f475c0c7
 192 // end_of_file
 193 */