#ext: dtd

#procstr:
sub{my ($str,$op)=@_;
 $op=gettexopts($op) unless ref($op);
 for($str){
    s/\s*<!DOCTYPE\s+\S+\s*\[\s+//;
    s/\s*\]>\s*$/\n/;
    s/#PCDATA/text/g;
    s/CDATA/text/g;
    s/&(\w+);/...$1/g;
    s/#IMPLIED/?/g;
    s/<!ENTITY\s+(\S+)\s+"(.*?)"\s*>/...$1 = $2/sg;
    s/<!ELEMENT\s+(\S+)\s+\((.*?)\)\s*>/\\textbf{$1} → $2/sg;
    s/\s*<!ATTLIST\s+(\S+)\s+(.*?)>/ppatr($2)/seg;
    s/<!ATTRIBUTES?/#Attr:/g;
    s/(\b[A-Z]{2,}\b)/ucfirst(lc($1))/ge;
 }
 return Verbatim($str,{fontfamily=>'helvetica',commandchars=>'\\\\\{\}',%$op})
};

#perl:
sub ppatr{ my $a="\n". shift;
  $a=~ s/CDATA/text/g;
  $a=~ s/\s*#REQUIRED//g;
  $a=~ s/\s*#IMPLIED/?/g;
  $a=~ s/\n\h*(\S+)\s*/\n     . $1: /g;
  $a;
}