hash: 64 bit string and buffer hashing and seeds.

* hash.c (randbox, hash_c_str, hash_buf): Separate
implementation for 64 bit pointers, using 64 bit random
values, and producing a 64 bit hash, taking in a 64 bit seed.
(gen_hash_seed): Use time_sec_nsec to get nanoseconds.
On 64 bit, put together the seed differently to generate
a wider value.

* tests/009/json.txr: Change from hash tables to lists,
so the order of the output doesn't change between 64 and 32
bits, due to the different string hashing.

* tests/009/json.expected: Updated.

* txr.1: Documented that seeds are up to 64 bits, but
with possibly only the lower 32 bits being used.

2 files changed, 51 insertions, 52 deletions

diff --git a/tests/009/json.expected b/tests/009/json.expected
index 6330a595..e9d2e644 100644
--- a/tests/009/json.expected
+++ b/tests/009/json.expected
@@ -1,54 +1,54 @@
-AST: #H(() ("web-app" #H(() ("servlet" #(#H(() ("servlet-name" "cofaxCDS") ("servlet-class" "org.cofax.cds.CDSServlet")
-                                            ("init-param" #H(() ("dataStoreName" "cofax") ("cachePagesRefresh" 10.0) ("defaultListTemplate" "listTemplate.htm")
-                                                             ("useJSP" :false) ("cachePagesDirtyRead" 10.0) ("useDataStore" :true)
-                                                             ("cachePagesTrack" 200.0) ("dataStoreMaxConns" 100.0) ("cachePackageTagsStore" 200.0)
-                                                             ("configGlossary:poweredBy" "Cofax") ("dataStoreInitConns" 10.0)
-                                                             ("dataStorePassword" "dataStoreTestQuery") ("templateLoaderClass" "org.cofax.FilesTemplateLoader")
-                                                             ("configGlossary:poweredByIcon" "/images/cofax.gif") ("dataStoreTestQuery" "SET NOCOUNT ON;select test='test';")
-                                                             ("dataStoreConnUsageLimit" 100.0) ("dataStoreUrl" "jdbc:microsoft:sqlserver://LOCALHOST:1433;DatabaseName=goon")
-                                                             ("redirectionClass" "org.cofax.SqlRedirection") ("dataStoreUser" "sa")
-                                                             ("jspListTemplate" "listTemplate.jsp") ("configGlossary:adminEmail" "ksm@pobox.com")
-                                                             ("cacheTemplatesTrack" 100.0) ("defaultFileTemplate" "articleTemplate.htm")
-                                                             ("templateOverridePath" "") ("cachePagesStore" 100.0) ("templatePath" "templates")
-                                                             ("configGlossary:installationAt" "Philadelphia, PA") ("dataStoreClass" "org.cofax.SqlDataStore")
-                                                             ("cachePackageTagsTrack" 200.0) ("jspFileTemplate" "articleTemplate.jsp")
-                                                             ("dataStoreLogFile" "/usr/local/tomcat/logs/datastore.log") ("cacheTemplatesRefresh" 15.0)
-                                                             ("cacheTemplatesStore" 50.0) ("searchEngineRobotsDb" "WEB-INF/robots.db")
-                                                             ("templateProcessorClass" "org.cofax.WysiwygTemplate") ("dataStoreDriver" "com.microsoft.jdbc.sqlserver.SQLServerDriver")
-                                                             ("dataStoreLogLevel" "debug") ("cachePackageTagsRefresh" 60.0)
-                                                             ("configGlossary:staticPath" "/content/static") ("maxUrlLength" 500.0)
-                                                             ("searchEngineFileTemplate" "forSearchEngines.htm") ("searchEngineListTemplate" "forSearchEnginesList.htm"))))
-                                         #H(() ("servlet-name" "cofaxEmail") ("servlet-class" "org.cofax.cds.EmailServlet")
-                                            ("init-param" #H(() ("mailHost" "mail1") ("mailHostOverride" "mail2"))))
-                                         #H(() ("servlet-name" "cofaxAdmin") ("servlet-class" "org.cofax.cds.AdminServlet"))
-                                         #H(() ("servlet-name" "fileServlet") ("servlet-class" "org.cofax.cds.FileServlet"))
-                                         #H(() ("servlet-name" "cofaxTools") ("servlet-class" "org.cofax.cms.CofaxToolsServlet")
-                                            ("init-param" #H(() ("adminGroupID" 4.0) ("fileTransferFolder" "/usr/local/tomcat/webapps/content/fileTransferFolder")
-                                                             ("lookInContext" 1.0) ("dataLogMaxSize" "") ("removePageCache" "/content/admin/remove?cache=pages&id=")
-                                                             ("dataLogLocation" "/usr/local/tomcat/logs/dataLog.log") ("logMaxSize" "")
-                                                             ("betaServer" :true) ("logLocation" "/usr/local/tomcat/logs/CofaxTools.log")
-                                                             ("removeTemplateCache" "/content/admin/remove?cache=templates&id=")
-                                                             ("templatePath" "toolstemplates/") ("dataLog" 1.0) ("log" 1.0))))))
-                         ("taglib" #H(() ("taglib-uri" "cofax.tld") ("taglib-location" "/WEB-INF/tlds/cofax.tld")))
-                         ("servlet-mapping" #H(() ("cofaxAdmin" "/admin/*") ("cofaxCDS" "/") ("fileServlet" "/static/*")
-                                               ("cofaxEmail" "/cofaxutil/aemail/*") ("cofaxTools" "/tools/*"))))))
+AST: (("web-app" (("servlet" #((("servlet-name" "cofaxCDS") ("servlet-class" "org.cofax.cds.CDSServlet")
+                                ("init-param" (("configGlossary:installationAt" "Philadelphia, PA") ("configGlossary:adminEmail" "ksm@pobox.com")
+                                               ("configGlossary:poweredBy" "Cofax") ("configGlossary:poweredByIcon" "/images/cofax.gif")
+                                               ("configGlossary:staticPath" "/content/static") ("templateProcessorClass" "org.cofax.WysiwygTemplate")
+                                               ("templateLoaderClass" "org.cofax.FilesTemplateLoader") ("templatePath" "templates")
+                                               ("templateOverridePath" "") ("defaultListTemplate" "listTemplate.htm")
+                                               ("defaultFileTemplate" "articleTemplate.htm") ("useJSP" :false)
+                                               ("jspListTemplate" "listTemplate.jsp") ("jspFileTemplate" "articleTemplate.jsp")
+                                               ("cachePackageTagsTrack" 200.0) ("cachePackageTagsStore" 200.0)
+                                               ("cachePackageTagsRefresh" 60.0) ("cacheTemplatesTrack" 100.0)
+                                               ("cacheTemplatesStore" 50.0) ("cacheTemplatesRefresh" 15.0) ("cachePagesTrack" 200.0)
+                                               ("cachePagesStore" 100.0) ("cachePagesRefresh" 10.0) ("cachePagesDirtyRead" 10.0)
+                                               ("searchEngineListTemplate" "forSearchEnginesList.htm") ("searchEngineFileTemplate" "forSearchEngines.htm")
+                                               ("searchEngineRobotsDb" "WEB-INF/robots.db") ("useDataStore" :true)
+                                               ("dataStoreClass" "org.cofax.SqlDataStore") ("redirectionClass" "org.cofax.SqlRedirection")
+                                               ("dataStoreName" "cofax") ("dataStoreDriver" "com.microsoft.jdbc.sqlserver.SQLServerDriver")
+                                               ("dataStoreUrl" "jdbc:microsoft:sqlserver://LOCALHOST:1433;DatabaseName=goon")
+                                               ("dataStoreUser" "sa") ("dataStorePassword" "dataStoreTestQuery")
+                                               ("dataStoreTestQuery" "SET NOCOUNT ON;select test='test';") ("dataStoreLogFile" "/usr/local/tomcat/logs/datastore.log")
+                                               ("dataStoreInitConns" 10.0) ("dataStoreMaxConns" 100.0) ("dataStoreConnUsageLimit" 100.0)
+                                               ("dataStoreLogLevel" "debug") ("maxUrlLength" 500.0))))
+                               (("servlet-name" "cofaxEmail") ("servlet-class" "org.cofax.cds.EmailServlet")
+                                ("init-param" (("mailHost" "mail1") ("mailHostOverride" "mail2"))))
+                               (("servlet-name" "cofaxAdmin") ("servlet-class" "org.cofax.cds.AdminServlet"))
+                               (("servlet-name" "fileServlet") ("servlet-class" "org.cofax.cds.FileServlet"))
+                               (("servlet-name" "cofaxTools") ("servlet-class" "org.cofax.cms.CofaxToolsServlet")
+                                ("init-param" (("templatePath" "toolstemplates/") ("log" 1.0) ("logLocation" "/usr/local/tomcat/logs/CofaxTools.log")
+                                               ("logMaxSize" "") ("dataLog" 1.0) ("dataLogLocation" "/usr/local/tomcat/logs/dataLog.log")
+                                               ("dataLogMaxSize" "") ("removePageCache" "/content/admin/remove?cache=pages&id=")
+                                               ("removeTemplateCache" "/content/admin/remove?cache=templates&id=")
+                                               ("fileTransferFolder" "/usr/local/tomcat/webapps/content/fileTransferFolder")
+                                               ("lookInContext" 1.0) ("adminGroupID" 4.0) ("betaServer" :true))))))
+                  ("servlet-mapping" (("cofaxCDS" "/") ("cofaxEmail" "/cofaxutil/aemail/*") ("cofaxAdmin" "/admin/*")
+                                      ("fileServlet" "/static/*") ("cofaxTools" "/tools/*")))
+                  ("taglib" (("taglib-uri" "cofax.tld") ("taglib-location" "/WEB-INF/tlds/cofax.tld"))))))
 
 Unmatched junk: ""
 
