mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-11-25 02:10:36 -06:00
65bb60d621
Typos found via `codespell -q 3 -D ~/Projects/codespell/codespell_lib/data/dictionary.txt -S *.po,./po,*.min.js,./ChangeLog*,./NEWS,./doc/README*,./AUTHORS,./libgnucash/tax/us/txf-de*,./data/accounts -L ans,cas,dragable,gae,iff,iif,mut,nd,numer,startd,stoll`
28 lines
615 B
Perl
Executable File
28 lines
615 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
# -*- perl -*-
|
|
#
|
|
# Sort filenames in POTFILES.in in a consistent way
|
|
# This reduces the amount of clutter in our version management 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;
|