#! /bin/sh
. "${srcdir=.}/init.sh"; path_prepend_ . ../src

# Test of gettext facilities in the RST format.

cat <<\EOF > prog.rst
# From the rstconv program itself.
rstconv.help='rstconv [-h|--help]    Displays this help'#10+
'rstconv options        Convert rst file'#10#10+
'Options are:'#10+
'  -i file    Use specified file instead of stdin as input .rst (OPTIONAL)'#10+
'  -o file    Write output to specified file (REQUIRED)'#10+
'  -f format  Specifies the output format:'#10+
'             po    GNU gettext .po (portable) format (DEFAULT)'#10

rstconv.InvalidOption='Invalid option - '
rstconv.OptionAlreadySpecified='Option has already been specified - '
rstconv.NoOutFilename='No output filename specified'
rstconv.InvalidOutputFormat='Invalid output format -'
EOF

: ${XGETTEXT=xgettext}
${XGETTEXT} -o prog.tmp --omit-header --add-location prog.rst || Exit 1
LC_ALL=C tr -d '\r' < prog.tmp > prog.pot || Exit 1

cat <<EOF > prog.ok
#: rstconv.help
msgid ""
"rstconv [-h|--help]    Displays this help\n"
"rstconv options        Convert rst file\n"
"\n"
"Options are:\n"
"  -i file    Use specified file instead of stdin as input .rst (OPTIONAL)\n"
"  -o file    Write output to specified file (REQUIRED)\n"
"  -f format  Specifies the output format:\n"
"             po    GNU gettext .po (portable) format (DEFAULT)\n"
msgstr ""

#: rstconv.InvalidOption
msgid "Invalid option - "
msgstr ""

#: rstconv.OptionAlreadySpecified
msgid "Option has already been specified - "
msgstr ""

#: rstconv.NoOutFilename
msgid "No output filename specified"
msgstr ""

#: rstconv.InvalidOutputFormat
msgid "Invalid output format -"
msgstr ""
EOF

: ${DIFF=diff}
${DIFF} prog.ok prog.pot || Exit 1

# The output of rstconv is slightly different:
# - ModuleName:ConstName instead of ModuleName.ConstName
# - no line wrapping in fpc versions < 2.6.0
# - extra newline at the end

: ${RSTCONV=rstconv}
if (${RSTCONV} -o prog.pot -i prog.rst) >/dev/null 2>&1; then

cat <<EOF > prog.ok1
#: rstconv:help
msgid "rstconv [-h|--help]    Displays this help\nrstconv options        Convert rst file\n\nOptions are:\n  -i file    Use specified file instead of stdin as input .rst (OPTIONAL)\n  -o file    Write output to specified file (REQUIRED)\n  -f format  Specifies the output format:\n             po    GNU gettext .po (portable) format (DEFAULT)\n"
msgstr ""

#: rstconv:InvalidOption
msgid "Invalid option - "
msgstr ""

#: rstconv:OptionAlreadySpecified
msgid "Option has already been specified - "
msgstr ""

#: rstconv:NoOutFilename
msgid "No output filename specified"
msgstr ""

#: rstconv:InvalidOutputFormat
msgid "Invalid output format -"
msgstr ""

EOF

cat <<EOF > prog.ok2
#: rstconv:help
msgid ""
"rstconv [-h|--help]    Displays this help\n"
"rstconv options        Convert rst file\n"
"\n"
"Options are:\n"
"  -i file    Use specified file instead of stdin as input .rst (OPTIONAL)\n"
"  -o file    Write output to specified file (REQUIRED)\n"
"  -f format  Specifies the output format:\n"
"             po    GNU gettext .po (portable) format (DEFAULT)\n"
msgstr ""

#: rstconv:InvalidOption
msgid "Invalid option - "
msgstr ""

#: rstconv:OptionAlreadySpecified
msgid "Option has already been specified - "
msgstr ""

#: rstconv:NoOutFilename
msgid "No output filename specified"
msgstr ""

#: rstconv:InvalidOutputFormat
msgid "Invalid output format -"
msgstr ""

EOF

: ${DIFF=diff}
${DIFF} prog.ok1 prog.pot >/dev/null || ${DIFF} prog.ok2 prog.pot || Exit 1

fi

Exit 0