mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Tweak cmake/autotools so they produce the same output for POTFILES.in
This commit is contained in:
@@ -1,2 +1,2 @@
|
||||
|
||||
SET_DIST_LIST(util_DIST gnc-vcs-info guile.c CMakeLists.txt)
|
||||
SET_DIST_LIST(util_DIST elegant-sort.pl gnc-vcs-info guile.c CMakeLists.txt)
|
||||
|
||||
27
util/elegant-sort.pl
Executable file
27
util/elegant-sort.pl
Executable file
@@ -0,0 +1,27 @@
|
||||
#!/usr/bin/perl -w
|
||||
# -*- perl -*-
|
||||
#
|
||||
# Sort filenames in POTFILES.in in a consistent way
|
||||
# This reduces the amount of clutter in our version manangement system
|
||||
# The files will be sorted
|
||||
# * per directory
|
||||
# * case-insensitive
|
||||
# * ignoring punctuation (-,_,.)
|
||||
#
|
||||
sub sort_func
|
||||
{
|
||||
my $stripped_a = $a;
|
||||
my $stripped_b = $b;
|
||||
$stripped_a =~ s/[-_.]//g;
|
||||
$stripped_b =~ s/[-_.]//g;
|
||||
|
||||
lc ($stripped_a) cmp lc ($stripped_b)
|
||||
||
|
||||
lc ($a) cmp lc ($b)
|
||||
}
|
||||
|
||||
#open my $fh, '<', $ARGV[0];
|
||||
#my @raw_files = <$fh>;
|
||||
my @raw_files = <STDIN>;
|
||||
my @possible_files = sort sort_func @raw_files;
|
||||
print @possible_files;
|
||||
Reference in New Issue
Block a user