lparser.h 2.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586
  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. #ifndef lparser_h
  7. #define lparser_h
  8. #include "llimits.h"
  9. #include "lobject.h"
  10. #include "lzio.h"
  11. /*
  12. ** Expression descriptor
  13. */
  14. typedef enum {
  15. VVOID, /* no value */
  16. VNIL,
  17. VTRUE,
  18. VFALSE,
  19. VK, /* info = index of constant in `k' */
  20. VKNUM, /* nval = numerical value */
  21. VLOCAL, /* info = local register */
  22. VUPVAL, /* info = index of upvalue in `upvalues' */
  23. VGLOBAL, /* info = index of table; aux = index of global name in `k' */
  24. VINDEXED, /* info = table register; aux = index register (or `k') */
  25. VJMP, /* info = instruction pc */
  26. VRELOCABLE, /* info = instruction pc */
  27. VNONRELOC, /* info = result register */
  28. VCALL, /* info = instruction pc */
  29. VVARARG /* info = instruction pc */
  30. } expkind;
  31. typedef struct expdesc {
  32. expkind k;
  33. union {
  34. struct { int info, aux; } s;
  35. lua_Number nval;
  36. } u;
  37. int t; /* patch list of `exit when true' */
  38. int f; /* patch list of `exit when false' */
  39. } expdesc;
  40. typedef struct upvaldesc {
  41. lu_byte k;
  42. lu_byte info;
  43. } upvaldesc;
  44. struct BlockCnt; /* defined in lparser.c */
  45. /* state needed to generate code for a given function */
  46. typedef struct FuncState {
  47. Proto *f; /* current function header */
  48. Table *h; /* table to find (and reuse) elements in `k' */
  49. struct FuncState *prev; /* enclosing function */
  50. struct LexState *ls; /* lexical state */
  51. struct lua_State *L; /* copy of the Lua state */
  52. struct BlockCnt *bl; /* chain of current blocks */
  53. int pc; /* next position to code (equivalent to `ncode') */
  54. int lasttarget; /* `pc' of last `jump target' */
  55. int jpc; /* list of pending jumps to `pc' */
  56. int freereg; /* first free register */
  57. int nk; /* number of elements in `k' */
  58. int np; /* number of elements in `p' */
  59. short nlocvars; /* number of elements in `locvars' */
  60. lu_byte nactvar; /* number of active local variables */
  61. upvaldesc upvalues[LUAI_MAXUPVALUES]; /* upvalues */
  62. unsigned short actvar[LUAI_MAXVARS]; /* declared-variable stack */
  63. int packedlineinfoSize; /* only used during compilation for line info */
  64. int lastline; /* ditto */
  65. int lastlineOffset; /* ditto */
  66. int lineinfoLastPC; /* ditto */
  67. } FuncState;
  68. LUAI_FUNC Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff,
  69. const char *name);
  70. #endif