new version by lhf.
This commit is contained in:
Roberto Ierusalimschy
96
lundump.h
96
lundump.h
@@ -1,5 +1,5 @@
|
||||
/*
|
||||
** $Id: lundump.h,v 1.4 1998/06/25 16:48:44 roberto Exp roberto $
|
||||
** $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
|
||||
*/
|
||||
@@ -10,18 +10,47 @@
|
||||
#include "lobject.h"
|
||||
#include "lzio.h"
|
||||
|
||||
TProtoFunc *luaU_undump1 (ZIO* Z); /* load one chunk */
|
||||
/* -- start of user configuration ------------------------------------------ */
|
||||
|
||||
#define SIGNATURE "Lua"
|
||||
#define VERSION 0x31 /* last format change was in 3.1 */
|
||||
#define VERSION0 0x31 /* last major change was in 3.1 */
|
||||
/* 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.
|
||||
*/
|
||||
|
||||
#define IsMain(f) (f->lineDefined==0)
|
||||
/* 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
|
||||
|
||||
#define ID_CHUNK 27 /* ESC */
|
||||
#define ID_NUM 'N'
|
||||
#define ID_STR 'S'
|
||||
#define ID_FUN 'F'
|
||||
/* 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 */
|
||||
@@ -29,53 +58,46 @@ TProtoFunc *luaU_undump1 (ZIO* Z); /* load one chunk */
|
||||
#define ID_REAL8 'd' /* 8-byte reals */
|
||||
#define ID_NATIVE '?' /* whatever your machine uses */
|
||||
|
||||
/*
|
||||
* use a multiple of PI for testing number representation.
|
||||
* multiplying by 1E8 gives notrivial integer values.
|
||||
*/
|
||||
#define TEST_NUMBER 3.14159265358979323846E8
|
||||
|
||||
/* LUA_NUMBER
|
||||
* choose one below for the number representation in precompiled chunks.
|
||||
* the default is ID_REAL8 because the default for LUA_NUM_TYPE is double.
|
||||
* if your machine does not use IEEE 754, use ID_NATIVE.
|
||||
* the next version will support conversion to/from IEEE 754.
|
||||
*
|
||||
* if you change LUA_NUM_TYPE, make sure you set ID_NUMBER accordingly,
|
||||
* specially if sizeof(long)!=4.
|
||||
* for types other than the ones listed below, you'll have to write your own
|
||||
* dump and undump routines.
|
||||
*/
|
||||
|
||||
/* the default is ID_REAL8 because the default for LUA_NUM_TYPE is double */
|
||||
#ifndef ID_NUMBER
|
||||
#define ID_NUMBER ID_NATIVE
|
||||
#define ID_NUMBER ID_REAL8 /* 8-byte reals */
|
||||
#endif
|
||||
|
||||
#if 0
|
||||
#define ID_NUMBER ID_INT4
|
||||
#define ID_NUMBER ID_REAL4
|
||||
#define ID_NUMBER ID_REAL8
|
||||
#define ID_NUMBER ID_NATIVE
|
||||
#endif
|
||||
|
||||
#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
|
||||
|
||||
Reference in New Issue
Block a user