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