Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/nsgmls/Hash.C

@@ -0,0 +1,27 @@
+/* $XConsortium: Hash.C /main/1 1996/07/29 16:52:41 cde-hp $ */
+// Copyright (c) 1994 James Clark
+// See the file COPYING for copying permission.
+
+#ifdef __GNUG__
+#pragma implementation
+#endif
+#include "splib.h"
+#include "Hash.h"
+#include "StringC.h"
+
+#ifdef SP_NAMESPACE
+namespace SP_NAMESPACE {
+#endif
+
+unsigned long Hash::hash(const StringC &str)
+{
+  const Char *p = str.data();
+  unsigned long h = 0;
+  for (size_t n = str.size(); n > 0; n--)
+    h = (h << 5) + h + *p++;	// from Chris Torek
+  return h;
+}
+
+#ifdef SP_NAMESPACE
+}
+#endif