aboutsummaryrefslogtreecommitdiff
path: root/bin/page
blob: e38b6dd6b0b74abcc8545450f05f8c913ed8b9c2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
#!/bin/sh

# BUG - Should clean up $tmp but how to know when viewer is done?

preview()
{
	list=""
	pwd=`pwd`
	for i in "$@"
	do
		if [ -n "$list" ]
		then
			list="$list, "
		fi
		n=`cleanname -d $pwd $i | sed 's!/!:!g'`
		list="$list\"$n\""
	done
	# echo run $list
	echo 'tell application "Preview"
		activate
		open {'"$list"'}
	end tell' | osascript
}

xfile()
{
	if sed 1q "$1" | 9 grep '^x T '
	then
		echo 'troff intermediate output'
	else
		file - < "$1"
	fi
}

main()
{
	case `uname` in
	Darwin)
		preview "$@"
		;;
	*)
		case "`xfile $1`" in
		*troff*)
			tr2post "$1" | psfonts | page
			;;
		*PDF*)
			psv $1
			;;
		*PS*)
			psv $1
			;;
		*PostScript*)
			psv $1
			;;
		*)
			qiv "$@"
			;;
		esac
		;;
	esac
}
	
case $# in
0)
	tmp=/var/tmp/page.$$.tmp
	cat >$tmp
	case "`xfile $tmp`" in
	*troff*)
		mv $tmp $tmp.tr
		tmp=$tmp.tr
		;;
	*PDF*)
		mv $tmp $tmp.pdf
		tmp=$tmp.pdf
		;;
	*PS*)
		mv $tmp $tmp.ps
		tmp=$tmp.ps
		;;
	*PostScript*)
		mv $tmp $tmp.ps
		tmp=$tmp.ps
		;;
	*GIF*)
		mv $tmp $tmp.gif
		tmp=$tmp.gif
		;;
	*JPG*)
		mv $tmp $tmp.jpg
		tmp=$tmp.jpg
		;;
	*JPEG*)
		mv $tmp $tmp.jpg
		tmp=$tmp.jpg
		;;
	*PNG*)
		mv $tmp $tmp.png
		tmp=$tmp.png
		;;
	*)
		echo 1>&2 page: unrecognized file type on standard input
		rm -f $tmp
		exit 1
	esac
	main $tmp
	if [ `uname` != Darwin ]
	then
		rm -f $tmp
	fi
	;;
*)
	main "$@"
	;;
esac