X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=cos.c;h=546078c1aa800041d89fd52333e1c61c6b06f146;hb=a778618ff4a07715a71d3e493a8fff9696b5a105;hp=97f6099fe4f811c50b89b04d58452fa0478fce12;hpb=3568b4b3840dc6e7968c0949b16507b250a0365f;p=chise%2Fconcord.git diff --git a/cos.c b/cos.c index 97f6099..546078c 100644 --- a/cos.c +++ b/cos.c @@ -20,16 +20,36 @@ #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_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) = { cos_release_string, cos_release_symbol, + cos_release_cons, cos_release_container, cos_release_sexp, cos_release_binary, @@ -47,6 +67,12 @@ cos_make_int (COS_C_Int num) 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) { @@ -55,12 +81,6 @@ 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) @@ -69,17 +89,17 @@ 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; + return -1; } @@ -101,22 +121,29 @@ 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++; + (*COS_Object_retain_function_table + [((COS_Object)obj)->header.type + - COS_FAT_OBJECT_TYPE_MIN])(obj); + } 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; } @@ -167,6 +194,12 @@ cos_build_string (char* str) } int +cos_retain_string (COS_Object obj) +{ + return 0; +} + +int cos_release_string (COS_Object obj) { if (obj == NULL) @@ -178,6 +211,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 +229,73 @@ 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_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; + + cos_release_object (COS_CAR (obj)); + cos_release_object (COS_CDR (obj)); + free (obj); + return 0; +} + +int +cos_cons_p (COS_object obj) +{ + return COS_OBJECT_CONS_P (obj); +} + +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_retain_container (COS_Object obj) +{ + return 0; +} + int cos_release_container (COS_Object obj) { @@ -199,6 +304,12 @@ cos_release_container (COS_Object obj) int +cos_retain_sexp (COS_Object obj) +{ + return 0; +} + +int cos_release_sexp (COS_Object obj) { return 0; @@ -206,6 +317,12 @@ cos_release_sexp (COS_Object obj) int +cos_retain_binary (COS_Object obj) +{ + return 0; +} + +int cos_release_binary (COS_Object obj) { return 0; @@ -216,7 +333,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 +345,16 @@ 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 +cos_retain_ds (COS_Object obj) +{ + return 0; } int @@ -253,6 +377,12 @@ 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); @@ -284,6 +414,12 @@ concord_get_feature (COS_object ds, } int +cos_retain_feature (COS_Object obj) +{ + return 0; +} + +int cos_release_feature (COS_Object obj) { return concord_close_feature ((COS_Feature)obj); @@ -312,6 +448,12 @@ concord_get_feature_index (COS_object ds, } 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); @@ -319,6 +461,12 @@ cos_release_index (COS_Object obj) int +cos_retain_db_object (COS_Object obj) +{ + return 0; +} + +int cos_release_db_object (COS_Object obj) { return 0; @@ -396,3 +544,40 @@ 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; + + 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 cos_read_object (CONCORD_String_data (&val_st), + CONCORD_String_size (&val_st), + 0, &end); +}