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-7 < prev    next >
Lisp/Scheme  |  1996-09-28  |  1KB  |  59 lines
  1. #! /bin/sh
  2.  
  3. trap 'rm -fr $tmpfiles' 1 2 3 15
  4.  
  5. tmpfiles="$tmpfiles xg-test7.in.C"
  6. cat <<EOF > xg-test7.in.C
  7. /* This comment will not be extracted.  */
  8. gettext ("help");
  9.  
  10. /*   XXX: But this one will.  */
  11. gettext_noop ("me");
  12.  
  13. //XXX: ..and this
  14. dcgettext ("foo", "quick", LC_MESSAGES);
  15.  
  16.   /* not not not */
  17. dgettext ("bar", "!");
  18. EOF
  19.  
  20. tmpfiles="$tmpfiles xg-test7.po"
  21. : ${XGETTEXT=xgettext}
  22. ${XGETTEXT} --omit-header --add-comments=XXX xg-test7.in.C \
  23.   -d xg-test7
  24.  
  25. tmpfiles="$tmpfiles xg-test7.ok"
  26. cat <<EOF > xg-test7.ok
  27. msgid "help"
  28. msgstr ""
  29.  
  30. #. XXX: But this one will.
  31. msgid "me"
  32. msgstr ""
  33.  
  34. #. XXX: ..and this
  35. msgid "quick"
  36. msgstr ""
  37.  
  38. msgid "!"
  39. msgstr ""
  40. EOF
  41.  
  42. : ${DIFF=diff}
  43. ${DIFF} xg-test7.ok xg-test7.po
  44. result=$?
  45.  
  46. rm -fr $tmpfiles
  47.  
  48. exit $result
  49.  
  50. # Preserve executable bits for this shell script.
  51. # Thanks to Noah Friedman for this great trick.
  52. Local Variables:
  53. Eval: (defun frobme () (set-file-modes buffer-file-name file-mode))
  54. Eval: (make-local-variable 'file-mode)
  55. Eval: (setq file-mode (file-modes (buffer-file-name)))
  56. Eval: (make-local-variable 'after-save-hook)
  57. Eval: (add-hook 'after-save-hook 'frobme)
  58. End:
  59.