engine/actiondesc.c

   1 /*
   2     actiondesc.c - stack for all actions on one word
   3
   4   Copyright (C) 2004, 2005, 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 #include "mala_types.h"
  21 #include "strings.h"
  22 #include "action.h"
  23 #include "actiondesc.h"
  24
  25
  26 MalaActionDesc mala_actiondesc_new (MalaString name)
  27 {
  28   MalaActionDesc self;
  29   self = malloc (sizeof(mala_actiondesc));
  30   if (!self)
  31     return NULL;
  32
  33   LIST_INIT(&self->actions);
  34   self->name = name;
  35   return self;
  36 }
  37
  38 MalaActionDesc
  39 mala_actiondesc_ensure (MalaString str)
  40 {
  41   MalaActionDesc self;
  42
  43   self = (MalaActionDesc) mala_string_user_get (str);
  44   if (!self)
  45     {
  46       self = mala_actiondesc_new (str);
  47       if (!self)
  48         return NULL;
  49       mala_string_user_set (str, self);
  50     }
  51   return self;
  52 }
  53
  54 void mala_actiondesc_free (MalaActionDesc self)
  55 {
  56   if (!self)
  57     return;
  58
  59   while (self->actions.lh_first != NULL)
  60     {
  61       MalaAction act = self->actions.lh_first;
  62       LIST_REMOVE(act, stknode);
  63       mala_action_free (act);
  64     }
  65   mala_string_user_set (self->name, NULL);
  66   free (self);
  67 }
  68
  69
  70 void
  71 mala_actiondesc_push_action (MalaActionDesc self, MalaAction action)
  72 {
  73   LIST_INSERT_HEAD (&self->actions, action, stknode);
  74   action->desc = self;
  75 }
  76
  77 int /*TODO return void instead?*/
  78 mala_actiondesc_pop_delete (MalaActionDesc self)
  79 {
  80   if (self && self->actions.lh_first)
  81     {
  82       MalaAction act = self->actions.lh_first;
  83       LIST_REMOVE(act, stknode);
  84       mala_action_free (act);
  85       return MALA_SUCCESS;
  86     }
  87   else
  88     return MALA_FAILURE;
  89 }
  90
  91 MalaAction
  92 mala_actiondesc_pop (MalaActionDesc self)
  93 {
  94   if (self && self->actions.lh_first)
  95     {
  96       MalaAction act = self->actions.lh_first;
  97       LIST_REMOVE(act, stknode);
  98       return act;
  99     }
 100   else
 101     return NULL;
 102 }
 103
 104 MalaAction
 105 mala_actiondesc_top (MalaActionDesc self)
 106 {
 107   return self ? self->actions.lh_first: NULL;
 108 }
 109
 110 void*
 111 mala_actiondesc_data_top (MalaActionDesc self)
 112 {
 113   return self ? self->actions.lh_first->data : NULL;
 114 }
 115
 116 /*
 117 // Local Variables:
 118 // mode: C
 119 // c-file-style: "gnu"
 120 // End:
 121 // arch-tag: 52850120-1610-46ce-9cd8-ec035f0fc025
 122 // end_of_file
 123 */