list/list


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl -ps

# list -- escape code listing for troff

if (/^\.\s*l\(\s*$/ .. /^\.\s*l\)\s*$/) {
	not $E and s/^\\!// and next;
	if (/^\.\s*l\(\s*$/) {
		print "$p\n" if $p;
	} elsif (/^\.\s*l\)\s*$/) {
		print "$s\n" if $s;
	} else {
		s/\\/\\$&/g;
		s/^/\\&/g;
		s/'/\\(aq/g;
		s/\`/\\(ga/g;
	}
}