+
+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;
+
+ 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));
+
+ return NULL;
+}