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 f65cd0d5 2005-12-29 devnull 		9 file < "$1" | sed 's/stdin: //' | tr A-Z a-z
 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 f65cd0d5 2005-12-29 devnull 		*pdf*)
 47 acb19305 2005-01-11 devnull 			psv $1
 48 acb19305 2005-01-11 devnull 			;;
 49 f65cd0d5 2005-12-29 devnull 		*ps*)
 50 acb19305 2005-01-11 devnull 			psv $1
 51 acb19305 2005-01-11 devnull 			;;
 52 5dde0bba 2005-10-19 devnull 		*postscript*)
 53 5dde0bba 2005-10-19 devnull 			psv $1
 54 5dde0bba 2005-10-19 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 5dde0bba 2005-10-19 devnull 	type=`xfile $tmp`
 68 5dde0bba 2005-10-19 devnull 	case "$type" in
 69 72208f38 2005-07-18 devnull 	*troff*)
 70 72208f38 2005-07-18 devnull 		mv $tmp $tmp.tr
 71 72208f38 2005-07-18 devnull 		tmp=$tmp.tr
 72 72208f38 2005-07-18 devnull 		;;
 73 f65cd0d5 2005-12-29 devnull 	*pdf*)
 74 acb19305 2005-01-11 devnull 		mv $tmp $tmp.pdf
 75 acb19305 2005-01-11 devnull 		tmp=$tmp.pdf
 76 5645c4af 2005-01-11 devnull 		;;
 77 f65cd0d5 2005-12-29 devnull 	*gif*)
 78 acb19305 2005-01-11 devnull 		mv $tmp $tmp.gif
 79 acb19305 2005-01-11 devnull 		tmp=$tmp.gif
 80 5645c4af 2005-01-11 devnull 		;;
 81 f65cd0d5 2005-12-29 devnull 	*jpg*)
 82 acb19305 2005-01-11 devnull 		mv $tmp $tmp.jpg
 83 acb19305 2005-01-11 devnull 		tmp=$tmp.jpg
 84 acb19305 2005-01-11 devnull 		;;
 85 f65cd0d5 2005-12-29 devnull 	*jpeg*)
 86 acb19305 2005-01-11 devnull 		mv $tmp $tmp.jpg
 87 acb19305 2005-01-11 devnull 		tmp=$tmp.jpg
 88 acb19305 2005-01-11 devnull 		;;
 89 f65cd0d5 2005-12-29 devnull 	*png*)
 90 acb19305 2005-01-11 devnull 		mv $tmp $tmp.png
 91 acb19305 2005-01-11 devnull 		tmp=$tmp.png
 92 acb19305 2005-01-11 devnull 		;;
 93 f65cd0d5 2005-12-29 devnull 	*postscript*)
 94 f65cd0d5 2005-12-29 devnull 		mv $tmp $tmp.ps
 95 f65cd0d5 2005-12-29 devnull 		tmp=$tmp.ps
 96 f65cd0d5 2005-12-29 devnull 		;;
 97 f65cd0d5 2005-12-29 devnull 	*postscript*)
 98 f65cd0d5 2005-12-29 devnull 		mv $tmp $tmp.ps
 99 f65cd0d5 2005-12-29 devnull 		tmp=$tmp.ps
100 f65cd0d5 2005-12-29 devnull 		;;
101 f65cd0d5 2005-12-29 devnull 	*ps*)
102 f65cd0d5 2005-12-29 devnull 		mv $tmp $tmp.ps
103 f65cd0d5 2005-12-29 devnull 		tmp=$tmp.ps
104 f65cd0d5 2005-12-29 devnull 		;;
105 acb19305 2005-01-11 devnull 	*)
106 5dde0bba 2005-10-19 devnull 		echo 1>&2 page: unrecognized file type on standard input: $type
107 acb19305 2005-01-11 devnull 		rm -f $tmp
108 acb19305 2005-01-11 devnull 		exit 1
109 5645c4af 2005-01-11 devnull 	esac
110 acb19305 2005-01-11 devnull 	main $tmp
111 acb19305 2005-01-11 devnull 	if [ `uname` != Darwin ]
112 acb19305 2005-01-11 devnull 	then
113 acb19305 2005-01-11 devnull 		rm -f $tmp
114 acb19305 2005-01-11 devnull 	fi
115 5645c4af 2005-01-11 devnull 	;;
116 acb19305 2005-01-11 devnull *)
117 acb19305 2005-01-11 devnull 	main "$@"
118 acb19305 2005-01-11 devnull 	;;
119 5645c4af 2005-01-11 devnull esac
120 5645c4af 2005-01-11 devnull