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-6 < prev    next >
Lisp/Scheme  |  1996-09-28  |  877b  |  39 lines
  1. #! /bin/sh
  2.  
  3. trap 'rm -fr $tmpfiles' 1 2 3 15
  4.  
  5. tmpfiles="$tmpfiles xg-test6.in.cc"
  6. cat <<EOF > xg-test6.in.cc
  7. main(){printf(gettext/*puke*/(/*barf*/"Hello, " "World!" "\n")); }
  8. EOF
  9.  
  10. tmpfiles="$tmpfiles xg-test6.po"
  11. : ${XGETTEXT=xgettext}
  12. ${XGETTEXT} --omit-header --add-comments xg-test6.in.cc -d xg-test6
  13.  
  14. tmpfiles="$tmpfiles xg-test6.ok"
  15. cat <<EOF > xg-test6.ok
  16. #. puke
  17. #. barf
  18. msgid "Hello, World!\n"
  19. msgstr ""
  20. EOF
  21.  
  22. : ${DIFF=diff}
  23. ${DIFF} xg-test6.ok xg-test6.po
  24. result=$?
  25.  
  26. rm -fr $tmpfiles
  27.  
  28. exit $result
  29.  
  30. # Preserve executable bits for this shell script.
  31. # Thanks to Noah Friedman for this great trick.
  32. Local Variables:
  33. Eval: (defun frobme () (set-file-modes buffer-file-name file-mode))
  34. Eval: (make-local-variable 'file-mode)
  35. Eval: (setq file-mode (file-modes (buffer-file-name)))
  36. Eval: (make-local-variable 'after-save-hook)
  37. Eval: (add-hook 'after-save-hook 'frobme)
  38. End:
  39.