--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lphobos/std/typeinfounsupported/ti_Along.d	Sat Sep 01 21:43:27 2007 +0200
@@ -0,0 +1,103 @@
+
+module std.typeinfo.ti_Along;
+
+private import std.c.string;
+
+// long[]
+
+class TypeInfo_Al : TypeInfo
+{
+    char[] toString() { return "long[]"; }
+
+    hash_t getHash(void *p)
+    {	long[] s = *cast(long[]*)p;
+	size_t len = s.length;
+	auto str = s.ptr;
+	hash_t hash = 0;
+
+	while (len)
+	{
+	    hash *= 9;
+	    hash += *cast(uint *)str + *(cast(uint *)str + 1);
+	    str++;
+	    len--;
+	}
+
+	return hash;
+    }
+
+    int equals(void *p1, void *p2)
+    {
+	long[] s1 = *cast(long[]*)p1;
+	long[] s2 = *cast(long[]*)p2;
+
+	return s1.length == s2.length &&
+	       memcmp(cast(void *)s1, cast(void *)s2, s1.length * long.sizeof) == 0;
+    }
+
+    int compare(void *p1, void *p2)
+    {
+	long[] s1 = *cast(long[]*)p1;
+	long[] s2 = *cast(long[]*)p2;
+	size_t len = s1.length;
+
+	if (s2.length < len)
+	    len = s2.length;
+	for (size_t u = 0; u < len; u++)
+	{
+	    if (s1[u] < s2[u])
+		return -1;
+	    else if (s1[u] > s2[u])
+		return 1;
+	}
+	return cast(int)s1.length - cast(int)s2.length;
+    }
+
+    size_t tsize()
+    {
+	return (long[]).sizeof;
+    }
+
+    uint flags()
+    {
+	return 1;
+    }
+
+    TypeInfo next()
+    {
+	return typeid(long);
+    }
+}
+
+
+// ulong[]
+
+class TypeInfo_Am : TypeInfo_Al
+{
+    char[] toString() { return "ulong[]"; }
+
+    int compare(void *p1, void *p2)
+    {
+	ulong[] s1 = *cast(ulong[]*)p1;
+	ulong[] s2 = *cast(ulong[]*)p2;
+	size_t len = s1.length;
+
+	if (s2.length < len)
+	    len = s2.length;
+	for (size_t u = 0; u < len; u++)
+	{
+	    if (s1[u] < s2[u])
+		return -1;
+	    else if (s1[u] > s2[u])
+		return 1;
+	}
+	return cast(int)s1.length - cast(int)s2.length;
+    }
+
+    TypeInfo next()
+    {
+	return typeid(ulong);
+    }
+}
+
+