opcode.h 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153
  1. /*
  2. ** TeCGraf - PUC-Rio
  3. ** $Id: opcode.h,v 3.15 1995/12/21 16:14:04 roberto Exp roberto $
  4. */
  5. #ifndef opcode_h
  6. #define opcode_h
  7. #include "lua.h"
  8. #include "types.h"
  9. #include "tree.h"
  10. #include "func.h"
  11. #ifndef real
  12. #define real float
  13. #endif
  14. #define FIELDS_PER_FLUSH 40
  15. typedef enum
  16. {
  17. PUSHNIL,
  18. PUSH0, PUSH1, PUSH2,
  19. PUSHBYTE,
  20. PUSHWORD,
  21. PUSHFLOAT,
  22. PUSHSTRING,
  23. PUSHFUNCTION,
  24. PUSHLOCAL0, PUSHLOCAL1, PUSHLOCAL2, PUSHLOCAL3, PUSHLOCAL4,
  25. PUSHLOCAL5, PUSHLOCAL6, PUSHLOCAL7, PUSHLOCAL8, PUSHLOCAL9,
  26. PUSHLOCAL,
  27. PUSHGLOBAL,
  28. PUSHINDEXED,
  29. PUSHSELF,
  30. STORELOCAL0, STORELOCAL1, STORELOCAL2, STORELOCAL3, STORELOCAL4,
  31. STORELOCAL5, STORELOCAL6, STORELOCAL7, STORELOCAL8, STORELOCAL9,
  32. STORELOCAL,
  33. STOREGLOBAL,
  34. STOREINDEXED0,
  35. STOREINDEXED,
  36. STORELIST0,
  37. STORELIST,
  38. STORERECORD,
  39. ADJUST0,
  40. ADJUST,
  41. CREATEARRAY,
  42. EQOP,
  43. LTOP,
  44. LEOP,
  45. GTOP,
  46. GEOP,
  47. ADDOP,
  48. SUBOP,
  49. MULTOP,
  50. DIVOP,
  51. POWOP,
  52. CONCOP,
  53. MINUSOP,
  54. NOTOP,
  55. ONTJMP,
  56. ONFJMP,
  57. JMP,
  58. UPJMP,
  59. IFFJMP,
  60. IFFUPJMP,
  61. POP,
  62. CALLFUNC,
  63. RETCODE0,
  64. RETCODE,
  65. SETLINE
  66. } OpCode;
  67. #define MULT_RET 255
  68. typedef void (*Cfunction) (void);
  69. typedef int (*Input) (void);
  70. typedef union
  71. {
  72. Cfunction f;
  73. real n;
  74. TaggedString *ts;
  75. TFunc *tf;
  76. struct Hash *a;
  77. void *u;
  78. int i;
  79. } Value;
  80. typedef struct Object
  81. {
  82. lua_Type tag;
  83. Value value;
  84. } Object;
  85. /* Macros to access structure members */
  86. #define tag(o) ((o)->tag)
  87. #define nvalue(o) ((o)->value.n)
  88. #define svalue(o) ((o)->value.ts->str)
  89. #define tsvalue(o) ((o)->value.ts)
  90. #define avalue(o) ((o)->value.a)
  91. #define fvalue(o) ((o)->value.f)
  92. #define uvalue(o) ((o)->value.u)
  93. /* Macros to access symbol table */
  94. #define s_object(i) (lua_table[i].object)
  95. #define s_tag(i) (tag(&s_object(i)))
  96. #define s_nvalue(i) (nvalue(&s_object(i)))
  97. #define s_svalue(i) (svalue(&s_object(i)))
  98. #define s_avalue(i) (avalue(&s_object(i)))
  99. #define s_fvalue(i) (fvalue(&s_object(i)))
  100. #define s_uvalue(i) (uvalue(&s_object(i)))
  101. typedef union
  102. {
  103. struct {char c1; char c2;} m;
  104. Word w;
  105. } CodeWord;
  106. #define get_word(code,pc) {code.m.c1 = *pc++; code.m.c2 = *pc++;}
  107. typedef union
  108. {
  109. struct {char c1; char c2; char c3; char c4;} m;
  110. float f;
  111. } CodeFloat;
  112. #define get_float(code,pc) {code.m.c1 = *pc++; code.m.c2 = *pc++;\
  113. code.m.c3 = *pc++; code.m.c4 = *pc++;}
  114. typedef union
  115. {
  116. struct {char c1; char c2; char c3; char c4;} m;
  117. TFunc *tf;
  118. } CodeCode;
  119. #define get_code(code,pc) {code.m.c1 = *pc++; code.m.c2 = *pc++;\
  120. code.m.c3 = *pc++; code.m.c4 = *pc++;}
  121. /* Exported functions */
  122. char *lua_strdup (char *l);
  123. void lua_setinput (Input fn); /* from "lex.c" module */
  124. char *lua_lasttext (void); /* from "lex.c" module */
  125. int luaY_lex (void); /* from "lex.c" module */
  126. void lua_parse (TFunc *tf); /* from "lua.stx" module */
  127. void luaI_codedebugline (int line); /* from "lua.stx" module */
  128. void lua_travstack (int (*fn)(Object *));
  129. Object *luaI_Address (lua_Object o);
  130. void luaI_pushobject (Object *o);
  131. void luaI_gcFB (Object *o);
  132. #endif