src/opcode.h

   1 /*
   2 ** TeCGraf - PUC-Rio
   3 ** $Id: opcode.h,v 3.34 1997/06/16 16:50:22 roberto Exp $
   4 */
   5
   6 #ifndef opcode_h
   7 #define opcode_h
   8
   9 #include "lua.h"
  10 #include "types.h"
  11 #include "tree.h"
  12 #include "func.h"
  13
  14
  15 #define FIELDS_PER_FLUSH 40
  16
  17 /*
  18 * WARNING: if you change the order of this enumeration,
  19 * grep "ORDER LUA_T"
  20 */
  21 typedef enum
  22 {
  23  LUA_T_NIL      = -9,
  24  LUA_T_NUMBER   = -8,
  25  LUA_T_STRING   = -7,
  26  LUA_T_ARRAY    = -6,  /* array==table */
  27  LUA_T_FUNCTION = -5,
  28  LUA_T_CFUNCTION= -4,
  29  LUA_T_MARK     = -3,
  30  LUA_T_CMARK    = -2,
  31  LUA_T_LINE     = -1,
  32  LUA_T_USERDATA = 0
  33 } lua_Type;
  34
  35 #define NUM_TYPES 10
  36
  37
  38 extern char *luaI_typenames[];
  39
  40 typedef enum {
  41 /* name          parm    before          after           side effect
  42 -----------------------------------------------------------------------------*/
  43
  44 PUSHNIL,/*              -               nil  */
  45 PUSH0,/*                -               0.0  */
  46 PUSH1,/*                -               1.0  */
  47 PUSH2,/*                -               2.0  */
  48 PUSHBYTE,/*     b       -               (float)b  */
  49 PUSHWORD,/*     w       -               (float)w  */
  50 PUSHFLOAT,/*    f       -               f  */
  51 PUSHSTRING,/*   w       -               STR[w]  */
  52 PUSHFUNCTION,/* p       -               FUN(p)  */
  53 PUSHLOCAL0,/*           -               LOC[0]  */
  54 PUSHLOCAL1,/*           -               LOC[1]  */
  55 PUSHLOCAL2,/*           -               LOC[2]  */
  56 PUSHLOCAL3,/*           -               LOC[3]  */
  57 PUSHLOCAL4,/*           -               LOC[4]  */
  58 PUSHLOCAL5,/*           -               LOC[5]  */
  59 PUSHLOCAL6,/*           -               LOC[6]  */
  60 PUSHLOCAL7,/*           -               LOC[7]  */
  61 PUSHLOCAL8,/*           -               LOC[8]  */
  62 PUSHLOCAL9,/*           -               LOC[9]  */
  63 PUSHLOCAL,/*    b       -               LOC[b]  */
  64 PUSHGLOBAL,/*   w       -               VAR[w]  */
  65 PUSHINDEXED,/*          i t             t[i]  */
  66 PUSHSELF,/*     w       t               t t[STR[w]]  */
  67 STORELOCAL0,/*          x               -               LOC[0]=x  */
  68 STORELOCAL1,/*          x               -               LOC[1]=x  */
  69 STORELOCAL2,/*          x               -               LOC[2]=x  */
  70 STORELOCAL3,/*          x               -               LOC[3]=x  */
  71 STORELOCAL4,/*          x               -               LOC[4]=x  */
  72 STORELOCAL5,/*          x               -               LOC[5]=x  */
  73 STORELOCAL6,/*          x               -               LOC[6]=x  */
  74 STORELOCAL7,/*          x               -               LOC[7]=x  */
  75 STORELOCAL8,/*          x               -               LOC[8]=x  */
  76 STORELOCAL9,/*          x               -               LOC[9]=x  */
  77 STORELOCAL,/*   b       x               -               LOC[b]=x  */
  78 STOREGLOBAL,/*  w       x               -               VAR[w]=x  */
  79 STOREINDEXED0,/*        v i t           -               t[i]=v  */
  80 STOREINDEXED,/* b       v a_b...a_1 i t a_b...a_1 i t   t[i]=v  */
  81 STORELIST0,/*   b       v_b...v_1 t     -               t[i]=v_i  */
  82 STORELIST,/*    b c     v_b...v_1 t     -               t[i+c*FPF]=v_i  */
  83 STORERECORD,/*  b
  84                 w_b...w_1 v_b...v_1 t   -               t[STR[w_i]]=v_i  */
  85 ADJUST0,/*              -               -               TOP=BASE  */
  86 ADJUST,/*       b       -               -               TOP=BASE+b  */
  87 CREATEARRAY,/*  w       -               newarray(size = w)  */
  88 EQOP,/*                 y x             (x==y)? 1 : nil  */
  89 LTOP,/*                 y x             (x<y)? 1 : nil  */
  90 LEOP,/*                 y x             (x<y)? 1 : nil  */
  91 GTOP,/*                 y x             (x>y)? 1 : nil  */
  92 GEOP,/*                 y x             (x>=y)? 1 : nil  */
  93 ADDOP,/*                y x             x+y  */
  94 SUBOP,/*                y x             x-y  */
  95 MULTOP,/*               y x             x*y  */
  96 DIVOP,/*                y x             x/y  */
  97 POWOP,/*                y x             x^y  */
  98 CONCOP,/*               y x             x..y  */
  99 MINUSOP,/*              x               -x  */
 100 NOTOP,/*                x               (x==nil)? 1 : nil  */
 101 ONTJMP,/*       w       x               -               (x!=nil)? PC+=w  */
 102 ONFJMP,/*       w       x               -               (x==nil)? PC+=w  */
 103 JMP,/*          w       -               -               PC+=w  */
 104 UPJMP,/*        w       -               -               PC-=w  */
 105 IFFJMP,/*       w       x               -               (x==nil)? PC+=w  */
 106 IFFUPJMP,/*     w       x               -               (x==nil)? PC-=w  */
 107 POP,/*                  x               -  */
 108 CALLFUNC,/*     b c     v_b...v_1 f     r_c...r_1       f(v1,...,v_b)  */
 109 RETCODE0,
 110 RETCODE,/*      b       -               -  */
 111 SETLINE,/*      w       -               -               LINE=w  */
 112 VARARGS,/*      b       v_b...v_1       {v_1...v_b;n=b}  */
 113 STOREMAP/*      b       v_b k_b ...v_1 k_1 t    -       t[k_i]=v_i  */
 114 } OpCode;
 115
 116
 117 #define MULT_RET        255
 118
 119
 120 typedef union
 121 {
 122  lua_CFunction f;
 123  real          n;
 124  TaggedString *ts;
 125  TFunc         *tf;
 126  struct Hash    *a;
 127  int           i;
 128 } Value;
 129
 130 typedef struct TObject
 131 {
 132  lua_Type ttype;
 133  Value value;
 134 } TObject;
 135
 136
 137 /* Macros to access structure members */
 138 #define ttype(o)        ((o)->ttype)
 139 #define nvalue(o)       ((o)->value.n)
 140 #define svalue(o)       ((o)->value.ts->str)
 141 #define tsvalue(o)      ((o)->value.ts)
 142 #define avalue(o)       ((o)->value.a)
 143 #define fvalue(o)       ((o)->value.f)
 144
 145 /* Macros to access symbol table */
 146 #define s_object(i)     (lua_table[i].object)
 147 #define s_ttype(i)      (ttype(&s_object(i)))
 148 #define s_nvalue(i)     (nvalue(&s_object(i)))
 149 #define s_svalue(i)     (svalue(&s_object(i)))
 150 #define s_tsvalue(i)    (tsvalue(&s_object(i)))
 151 #define s_avalue(i)     (avalue(&s_object(i)))
 152 #define s_fvalue(i)     (fvalue(&s_object(i)))
 153 #define s_uvalue(i)     (uvalue(&s_object(i)))
 154
 155 #define get_word(code,pc) {memcpy(&code, pc, sizeof(Word)); pc+=sizeof(Word);}
 156 #define get_float(code,pc){memcpy(&code, pc, sizeof(real)); pc+=sizeof(real);}
 157 #define get_code(code,pc) {memcpy(&code, pc, sizeof(TFunc *)); \
 158                            pc+=sizeof(TFunc *);}
 159
 160
 161 /* Exported functions */
 162 void    lua_parse      (TFunc *tf);     /* from "lua.stx" module */
 163 void    luaI_codedebugline (int line);  /* from "lua.stx" module */
 164 void    lua_travstack (int (*fn)(TObject *));
 165 TObject *luaI_Address (lua_Object o);
 166 void    luaI_pushobject (TObject *o);
 167 void    luaI_gcIM       (TObject *o);
 168 int     luaI_dorun (TFunc *tf);
 169 int     lua_domain (void);
 170
 171 #endif