X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=pctb%2Fyppsc-ppmlookup;fp=pctb%2Fyppsc-ppmlookup;h=efb785de0962f41e54224575d72582fe01357ba9;hb=74e4e249f2c3e848592984cb193aded6a77a341d;hp=0000000000000000000000000000000000000000;hpb=2aaae8ee04d0a6a8ab85751ceb67f222d259eba8;p=ypp-sc-tools.db-test.git

diff --git a/pctb/yppsc-ppmlookup b/pctb/yppsc-ppmlookup
new file mode 100755
index 0000000..efb785d
--- /dev/null
+++ b/pctb/yppsc-ppmlookup
@@ -0,0 +1,18 @@
+#!/bin/sh
+set -ex
+
+needle=$(pnmnoraw)
+
+exec 3<database.ppm
+
+while true; do
+	read <&3 title
+	if [ x"$title" = x. ]; then
+		exit 0
+	fi
+	straw=$(pnmnoraw <&3)
+	if [ x"$straw" = x"$needle" ]; then
+		printf "%s\n" "$title"
+		exit 0
+	fi
+done