changes by lhf

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"
 
-#define ID_CHUNK	27		/* ESC */
-#define ID_FUNCTION	'#'
-#define ID_END		'$'
-#define ID_NUM		'N'
-#define ID_STR		'S'
-#define ID_FUN		'F'
+TProtoFunc* luaU_undump1(ZIO* Z);	/* load one chunk */
+
 #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)
 
-TProtoFunc* luaU_undump1(ZIO* Z);	/* load one chunk */
+#define ID_CHUNK	27		/* ESC */
+#define ID_NUM		'N'
+#define ID_STR		'S'
+#define ID_FUN		'F'
+
+#define ID_INT4		'l'
+#define ID_REAL4	'f'
+#define ID_REAL8	'd'
+#define ID_NATIVE	'?'
+
+/*
+* 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