/* Instanciates a #CRString from an instance of GString.  */
CRString* cr_string_new_from_gstring(GString *a_string)
/* Instanciates a #CRString from an instance of GString.  */
CRString* cr_string_new_from_gstring(GString *a_string)
{
	CRString *result = NULL ;
	result = cr_string_new () ;
	if (!result) {
		cr_utils_trace_info ("Out of memory") ;
		return NULL ;
	}
	if (a_string) {
		result->stryng = g_string_new_len
			(a_string->str, a_string->len) ;
	} else {
		result->stryng = g_string_new (NULL) ;
	}
	return result ;
}