view bin/normXML @ 0:2aa53823fb21

new repo
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Sat, 06 Jun 2026 10:19:04 +0100
parents
children
line wrap: on
line source

#!/bin/sh
if [ "$1" = "-w" ]
 then
  shift
  rxp -c ASCII -o 1 "$@" | sed '/0/s/ISO-646/utf-8/;s/&#9;/         /g;s/> *&#10; *</>\
</g;s/&#10;/ /g' | tr -s ' ' ' ' | sed '/></s@<\([_.a-zA-Z][^ >]*\)\([^>]*\)></\1>@<\1\2/>@g;s/> *</>\
</g'
 else
  rxp -d "$@"
fi