X-Git-Url: http://git.tdb.fi/?p=libs%2Fdatafile.git;a=blobdiff_plain;f=source%2Fbinaryparser.cpp;h=fa99a7e47708ba3c1d4991c16d605d9ae77c7b28;hp=d2fca32ef3a2155eb78eec3034e67649336c3c0f;hb=19179a622c1de88de5ed7047643eec79f285bf2a;hpb=35d0da96bad97214376f18d15078e6d731e6f219

diff --git a/source/binaryparser.cpp b/source/binaryparser.cpp
index d2fca32..fa99a7e 100644
--- a/source/binaryparser.cpp
+++ b/source/binaryparser.cpp
@@ -1,7 +1,9 @@
+#include <limits>
 #include <sys/param.h>
 #include <msp/core/maputils.h>
 #include <msp/strings/format.h>
 #include "binaryparser.h"
+#include "binfloat.h"
 #include "input.h"
 
 using namespace std;
@@ -9,12 +11,25 @@ using namespace std;
 namespace Msp {
 namespace DataFile {
 
+class bad_definition: public runtime_error
+{
+public:
+	bad_definition(const std::string &w):
+		runtime_error(w)
+	{ }
+
+	virtual ~bad_definition() throw() { }
+};
+
+
 BinaryParser::BinaryParser(Input &i, const string &s):
 	ParserMode(i, s),
-	first(true)
+	first(true),
+	float_precision(32)
 {
-	dict[1] = DictEntry("__kwd", "iss");
-	dict[2] = DictEntry("__str", "is");
+	dict[-1] = DictEntry("__kwd", "iss");
+	dict[-2] = DictEntry("__str", "is");
+	dict[-3] = DictEntry("__flt", "i");
 }
 
 Statement BinaryParser::parse()
@@ -25,9 +40,9 @@ Statement BinaryParser::parse()
 		if(st.keyword=="__kwd")
 		{
 			if(st.args.size()!=3)
-				throw_at(TypeError("Keyword definition must have three arguments"), src);
+				throw bad_definition("__kwd");
 
-			const unsigned id = st.args[0].get<unsigned>();
+			const int id = st.args[0].get<unsigned>();
 			const string &kw = st.args[1].get<const string &>();
 			const string &args = st.args[2].get<const string &>();
 			dict[id] = DictEntry(kw, args);
@@ -35,11 +50,13 @@ Statement BinaryParser::parse()
 		else if(st.keyword=="__str")
 		{
 			if(st.args.size()!=2)
-				throw_at(TypeError("String definition must have two arguments"), src);
+				throw bad_definition("__str");
 
 			const unsigned id = st.args[0].get<unsigned>();
 			strings[id] = st.args[1].get<const string &>();
 		}
+		else if(st.keyword=="__flt")
+			float_precision = st.args[0].get<unsigned>();
 		else
 			return st;
 	}
@@ -51,7 +68,7 @@ Statement BinaryParser::parse_statement()
 		in.get();
 	first = false;
 
-	unsigned id = parse_int();
+	int id = parse_int();
 	if(!in)
 		return Statement();
 
@@ -78,7 +95,7 @@ Statement BinaryParser::parse_statement()
 			result.args.push_back(parse_bool());
 			break;
 		case SymbolType::signature:
-			result.args.push_back(Symbol(parse_enum()));
+			result.args.push_back(parse_symbol());
 			break;
 		}
 	}
@@ -92,9 +109,9 @@ Statement BinaryParser::parse_statement()
 	return result;
 }
 
-long long BinaryParser::parse_int()
+IntType::Store BinaryParser::parse_int()
 {
-	long long result = 0;
+	IntType::Store result = 0;
 	unsigned bits = 0;
 
 	while(in)
@@ -108,37 +125,63 @@ long long BinaryParser::parse_int()
 			break;
 	}
 
-	const long long mask = 1LL<<(bits-1);
+	const IntType::Store mask = 1LL<<(bits-1);
 	result = (result^mask)-mask;
 
 	return result;
 }
 
-float BinaryParser::parse_float()
+FloatType::Store BinaryParser::parse_float()
 {
-	union
+	UInt64 encoded = 0;
+	for(unsigned i=0; i<float_precision; i+=8)
 	{
-		float f;
-		char d[sizeof(float)];
-	};
-
-#if BYTE_ORDER == LITTLE_ENDIAN
-	for(unsigned i = sizeof(float); i--;)
-		d[i] = in.get();
-#else
-	for(unsigned i = 0; i<sizeof(float); ++i)
-		d[i] = in.get();
-#endif
-
-	return f;
+		int c = in.get();
+		encoded = (encoded<<8) | (c&0xFF);
+	}
+
+	BinFloat bf = BinFloat::explode(encoded, float_precision);
+
+	if(numeric_limits<FloatType::Store>::is_iec559)
+		return bf.compose_iec559<FloatType::Store>();
+	else
+	{
+		/* Put the float together with arithmetic since we don't know its
+		internal layout */
+		FloatType::Store f = 0;
+		if(bf.infinity)
+		{
+			if(numeric_limits<FloatType::Store>::has_infinity)
+				f = numeric_limits<FloatType::Store>::infinity();
+			else
+				f = numeric_limits<FloatType::Store>::max();
+		}
+		else
+		{
+			for(unsigned i=0; i<64; ++i)
+			{
+				f /= 2;
+				if(bf.mantissa&1)
+					f += 1;
+				bf.mantissa >>= 1;
+			}
+			for(int i=0; i<bf.exponent; ++i)
+				f *= 2;
+			for(int i=0; i>bf.exponent; --i)
+				f /= 2;
+		}
+		if(bf.sign)
+			f = -f;
+		return f;
+	}
 }
 
-bool BinaryParser::parse_bool()
+BoolType::Store BinaryParser::parse_bool()
 {
 	return in.get();
 }
 
-string BinaryParser::parse_string()
+StringType::Store BinaryParser::parse_string()
 {
 	int len = parse_int();
 	if(len>=0)
@@ -153,7 +196,7 @@ string BinaryParser::parse_string()
 		return get_item(strings, -len);
 }
 
-string BinaryParser::parse_enum()
+SymbolType::Store BinaryParser::parse_symbol()
 {
 	return get_item(strings, parse_int());
 }