1#!/bin/sh 2. "${srcdir=.}/init.sh"; path_prepend_ . ../src 3 4# Test Scheme support: GIMP script-fu extension _"..." 5 6cat <<EOF > xg-sc-4.scm 7(script-fu-register "script-fu-paste-as-brush" 8 _"New _Brush..." 9 _"Paste the clipboard contents into a new brush" 10 "Michael Natterer <mitch@gimp.org>" 11 "Michael Natterer" 12 "2005-09-25" 13 "" 14 SF-STRING _"Brush name" "My Brush" 15 SF-STRING _"File name" "mybrush" 16 SF-ADJUSTMENT _"Spacing" '(25 0 1000 1 1 1 0) 17) 18EOF 19 20: ${XGETTEXT=xgettext} 21${XGETTEXT} -k_ --omit-header --no-location --add-comments=TRANSLATORS: \ 22 -d xg-sc-4.tmp xg-sc-4.scm || Exit 1 23LC_ALL=C tr -d '\r' < xg-sc-4.tmp.po > xg-sc-4.po || Exit 1 24 25cat <<EOF > xg-sc-4.ok 26msgid "New _Brush..." 27msgstr "" 28 29msgid "Paste the clipboard contents into a new brush" 30msgstr "" 31 32msgid "Brush name" 33msgstr "" 34 35msgid "File name" 36msgstr "" 37 38msgid "Spacing" 39msgstr "" 40EOF 41 42: ${DIFF=diff} 43${DIFF} xg-sc-4.ok xg-sc-4.po 44result=$? 45 46exit $result 47