engine/program.c

   1 /*
   2     program.c - MaLa Program container
   3
   4   Copyright (C) 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 <stdlib.h>
  21 #include <ctype.h>
  22 #include <stdio.h>
  23 #include "mala_types.h"
  24 #include "program.h"
  25 #include "engine.h"
  26 #include "action.h"
  27 #include "stringlist.h"
  28 \f
  29 /* genreate a string array for the states */
  30 #define MALA_STATE(s) #s
  31 const char * mala_program_states [] = {MALA_STATES};
  32 #undef MALA_STATE
  33 \f
  34
  35 void
  36 mala_program_acogc_initize (void* o)
  37 {
  38   MalaProgram self = (MalaProgram)o;
  39   self->program = NULL;
  40 }
  41
  42 acogc_mark_result
  43 mala_program_acogc_mark (void* o)
  44 {
  45   MalaProgram self = (MalaProgram)o;
  46   acogc_object_lastmark (self->program);
  47   return ACOGC_KEEP;
  48 }
  49
  50 MalaProgram
  51 mala_program_new_cstr (const char* cmd, MalaEngine engine)
  52 {
  53   ACOGC_STACK_ENTER (&engine->gcroot);
  54   ACOGC_STACK_PTR (MalaProgram, self);
  55   ACOGC_STACK_PTR (MalaStringList, elem);
  56
  57   self.ptr = acogc_factory_alloc (&engine->gcfactory_programs);
  58
  59   self.ptr->program = mala_stringlist_new (engine);
  60
  61   elem.ptr = mala_stringlist_new (engine);
  62   elem.ptr->string = mala_string_new_cstr (cmd, engine->words);
  63   llist_insert_tail (&self.ptr->program->node, &elem.ptr->node);
  64
  65   self.ptr->pptr = self.ptr->program;
  66
  67   self.ptr->engine = engine;
  68   self.ptr->negated = 0;
  69   self.ptr->state = MALA_START;
  70
  71   ACOGC_STACK_LEAVE;
  72   return self.ptr;
  73 }
  74
  75 mala_state
  76 mala_program_run (MalaProgram self, mala_state dest)
  77 {
  78   TRACE_DBG (mala_program, "run  pptr %p pptrnext %p prg %p", self->pptr, mala_stringlist_next (self->pptr), self->program);
  79
  80   while (mala_stringlist_next (self->pptr) != self->program &&
  81          self->state > dest && self->state < MALA_EFAULT)
  82     {
  83       if (mala_program_step (self) == MALA_LITERAL)
  84         {
  85           mala_stringlist_fwd (&self->pptr);
  86         }
  87     }
  88
  89   TODO("set state to MALA_FINISH at the end of fully evaluated program");
  90
  91   return self->state;
  92 }
  93
  94 mala_state
  95 mala_program_eval_arg (MalaProgram self, int n, mala_state dest)
  96 {
  97   if (self->state > MALA_EFAULT)
  98     return self->state;
  99
 100   MalaStringList opptr = self->pptr;
 101   self->pptr = (MalaStringList) llist_get_nth_stop (&self->pptr->node, n, llist_get_prev (&self->program->node));
 102
 103   if (!self->pptr)
 104     {
 105       self->pptr = (MalaStringList) llist_get_prev (&self->program->node);
 106       mala_program_commonexception (self, MALA_STRING_ERROR_MISSING_ARGUMENT);
 107     }
 108
 109   self->state = mala_program_run (self, dest);
 110
 111   self->pptr = opptr;
 112   return self->state;
 113 }
 114
 115 mala_state
 116 mala_program_step (MalaProgram self)
 117 {
 118   mala_state state = MALA_START;
 119
 120   TODO(" handle --LITERAL");
 121   NOTICE (mala_program,"step");
 122
 123   MalaStringList pptr = mala_stringlist_next (self->pptr);
 124
 125   if (pptr->string && pptr->string->action)
 126     {
 127       MalaAction action = mala_program_pptr_action (self);
 128       state = action->parser (self);
 129     }
 130   else
 131     {
 132       if (self->state == MALA_REMOVE)
 133         {
 134           mala_stringlist_remove (pptr);
 135         }
 136       else if (self->state == MALA_EXCEPTION)
 137         {
 138           WARN (mala, "EXCEPTION");
 139           state = MALA_ENOACTION;
 140         }
 141       else
 142         {
 143           state = MALA_LITERAL;
 144         }
 145     }
 146
 147   if (self->state != MALA_REMOVE)
 148     self->state = state;
 149
 150   return state;
 151 }
 152
 153 /*
 154 // Local Variables:
 155 // mode: C
 156 // c-file-style: "gnu"
 157 // End:
 158 // arch-tag: fd8544bd-4144-44fe-8a9e-635aa0d3c393
 159 // end_of_file
 160 */