t9700: fix test for perl older than 5.14
[git] / git-sh-i18n.sh
1 # This shell library is Git's interface to gettext.sh. See po/README
2 # for usage instructions.
3 #
4 # Copyright (c) 2010 Ævar Arnfjörð Bjarmason
5 #
6
7 # Export the TEXTDOMAIN* data that we need for Git
8 TEXTDOMAIN=git
9 export TEXTDOMAIN
10 if test -z "$GIT_TEXTDOMAINDIR"
11 then
12         TEXTDOMAINDIR="@@LOCALEDIR@@"
13 else
14         TEXTDOMAINDIR="$GIT_TEXTDOMAINDIR"
15 fi
16 export TEXTDOMAINDIR
17
18 # First decide what scheme to use...
19 GIT_INTERNAL_GETTEXT_SH_SCHEME=fallthrough
20 if test -n "@@USE_GETTEXT_SCHEME@@"
21 then
22         GIT_INTERNAL_GETTEXT_SH_SCHEME="@@USE_GETTEXT_SCHEME@@"
23 elif test -n "$GIT_INTERNAL_GETTEXT_TEST_FALLBACKS"
24 then
25         : no probing necessary
26 elif test -n "$GIT_GETTEXT_POISON"
27 then
28         GIT_INTERNAL_GETTEXT_SH_SCHEME=poison
29 elif type gettext.sh >/dev/null 2>&1
30 then
31         # GNU libintl's gettext.sh
32         GIT_INTERNAL_GETTEXT_SH_SCHEME=gnu
33 elif test "$(gettext -h 2>&1)" = "-h"
34 then
35         # gettext binary exists but no gettext.sh. likely to be a gettext
36         # binary on a Solaris or something that is not GNU libintl and
37         # lack eval_gettext.
38         GIT_INTERNAL_GETTEXT_SH_SCHEME=gettext_without_eval_gettext
39 fi
40 export GIT_INTERNAL_GETTEXT_SH_SCHEME
41
42 # ... and then follow that decision.
43 case "$GIT_INTERNAL_GETTEXT_SH_SCHEME" in
44 gnu)
45         # Use libintl's gettext.sh, or fall back to English if we can't.
46         . gettext.sh
47         ;;
48 gettext_without_eval_gettext)
49         # Solaris has a gettext(1) but no eval_gettext(1)
50         eval_gettext () {
51                 gettext "$1" | (
52                         export PATH $(git sh-i18n--envsubst --variables "$1");
53                         git sh-i18n--envsubst "$1"
54                 )
55         }
56         ;;
57 poison)
58         # Emit garbage so that tests that incorrectly rely on translatable
59         # strings will fail.
60         gettext () {
61                 printf "%s" "# GETTEXT POISON #"
62         }
63
64         eval_gettext () {
65                 printf "%s" "# GETTEXT POISON #"
66         }
67         ;;
68 *)
69         gettext () {
70                 printf "%s" "$1"
71         }
72
73         eval_gettext () {
74                 printf "%s" "$1" | (
75                         export PATH $(git sh-i18n--envsubst --variables "$1");
76                         git sh-i18n--envsubst "$1"
77                 )
78         }
79         ;;
80 esac
81
82 # Git-specific wrapper functions
83 gettextln () {
84         gettext "$1"
85         echo
86 }
87
88 eval_gettextln () {
89         eval_gettext "$1"
90         echo
91 }