1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
/*
** $Id: lundump.h,v 1.13 1999/03/29 16:16:18 lhf Exp $
** load pre-compiled Lua chunks
** See Copyright Notice in lua.h
*/
#ifndef lundump_h
#define lundump_h
#include "lobject.h"
#include "lzio.h"
/* -- start of user configuration ------------------------------------------ */
/* LUA_NUMBER
* choose below the number representation in precompiled chunks by choosing an
* an adequate definition for ID_NUMBER.
* if you change LUA_NUM_TYPE, you must set ID_NUMBER accordingly.
* the default is ID_REAL8 because the default for LUA_NUM_TYPE is double.
* if you want to use this default, do nothing.
* if your machine does not use the IEEE 754 floating-point standard, use
* ID_NATIVE, but precompiled chunks may not be portable to all architectures.
*
* for types other than the ones listed below, you'll have to write your own
* dump and undump routines, specially if sizeof(long)!=4.
*/
/* choose one definition for ID_NUMBER and move it to after #endif */
#if 0
#define ID_NUMBER ID_INT4 /* 4-byte integers */
#define ID_NUMBER ID_REAL4 /* 4-byte reals */
#define ID_NUMBER ID_REAL8 /* 8-byte reals */
#define ID_NUMBER ID_NATIVE /* whatever your machine uses */
#endif
/* format for numbers in listings and error messages */
#ifndef NUMBER_FMT
#define NUMBER_FMT "%.16g" /* LUA_NUMBER */
#endif
/* -- end of user configuration -- DO NOT CHANGE ANYTHING BELOW THIS LINE -- */
TProtoFunc* luaU_undump1(ZIO* Z); /* load one chunk */
void luaU_testnumber(void); /* test number representation */
void luaU_badconstant(char* s, int i, TObject* o, TProtoFunc* tf);
/* handle cases that cannot happen */
/* definitions for headers of binary files */
#define VERSION 0x32 /* last format change was in 3.2 */
#define VERSION0 0x32 /* last major change was in 3.2 */
#define ID_CHUNK 27 /* binary files start with ESC... */
#define SIGNATURE "Lua" /* ...followed by this signature */
/* number representation */
#define ID_INT4 'l' /* 4-byte integers */
#define ID_REAL4 'f' /* 4-byte reals */
#define ID_REAL8 'd' /* 8-byte reals */
#define ID_NATIVE '?' /* whatever your machine uses */
/* the default is ID_REAL8 because the default for LUA_NUM_TYPE is double */
#ifndef ID_NUMBER
#define ID_NUMBER ID_REAL8 /* 8-byte reals */
#endif
/* a multiple of PI for testing number representation */
/* multiplying by 1E8 gives non-trivial integer values */
#define TEST_NUMBER 3.14159265358979323846E8
#if ID_NUMBER==ID_REAL4
#define DumpNumber DumpFloat
#define LoadNumber LoadFloat
#define SIZEOF_NUMBER 4
#define TYPEOF_NUMBER float
#define NAMEOF_NUMBER "float"
#elif ID_NUMBER==ID_REAL8
#define DumpNumber DumpDouble
#define LoadNumber LoadDouble
#define SIZEOF_NUMBER 8
#define TYPEOF_NUMBER double
#define NAMEOF_NUMBER "double"
#elif ID_NUMBER==ID_INT4
#define DumpNumber DumpLong
#define LoadNumber LoadLong
#define SIZEOF_NUMBER 4
#define TYPEOF_NUMBER long
#define NAMEOF_NUMBER "long"
#elif ID_NUMBER==ID_NATIVE
#define DumpNumber DumpNative
#define LoadNumber LoadNative
#define SIZEOF_NUMBER sizeof(real)
#define TYPEOF_NUMBER real
#define NAMEOF_NUMBER "native"
#else
#error bad ID_NUMBER
#endif
/* formats for error messages */
#define SOURCE "<%s:%d>"
#define IN " in %p " SOURCE
#define INLOC tf,tf->source->str,tf->lineDefined
#endif
|
