std/std.c

   1 /*
   2     std.c - MaLa standard parser module
   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
  21 #include "mala.h"
  22 #include "std.h"
  23
  24
  25 int
  26 mala_substitute_parser (MalaEngine eng,
  27                         MalaStringListNode_ref pptr,
  28                         void * data)
  29 {
  30   if (!mala_stringlist_after_new (&eng->program, *pptr, (MalaString) data))
  31     goto ealloc_node;
  32
  33   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
  34
  35   return eng->state;
  36
  37  ealloc_node:
  38   return eng->state = MALA_EALLOC;
  39 }
  40
  41 int
  42 mala_expand_parser (MalaEngine eng,
  43                     MalaStringListNode_ref pptr,
  44                     void * data)
  45 {
  46   MalaStringListNode itr;
  47   for (itr = mala_stringlist_tail ((MalaStringList) data);
  48        !mala_stringlist_is_end ((MalaStringList) data, itr);
  49        mala_stringlist_rev (&itr))
  50     {
  51       if (!mala_stringlist_after_new (&eng->program, *pptr, itr->string))
  52         goto ealloc_node;
  53     }
  54
  55   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
  56
  57   return eng->state;
  58
  59  ealloc_node:
  60   /*TODO*/
  61   return eng->state = MALA_EALLOC;
  62 }
  63
  64 int
  65 mala_macro_parser (MalaEngine eng,
  66                    MalaStringListNode_ref pptr,
  67                    void * data)
  68 {
  69   (void) eng;
  70   (void) pptr;
  71   (void) data;
  72   return MALA_ENOACTION;
  73 }
  74
  75 int
  76 mala_null_parser (MalaEngine eng,
  77                   MalaStringListNode_ref pptr,
  78                   void * data)
  79 {
  80   (void) data;
  81   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
  82   return eng->state;
  83 }
  84
  85 /*
  86 // Local Variables:
  87 // mode: C
  88 // c-file-style: "gnu"
  89 // End:
  90 // arch-tag: 687e1195-8aad-4425-983d-9767a25c3793
  91 // end_of_file
  92 */