|
Revision 5036, 0.6 KB
(checked in by jow, 4 years ago)
|
|
build: embed lmo in the build process
|
-
Property svn:executable set to
*
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | |
|---|
| 3 | @ARGV == 2 || die "Usage: $0 <source-dir> <dest-dir>\n"; |
|---|
| 4 | |
|---|
| 5 | my $source_dir = shift @ARGV; |
|---|
| 6 | my $target_dir = shift @ARGV; |
|---|
| 7 | |
|---|
| 8 | if( ! -d $target_dir ) |
|---|
| 9 | { |
|---|
| 10 | system('mkdir', '-p', $target_dir); |
|---|
| 11 | } |
|---|
| 12 | |
|---|
| 13 | if( open F, "find $source_dir -type f -name '*.po' |" ) |
|---|
| 14 | { |
|---|
| 15 | while( chomp( my $file = readline F ) ) |
|---|
| 16 | { |
|---|
| 17 | my ( $lang, $basename ) = $file =~ m{.+/(\w+)/([^/]+)\.po$}; |
|---|
| 18 | $lang = lc $lang; |
|---|
| 19 | $lang =~ s/_/-/g; |
|---|
| 20 | |
|---|
| 21 | printf "Generating %-40s ", "$target_dir/$basename.$lang.lmo"; |
|---|
| 22 | system("./build/po2lmo", $file, "$target_dir/$basename.$lang.lmo"); |
|---|
| 23 | print ( -f "$target_dir/$basename.$lang.lmo" ? "done\n" : "empty\n" ); |
|---|
| 24 | } |
|---|
| 25 | |
|---|
| 26 | close F; |
|---|
| 27 | } |
|---|
