---

mygrm.h

 /*
  * plint/parse/mygrm.h : the `#define TOKEN's and my grammar macros
  * 
  * Time-stamp: <2002-09-02 22:22:23 gseba>
  * 
  * Copyright (C) Sebastian Glita, email: gseba@users.sourceforge.net
  * 
  * This file is part of plint.
  * 
  * plint is free software; you can  redistribute it and/or modify it under the
  * terms of the  GNU General Public License as published  by the Free Software
  * Foundation; either version 2, or (at your option) any later version.
  *
  * plint  is distributed  in the  hope  that it  will be  useful, but  WITHOUT
  * ANY  WARRANTY; without  even  the implied  warranty  of MERCHANTABILITY  or
  * FITNESS FOR A  PARTICULAR PURPOSE.  See the GNU  General Public License for
  * more details.
  * 
  * You should  have received a  copy of the  GNU General Public  License along
  * with  plint; see  the file  COPYING.  If  not, write  to the  Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA USA.
  *
  */

#ifndef PLINT_PARSE_MYGRM_H
#define PLINT_PARSE_MYGRM_H

#ifndef YYBISON
#include "data/type.h"
#include "plugin/types.h"
#include "grammar.h"
#endif

/* if `running' stage */
#define IF_RUN if (plint->run)
/* if `parsing' stage */
#define IF_PRS if (!plint->run)
/* if valid result from previous rules (not aborted) */
#define IF_VAL if (PLINT_CTRL_NONE)
/* for symetry */
#define IF_NUL



#define PLINT_xxx_PUSH(__typ__)                         \
  ({                                                    \
    PLINT_STACK_PUSH(__typ__, plint->reg.__typ__);      \
    plint_clean_##__typ__();                            \
  })

#define PLINT_xxx_POP(__typ__)                          \
  ({                                                    \
    plint->reg.__typ__ = PLINT_STACK_TOP(__typ__);      \
    PLINT_STACK_POP(__typ__);                           \
  })

#define PLINT_xxx_ABRT(__typ__) PLINT_xxx_POP(__typ__), plint_free_##__typ__()


#define PLINT_var_PUSH PLINT_xxx_PUSH(var)
#define PLINT_var_POP PLINT_xxx_POP(var)
#define PLINT_var_ABRT PLINT_xxx_ABRT(var)

#define PLINT_ref_PUSH PLINT_xxx_PUSH(ref)
#define PLINT_ref_POP PLINT_xxx_POP(ref)
#define PLINT_ref_ABRT PLINT_ref_POP

#define PLINT_mem_PUSH { plint_mem_dup(plint->reg.mem); PLINT_STACK_PUSH(mem, plint->reg.mem); }
#define PLINT_mem_POP { PLINT_xxx_POP(mem); plint_mem_fre(plint->reg.mem); }
#define PLINT_mem_ABRT PLINT_mem_POP

#define PLINT_tab_PUSH PLINT_xxx_PUSH(tab)
#define PLINT_tab_POP PLINT_xxx_POP(tab)
#define PLINT_tab_ABRT PLINT_xxx_ABRT(tab)

#define PLINT_hsh_PUSH PLINT_xxx_PUSH(hsh)
#define PLINT_hsh_POP PLINT_xxx_POP(hsh)
#define PLINT_hsh_ABRT PLINT_xxx_ABRT(hsh)

#define PLINT_str_PUSH PLINT_xxx_PUSH(str)
#define PLINT_str_POP PLINT_xxx_POP(str)
#define PLINT_str_ABRT PLINT_xxx_ABRT(str)

#define PLINT_idx_PUSH PLINT_STACK_PUSH(idx, plint_index_new())
#define PLINT_idx_ADD(__idx__...) plint_index_add(PLINT_STACK_TOP(idx), ({ plint_idx_t _tmp = __idx__; _tmp; }))
#define PLINT_idx_TIP plint_index_tip(PLINT_STACK_TOP(idx))
#define PLINT_idx_REM { plint_idx_t _tmp = plint_index_rem(PLINT_STACK_TOP(idx)); plint_val_fre(&_tmp.val, _tmp.typ); }
#define PLINT_idx_SIZE plint_index_count(PLINT_STACK_TOP(idx))
#define PLINT_idx_EMPTY plint_index_empty(PLINT_STACK_TOP(idx))
#define PLINT_idx_POP plint_index_free(PLINT_STACK_TOP(idx)), PLINT_STACK_POP(idx)
#define PLINT_idx_ABRT PLINT_idx_POP

#endif

---