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 >
Lisp/Scheme  |  1996-09-28  |  1KB  |  52 lines

  1. #! /bin/sh
  2.  
  3. tmpfiles="xg-test2.in.c"
  4. cat <<EOF > xg-test2.in.c
  5. This is a test of the xgettext functionality.
  6. /* xgettext:no-c-format */
  7. _("extract me")
  8. Sometimes keywords can be spread apart
  9. xgettext:no-c-format
  10. _ ( "what about me" )
  11. And even further on accasion
  12. _
  13. (
  14. "hello"
  15. )
  16. EOF
  17.  
  18. tmpfiles="$tmpfiles xg-test2.po"
  19. : ${XGETTEXT=xgettext}
  20. ${XGETTEXT} -d xg-test2 -k_ --omit-header xg-test2.in.c
  21.  
  22. tmpfiles="$tmpfiles xg-test2.ok"
  23. cat <<EOF > xg-test2.ok
  24. #, no-c-format
  25. msgid "extract me"
  26. msgstr ""
  27.  
  28. msgid "what about me"
  29. msgstr ""
  30.  
  31. msgid "hello"
  32. msgstr ""
  33. EOF
  34.  
  35. : ${DIFF=diff}
  36. ${DIFF} xg-test2.ok xg-test2.po
  37. result=$?
  38.  
  39. rm -fr $tmpfiles
  40.  
  41. exit $result
  42.  
  43. # Preserve executable bits for this shell script.
  44. # Thanks to Noah Friedman for this great trick.
  45. Local Variables:
  46. Eval: (defun frobme () (set-file-modes buffer-file-name file-mode))
  47. Eval: (make-local-variable 'file-mode)
  48. Eval: (setq file-mode (file-modes (buffer-file-name)))
  49. Eval: (make-local-variable 'after-save-hook)
  50. Eval: (add-hook 'after-save-hook 'frobme)
  51. End:
  52.