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