From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 23 Apr 2013 14:44:44 +0000 (+0900)
Subject: New file.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=49fa65359e9105caa33f10ea9062aadd7ccdbe20;p=chise%2Fconcord.git

New file.
---

diff --git a/hash-test.c b/hash-test.c
new file mode 100644
index 0000000..62486cd
--- /dev/null
+++ b/hash-test.c
@@ -0,0 +1,58 @@
+#include <stdio.h>
+#include "cos.h"
+#include "cos-hash.h"
+
+int
+main (int argc, char* argv[])
+{
+  COS_Hash_Table ht;
+  COS_object obj;
+
+  ht = cos_make_hash_table ();
+  if (ht == NULL)
+    {
+      printf ("Can't make hash table.\n");
+      return -1;
+    }
+
+  cos_hash_table_put (ht, cos_make_char ('A'),
+		      cos_build_string ("character A"));
+  cos_hash_table_put (ht, cos_make_char ('a'),
+		      cos_build_string ("character a"));
+  cos_hash_table_put (ht, cos_make_int (65),
+		      cos_build_string ("int 65"));
+  cos_hash_table_put (ht, cos_intern ("sym"),
+		      cos_build_string ("symbol `sym'"));
+
+  obj = cos_make_char ('A');
+  cos_print_object (obj);
+  printf (" => ");
+  cos_print_object (cos_hash_table_get (ht, obj));
+  printf ("\n");
+
+  obj = cos_make_char ('a');
+  cos_print_object (obj);
+  printf (" => ");
+  cos_print_object (cos_hash_table_get (ht, obj));
+  printf ("\n");
+
+  obj = cos_make_int (65);
+  cos_print_object (obj);
+  printf (" => ");
+  cos_print_object (cos_hash_table_get (ht, obj));
+  printf ("\n");
+
+  obj = cos_intern ("sym");
+  cos_print_object (obj);
+  printf (" => ");
+  cos_print_object (cos_hash_table_get (ht, obj));
+  printf ("\n");
+
+  obj = cos_intern ("symbol");
+  cos_print_object (obj);
+  printf (" => ");
+  cos_print_object (cos_hash_table_get (ht, obj));
+  printf ("\n");
+
+  return 0;
+}