Mercurial > geeqie
view keymap/keymap.pl @ 1577:240cf36c9a44
Fix up po/Makefile to rebuild geeqie.pot when POTFILES.in was modified. Without this change, new translatable strings in recently added files were not available for translation in various .po files after a make update-po. Makefile.in.in.patch was modified to include this fix plus some minor cleanups.
author | zas_ |
---|---|
date | Tue, 28 Apr 2009 21:37:27 +0000 |
parents | 113d8329cbd6 |
children |
line wrap: on
line source
#!/usr/bin/perl use strict; my %funcs; open(ACCELS, "<$ENV{HOME}/.geeqie/accels") or die "No accel file"; while (<ACCELS>) { if (/gtk_accel_path "([^"]*)" *"([^"]*)"/) { my $name = $1; my $key = $2; $name =~ s/.*\///; $key =~ s/</</g; $key =~ s/>/>/g; $funcs{uc($key)} = $name; } } close(ACCELS); open(ACCELS, "<hardcoded_keys") or die "No hardcoded_keys file"; while (<ACCELS>) { if (/"([^"]*)" *"([^"]*)"/) { my $name = $1; my $key = $2; $name =~ s/.*\///; $key =~ s/</</g; $key =~ s/>/>/g; $funcs{uc($key)} = $name; } } close(ACCELS); open(IN, "<keymap_template.svg") or die "No svg file"; open(OUT, ">keymap.svg") or die "Can't write output file"; while (<IN>) { if (/>key:([^<]*)</) { my $key = uc($1); my $name = $funcs{$key}; s/>key:([^<]*)</>$name</; delete $funcs{$key}; } print OUT; } close(IN); close(OUT); for my $key (keys %funcs) { if ($key) { print STDERR "not found: '$key'\n"; } }