#!/bin/rc
rfork ne

#
# DEMO - Image handling with lilwish
#
#

EXT=(jpg gif png tif pnm ppm bmp tga yuv)
cat <<EOF

Test magic on image conversion with Wish
========================================


Before running this script, bind an image file diretory to the directory ''./i''

ie:
   bind  /lib/Backgrounds i

exec magic is then used to provide scalled version of these images on demand.

File types supported are : $EXT

Press enter to run the test

EOF
echo -n Ready? ; read
echo
i=`{ls i}
if(~ $#i 0) {
	echo No Image files found in subdirectory ./i
	exit
}

rm -f /tmp/rules.image
for(i in $EXT ) {
	echo '/img/([^/]+[.]'^$i^')$	'^$i^' -t9 '''\1''' ' >>/tmp/rules.image
	echo '/img/([0-9]+)x([0-9]+)/(.*[.]'^$i^')$	 '^$i^' -t9 '''\3''' | resize -x \1 -y \2' >>/tmp/rules.image
	echo '/(.*[.]'^$i^')#([0-9]+)x([0-9]+)$    '^$i^' -t9 '''\1''' | resize -x \2 -y \3' >>/tmp/rules.image
	echo '/(.*[.]'^$i^')#info$            ' ^ $i ^ ' -t9 '''\1''' | dd -quiet 1 -ibs 59 -count 1' >>/tmp/rules.image
}
echo '/img/(.*[.]img)#info$	dd -quiet 1 -ibs 59 -count 1  -if '''\1''' ' >>/tmp/rules.image
echo '/img/(.*[.]img)$	cat  '''\1''' ' >>/tmp/rules.image
echo '/img/([0-9]+)x([0-9]+)/(.*[.]img)$   resize -x \1 -y \2 '''\3''' ' >>/tmp/rules.image

@{cd i ; ../bin/$objtype.execfs -am . /tmp/rules.image}

echo Click Quit Button to exit

SRC=(tk tkimage idemo)
echo bin/lilwish.$objtype script/^$SRC^.lil
prompt='lilwish> ' cat script/^$SRC^.lil | bin/$objtype.wish -i