view bin/newSS @ 4:1641fdbc1809 default tip

sic
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Tue, 18 Aug 2026 15:39:39 +0100
parents 2aa53823fb21
children
line wrap: on
line source

#!/bin/sh
if [ "$1" = "-x" ]
 then
  op="
<xsl:output method=\"xml\" doctype-public=\"-//W3C//DTD XHTML 1.0 Strict//EN\"
           doctype-system=\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"/>"
fi
d=/home/ht/lib/xml/
p=$(pwd)/
while :
 do
  dd=${d#/*}
  pp=${p#/*}
  x=${dd%%/*}
  y=${pp%%/*}
  if [ "$x" != "$y" ]
   then
    path=$(echo $pp | sed 's/[^/][^/]*/../g')$dd
    break
  fi
  if [ "$x" == "" ]
   then
     path=
     break
  fi
  d=${dd#*/}
  p=${pp#*/}
done
cat << EOF
<?xml version='1.0'?>
<!DOCTYPE doc SYSTEM "${path}xsl.dtd" >
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">$op
 <xsl:template match="/">
 </xsl:template>
</xsl:stylesheet>
EOF