-AST: #("JSON Test Pattern pass1" #H(() ("object with 1 member" #("array with 1 element")))
-       #H(()) #() -42.0 :true :false :null #H(() ("compact" #(1.0 2.0 3.0 4.0 5.0 6.0 7.0)) ("quotes" "" \" %22 0x22 034 "")
-                                              ("object" #H(())) ("0123456789" "digit") ("" 2.3456789012e76)
-                                              ("ALPHA" "ABCDEFGHIJKLMNOPQRSTUVWYZ") ("digit" "0123456789")
-                                              ("quote" "\"") (" s p a c e d " #(1.0 2.0 3.0 4.0 5.0 6.0 7.0))
-                                              ("one" 1.0) ("alpha" "abcdefghijklmnopqrstuvwyz") ("E" 1.23456789e34)
-                                              ("comment" "// /* <!-- --") ("special" "`1~!@#$%^&*()_+-={':[,]}|;.</>?")
-                                              ("url" "http://www.JSON.org/") ("null" :null) ("hex" "ģ䕧覫췯ꯍ")
-                                              ("controls" "\b\f\n\r\t") ("address" "50 St. James Street") ("# -- --> */" " ")
-                                              ("\\/\\\\\"쫾몾ꮘﳞ볚\b\f\n\r\t`1~!@#$%^&*()_+-=[]{}|;:',./<>?" "A key can be any string")
-                                              ("space" " ") ("e" 1.23456789e-13) ("real" -9876.54321) ("array" #())
-                                              ("jsontext" "{\"object with 1 member\":[\"array with 1 element\"]}")
-                                              ("zero" 0.0) ("false" :false) ("slash" "/ & \\/") ("integer" 1234567890.0)
-                                              ("backslash" "\\\\") ("true" :true))
+AST: #("JSON Test Pattern pass1" (("object with 1 member" #("array with 1 element")))
+       nil #() -42.0 :true :false :null (("integer" 1234567890.0) ("real" -9876.54321) ("e" 1.23456789e-13)
+                                         ("E" 1.23456789e34) ("" 2.3456789012e76) ("zero" 0.0) ("one" 1.0)
+                                         ("space" " ") ("quote" "\"") ("backslash" "\\\\") ("controls" "\b\f\n\r\t")
+                                         ("slash" "/ & \\/") ("alpha" "abcdefghijklmnopqrstuvwyz") ("ALPHA" "ABCDEFGHIJKLMNOPQRSTUVWYZ")
+                                         ("digit" "0123456789") ("0123456789" "digit") ("special" "`1~!@#$%^&*()_+-={':[,]}|;.</>?")
+                                         ("hex" "ģ䕧覫췯ꯍ") ("true" :true) ("false" :false) ("null" :null)
+                                         ("array" #()) ("object" nil) ("address" "50 St. James Street")
+                                         ("url" "http://www.JSON.org/") ("comment" "// /* <!-- --") ("# -- --> */" " ")
+                                         (" s p a c e d " #(1.0 2.0 3.0 4.0 5.0 6.0 7.0)) ("compact" #(1.0 2.0 3.0 4.0 5.0 6.0 7.0))
+                                         ("jsontext" "{\"object with 1 member\":[\"array with 1 element\"]}")
+                                         ("quotes" "&#34; \" %22 0x22 034 &#x22;") ("\\/\\\\\"쫾몾ꮘﳞ볚\b\f\n\r\t`1~!@#$%^&*()_+-=[]{}|;:',./<>?"
+                                                                                    "A key can be any string"))
        0.5 98.6 99.44 1066.0 10.0 1.0 0.1 1.0 2.0 2.0 "rosebud")
 
 Unmatched junk: ""
diff --git a/tests/009/json.txr b/tests/009/json.txr
index 5c2732e8..1c705de1 100644
--- a/tests/009/json.txr
+++ b/tests/009/json.txr
@@ -57,16 +57,15 @@
 @(end)
 @;
 @; Recognize an object: a collection of string/value pairs,
-@; turning them into an equal-based hash table
+@; turning them into a list.
 @;
 @(define object (v))@\
   @(local p e pair)@\
-  @(ws){@(ws)@(coll :gap 0 :vars (pair))@\
+  @(ws){@(ws)@(coll :gap 0 :vars (v))@\
                 @(string p):@(value e)@/,?/@\
-                @(bind pair (p e))@\
+                @(bind v (p e))@\
                 @(until)}@\
              @(end)}@(ws)@\
-  @(bind v @(progn ^#H((:equal-based) ,*pair)))@\
 @(end)
 @;
 @; Recognize an array.