d38f1c505167a023e2357a69b8479b22b4f6dd99
[rails.git] / script / locale / diff
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use YAML::Syck qw(LoadFile);
5 use Test::Differences;
6 use Pod::Usage ();
7 use Getopt::Long ();
8
9 =head1 NAME
10
11 locale-diff - Compare two YAML files and print how their datastructures differ
12
13 =head1 SYNOPSIS
14
15     locale-diff en.yml is.yml
16     locale-diff en.yml is.yml | grep '*'
17
18 =head1 DESCRIPTION
19
20 This utility prints the differences between two YAML files using
21 L<Test::Differences>. The purpose of it is to diff the files is
22 F<config/locales> to find out what keys need to be added to the
23 translated files when F<en.yml> changes.
24
25 =head1 OPTIONS
26
27 =over
28
29 =item -h, --help
30
31 Print this help message.
32
33 =back
34
35 =head1 AUTHOR
36
37 E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avar@f-prot.com>
38
39 =cut
40
41 # Get the command-line options
42 Getopt::Long::Parser->new(
43     config => [ qw< bundling no_ignore_case no_require_order pass_through > ],
44 )->getoptions(
45     'h|help' => \my $help,
46 ) or help();
47
48 # On --help
49 help() if $help;
50
51 # If we're not given two .yml files
52 help() if @ARGV != 2 or (!-f $ARGV[0] or !-f $ARGV[1]);
53
54 my ($from, $to) = @ARGV;
55
56 my $from_data = LoadFile($from);
57 my $to_data   = LoadFile($to);
58
59 my $from_parsed = { iterate($from_data->{basename($from)}) };
60 my $to_parsed = { iterate($to_data->{basename($to)}) };
61
62 # Delete hash values
63 #walkdepth \&delete_hash_values, $_ for $from_data, $to_data;
64
65 # Hack around Test::Differences wanting a Test::* module loaded
66 $INC{"Test.pm"} = 1;
67 sub Test::ok { print shift }
68
69 # Diff the tree
70 eq_or_diff([ sort keys %$from_parsed ], [ sort keys %$to_parsed ]);
71
72 exit 0;
73
74 sub iterate
75 {
76     my ($hash, @path) = @_;
77     my @ret;
78         
79     while (my ($k, $v) = each %$hash)
80     {
81         if (ref $v eq 'HASH')
82         {
83              push @ret => iterate($v, @path, $k);
84         }
85         else
86         {
87             push @ret => join(".",@path, $k), $v;
88         }
89     }
90
91     return @ret;
92 }
93
94 sub basename
95 {
96     my $name = shift;
97     $name =~ s[\..*?$][];
98     $name;
99 }
100
101 sub help
102 {
103     my %arg = @_;
104
105     Pod::Usage::pod2usage(
106         -verbose => $arg{ verbose },
107         -exitval => $arg{ exitval } || 0,
108     );
109 }