From 439236773b9d36208375bb8eed251bcd393f7b24 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 26 Mar 1998 11:50:19 -0300
Subject: changes by lhf

---
 lundump.h | 42 ++++++++++++++++++++++++++++++++++--------
 1 file changed, 34 insertions(+), 8 deletions(-)

(limited to 'lundump.h')

diff --git a/lundump.h b/lundump.h
index ea9e975c..7e5b286c 100644
--- a/lundump.h
+++ b/lundump.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lundump.h,v 1.4 1998/01/13 20:05:24 lhf Exp $
+** $Id: lundump.h,v 1.5 1998/02/06 20:05:39 lhf Exp lhf $
 ** load pre-compiled Lua chunks
 ** See Copyright Notice in lua.h
 */
@@ -10,18 +10,44 @@
 #include "lobject.h"
 #include "lzio.h"
 
+TProtoFunc* luaU_undump1(ZIO* Z);	/* load one chunk */
+
+#define	SIGNATURE	"Lua"
+#define	VERSION		0x31		/* last format change was in 3.1 */
+
+#define IsMain(f)	(f->lineDefined==0)
+
 #define ID_CHUNK	27		/* ESC */
-#define ID_FUNCTION	'#'
-#define ID_END		'$'
 #define ID_NUM		'N'
 #define ID_STR		'S'
 #define ID_FUN		'F'
-#define	SIGNATURE	"Lua"
-#define	VERSION		0x31		/* last format change was in 3.1 */
-#define	TEST_FLOAT	0.123456789e-23	/* a float for testing representation */
 
-#define IsMain(f)	(f->lineDefined==0)
+#define ID_INT4		'l'
+#define ID_REAL4	'f'
+#define ID_REAL8	'd'
+#define ID_NATIVE	'?'
 
-TProtoFunc* luaU_undump1(ZIO* Z);	/* load one chunk */
+/*
+* use a multiple of PI for testing number representation.
+* multiplying by 10E8 gives notrivial integer values.
+*/
+#define	TEST_NUMBER	3.14159265358979323846E8
+
+/* LUA_NUMBER */
+/* if you change the definition of real, 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.
+*/
+
+#if real==float
+	#define	ID_NUMBER	ID_REAL4
+#elif real==double
+	#define	ID_NUMBER	ID_REAL8
+#elif real==long
+	#define	ID_NUMBER	ID_INT4
+#else
+	#define	ID_NUMBER	ID_NATIVE
+#endif
 
 #endif
-- 
cgit v1.2.3-55-g6feb