mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-29 06:13:20 +00:00
d91ad2976c
This is absolutely disgusting code, but it works out okay-ish. The problem is xgettext has no rust support (it's stuck in review limbo). So we use cargo-expand to extract all invocations of gettext, and massage all that to generate a messages.pot ourselves. We also assume any string constant could be translated.
65 lines
3.1 KiB
Fish
Executable file
65 lines
3.1 KiB
Fish
Executable file
#!/usr/bin/env fish
|
|
#
|
|
# Tool to generate messages.pot
|
|
|
|
# Create temporary directory for these operations. OS X `mktemp` is somewhat restricted, so this block
|
|
# works around that - based on share/functions/funced.fish.
|
|
set -q TMPDIR
|
|
or set -l TMPDIR /tmp
|
|
set -l tmpdir (mktemp -d $TMPDIR/fish.XXXXXX)
|
|
or exit 1
|
|
|
|
# This is a gigantic crime.
|
|
# xgettext still does not support rust *at all*, so we use cargo-expand to get all our wgettext invocations.
|
|
set -l expanded (cargo expand --lib; for f in fish{,_indent,_key_reader}; cargo expand --bin $f; end)
|
|
|
|
# Extract any gettext call
|
|
set -l strs (printf '%s\n' $expanded | grep -A1 wgettext_static_str |
|
|
grep 'widestring::internals::core::primitive::str =' |
|
|
string match -rg '"(.*)"' | string match -rv '^%ls$|^$' |
|
|
# escaping difference between gettext and cargo-expand: single-quotes
|
|
string replace -a "\'" "'" | sort -u)
|
|
|
|
# Extract any constants
|
|
set -a strs (string match -rv 'BUILD_VERSION:|PACKAGE_NAME' -- $expanded |
|
|
string match -rg 'const [A-Z_]*: &str = "(.*)"' | string replace -a "\'" "'")
|
|
|
|
# We construct messages.pot ourselves instead of forcing this into msgmerge or whatever.
|
|
# The escaping so far works out okay.
|
|
for str in $strs
|
|
# grep -P needed for string escape to be compatible (PCRE-style),
|
|
# -H gives the filename, -n the line number.
|
|
# If you want to run this on non-GNU grep: Don't.
|
|
echo "#:" (grep -PHn -r -- (string escape --style=regex -- $str) src/ |
|
|
head -n1 | string replace -r ':\s.*' '')
|
|
echo "msgid \"$str\""
|
|
echo 'msgstr ""'
|
|
end >messages.pot
|
|
|
|
# This regex handles descriptions for `complete` and `function` statements. These messages are not
|
|
# particularly important to translate. Hence the "implicit" label.
|
|
set -l implicit_regex '(?:^| +)(?:complete|function).*? (?:-d|--description) (([\'"]).+?(?<!\\\\)\\2).*'
|
|
|
|
# This regex handles explicit requests to translate a message. These are more important to translate
|
|
# than messages which should be implicitly translated.
|
|
set -l explicit_regex '.*\( *_ (([\'"]).+?(?<!\\\\)\\2) *\).*'
|
|
|
|
mkdir -p $tmpdir/implicit/share/completions $tmpdir/implicit/share/functions
|
|
mkdir -p $tmpdir/explicit/share/completions $tmpdir/explicit/share/functions
|
|
|
|
for f in share/config.fish share/completions/*.fish share/functions/*.fish
|
|
# Extract explicit attempts to translate a message. That is, those that are of the form
|
|
# `(_ "message")`.
|
|
string replace --filter --regex $explicit_regex '$1' <$f | string unescape \
|
|
| string replace --all '"' '\\"' | string replace -r '(.*)' 'N_ "$1"' >$tmpdir/explicit/$f
|
|
|
|
# Handle `complete` / `function` description messages. The `| fish` is subtle. It basically
|
|
# avoids the need to use `source` with a command substitution that could affect the current
|
|
# shell.
|
|
string replace --filter --regex $implicit_regex '$1' <$f | string unescape \
|
|
| string replace --all '"' '\\"' | string replace -r '(.*)' 'N_ "$1"' >$tmpdir/implicit/$f
|
|
end
|
|
|
|
xgettext -j -k -kN_ -LShell --from-code=UTF-8 -cDescription --no-wrap -o messages.pot $tmpdir/{ex,im}plicit/share/*/*.fish
|
|
|
|
rm -r $tmpdir
|