em.sh


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

#!/bin/sh

# em -- limited hypertext markup language

IFS='
'

if [ $# = 0 ]; then
	file=`mktemp`
	tmp=$file
	cat > $file
else
	file=$1
fi

export file
emcollect $file |
perl -w -ne '
	chomp;
	@parts = split /=/;
	$url = $parts[1];
	$url .= "=$_" for @parts[3..$#parts];
	$ENV{"ref".$parts[0]} = $url;
	END {
		exec("emparse", $ENV{file});
		die "$!\n";
	}
'

[ -z "$tmp" ] || rm $tmp