Blame test/shaping/record-test.sh

Packit Service 5bcba8
#!/bin/bash
Packit Service 5bcba8
Packit Service 5bcba8
dir=`mktemp --directory`
Packit Service 5bcba8
Packit Service 5bcba8
hb_shape=$1
Packit Service 5bcba8
shift
Packit Service 5bcba8
fontfile=$1
Packit Service 5bcba8
if test "x${fontfile:0:1}" == 'x-'; then
Packit Service 5bcba8
	echo "Specify font file before other options." >&2
Packit Service 5bcba8
	exit 1
Packit Service 5bcba8
fi
Packit Service 5bcba8
shift
Packit Service 5bcba8
if ! echo "$hb_shape" | grep -q 'hb-shape'; then
Packit Service 5bcba8
	echo "Specify hb-shape (not hb-view, etc)." >&2
Packit Service 5bcba8
	exit 1
Packit Service 5bcba8
fi
Packit Service 5bcba8
options=
Packit Service 5bcba8
have_text=false
Packit Service 5bcba8
for arg in "$@"; do
Packit Service 5bcba8
	if test "x${arg:0:1}" == 'x-'; then
Packit Service 5bcba8
		if echo "$arg" | grep -q ' '; then
Packit Service 5bcba8
			echo "Space in argument is not supported: '$arg'." >&2
Packit Service 5bcba8
			exit 1
Packit Service 5bcba8
		fi
Packit Service 5bcba8
		options="$options${options:+ }$arg"
Packit Service 5bcba8
		continue
Packit Service 5bcba8
	fi
Packit Service 5bcba8
	if $have_text; then
Packit Service 5bcba8
		echo "Too many arguments found...  Use '=' notation for options: '$arg'" >&2
Packit Service 5bcba8
		exit 1;
Packit Service 5bcba8
	fi
Packit Service 5bcba8
	text="$arg"
Packit Service 5bcba8
	have_text=true
Packit Service 5bcba8
done
Packit Service 5bcba8
if ! $have_text; then
Packit Service 5bcba8
	text=`cat`
Packit Service 5bcba8
fi
Packit Service 5bcba8
unicodes=`echo "$text" | ./hb-unicode-decode`
Packit Service 5bcba8
glyphs=`echo "$text" | $hb_shape $options "$fontfile"`
Packit Service 5bcba8
if test $? != 0; then
Packit Service 5bcba8
	echo "hb-shape failed." >&2
Packit Service 5bcba8
	exit 2
Packit Service 5bcba8
fi
Packit Service 5bcba8
Packit Service 5bcba8
cp "$fontfile" "$dir/font.ttf"
Packit Service 5bcba8
pyftsubset \
Packit Service 5bcba8
	--glyph-names \
Packit Service 5bcba8
	--no-hinting \
Packit Service 5bcba8
	"$dir/font.ttf" \
Packit Service 5bcba8
	--text="$text"
Packit Service 5bcba8
if ! test -s "$dir/font.subset.ttf"; then
Packit Service 5bcba8
	echo "Subsetter didn't produce nonempty subset font in $dir/font.subset.ttf" >&2
Packit Service 5bcba8
	exit 2
Packit Service 5bcba8
fi
Packit Service 5bcba8
Packit Service 5bcba8
# Verify that subset font produces same glyphs!
Packit Service 5bcba8
glyphs_subset=`echo "$text" | $hb_shape $options "$dir/font.subset.ttf"`
Packit Service 5bcba8
Packit Service 5bcba8
if ! test "x$glyphs" = "x$glyphs_subset"; then
Packit Service 5bcba8
	echo "Subset font produced different glyphs!" >&2
Packit Service 5bcba8
	echo "Perhaps font doesn't have glyph names; checking visually..." >&2
Packit Service 5bcba8
	hb_view=${hb_shape/shape/view}
Packit Service 5bcba8
	echo "$text" | $hb_view $options "$dir/font.ttf" --output-format=png --output-file="$dir/orig.png"
Packit Service 5bcba8
	echo "$text" | $hb_view $options "$dir/font.subset.ttf" --output-format=png --output-file="$dir/subset.png"
Packit Service 5bcba8
	if ! cmp "$dir/orig.png" "$dir/subset.png"; then
Packit Service 5bcba8
		echo "Images differ.  Please inspect $dir/*.png." >&2
Packit Service 5bcba8
		echo "$glyphs"
Packit Service 5bcba8
		echo "$glyphs_subset"
Packit Service 5bcba8
		exit 2
Packit Service 5bcba8
	fi
Packit Service 5bcba8
	echo "Yep; all good." >&2
Packit Service 5bcba8
	rm -f "$dir/orig.png"
Packit Service 5bcba8
	rm -f "$dir/subset.png"
Packit Service 5bcba8
	glyphs=$glyphs_subset
Packit Service 5bcba8
fi
Packit Service 5bcba8
Packit Service 5bcba8
sha1sum=`sha1sum "$dir/font.subset.ttf" | cut -d' ' -f1`
Packit Service 5bcba8
subset="fonts/sha1sum/$sha1sum.ttf"
Packit Service 5bcba8
mv "$dir/font.subset.ttf" "$subset"
Packit Service 5bcba8
Packit Service 5bcba8
# There ought to be an easier way to do this, but it escapes me...
Packit Service 5bcba8
unicodes_file=`mktemp`
Packit Service 5bcba8
glyphs_file=`mktemp`
Packit Service 5bcba8
echo "$unicodes" > "$unicodes_file"
Packit Service 5bcba8
echo "$glyphs" > "$glyphs_file"
Packit Service 5bcba8
# Open the "file"s
Packit Service 5bcba8
exec 3<"$unicodes_file"
Packit Service 5bcba8
exec 4<"$glyphs_file"
Packit Service 5bcba8
while read uline <&3 && read gline <&4; do
Packit Service 5bcba8
	echo "$subset:$options:$uline:$gline"
Packit Service 5bcba8
done
Packit Service 5bcba8
Packit Service 5bcba8
Packit Service 5bcba8
rm -f "$dir/font.ttf"
Packit Service 5bcba8
rmdir "$dir"