# classes are extracted from these lines (2nd arg)
# /^interface\s*(\w+).*/
# and
# /^(abstract )?class\s*(\w+).*/
}
write_i18n()
{
# TODO: write function
# # hash that will contain the result of the "get_i18n" function
# my %get_i18n_result = get_i18n ($locale_dir);
#
# while ( my ($lang, $files) = each %get_i18n_result ) {
#
# # directory wich will contain the .mo file for each language
# my $lang_cache_dir = dir ("$locale_cache_dir/$lang/LC_MESSAGES");
#
# # if $lang_cache_dir doesn't already exists, creating it
# if ( !-d $lang_cache_dir ) {
# $lang_cache_dir->mkpath or die ("! Can't create $locale_cache_dir/$lang/LC_MESSAGES");
# }
#
# # glue .po files's names
# my $po_files = join(" ", @{$files});
# chomp $po_files;
#
# # merging .po files
# system ( "msgcat --use-first ".$po_files.">".$lang_cache_dir."/fusiondirectory.po" ) and die ("! Unable to merge .po files for $lang with msgcat, is it already installed?\n");
#
# # compiling .po files in .mo files
# system ( "msgfmt -o $lang_cache_dir/fusiondirectory.mo $lang_cache_dir/fusiondirectory.po && rm $lang_cache_dir/fusiondirectory.po" ) and die ("! Unable to compile .mo files with msgfmt, is it already installed?\n");
