X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fconcord.git;a=blobdiff_plain;f=print.c;h=2f936d65719fd406bbb071932ba7b523670b0805;hp=2698189adb8b4b8656cf74f6de9af53a7eb151f7;hb=30f3b2f3c1ae171f91593bca8e5e6f5dd6cb2342;hpb=322b55a7656acb0c455ce7fc03e98d056f1e56f8

diff --git a/print.c b/print.c
index 2698189..2f936d6 100644
--- a/print.c
+++ b/print.c
@@ -234,3 +234,50 @@ cos_utf8_print_char (COS_object character, unsigned char *dest, size_t size)
       return i;
     }
 }
+
+
+void
+cos_print_object (COS_object obj)
+{
+  if ( obj == NULL )
+    printf ("#<NULL>", obj);
+  else if ( COS_OBJECT_INT_P (obj) )
+    printf ("%d", cos_int_value (obj));
+  else if ( COS_OBJECT_CHAR_P (obj) )
+    {
+      char id_buf[256];
+
+      cos_utf8_print_char (obj, id_buf, 256);
+      printf ("%s", id_buf);
+    }
+  else if ( COS_OBJECT_STRING_P (obj) )
+    {
+      printf ("\"%s\"", cos_string_data (obj));
+    }
+  else if ( COS_OBJECT_SYMBOL_P (obj) )
+    {
+      printf ("%s", cos_string_data (cos_symbol_name (obj)));
+    }
+  else if ( COS_OBJECT_CONS_P (obj) )
+    {
+      COS_object rest = COS_CDR (obj);
+
+      printf ("(");
+      cos_print_object (COS_CAR (obj));
+      while ( COS_OBJECT_CONS_P (rest) )
+	{
+	  printf (" ");
+	  cos_print_object (COS_CAR (rest));
+	  rest = COS_CDR (rest);
+	}
+      if ( rest != cos_Qnil )
+	{
+	  printf (" . ");
+	  cos_print_object (rest);
+	}
+      printf (")");
+    }
+  else
+    printf ("Object[0x%lX] is a fat object.\n",
+	    obj);
+}