diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-09-29 13:02:51 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-09-30 01:51:09 +0100 |
commit | f267017422adea03967b5cf66426e4229c3ff46b (patch) | |
tree | 0fec6d97ea93891edc45affd8cafe48c9b9987fa | |
parent | 1e8530a75b48e9444c3f629eea2e1414e001b76c (diff) |
i18n: Provide i_ (identity function, tags for translation)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rw-r--r-- | Debian/Dgit/I18n.pm | 4 | ||||
-rw-r--r-- | po/Makefile | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/Debian/Dgit/I18n.pm b/Debian/Dgit/I18n.pm index 9c474ee..e8068ff 100644 --- a/Debian/Dgit/I18n.pm +++ b/Debian/Dgit/I18n.pm @@ -5,6 +5,7 @@ package Debian::Dgit::I18n; # This module provides # __ a function which is an alias for gettext # f_ sprintf wrapper that gettexts the format +# i_ identify function, but marks string for translation # # In perl the sub `_' is a `superglobal', which means there # is only one of it in the whole program and every reference @@ -16,11 +17,12 @@ use Locale::gettext; BEGIN { use Exporter; @ISA = qw(Exporter); - @EXPORT = qw(__ f_); + @EXPORT = qw(__ f_ i_); } sub __ ($) { gettext @_; } +sub i_ ($) { $_[0]; } sub f_ ($$;@) { my $f = shift @_; sprintf +(gettext $f), @_; } 1; diff --git a/po/Makefile b/po/Makefile index 2ba5e60..9865c8a 100644 --- a/po/Makefile +++ b/po/Makefile @@ -84,7 +84,7 @@ messages.pot: $(if $(SUPPRESS_PO_UPDATE),,$(POTS)) %.mo: %.po $S msgfmt -o $@ $< -XGETTEXT_OPTS += -Lperl -k__ -kf_ +XGETTEXT_OPTS += -Lperl -k__ -kf_ -ki_ XGETTEXT_OPTS += --from-code=UTF-8 XGETTEXT_OPTS += --package-name=dgit --package-version=ongoing # The --package-* avoids this error from make check's `msgfmt -c' |