From da42a34c2800dde14b64b92e5f4661419f55112c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 21 Apr 2013 09:13:51 +0900 Subject: [PATCH] (cos_string_ent_composition): New variable. (cos_symbol_ent_composition): New variable. (cos_Qcomposition): New variable. (cos_intern): Setup `composition'. --- symbol.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/symbol.c b/symbol.c index e2d82fd..2ff8819 100644 --- a/symbol.c +++ b/symbol.c @@ -53,6 +53,20 @@ COS_Symbol_ent cos_symbol_ent_t = { {COS_OBJECT_PREFIX_OBJECT, COS_Symbol cos_Qt = &cos_symbol_ent_t; +COS_String_ent cos_string_ent_composition = { {COS_OBJECT_PREFIX_OBJECT, + COS_Object_Type_String, + 1}, + 3, "composition"}; + +COS_Symbol_ent cos_symbol_ent_composition = { {COS_OBJECT_PREFIX_OBJECT, + COS_Object_Type_Symbol, + 1}, + &cos_string_ent_composition, + NULL}; + +COS_Symbol cos_Qcomposition = &cos_symbol_ent_composition; + + COS_Symbol_Table cos_default_symbol_table = NULL; @@ -250,6 +264,7 @@ cos_intern (COS_object name) cos_default_symbol_table = cos_make_symbol_table(); cos_symbol_table_set (cos_default_symbol_table, cos_Qnil); cos_symbol_table_set (cos_default_symbol_table, cos_Qt); + cos_symbol_table_set (cos_default_symbol_table, cos_Qcomposition); } return cos_symbol_table_intern (cos_default_symbol_table, name); } -- 1.7.10.4