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-9 < prev   
Lisp/Scheme  |  1996-09-28  |  2KB  |  98 lines
  1. #! /bin/sh
  2.  
  3. trap 'rm -fr $tmpfiles' 1 2 3 15
  4.  
  5. tmpfiles="$tmpfiles xg-test9.c"
  6. cat <<EOF > xg-test9.c
  7. int
  8. main()
  9. {
  10.   /* This is a comment which immediately before a keyword.  */
  11.   gettext ("1");
  12.  
  13.   // This
  14.   // one
  15.   // too
  16.   // although many blank lines come before the token itself.
  17.  
  18.       
  19.  
  20.  
  21.  gettext("2");
  22.  
  23.   /* this one also counts */ gettext ("3");
  24.  
  25.   gettext("4");
  26.  
  27.   /* this one is also copied */ nada
  28.   gettext ("5");
  29.  
  30.   /* I hope you do not see the following */
  31.   break;
  32.   gettext("6");
  33.  
  34.   /* An unnice
  35.      multi-line comment */ evil;
  36.   gettext("7");
  37. }
  38. EOF
  39.  
  40. tmpfiles="$tmpfiles xg-test9.po"
  41. : ${XGETTEXT=xgettext}
  42. ${XGETTEXT} --omit-header -c --c++ -d xg-test9 xg-test9.c
  43.  
  44. tmpfiles="$tmpfiles xg-test9.ok"
  45. cat <<EOF > xg-test9.ok
  46. #. This is a comment which immediately before a keyword.
  47. msgid "1"
  48. msgstr ""
  49.  
  50. #. This
  51. #. one
  52. #. too
  53. #. although many blank lines come before the token itself.
  54. msgid "2"
  55. msgstr ""
  56.  
  57. #. this one also counts
  58. msgid "3"
  59. msgstr ""
  60.  
  61. msgid "4"
  62. msgstr ""
  63.  
  64. #. this one is also copied
  65. msgid "5"
  66. msgstr ""
  67.  
  68. msgid "6"
  69. msgstr ""
  70.  
  71. #. An unnice
  72. #. multi-line comment
  73. msgid "7"
  74. msgstr ""
  75. EOF
  76.  
  77. : ${DIFF=diff}
  78. ${DIFF} xg-test9.ok xg-test9.po
  79. result=$?
  80.  
  81. rm -fr $tmpfiles
  82.  
  83. exit $result
  84.  
  85. Local Variables:
  86.  nuke-trailing-whitespace-p:nil
  87. End:
  88.  
  89. # Preserve executable bits for this shell script.
  90. # Thanks to Noah Friedman for this great trick.
  91. Local Variables:
  92. Eval: (defun frobme () (set-file-modes buffer-file-name file-mode))
  93. Eval: (make-local-variable 'file-mode)
  94. Eval: (setq file-mode (file-modes (buffer-file-name)))
  95. Eval: (make-local-variable 'after-save-hook)
  96. Eval: (add-hook 'after-save-hook 'frobme)
  97. End:
  98.