1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
#!/bin/rc # em -- limited hypertext markup language if(~ $#* 0){ ramfs -p file=/tmp/file cat > $file } if not file=$1 hrefs=`' '{emcollect $file} for(href in $hrefs){ parts=`'= '{echo $href} url=$parts(2) for(part in $parts(3-)) url=$url^'='^$part ref$parts(1)=$url } emparse $file