From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 21 Apr 2013 00:13:51 +0000 (+0900)
Subject: (cos_string_ent_composition): New variable.
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fconcord.git;a=commitdiff_plain;h=da42a34c2800dde14b64b92e5f4661419f55112c

(cos_string_ent_composition): New variable.
(cos_symbol_ent_composition): New variable.
(cos_Qcomposition): New variable.
(cos_intern): Setup `composition'.
---

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);
 }