#! /bin/sh
+. "${srcdir=.}/init.sh"; path_prepend_ . ../src
# Test recognition of Lisp format strings.
-tmpfiles=""
-trap 'rm -fr $tmpfiles' 1 2 3 15
-
-tmpfiles="$tmpfiles f-l-1.data"
cat <<\EOF > f-l-1.data
# Valid: no argument, ( | . *)
"abc~~def"
while read comment; do
read string
n=`expr $n + 1`
- tmpfiles="$tmpfiles f-l-1-$n.in f-l-1-$n.po"
cat <<EOF > f-l-1-$n.in
(gettext ${string})
EOF
rm -f f-l-1-$n.in f-l-1-$n.po
done < f-l-1.data
-rm -fr $tmpfiles
-
exit 0