[svn r65] Added typeinfo implementations for float[], double[] and real[]

lphobos/typeinfo2/ti_Adouble.d

@@ -0,0 +1,112 @@
+/*
+ *  Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
+ *  Written by Walter Bright
+ *
+ *  This software is provided 'as-is', without any express or implied
+ *  warranty. In no event will the authors be held liable for any damages
+ *  arising from the use of this software.
+ *
+ *  Permission is granted to anyone to use this software for any purpose,
+ *  including commercial applications, and to alter it and redistribute it
+ *  freely, in both source and binary form, subject to the following
+ *  restrictions:
+ *
+ *  o  The origin of this software must not be misrepresented; you must not
+ *     claim that you wrote the original software. If you use this software
+ *     in a product, an acknowledgment in the product documentation would be
+ *     appreciated but is not required.
+ *  o  Altered source versions must be plainly marked as such, and must not
+ *     be misrepresented as being the original software.
+ *  o  This notice may not be removed or altered from any source
+ *     distribution.
+ */
+
+module typeinfo2.ti_Adouble;
+
+private import typeinfo1.ti_double;
+
+// double[]
+
+class TypeInfo_Ad : TypeInfo
+{
+    char[] toString() { return "double[]"; }
+
+    hash_t getHash(void *p)
+    {	double[] s = *cast(double[]*)p;
+	size_t len = s.length;
+	auto str = s.ptr;
+	hash_t hash = 0;
+
+	while (len)
+	{
+	    hash *= 9;
+	    hash += (cast(uint *)str)[0];
+	    hash += (cast(uint *)str)[1];
+	    str++;
+	    len--;
+	}
+
+	return hash;
+    }
+
+    int equals(void *p1, void *p2)
+    {
+	double[] s1 = *cast(double[]*)p1;
+	double[] s2 = *cast(double[]*)p2;
+	size_t len = s1.length;
+
+	if (len != s2.length)
+	    return 0;
+	for (size_t u = 0; u < len; u++)
+	{
+	    int c = TypeInfo_d._equals(s1[u], s2[u]);
+	    if (c == 0)
+		return 0;
+	}
+	return 1;
+    }
+
+    int compare(void *p1, void *p2)
+    {
+	double[] s1 = *cast(double[]*)p1;
+	double[] s2 = *cast(double[]*)p2;
+	size_t len = s1.length;
+
+	if (s2.length < len)
+	    len = s2.length;
+	for (size_t u = 0; u < len; u++)
+	{
+	    int c = TypeInfo_d._compare(s1[u], s2[u]);
+	    if (c)
+		return c;
+	}
+	return cast(int)s1.length - cast(int)s2.length;
+    }
+
+    size_t tsize()
+    {
+	return (double[]).sizeof;
+    }
+
+    uint flags()
+    {
+	return 1;
+    }
+
+    TypeInfo next()
+    {
+	return typeid(double);
+    }
+}
+
+// idouble[]
+version(none)
+class TypeInfo_Ap : TypeInfo_Ad
+{
+    char[] toString() { return "idouble[]"; }
+
+    TypeInfo next()
+    {
+	return typeid(idouble);
+    }
+}

lphobos/typeinfo2/ti_Afloat.d

@@ -0,0 +1,111 @@
+/*
+ *  Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
+ *  Written by Walter Bright
+ *
+ *  This software is provided 'as-is', without any express or implied
+ *  warranty. In no event will the authors be held liable for any damages
+ *  arising from the use of this software.
+ *
+ *  Permission is granted to anyone to use this software for any purpose,
+ *  including commercial applications, and to alter it and redistribute it
+ *  freely, in both source and binary form, subject to the following
+ *  restrictions:
+ *
+ *  o  The origin of this software must not be misrepresented; you must not
+ *     claim that you wrote the original software. If you use this software
+ *     in a product, an acknowledgment in the product documentation would be
+ *     appreciated but is not required.
+ *  o  Altered source versions must be plainly marked as such, and must not
+ *     be misrepresented as being the original software.
+ *  o  This notice may not be removed or altered from any source
+ *     distribution.
+ */
+
+module typeinfo2.ti_Afloat;
+
+private import typeinfo1.ti_float;
+
+// float[]
+
+class TypeInfo_Af : TypeInfo
+{
+    char[] toString() { return "float[]"; }
+
+    hash_t getHash(void *p)
+    {	float[] s = *cast(float[]*)p;
+	size_t len = s.length;
+	auto str = s.ptr;
+	hash_t hash = 0;
+
+	while (len)
+	{
+	    hash *= 9;
+	    hash += *cast(uint *)str;
+	    str++;
+	    len--;
+	}
+
+	return hash;
+    }
+
+    int equals(void *p1, void *p2)
+    {
+	float[] s1 = *cast(float[]*)p1;
+	float[] s2 = *cast(float[]*)p2;
+	size_t len = s1.length;
+
+	if (len != s2.length)
+	    return 0;
+	for (size_t u = 0; u < len; u++)
+	{
+	    int c = TypeInfo_f._equals(s1[u], s2[u]);
+	    if (c == 0)
+		return 0;
+	}
+	return 1;
+    }
+
+    int compare(void *p1, void *p2)
+    {
+	float[] s1 = *cast(float[]*)p1;
+	float[] s2 = *cast(float[]*)p2;
+	size_t len = s1.length;
+
+	if (s2.length < len)
+	    len = s2.length;
+	for (size_t u = 0; u < len; u++)
+	{
+	    int c = TypeInfo_f._compare(s1[u], s2[u]);
+	    if (c)
+		return c;
+	}
+	return cast(int)s1.length - cast(int)s2.length;
+    }
+
+    size_t tsize()
+    {
+	return (float[]).sizeof;
+    }
+
+    uint flags()
+    {
+	return 1;
+    }
+
+    TypeInfo next()
+    {
+	return typeid(float);
+    }
+}
+
+// ifloat[]
+version(none)
+class TypeInfo_Ao : TypeInfo_Af
+{
+    char[] toString() { return "ifloat[]"; }
+
+    TypeInfo next()
+    {
+	return typeid(ifloat);
+    }
+}

