#! /bin/sh
+. "${srcdir=.}/init.sh"; path_prepend_ . ../src
# Test recognition of Tcl format strings.
-tmpfiles=""
-trap 'rm -fr $tmpfiles' 1 2 3 15
-
-tmpfiles="$tmpfiles f-t-1.data"
cat <<\EOF > f-t-1.data
# Valid: no argument
"abc%%"
while read comment; do
read string
n=`expr $n + 1`
- tmpfiles="$tmpfiles f-t-1-$n.in f-t-1-$n.po"
escape_dollars='s/\$/\\\$/g'
string=`echo "$string" | sed -e "$escape_dollars"`
cat <<EOF > f-t-1-$n.in
rm -f f-t-1-$n.in f-t-1-$n.po
done < f-t-1.data
-rm -fr $tmpfiles
-
exit 0