l4/pkg/lua/lib/contrib/src/lparser.h

   1 /*
   2 ** $Id: lparser.h,v 1.57.1.1 2007/12/27 13:02:25 roberto Exp $
   3 ** Lua Parser
   4 ** See Copyright Notice in lua.h
   5 */
   6
   7 #ifndef lparser_h
   8 #define lparser_h
   9
  10 #include "llimits.h"
  11 #include "lobject.h"
  12 #include "lzio.h"
  13
  14
  15 /*
  16 ** Expression descriptor
  17 */
  18
  19 typedef enum {
  20   VVOID,        /* no value */
  21   VNIL,
  22   VTRUE,
  23   VFALSE,
  24   VK,           /* info = index of constant in `k' */
  25   VKNUM,        /* nval = numerical value */
  26   VLOCAL,       /* info = local register */
  27   VUPVAL,       /* info = index of upvalue in `upvalues' */
  28   VGLOBAL,      /* info = index of table; aux = index of global name in `k' */
  29   VINDEXED,     /* info = table register; aux = index register (or `k') */
  30   VJMP,         /* info = instruction pc */
  31   VRELOCABLE,   /* info = instruction pc */
  32   VNONRELOC,    /* info = result register */
  33   VCALL,        /* info = instruction pc */
  34   VVARARG,      /* info = instruction pc */
  35   VKINT     /* ival = integer value */
  36 #ifdef LNUM_COMPLEX
  37   ,VKNUM2   /* nval = imaginary value */
  38 #endif
  39 } expkind;
  40
  41 typedef struct expdesc {
  42   expkind k;
  43   union {
  44     struct { int info, aux; } s;
  45     lua_Number nval;
  46     lua_Integer ival;
  47   } u;
  48   int t;  /* patch list of `exit when true' */
  49   int f;  /* patch list of `exit when false' */
  50 } expdesc;
  51
  52
  53 typedef struct upvaldesc {
  54   lu_byte k;
  55   lu_byte info;
  56 } upvaldesc;
  57
  58
  59 struct BlockCnt;  /* defined in lparser.c */
  60
  61
  62 /* state needed to generate code for a given function */
  63 typedef struct FuncState {
  64   Proto *f;  /* current function header */
  65   Table *h;  /* table to find (and reuse) elements in `k' */
  66   struct FuncState *prev;  /* enclosing function */
  67   struct LexState *ls;  /* lexical state */
  68   struct lua_State *L;  /* copy of the Lua state */
  69   struct BlockCnt *bl;  /* chain of current blocks */
  70   int pc;  /* next position to code (equivalent to `ncode') */
  71   int lasttarget;   /* `pc' of last `jump target' */
  72   int jpc;  /* list of pending jumps to `pc' */
  73   int freereg;  /* first free register */
  74   int nk;  /* number of elements in `k' */
  75   int np;  /* number of elements in `p' */
  76   short nlocvars;  /* number of elements in `locvars' */
  77   lu_byte nactvar;  /* number of active local variables */
  78   upvaldesc upvalues[LUAI_MAXUPVALUES];  /* upvalues */
  79   unsigned short actvar[LUAI_MAXVARS];  /* declared-variable stack */
  80 } FuncState;
  81
  82
  83 LUAI_FUNC Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff,
  84                                             const char *name);
  85
  86
  87 #endif