engine/program.h

   1 /*
   2     program.h - MaLa program descriptor
   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_PROGRAM_H
  21 #define MALA_PROGRAM_H
  22
  23 #include <stdio.h>
  24 #include "mala_types.h"
  25 #include "stringlist.h"
  26
  27 struct mala_program_struct
  28 {
  29   MalaStringList program;       // list containing the actual program
  30   MalaStringList pptr;          // points to the position *before* the next to be evaluated string
  31   MalaEngine engine;
  32   int negated:1;
  33   mala_state state;
  34 };
  35 \f
  36
  37 extern const char * mala_program_states [];
  38
  39 void
  40 mala_program_acogc_initize (void* o);
  41
  42 acogc_mark_result
  43 mala_program_acogc_mark (void* o);
  44
  45 MalaProgram
  46 mala_program_new_cstr (const char * cmd, MalaEngine engine);
  47
  48 MalaProgram
  49 mala_program_copy (MalaProgram source);
  50
  51 void
  52 mala_program_run (MalaProgram self, mala_state dest);
  53
  54 mala_state
  55 mala_program_eval_arg (MalaProgram self, int n, mala_state dest, MalaStringList_ref dst);
  56
  57 static inline int
  58 mala_program_exists_arg (MalaProgram self, int n)
  59 {
  60   return !!llist_get_nth_stop (&self->pptr->node, n, llist_get_prev (&self->program->node));
  61 }
  62
  63 static inline mala_state
  64 mala_program_commonexception (MalaProgram self, mala_common_string idx)
  65 {
  66   mala_stringlist_insert_after (self->pptr,
  67                                mala_stringlist_node_new (self->engine->common_string[idx],
  68                                                          self->engine));
  69   return self->state = MALA_EXCEPTION;
  70 }
  71
  72 static inline mala_state
  73 mala_program_state_get (MalaProgram self);
  74
  75 mala_state
  76 mala_program_step (MalaProgram self);
  77
  78 static inline void
  79 mala_program_action_done (MalaProgram prg, int args);
  80
  81 static inline MalaAction
  82 mala_program_pptr_action (MalaProgram self);
  83
  84
  85
  86 /*
  87  *      inlines
  88  */
  89
  90 static inline mala_state
  91 mala_program_state_get (MalaProgram self)
  92 {
  93   return self ? self->state : MALA_EINVALID;
  94 }
  95
  96 void
  97 mala_program_action_done (MalaProgram prg, int args)
  98 {
  99   do
 100     {
 101       TODO("assert not delete over end of program");
 102       mala_stringlist_remove (mala_stringlist_next (prg->pptr));
 103     }
 104   while (args--);
 105 }
 106
 107
 108 static inline MalaAction
 109 mala_program_pptr_action (MalaProgram self)
 110 {
 111   return mala_stringlist_next (self->pptr)->string->action;
 112 }
 113
 114 #endif /*MALA_PROGRAM_H*/
 115 /*
 116 // Local Variables:
 117 // mode: C
 118 // c-file-style: "gnu"
 119 // End:
 120 // arch-tag: 0c5dbf2d-8ae2-4e00-874d-d47c8251f709
 121 // end_of_file
 122 */