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,
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;
+ return -1;
}
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;
}
}
int
+cos_retain_string (COS_Object obj)
+{
+ return 0;
+}
+
+int
cos_release_string (COS_Object obj)
{
if (obj == NULL)
}
+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)
{
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
+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;
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))
{
concord_feature_get_name (fobj),
cos_string_data (val_string));
- val_obj = cos_read_int (CONCORD_String_data (&val_st),
+ return cos_read_object (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;
}