home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Geek Gadgets 1
/
ADE-1.bin
/
ade-dist
/
gettext-0.10.24-src.tgz
/
tar.out
/
fsf
/
gettext
/
checks
/
xgettext-2
< prev
next >
Wrap
Lisp/Scheme
|
1996-09-28
|
1KB
|
52 lines
#! /bin/sh
tmpfiles="xg-test2.in.c"
cat <<EOF > xg-test2.in.c
This is a test of the xgettext functionality.
/* xgettext:no-c-format */
_("extract me")
Sometimes keywords can be spread apart
xgettext:no-c-format
_ ( "what about me" )
And even further on accasion
_
(
"hello"
)
EOF
tmpfiles="$tmpfiles xg-test2.po"
: ${XGETTEXT=xgettext}
${XGETTEXT} -d xg-test2 -k_ --omit-header xg-test2.in.c
tmpfiles="$tmpfiles xg-test2.ok"
cat <<EOF > xg-test2.ok
#, no-c-format
msgid "extract me"
msgstr ""
msgid "what about me"
msgstr ""
msgid "hello"
msgstr ""
EOF
: ${DIFF=diff}
${DIFF} xg-test2.ok xg-test2.po
result=$?
rm -fr $tmpfiles
exit $result
# Preserve executable bits for this shell script.
# Thanks to Noah Friedman for this great trick.
Local Variables:
Eval: (defun frobme () (set-file-modes buffer-file-name file-mode))
Eval: (make-local-variable 'file-mode)
Eval: (setq file-mode (file-modes (buffer-file-name)))
Eval: (make-local-variable 'after-save-hook)
Eval: (add-hook 'after-save-hook 'frobme)
End: