Staročeši

Texty pro Lehečku:

• výroba csts z vertikály:

  perl -pe 's/(<(odstavec|podnadpis)>)/$1\n<s>/' < STB_Ukazka.txt |\
  perl -pe 's:<s />:<s>:' | csts.sh > STB_Ukazka.csts

• výroba vertikály z csts:

  perl -pe 's/<MM[lt].*//' STB_Ukazka |\
  perl -pe 's/<MDl src="m">/\t/' | perl -pe 's/<MDt src="m">/ /' |\
  perl -pe 's/<[fd]>//' | perl -pe 's:<s>:<s />:' |\
  perl -pe 'undef $/; s:(<(podnadpis|odstavec)>)\n<s />:$1:g' |\
  perl -pe 'undef $/; s:</?csts>\n::g'