103 						luaL_checkenum (L, 3, sub_type_lm_message));

   103 						luaL_checkenum (L, 3, sub_type_lm_message));

   104 	else

   104 	else

   105 		message = lm_message_new (to, type);

   105 		message = lm_message_new (to, type);

   106 	bless_lm_message (L, message);

   106 	bless_lm_message (L, message);

   107 	lm_message_unref (message);

   107 	lm_message_unref (message);

   109 	return 1;

   109 	return 1;

   110 }

   110 }

   111 

   111 

   112 /// message table

   112 /// message table

   113 /// Table describes xml structure of the message, the only exception is mtype key of root table.

   113 /// Table describes xml structure of the message, the only exception is mtype key of root table.

   208 

   208 

   209 	fill_lm_node (L, lm_message_get_node (message), 1);

   209 	fill_lm_node (L, lm_message_get_node (message), 1);

   210 

   210 

   211 	bless_lm_message (L, message);

   211 	bless_lm_message (L, message);

   212 	lm_message_unref (message);

   212 	lm_message_unref (message);

   214 

   214 

   215 	return 1;

   215 	return 1;

   216 }

   216 }

   217 

   217 

   218 /// lm.message.bless

   218 /// lm.message.bless

   260 }

   260 }

   261 

   261 

   262 static int gc_lm_message (lua_State *L)

   262 static int gc_lm_message (lua_State *L)

   263 {

   263 {

   264 	llm_message_t *message = luaL_checklm_message (L, 1);

   264 	llm_message_t *message = luaL_checklm_message (L, 1);

   266 	lm_message_unref (message->message);

   266 	lm_message_unref (message->message);

   267 	return 0;

   267 	return 0;

   268 }

   268 }

   269 

   269 

   270 static const luaL_Reg reg_f_lm_message[] = {

   270 static const luaL_Reg reg_f_lm_message[] = {