1 5645c4af 2005-01-11 devnull #!/bin/sh
  2 5645c4af 2005-01-11 devnull 
  3 acb19305 2005-01-11 devnull # BUG - Should clean up $tmp but how to know when viewer is done?
  4 acb19305 2005-01-11 devnull 
  5 5645c4af 2005-01-11 devnull preview()
  6 5645c4af 2005-01-11 devnull {
  7 5645c4af 2005-01-11 devnull 	list=""
  8 5645c4af 2005-01-11 devnull 	pwd=`pwd`
  9 5645c4af 2005-01-11 devnull 	for i in "$@"
 10 5645c4af 2005-01-11 devnull 	do
 11 5645c4af 2005-01-11 devnull 		if [ -n "$list" ]
 12 5645c4af 2005-01-11 devnull 		then
 13 5645c4af 2005-01-11 devnull 			list="$list, "
 14 5645c4af 2005-01-11 devnull 		fi
 15 5645c4af 2005-01-11 devnull 		n=`cleanname -d $pwd $i | sed 's!/!:!g'`
 16 5645c4af 2005-01-11 devnull 		list="$list\"$n\""
 17 5645c4af 2005-01-11 devnull 	done
 18 5645c4af 2005-01-11 devnull 	# echo run $list
 19 5645c4af 2005-01-11 devnull 	echo 'tell application "Preview"
 20 5645c4af 2005-01-11 devnull 		activate
 21 5645c4af 2005-01-11 devnull 		open {'"$list"'}
 22 5645c4af 2005-01-11 devnull 	end tell' | osascript
 23 5645c4af 2005-01-11 devnull }
 24 5645c4af 2005-01-11 devnull 
 25 72208f38 2005-07-18 devnull xfile()
 26 72208f38 2005-07-18 devnull {
 27 72208f38 2005-07-18 devnull 	if sed 1q "$1" | 9 grep '^x T '
 28 72208f38 2005-07-18 devnull 	then
 29 72208f38 2005-07-18 devnull 		echo 'troff intermediate output'
 30 72208f38 2005-07-18 devnull 	else
 31 72208f38 2005-07-18 devnull 		file - < "$1"
 32 72208f38 2005-07-18 devnull 	fi
 33 72208f38 2005-07-18 devnull }
 34 72208f38 2005-07-18 devnull 
 35 acb19305 2005-01-11 devnull main()
 36 acb19305 2005-01-11 devnull {
 37 acb19305 2005-01-11 devnull 	case `uname` in
 38 acb19305 2005-01-11 devnull 	Darwin)
 39 acb19305 2005-01-11 devnull 		preview "$@"
 40 acb19305 2005-01-11 devnull 		;;
 41 acb19305 2005-01-11 devnull 	*)
 42 72208f38 2005-07-18 devnull 		case "`xfile $1`" in
 43 72208f38 2005-07-18 devnull 		*troff*)
 44 72208f38 2005-07-18 devnull 			tr2post "$1" | psfonts | page
 45 72208f38 2005-07-18 devnull 			;;
 46 acb19305 2005-01-11 devnull 		*PDF*)
 47 acb19305 2005-01-11 devnull 			psv $1
 48 acb19305 2005-01-11 devnull 			;;
 49 acb19305 2005-01-11 devnull 		*PS*)
 50 acb19305 2005-01-11 devnull 			psv $1
 51 acb19305 2005-01-11 devnull 			;;
 52 acb19305 2005-01-11 devnull 		*PostScript*)
 53 acb19305 2005-01-11 devnull 			psv $1
 54 acb19305 2005-01-11 devnull 			;;
 55 acb19305 2005-01-11 devnull 		*)
 56 acb19305 2005-01-11 devnull 			qiv "$@"
 57 acb19305 2005-01-11 devnull 			;;
 58 acb19305 2005-01-11 devnull 		esac
 59 acb19305 2005-01-11 devnull 		;;
 60 acb19305 2005-01-11 devnull 	esac
 61 acb19305 2005-01-11 devnull }
 62 acb19305 2005-01-11 devnull 	
 63 5645c4af 2005-01-11 devnull case $# in
 64 5645c4af 2005-01-11 devnull 0)
 65 acb19305 2005-01-11 devnull 	tmp=/var/tmp/page.$$.tmp
 66 acb19305 2005-01-11 devnull 	cat >$tmp
 67 72208f38 2005-07-18 devnull 	case "`xfile $tmp`" in
 68 72208f38 2005-07-18 devnull 	*troff*)
 69 72208f38 2005-07-18 devnull 		mv $tmp $tmp.tr
 70 72208f38 2005-07-18 devnull 		tmp=$tmp.tr
 71 72208f38 2005-07-18 devnull 		;;
 72 5645c4af 2005-01-11 devnull 	*PDF*)
 73 acb19305 2005-01-11 devnull 		mv $tmp $tmp.pdf
 74 acb19305 2005-01-11 devnull 		tmp=$tmp.pdf
 75 5645c4af 2005-01-11 devnull 		;;
 76 5645c4af 2005-01-11 devnull 	*PS*)
 77 acb19305 2005-01-11 devnull 		mv $tmp $tmp.ps
 78 acb19305 2005-01-11 devnull 		tmp=$tmp.ps
 79 5645c4af 2005-01-11 devnull 		;;
 80 5645c4af 2005-01-11 devnull 	*PostScript*)
 81 acb19305 2005-01-11 devnull 		mv $tmp $tmp.ps
 82 acb19305 2005-01-11 devnull 		tmp=$tmp.ps
 83 5645c4af 2005-01-11 devnull 		;;
 84 acb19305 2005-01-11 devnull 	*GIF*)
 85 acb19305 2005-01-11 devnull 		mv $tmp $tmp.gif
 86 acb19305 2005-01-11 devnull 		tmp=$tmp.gif
 87 5645c4af 2005-01-11 devnull 		;;
 88 acb19305 2005-01-11 devnull 	*JPG*)
 89 acb19305 2005-01-11 devnull 		mv $tmp $tmp.jpg
 90 acb19305 2005-01-11 devnull 		tmp=$tmp.jpg
 91 acb19305 2005-01-11 devnull 		;;
 92 acb19305 2005-01-11 devnull 	*JPEG*)
 93 acb19305 2005-01-11 devnull 		mv $tmp $tmp.jpg
 94 acb19305 2005-01-11 devnull 		tmp=$tmp.jpg
 95 acb19305 2005-01-11 devnull 		;;
 96 acb19305 2005-01-11 devnull 	*PNG*)
 97 acb19305 2005-01-11 devnull 		mv $tmp $tmp.png
 98 acb19305 2005-01-11 devnull 		tmp=$tmp.png
 99 acb19305 2005-01-11 devnull 		;;
100 acb19305 2005-01-11 devnull 	*)
101 67075c36 2005-01-14 devnull 		echo 1>&2 page: unrecognized file type on standard input
102 acb19305 2005-01-11 devnull 		rm -f $tmp
103 acb19305 2005-01-11 devnull 		exit 1
104 5645c4af 2005-01-11 devnull 	esac
105 acb19305 2005-01-11 devnull 	main $tmp
106 acb19305 2005-01-11 devnull 	if [ `uname` != Darwin ]
107 acb19305 2005-01-11 devnull 	then
108 acb19305 2005-01-11 devnull 		rm -f $tmp
109 acb19305 2005-01-11 devnull 	fi
110 5645c4af 2005-01-11 devnull 	;;
111 acb19305 2005-01-11 devnull *)
112 acb19305 2005-01-11 devnull 	main "$@"
113 acb19305 2005-01-11 devnull 	;;
114 5645c4af 2005-01-11 devnull esac
115 5645c4af 2005-01-11 devnull