Changeset 5305

Timestamp:

06/18/09 07:09:43 (3 years ago)

Author:

szabgab

Message:

move the mo generating code from dev.pl to tools/lib/Tools.pm

Location:

trunk

Files:

• Padre/dev.pl (modified) (2 diffs)
• tools/lib (added)
• tools/lib/Tools.pm (added)

trunk/Padre/dev.pl

@@ -16 +16 @@
 $ENV{PADRE_HOME} = $FindBin::Bin;
 $ENV{PADRE_DIE}  = 1;
+
+use lib "$FindBin::Bin/../tools";
+use lib::Tools;
 
 # Due to share functionality, we must have run make
@@ -72 +75 @@
 }
 
-sub convert_po_to_mo {
-    my $path   = shift;
-    my $msgfmt = get_msgfmt();
-    return if not $msgfmt;
-
-    my @mo;
-    if ( $^O eq 'MSWin32' ) {
-        @mo = map {
-            substr( File::Basename::basename($_), 0, -3 )
-        } File::Glob::Windows::glob("$path/share/locale/*.po");
-    } else {
-        @mo = map {
-            substr( File::Basename::basename($_), 0, -3 )
-        } glob "$path/share/locale/*.po";
-    }
-    foreach my $locale ( @mo ) {
-        system(
-            $msgfmt, "-o",
-            "$path/share/locale/$locale.mo",
-            "$path/share/locale/$locale.po",
-        );
-    }
-}
-
-sub get_msgfmt {
-
-    my $msgfmt;
-    if ( $^O =~ /(linux|bsd)/ ) {
-        $msgfmt = scalar File::Which::which('msgfmt');
-    } elsif ( $^O eq 'MSWin32' ) {
-        eval {
-            require File::Glob::Windows;
-        };
-        if( $@ ) {
-            die("Default glob() will misinterpret spaces in folder names as seperators, install File::Glob::Windows to fix this behavior!");
-        }
-        my $p = "C:/Program Files/GnuWin32/bin/msgfmt.exe";
-        if ( -e $p ) {
-            $msgfmt = $p;
-        } else {
-            $msgfmt = scalar File::Which::which('msgfmt');
-        }
-    }
-    
-    return $msgfmt;
-}