1 files changed, 30 insertions, 0 deletions
diff --git a/em.sh b/em.sh
new file mode 100755
index 0000000..0b4275f
--- /dev/null
+++ b/em.sh
@@ -0,0 +1,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