mirror of
https://github.com/lua/lua.git
synced 2024-11-30 21:53:26 +08:00
172 lines
3.2 KiB
C
172 lines
3.2 KiB
C
/*
|
|
** $Id: $
|
|
** Type definitions for Lua objects
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
#ifndef lobject_h
|
|
#define lobject_h
|
|
|
|
|
|
#include "lua.h"
|
|
|
|
|
|
#include <limits.h>
|
|
|
|
#ifndef real
|
|
#define real float
|
|
#endif
|
|
|
|
#define Byte lua_Byte /* some systems have Byte as a predefined type */
|
|
typedef unsigned char Byte; /* unsigned 8 bits */
|
|
|
|
#define Word lua_Word /* some systems have Word as a predefined type */
|
|
typedef unsigned short Word; /* unsigned 16 bits */
|
|
|
|
#define MAX_WORD (USHRT_MAX-2) /* maximum value of a word (-2 for safety) */
|
|
#define MAX_INT (INT_MAX-2) /* maximum value of a int (-2 for safety) */
|
|
|
|
typedef unsigned int IntPoint; /* unsigned with same size as a pointer (for hashing) */
|
|
|
|
|
|
|
|
|
|
/*
|
|
** String headers for string table
|
|
*/
|
|
|
|
#define NOT_USED 0xFFFE
|
|
|
|
typedef struct TaggedString {
|
|
int tag; /* if != LUA_T_STRING, this is a userdata */
|
|
union {
|
|
unsigned long hash;
|
|
struct TaggedString *next;
|
|
} uu;
|
|
union {
|
|
struct {
|
|
Word varindex; /* != NOT_USED if this is a symbol */
|
|
Word constindex; /* hint to reuse constant indexes */
|
|
} s;
|
|
void *v; /* if this is a userdata, here is its value */
|
|
} u;
|
|
int marked; /* for garbage collection; never collect (nor change) if > 1 */
|
|
char str[1]; /* \0 byte already reserved */
|
|
} TaggedString;
|
|
|
|
|
|
|
|
/*
|
|
** generic header for garbage collector lists
|
|
*/
|
|
typedef struct GCnode {
|
|
struct GCnode *next;
|
|
int marked;
|
|
} GCnode;
|
|
|
|
|
|
/*
|
|
** Function Prototypes
|
|
*/
|
|
typedef struct TProtoFunc {
|
|
GCnode head;
|
|
Byte *code; /* ends with opcode ENDCODE */
|
|
int lineDefined;
|
|
TaggedString *fileName;
|
|
struct TObject *consts;
|
|
int nconsts;
|
|
struct LocVar *locvars; /* ends with line = -1 */
|
|
int nupvalues;
|
|
} TProtoFunc;
|
|
|
|
typedef struct LocVar {
|
|
TaggedString *varname; /* NULL signals end of scope */
|
|
int line;
|
|
} LocVar;
|
|
|
|
|
|
|
|
|
|
/*
|
|
** Lua TYPES
|
|
** WARNING: if you change the order of this enumeration,
|
|
** grep "ORDER LUA_T"
|
|
*/
|
|
typedef enum {
|
|
LUA_T_NIL = -10,
|
|
LUA_T_NUMBER = -9,
|
|
LUA_T_STRING = -8,
|
|
LUA_T_ARRAY = -7, /* array==table */
|
|
LUA_T_PROTO = -6,
|
|
LUA_T_FUNCTION = -5,
|
|
LUA_T_CFUNCTION= -4,
|
|
LUA_T_MARK = -3,
|
|
LUA_T_CMARK = -2,
|
|
LUA_T_LINE = -1,
|
|
LUA_T_USERDATA = 0
|
|
} lua_Type;
|
|
|
|
#define NUM_TYPES 11
|
|
|
|
|
|
typedef union {
|
|
lua_CFunction f;
|
|
real n;
|
|
TaggedString *ts;
|
|
TProtoFunc *tf;
|
|
struct Closure *cl;
|
|
struct Hash *a;
|
|
int i;
|
|
} Value;
|
|
|
|
typedef struct TObject {
|
|
lua_Type ttype;
|
|
Value value;
|
|
} TObject;
|
|
|
|
|
|
/* Macros to access structure members */
|
|
#define ttype(o) ((o)->ttype)
|
|
#define nvalue(o) ((o)->value.n)
|
|
#define svalue(o) ((o)->value.ts->str)
|
|
#define tsvalue(o) ((o)->value.ts)
|
|
#define clvalue(o) ((o)->value.cl)
|
|
#define avalue(o) ((o)->value.a)
|
|
#define fvalue(o) ((o)->value.f)
|
|
#define tfvalue(o) ((o)->value.tf)
|
|
|
|
|
|
/*
|
|
** Closures
|
|
*/
|
|
typedef struct Closure {
|
|
GCnode head;
|
|
TObject consts[1]; /* at least one for prototype */
|
|
} Closure;
|
|
|
|
|
|
|
|
typedef struct node {
|
|
TObject ref;
|
|
TObject val;
|
|
} Node;
|
|
|
|
typedef struct Hash {
|
|
GCnode head;
|
|
Node *node;
|
|
int nhash;
|
|
int nuse;
|
|
int htag;
|
|
} Hash;
|
|
|
|
|
|
extern long luaO_nentities;
|
|
extern char *luaO_typenames[];
|
|
|
|
int luaO_equalObj (TObject *t1, TObject *t2);
|
|
int luaO_redimension (int oldsize);
|
|
int luaO_findstring (char *name, char *list[]);
|
|
|
|
|
|
#endif
|