engine/action.c

   1 /*
   2     action.c - MaLa actions implementation
   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 #include <stdio.h>
  20
  21 #include "mala_types.h"
  22 #include "strings.h"
  23 #include "stringlist.h"
  24 #include "actiondesc.h"
  25 #include "engine.h"
  26 #include "action.h"
  27 \f
  28
  29
  30 MalaAction
  31 mala_action_new (MalaString name,
  32                  void * data,
  33                  MalaParserFunc parser,
  34                  MalaDataFactory factory,
  35                  MalaAction parent)
  36 {
  37   MalaAction self;
  38
  39   self = malloc (sizeof (mala_action));
  40   if (!self)
  41     return NULL;
  42
  43   self->name = mala_string_copy (name);
  44   self->parser = parser;
  45   self->factory = factory;
  46   self->data = data;
  47   self->desc = NULL;
  48
  49   LIST_INIT (&self->childs);
  50
  51   self->parent = parent;
  52
  53   if (parent)
  54     LIST_INSERT_HEAD (&parent->childs, self, cldnode);
  55
  56   if (name->bucket->gc_trace > MALA_NOTRACE)
  57     fprintf (stderr ,"GC: new action %p '%s' cnt %ld parent '%s'\n",
  58              self, name->str, name->refcnt >> 2, parent?parent->name->str:NULL);
  59
  60   return self;
  61 }
  62
  63 MalaAction
  64 mala_action_new_actioninit (MalaActionInit init, MalaEngine engine)
  65 {
  66   MalaStringBucket bucket = &engine->words;
  67   MalaAction parent;
  68   MalaAction self;
  69   MalaString name;
  70   void * data = NULL;
  71   MalaDataFactory factory = init->factory;
  72
  73   name = mala_string_new (init->command, bucket);
  74   if (!name)
  75     return NULL;
  76
  77   if (factory)
  78     {
  79       data = factory ( &data, (char *)init->data, bucket);
  80       if (!data)
  81         goto ealloc;
  82     }
  83   else
  84     data = init->data;
  85
  86   if (!init->parent)
  87     parent = mala_action_get_cstr (bucket, "--WORLD");
  88   else
  89     parent = mala_action_get_cstr (bucket, init->parent);
  90
  91   self = mala_action_new (name, data, init->parser, factory, parent);
  92   if (!self)
  93     goto ealloc_action;
  94
  95   mala_string_free (name);
  96
  97   return self;
  98
  99  ealloc_action:
 100   factory (&data, NULL, NULL);
 101  ealloc:
 102   mala_string_free (name);
 103   return NULL;
 104 }
 105
 106 MalaAction
 107 mala_action_get_cstr (MalaStringBucket bucket, const char * name)
 108 {
 109   return name
 110     ? mala_actiondesc_top (mala_string_user_get (mala_string_find (name, bucket)))
 111     : NULL;
 112 }
 113
 114 MalaAction
 115 mala_action_get_str (MalaString name)
 116 {
 117   return name
 118     ? mala_actiondesc_top (mala_string_user_get (name))
 119     : NULL;
 120 }
 121
 122
 123 int
 124 mala_action_attach (MalaAction self)
 125 {
 126   MalaActionDesc desc;
 127
 128   desc = mala_actiondesc_ensure (self->name);
 129   if (!desc)
 130     return MALA_EALLOC;
 131
 132   mala_actiondesc_push_action (desc, self);
 133   return MALA_SUCCESS;
 134 }
 135
 136 int
 137 mala_action_execute (MalaAction self, MalaStringListNode_ref pptr, MalaEngine eng)
 138 {
 139   return self->parser ? self->parser (eng, pptr, self->data) : MALA_EPARSER;
 140 }
 141
 142
 143
 144
 145 void
 146 mala_action_free (MalaAction self)
 147 {
 148   MalaAction child;
 149
 150   if (!self)
 151     return;
 152
 153   MALA_ASSERT(self->name);
 154
 155   if (self->name->bucket && self->name->bucket->gc_trace > MALA_NOTRACE)
 156     fprintf (stderr ,"GC: free action %p '%s'\n", self, self->name->str);
 157
 158   // detach from parent
 159   if (self->parent)
 160     {
 161       self->parent = NULL;
 162       LIST_REMOVE (self, cldnode);
 163     }
 164
 165   // delete all childs
 166   while ((child = self->childs.lh_first) != NULL)
 167     {
 168       LIST_REMOVE (child, cldnode);
 169       mala_action_free (child);
 170     }
 171
 172   if (self->factory && self->data)
 173     {
 174       self->factory (&self->data, NULL, NULL);
 175       self->data = NULL;
 176     }
 177
 178   LIST_REMOVE(self, stknode);
 179
 180   if (!self->desc->actions.lh_first)
 181     mala_actiondesc_free (self->desc);
 182
 183   mala_string_free (self->name);
 184
 185   free (self);
 186 }
 187
 188
 189
 190
 191
 192 #if 0 /*TODO*/
 193
 194
 195 t_uchar *
 196 mala_action_getname (MalaAction self)
 197 {
 198   return self->name;
 199 }
 200
 201 int
 202 mala_action_attach (MalaAction self, MalaAction parent)
 203 {
 204   if (!llist_is_empty (&self->cldnode))
 205     return MALA_EACTIONUSED;
 206
 207   llist_add_tail (&parent->childs, &self->cldnode);
 208   return MALA_SUCCESS;
 209 }
 210
 211 void
 212 mala_action_detach (MalaAction self)
 213 {
 214   llist_unlink (&self->cldnode);
 215 }
 216
 217 MalaParserFunc
 218 mala_action_getparser (MalaAction self)
 219 {
 220   return self->parser;
 221 }
 222
 223 void *
 224 mala_action_getdata (MalaAction self)
 225 {
 226   return self->data;
 227 }
 228 #endif /*TODO*/
 229
 230
 231 /*
 232 // Local Variables:
 233 // mode: C
 234 // c-file-style: "gnu"
 235 // End:
 236 // arch-tag: 5b3b4c3c-09f4-4f2e-a737-1ea6c5df59e9
 237 // end_of_file
 238 */