1 # these are generally in order from most specific to least,
2 # since first rule that fires wins.
3 
4 include fileaddr
5 
6 # declarations of ports without rules
7 plumb to seemail
8 plumb to showmail
9 
10 # cheap http/gif,jpeg,ps,pdf renderer
11 type is text
12 data matches '(https?|ftp|file|gopher|mailto|news|nntp|telnet|wais|prospero)://[a-zA-Z0-9_@\-]+([.:][a-zA-Z0-9_@\-]+)*/?[a-zA-Z0-9_?,%#~&/\-+=]+([:.][a-zA-Z0-9_?,%#~&/\-+=]+)*\.(jpe?g|JPE?G|gif|GIF|ps|PS|pdf|PDF)'
13 plumb start rc -c 'hget '$0' | page -w'
14 
15 # doc and rtf files go to wdoc2txt
16 type is text
17 data matches '[a-zA-Z¡-￿0-9_\-./]+'
18 data matches '([a-zA-Z¡-￿0-9_\-./]+)\.(doc|rtf)'
19 arg isfile	$0
20 plumb to msword
21 plumb start wdoc2txt $file
22 
23 # start rule for microsoft word documents without .doc suffix
24 type is text
25 dst is msword
26 plumb to msword
27 plumb start wdoc2txt $file
28 
29 # email addresses get a new mail window
30 type is text
31 data matches '[a-zA-Z0-9_+.\-]+@[a-zA-Z0-9_+.\-]*'
32 plumb to sendmail
33 plumb start window rc -c '''echo % mail '''$0'; mail '$0
34 
35 # image files go to page
36 type is text
37 data matches '[a-zA-Z¡-￿0-9_\-./]+'
38 data matches '([a-zA-Z¡-￿0-9_\-./]+)\.(jpe?g|JPE?G|gif|GIF|tiff?|TIFF?|ppm|bit)'
39 arg isfile	$0
40 plumb to image
41 plumb client page -wi
42 
43 # postscript/pdf/dvi go to page but not over the a plumb port
44 # the port is here for reference but is unused
45 type is text
46 data matches '[a-zA-Z¡-￿0-9_\-./]+'
47 data matches '([a-zA-Z¡-￿0-9_\-./]+)\.(ps|PS|eps|EPS|pdf|PDF|dvi|DVI)'
48 arg isfile	$0
49 plumb to postscript
50 plumb start page -w $file
51 
52 # existing files, possibly tagged by line number, go to editor
53 type is text
54 data matches '([.a-zA-Z¡-￿0-9_/\-]*[a-zA-Z¡-￿0-9_/\-])('$addr')?'
55 arg isfile	$1
56 data set	$file
57 attr add	addr=$3
58 plumb to edit
59 plumb start /usr/local/plan9/bin/B $file:$3
60 # plumb client window $editor
61 
62 # .h files are looked up in /sys/include and passed to edit
63 type is text
64 data matches '([a-zA-Z¡-￿0-9]+\.h)('$addr')?'
65 arg isfile	/sys/include/$1
66 data set	$file
67 attr add	addr=$3
68 plumb to edit
69 plumb start /usr/local/plan9/bin/B $file:$3
70 # plumb client window $editor
71 
72 # .m files are looked up in /sys/module and passed to edit
73 type is text
74 data matches '([a-zA-Z¡-￿0-9]+\.m)('$addr')?'
75 arg isfile	/sys/module/$1
76 data set	$file
77 attr add	addr=$3
78 plumb to edit
79 plumb start /usr/local/plan9/bin/B $file:$3
80 # plumb client window $editor
81 
82 # faces -> new mail window for message
83 type	is	text
84 data	matches	'[a-zA-Z¡-￿0-9_\-./]+'
85 data	matches	'/mail/fs/[a-zA-Z¡-￿0-9/]+/[0-9]+'
86 plumb	to	showmail
87 plumb	start	window -r 4 120 750 600 upas/nedmail -s $0
88 
89 # man index entries are synthesized
90 type is text
91 data matches '([a-zA-Z¡-￿0-9_\-./]+)\(([1-8])\)'
92 plumb start rc -c 'man '$2' '$1' >[2=1] | plumb -i -d edit -a ''action=showdata filename=/man/'$1'('$2')'''
93 
94 # start rule for images without known suffixes
95 dst is image
96 plumb to image
97 plumb client page -wi
98 
99 # start rule for postscript without known suffixes
100 dst is postscript
101 arg isfile $data
102 plumb start page -w $data
103 
104 type	is	text
105 data	matches	'Local (.*)'
106 plumb	to	none
107 plumb	start	rc -c $1