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