CONCORD_DS concord_current_env = NULL;
+int (*COS_Object_retain_function_table
+ [COS_OBJECT_TYPE_MAX - COS_Object_Type_char])
+ (COS_Object)
+ = { cos_retain_string,
+ cos_retain_symbol,
+ cos_retain_cons,
+ cos_retain_container,
+ cos_retain_sexp,
+ cos_retain_binary,
+ cos_retain_ds,
+ cos_retain_genre,
+ cos_retain_feature,
+ cos_retain_index,
+ cos_retain_db_object
+};
+
int (*COS_Object_release_function_table
[COS_OBJECT_TYPE_MAX - COS_Object_Type_char])
(COS_Object)
return (COS_object)((COS_INT)(num << 1) | 1);
}
+int
+cos_int_p (COS_object obj)
+{
+ return COS_OBJECT_INT_P (obj);
+}
+
COS_C_Int
cos_int_value (COS_object obj)
{
return INTPTR_MIN;
}
-int
-cos_int_p (COS_object obj)
-{
- return COS_OBJECT_INT_P (obj);
-}
-
COS_object
cos_make_char (int code)
}
int
-cos_char_id (COS_object obj)
+cos_char_p (COS_object obj)
{
- if (COS_OBJECT_CHAR_P (obj))
- return ((COS_INT)obj) >> 2;
- return -1;
+ return COS_OBJECT_CHAR_P (obj);
}
int
-cos_char_p (COS_object obj)
+cos_char_id (COS_object obj)
{
- return COS_OBJECT_CHAR_P (obj);
+ if (COS_OBJECT_CHAR_P (obj))
+ return (((COS_INT)obj) >> 2) & 0x7FFFFFFF;
+ return -1;
}
cos_retain_object (COS_Object obj)
{
if (COS_OBJECT_P (obj))
- obj->header.reference_count++;
+ {
+ obj->header.reference_count++;
+ (*COS_Object_retain_function_table
+ [((COS_Object)obj)->header.type
+ - COS_FAT_OBJECT_TYPE_MIN])(obj);
+ }
return obj;
}
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
}
int
+cos_retain_string (COS_Object obj)
+{
+ return 0;
+}
+
+int
cos_release_string (COS_Object obj)
{
if (obj == NULL)
}
int
+cos_retain_cons (COS_Object obj)
+{
+ //cos_retain_object (COS_CAR (obj));
+ //cos_retain_object (COS_CDR (obj));
+ return 0;
+}
+
+int
cos_release_cons (COS_Object obj)
{
if (obj == NULL)
return 0;
}
+int
+cos_cons_p (COS_object obj)
+{
+ return COS_OBJECT_CONS_P (obj);
+}
+
COS_object
cos_car (COS_Cons pair)
{
return NULL;
}
+COS_Cons
+cos_assoc (COS_object key, COS_Cons alist)
+{
+ COS_Cons rest = alist;
+
+ while ( COS_OBJECT_CONS_P (rest) )
+ {
+ COS_Cons cell = cos_car (rest);
+
+ if ( cos_car (cell) == key )
+ return cell;
+
+ rest = cos_cdr (rest);
+ }
+ return NULL;
+}
+
+COS_object
+cos_alist_get (COS_Cons alist, COS_object key)
+{
+ return cos_cdr (cos_assoc (key, alist));
+}
+
+
+int
+cos_retain_container (COS_Object obj)
+{
+ return 0;
+}
int
cos_release_container (COS_Object obj)
int
+cos_retain_sexp (COS_Object obj)
+{
+ return 0;
+}
+
+int
cos_release_sexp (COS_Object obj)
{
return 0;
int
+cos_retain_binary (COS_Object obj)
+{
+ return 0;
+}
+
+int
cos_release_binary (COS_Object obj)
{
return 0;
}
int
+cos_retain_ds (COS_Object obj)
+{
+ return 0;
+}
+
+int
cos_release_ds (COS_Object obj)
{
return concord_close_ds ((COS_DS)obj);
}
+int
+concord_ds_p (COS_object obj)
+{
+ return COS_OBJECT_DS_P (obj);
+}
+
COS_Genre
concord_get_genre (COS_object ds, COS_object genre)
}
int
+cos_retain_genre (COS_Object obj)
+{
+ return 0;
+}
+
+int
cos_release_genre (COS_Object obj)
{
return concord_close_genre ((COS_Genre)obj);
}
int
+cos_retain_feature (COS_Object obj)
+{
+ return 0;
+}
+
+int
cos_release_feature (COS_Object obj)
{
return concord_close_feature ((COS_Feature)obj);
}
int
+cos_retain_index (COS_Object obj)
+{
+ return concord_close_index ((COS_Feature_INDEX)obj);
+}
+
+int
cos_release_index (COS_Object obj)
{
return concord_close_index ((COS_Feature_INDEX)obj);
int
+cos_retain_db_object (COS_Object obj)
+{
+ return 0;
+}
+
+int
cos_release_db_object (COS_Object obj)
{
return 0;
char* id_str;
char buf[256];
CONCORD_String_Tank obj_st;
- COS_String obj_string;
int cid;
size_t end;
if (index == NULL)
return NULL;
- printf ("decoding id (%lX)...", id);
if (COS_OBJECT_INT_P (id))
{
- printf ("(id is an int)...");
snprintf(buf, 256, "%ld", cos_int_value (id));
id_str = buf;
}
else if (COS_OBJECT_CHAR_P (id))
{
- printf ("(id is a char)...");
- snprintf(buf, 256, "%ld", cos_char_id (id));
+ snprintf(buf, 256, "%d", cos_char_id (id));
id_str = buf;
}
else if (COS_OBJECT_SYMBOL_P (id))
{
- printf ("(id is a symbol)....");
id_str = cos_string_data (cos_symbol_name ((COS_Symbol)id));
}
else if (COS_OBJECT_C_STRING_P (id))
{
- printf ("(id is a C-string)....");
id_str = (char*)id;
}
else if (COS_OBJECT_STRING_P (id))
{
- printf ("(id is a string)....");
id_str = cos_string_data ((COS_String)id);
}
else
return NULL;
- printf ("done (%s).\n", id_str);
if ( concord_index_strid_get_obj_string (index, id_str, &obj_st) )
return NULL;
- obj_string = cos_make_string ((char*)CONCORD_String_data (&obj_st),
- CONCORD_String_size (&obj_st));
-
cid = cos_read_char (CONCORD_String_data (&obj_st),
CONCORD_String_size (&obj_st),
0, &end);
if ( cid >= 0 )
{
- printf ("obj = %s (%d, U+%04X), len = %d, end = %d\n",
- cos_string_data (obj_string),
- cid, cid,
- CONCORD_String_size (&obj_st), end);
- cos_release_object (obj_string);
return cos_make_char (cid);
}
- else
- printf ("obj = %s\n", cos_string_data (obj_string));
-
- cos_release_object (obj_string);
return NULL;
}
COS_object
concord_object_get_feature_value (COS_object object, COS_object feature)
{
- char id_buf[256];
+ CONCORD_Genre gobj;
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;
+ COS_object ret;
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);
+ if (!COS_OBJECT_DS_P (concord_current_env))
+ {
+ concord_current_env = NULL;
+ return NULL;
+ }
+ gobj = concord_get_genre (concord_current_env, "character");
}
else
return NULL;
-
- fobj = concord_get_feature (concord_current_env,
- "character", feature);
- if (fobj == NULL)
+ if (gobj == NULL)
return NULL;
- if ( concord_obj_get_feature_value_string (id_buf, fobj, &val_st) )
+ fobj = concord_get_feature (concord_current_env, gobj, feature);
+ if (fobj == NULL)
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));
+ if ( fobj->value_table != NULL )
+ {
+ ret = cos_hash_table_get (fobj->value_table, object);
+ if (ret != NULL)
+ return ret;
+ }
+ else
+ fobj->value_table = cos_make_hash_table ();
+
+ {
+ char id_buf[256];
+ CONCORD_String_Tank val_st;
+ size_t end;
+
+ if (COS_OBJECT_CHAR_P (object))
+ {
+ cos_utf8_print_char (object, (unsigned char*)id_buf, 256);
+ }
+ else
+ return NULL;
- val_obj = cos_read_int (CONCORD_String_data (&val_st),
- CONCORD_String_size (&val_st),
- 0, &end);
- if ( val_obj != NULL )
- return val_obj;
+ if ( concord_obj_get_feature_value_string (id_buf, fobj, &val_st) )
+ return NULL;
- val_cid = cos_read_char (CONCORD_String_data (&val_st),
+ ret = cos_read_object (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;
+ if ( ret == NULL )
+ return NULL;
- return NULL;
+ cos_retain_object (ret);
+ cos_hash_table_put (fobj->value_table, object, ret);
+ return ret;
+ }
}