lphobos/typeinfo2/ti_Areal.d

@@ -0,0 +1,113 @@
+/*
+ *  Copyright (C) 2004-2006 by Digital Mars, www.digitalmars.com
+ *  Written by Walter Bright
+ *
+ *  This software is provided 'as-is', without any express or implied
+ *  warranty. In no event will the authors be held liable for any damages
+ *  arising from the use of this software.
+ *
+ *  Permission is granted to anyone to use this software for any purpose,
+ *  including commercial applications, and to alter it and redistribute it
+ *  freely, in both source and binary form, subject to the following
+ *  restrictions:
+ *
+ *  o  The origin of this software must not be misrepresented; you must not
+ *     claim that you wrote the original software. If you use this software
+ *     in a product, an acknowledgment in the product documentation would be
+ *     appreciated but is not required.
+ *  o  Altered source versions must be plainly marked as such, and must not
+ *     be misrepresented as being the original software.
+ *  o  This notice may not be removed or altered from any source
+ *     distribution.
+ */
+
+module typeinfo2.ti_Areal;
+
+private import typeinfo1.ti_real;
+
+// real[]
+
+class TypeInfo_Ae : TypeInfo
+{
+    char[] toString() { return "real[]"; }
+
+    hash_t getHash(void *p)
+    {	real[] s = *cast(real[]*)p;
+	size_t len = s.length;
+	auto str = s.ptr;
+	hash_t hash = 0;
+
+	while (len)
+	{
+	    hash *= 9;
+	    hash += (cast(uint *)str)[0];
+	    hash += (cast(uint *)str)[1];
+	    hash += (cast(ushort *)str)[4];
+	    str++;
+	    len--;
+	}
+
+	return hash;
+    }
+
+    int equals(void *p1, void *p2)
+    {
+	real[] s1 = *cast(real[]*)p1;
+	real[] s2 = *cast(real[]*)p2;
+	size_t len = s1.length;
+
+	if (len != s2.length)
+	    return 0;
+	for (size_t u = 0; u < len; u++)
+	{
+	    int c = TypeInfo_e._equals(s1[u], s2[u]);
+	    if (c == 0)
+		return 0;
+	}
+	return 1;
+    }
+
+    int compare(void *p1, void *p2)
+    {
+	real[] s1 = *cast(real[]*)p1;
+	real[] s2 = *cast(real[]*)p2;
+	size_t len = s1.length;
+
+	if (s2.length < len)
+	    len = s2.length;
+	for (size_t u = 0; u < len; u++)
+	{
+	    int c = TypeInfo_e._compare(s1[u], s2[u]);
+	    if (c)
+		return c;
+	}
+	return cast(int)s1.length - cast(int)s2.length;
+    }
+
+    size_t tsize()
+    {
+	return (real[]).sizeof;
+    }
+
+    uint flags()
+    {
+	return 1;
+    }
+
+    TypeInfo next()
+    {
+	return typeid(real);
+    }
+}
+
+// ireal[]
+version(none)
+class TypeInfo_Aj : TypeInfo_Ae
+{
+    char[] toString() { return "ireal[]"; }
+
+    TypeInfo next()
+    {
+	return typeid(ireal);
+    }
+}

lphobos/typeinfos2.d

@@ -1,7 +1,10 @@
 module typeinfos2;
 
 import
+typeinfo2.ti_Adouble,
+typeinfo2.ti_Afloat,
 typeinfo2.ti_Ag,
 typeinfo2.ti_Aint,
 typeinfo2.ti_Along,
+typeinfo2.ti_Areal,
 typeinfo2.ti_Ashort;