(COS_Object_retain_function_table): New variable.

[chise/concord.git] / cos.c

diff --git a/cos.c b/cos.c
index 97f6099..299852b 100644 (file)
--- a/cos.c
+++ b/cos.c
@@ -20,16 +20,20 @@
 #include "sysdep.h"
 #include "cos-i.h"
 #include "cos-read.h"
+#include "cos-print.h"
 
 const char concord_db_format_version[] = CONCORD_DB_FORMAT_VERSION;
 const char concord_db_dir[] = CONCORD_DB_DIR;
 const char concord_system_db_dir[] = CONCORD_SI_DB_DIR;
 
+CONCORD_DS concord_current_env = NULL;
+
 int (*COS_Object_release_function_table
      [COS_OBJECT_TYPE_MAX - COS_Object_Type_char])
   (COS_Object)
   = { cos_release_string,
       cos_release_symbol,
+      cos_release_cons,
       cos_release_container,
       cos_release_sexp,
       cos_release_binary,
@@ -101,22 +105,24 @@ cos_allocate_object_0 (enum COS_Object_Type type, size_t size)
 COS_Object
 cos_retain_object (COS_Object obj)
 {
-  obj->header.reference_count++;
-
+  if (COS_OBJECT_P (obj))
+    obj->header.reference_count++;
   return obj;
 }
 
 int
 cos_release_object (COS_object obj)
 {
-  ((COS_Object)obj)->header.reference_count--;
+  if (COS_OBJECT_P (obj))
+    {
+      ((COS_Object)obj)->header.reference_count--;
 
-  if ( ((COS_Object)obj)->header.reference_count <= 0 )
-    return (*COS_Object_release_function_table
-           [((COS_Object)obj)->header.type
-            - COS_FAT_OBJECT_TYPE_MIN])(obj);
-  else
-    return 0;
+      if ( ((COS_Object)obj)->header.reference_count <= 0 )
+       return (*COS_Object_release_function_table
+               [((COS_Object)obj)->header.type
+                - COS_FAT_OBJECT_TYPE_MIN])(obj);
+    }
+  return 0;
 }
 
 
@@ -178,6 +184,11 @@ cos_release_string (COS_Object obj)
   return 0;
 }
 
+int cos_string_p (COS_object obj)
+{
+  return COS_OBJECT_STRING_P (obj);
+}
+
 size_t
 cos_string_size (COS_String string)
 {
@@ -191,6 +202,53 @@ cos_string_data (COS_String string)
 }
 
 
+COS_Cons
+cos_cons (COS_object car, COS_object cdr)
+{
+  COS_Cons obj = COS_ALLOCATE_OBJECT (Cons);
+
+  if (obj == NULL)
+    return NULL;
+
+  obj->car = car;
+  obj->cdr = cdr;
+  cos_retain_object (car);
+  cos_retain_object (cdr);
+
+  return obj;
+}
+
+int
+cos_release_cons (COS_Object obj)
+{
+  if (obj == NULL)
+    return 0;
+
+  cos_release_object (COS_CAR (obj));
+  cos_release_object (COS_CDR (obj));
+  free (obj);
+  return 0;
+}
+
+COS_object
+cos_car (COS_Cons pair)
+{
+  if (COS_OBJECT_CONS_P (pair))
+    return COS_CAR (pair);
+  else
+    return NULL;
+}
+
+COS_object
+cos_cdr (COS_Cons pair)
+{
+  if (COS_OBJECT_CONS_P (pair))
+    return COS_CDR (pair);
+  else
+    return NULL;
+}
+
+
 int
 cos_release_container (COS_Object obj)
 {
@@ -216,7 +274,7 @@ COS_DS
 concord_open_env (COS_object ds)
 {
   if (COS_OBJECT_DS_P (ds))
-    return (COS_DS)ds;
+    concord_current_env = (COS_DS)ds;
   else
     {
       char* path;
@@ -228,9 +286,10 @@ concord_open_env (COS_object ds)
       else
        return NULL;
 
-      return concord_open_ds (CONCORD_Backend_Berkeley_DB,
-                             path, 0, 0755);
+      concord_current_env = concord_open_ds (CONCORD_Backend_Berkeley_DB,
+                                            path, 0, 0755);
     }
+  return concord_current_env;
 }
 
 int
@@ -396,3 +455,59 @@ concord_decode_object (COS_object ds, COS_object genre,
 
   return NULL;
 }
+
+COS_object
+concord_object_get_feature_value (COS_object object, COS_object feature)
+{
+  char id_buf[256];
+  CONCORD_Feature fobj;
+  CONCORD_String_Tank val_st;
+  COS_String val_string;
+  size_t end;
+  int val_cid;
+  COS_String val_str;
+  COS_object val_obj;
+
+  if (COS_OBJECT_CHAR_P (object))
+    {
+      cos_utf8_print_char (object, id_buf, 256);
+      printf ("Object[char:0x%lX]'s id is %s.\n", object, id_buf);
+    }
+  else
+    return NULL;
+
+  fobj = concord_get_feature (concord_current_env,
+                             "character", feature);
+  if (fobj == NULL)
+    return NULL;
+
+  if ( concord_obj_get_feature_value_string (id_buf, fobj, &val_st) )
+    return NULL;
+
+  val_string = cos_make_string ((char*)CONCORD_String_data (&val_st),
+                               CONCORD_String_size (&val_st));
+  printf ("obj[%s]'s %s = %s\n",
+         id_buf,
+         concord_feature_get_name (fobj),
+         cos_string_data (val_string));
+
+  val_obj = cos_read_int (CONCORD_String_data (&val_st),
+                         CONCORD_String_size (&val_st),
+                         0, &end);
+  if ( val_obj != NULL )
+    return val_obj;
+
+  val_cid = cos_read_char (CONCORD_String_data (&val_st),
+                          CONCORD_String_size (&val_st),
+                          0, &end);
+  if ( val_cid >= 0 )
+    return cos_make_char (val_cid);
+
+  val_str = cos_read_string (CONCORD_String_data (&val_st),
+                            CONCORD_String_size (&val_st),
+                            0, &end);
+  if ( val_str != NULL )
+    return val_str;
+
+  return NULL;
+}