src/lparser.h

   1 /*
   2 ** $Id: lparser.h,v 1.57 2006/03/09 18:14:31 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 #ifdef LUA_TINT
  36   ,VKINT     /* ival = integer value */
  37 #endif
  38 #ifdef LNUM_COMPLEX
  39   ,VKNUM2   /* nval = imaginary value */
  40 #endif
  41 } expkind;
  42
  43 typedef struct expdesc {
  44   expkind k;
  45   union {
  46     struct { int info, aux; } s;
  47     lua_Number nval;
  48 #ifdef LUA_TINT
  49     lua_Integer ival;
  50 #endif
  51   } u;
  52   int t;  /* patch list of `exit when true' */
  53   int f;  /* patch list of `exit when false' */
  54 } expdesc;
  55
  56
  57 typedef struct upvaldesc {
  58   lu_byte k;
  59   lu_byte info;
  60 } upvaldesc;
  61
  62
  63 struct BlockCnt;  /* defined in lparser.c */
  64
  65
  66 /* state needed to generate code for a given function */
  67 typedef struct FuncState {
  68   Proto *f;  /* current function header */
  69   Table *h;  /* table to find (and reuse) elements in `k' */
  70   struct FuncState *prev;  /* enclosing function */
  71   struct LexState *ls;  /* lexical state */
  72   struct lua_State *L;  /* copy of the Lua state */
  73   struct BlockCnt *bl;  /* chain of current blocks */
  74   int pc;  /* next position to code (equivalent to `ncode') */
  75   int lasttarget;   /* `pc' of last `jump target' */
  76   int jpc;  /* list of pending jumps to `pc' */
  77   int freereg;  /* first free register */
  78   int nk;  /* number of elements in `k' */
  79   int np;  /* number of elements in `p' */
  80   short nlocvars;  /* number of elements in `locvars' */
  81   lu_byte nactvar;  /* number of active local variables */
  82   upvaldesc upvalues[LUAI_MAXUPVALUES];  /* upvalues */
  83   unsigned short actvar[LUAI_MAXVARS];  /* declared-variable stack */
  84 } FuncState;
  85
  86
  87 LUAI_FUNC Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff,
  88                                             const char *name);
  89
  90
  91 #endif