#!/usr/bin/perl
# generates stylesheet libraries for XSL stylesheets
# usage: libgen.pl [-d] [-t] > outfile
# -d creates DocBook XSLT output (default), -t creates TEI XSLT output


# this list holds all reference types
my @types = ("ABST", "ADVS", "ART", "BILL", "BOOK", "CASE", "CHAP", "COMP", "CONF", "CTLG", "DATA", "ELEC", "GEN", "HEAR", "ICOMM", "INPR", "JFULL", "JOUR", "MAP", "MGZN", "MPCT", "MUSIC", "NEWS", "PAMP", "PAT", "PCOMM", "RPRT", "SER", "SLIDE", "SOUND", "STAT", "THES", "UNBILL", "UNPB", "VIDEO");

# the types used for in-text citations
my @intext_types = ("INTEXT", "INTEXTSQ", "AUTHORONLY", "AUTHORONLYSQ", "YEARONLY");

# this is a list of the relevant docbook elements
my @db_elements = ("volumenum", "pagenums", "issuenum", "abbrev", "abstract", "address", "city", "isbn", "issn", "biblioid", "publishername");

# a list of pseudo-elements which are in fact DocBook bibliomset or TEI seg
# elements with an appropriate attribute
my @db_pseudo_elements = ("userdef1", "userdef2", "userdef3", "userdef4", "userdef5", "typeofwork", "area", "ostype", "degree", "runningtime", "classcodeintl", "classcodeus", "senderemail", "recipientemail", "mediatype", "numvolumes", "edition", "computer", "conferencelocation", "registrynum", "classification", "section", "pamphletnum", "chapternum");

# this hash associates the elements with their styles
my %db_styles = (
		 "volumenum" => "VOLUME",
		 "pagenums" => "PAGES",
		 "issuenum" => "ISSUE",
		 "abbrev" => "REFNUMBER",
		 "abstract" => "ABSTRACT",
		 "address" => "ADDRESS",
		 "city" => "PUBPLACE",
		 "isbn" => "SERIAL",
		 "issn" => "SERIAL",
		 "biblioid" => "SERIAL",
		 "publishername" => "PUBLISHER",
		 "ulink" => "LINK0",
		 "link1" => "LINK1",
		 "link2" => "LINK2",
		 "link3" => "LINK3",
		 "link4" => "LINK4",
		 "typeofwork" => "TYPEOFWORK",
		 "area" => "AREA",
		 "ostype" => "OSTYPE",
		 "degree" => "DEGREE",
		 "runningtime" => "RUNNINGTIME",
		 "classcodeintl" => "CLASSCODEINTL",
		 "classcodeus" => "CLASSCODEUS",
		 "senderemail" => "SENDEREMAIL",
		 "recipientemail" => "RECIPIENTEMAIL",
		 "mediatype" => "MEDIATYPE",
		 "numvolumes" => "NUMVOLUMES",
		 "edition" => "EDITION",
		 "computer" => "COMPUTER",
		 "conferencelocation" => "CONFERENCELOCATION",
		 "registrynum" => "REGISTRYNUM",
		 "classification" => "CLASSIFICATION",
		 "section" => "SECTION",
		 "pamphletnum" => "PAMPHLETNUM",
		 "chapternum" => "CHAPTERNUM"
		 );

# this list holds all real elements
my @tei_elements = ("name", "abbr", "publisher", "note");

# this list holds all "elements" that are created as a seg with an attribute
my @tei_seg_elements = (@db_pseudo_elements, "pages", "volume", "issue", "issn", "isbn", "link0", "link1", "link2", "link3", "link4", "notes");

# this hash associates the elements with their styles
my %tei_styles = (
		  "volume" => "VOLUME",
		  "pages" => "PAGES",
		  "issue" => "ISSUE",
		  "name" => "ADDRESS",
		  "abbr" => "REFNUMBER",
		  "publisher" => "PUBLISHER",
		  "issn" => "SERIAL",
		  "isbn" => "SERIAL",
		  "ulink" => "URL",
		  "note" => "ABSTRACT",
		  "notes" => "NOTES",
		  "userdef1" => "USERDEF1",
		  "userdef2" => "USERDEF2",
		  "userdef3" => "USERDEF3",
		  "userdef4" => "USERDEF4",
		  "userdef5" => "USERDEF5",
		  "link0" => "LINK0",
		  "link1" => "LINK1",
		  "link2" => "LINK2",
		  "link3" => "LINK3",
		  "link4" => "LINK4",
		  "typeofwork" => "TYPEOFWORK",
		  "area" => "AREA",
		  "ostype" => "OSTYPE",
		  "degree" => "DEGREE",
		  "runningtime" => "RUNNINGTIME",
		  "classcodeintl" => "CLASSCODEINTL",
		  "classcodeus" => "CLASSCODEUS",
		  "senderemail" => "SENDEREMAIL",
		  "recipientemail" => "RECIPIENTEMAIL",
		  "mediatype" => "MEDIATYPE",
		  "numvolumes" => "NUMVOLUMES",
		  "edition" => "EDITION",
		  "computer" => "COMPUTER",
		  "conferencelocation" => "CONFERENCELOCATION",
		  "registrynum" => "REGISTRYNUM",
		  "classification" => "CLASSIFICATION",
		  "section" => "SECTION",
		  "pamphletnum" => "PAMPHLETNUM",
		  "chapternum" => "CHAPTERNUM"
		  );

# see whether we shall create a DocBook (default) or a TEI XSLT file
my $sheet = "db";

foreach $arg (@ARGV) {
    if ($arg eq "-d") {
	$sheet = "db";
    }
    elsif ($arg eq "-t") {
	$sheet = "tei";
    }
}

# DocBook output
if ($sheet eq "db") {
    print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<xsl:stylesheet xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\"\n                version=\"1.0\">\n\n  <xsl:template match=\"bibliomset\" mode=\"refdb\">\n    <xsl:apply-templates mode=\"refdb\"/>\n  </xsl:template>\n\n";

    print "<!-- this file is generated by libgen.pl. Do not edit this file directly, edit the script instead -->\n\n";

    # bibliography types for some simple elements
    print "<!-- bibliography types for some simple elements -->\n\n";

    foreach $element (@db_elements) {
	print "  <xsl:template match=\"$element\" mode=\"refdb\">\n    <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n      <xsl:choose>\n";
	foreach $type (@types) {
	    my $style = $db_styles{$element};
	    print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type$style" . "STYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
	}
	print "      </xsl:choose>\n  </xsl:template>\n\n";
    }

    # in-text types for the same elements
    print "<!-- in-text types for the same elements -->\n\n";

    foreach $element (@db_elements) {
	foreach $type (@intext_types) {
	    my $style = $db_styles{$element};
	    print "<xsl:template match=\"$element\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type$style" . "STYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
	}
    }

    # bibliography types for the bibliomset pseudo-elements
    print "<!-- bibliography types for the bibliomset pseudo-elements -->\n\n";

    foreach $element (@db_pseudo_elements) {
	print "  <xsl:template match=\"bibliomset[\@role=\'$element\']\" mode=\"refdb\">\n    <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n      <xsl:choose>\n";
	foreach $type (@types) {
	    my $style = $db_styles{$element};
	    print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type$style" . "STYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
	}
	print "      </xsl:choose>\n  </xsl:template>\n\n";
    }

    # in-text types for the same elements
    print "<!-- in-text types for the same elements -->\n\n";

    foreach $element (@db_elements) {
	foreach $type (@intext_types) {
	    my $style = $db_styles{$element};
	    print "<xsl:template match=\"bibliomset[\@role=\'$element\']\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type$style" . "STYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
	}
    }

    # in-text types for the same element
    print "<!-- in-text types for ulink -->\n\n";

    foreach $type (@intext_types) {
	my $style = $db_styles{"ulink"};
	print "<xsl:template match=\"ulink|link\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type$style" . "STYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # bibliography types for authors, editors, series editors
    print "<!-- bibliography types for authors, editors, series editors -->\n\n";

    print "<xsl:template match=\"bibliomset[\@relation=\'author\']|personname[\@role=\'author\']\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "AUTHORLISTSTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }
    print "      </xsl:choose>\n    </xsl:template>\n\n";


    print "<xsl:template match=\"bibliomset[\@relation=\'editor\']|personname[\@role=\'editor\']\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "EDITORLISTSTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }
    print "      </xsl:choose>\n    </xsl:template>\n\n";


    print "<xsl:template match=\"bibliomset[\@relation=\'seditor\']|personname[\@role=\'seditor\']\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "SEDITORLISTSTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }
    print "      </xsl:choose>\n    </xsl:template>\n\n";

    # in-text types for authors, editors, seditors
    print "<!-- in-text types for authors, editors, seditors -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"bibliomset[\@relation=\'author\']|personname[\@role=\'author\']\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "AUTHORLISTSTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    foreach $type (@intext_types) {
	print "<xsl:template match=\"bibliomset[\@relation=\'editor\']|personname[\@role=\'editor\']\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "EDITORLISTSTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    foreach $type (@intext_types) {
	print "<xsl:template match=\"bibliomset[\@relation=\'seditor\']|personname[\@role=\'seditor\']\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "SEDITORLISTSTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # name components
    print "<!-- name components -->\n\n";

    print "<xsl:template match=\"surname\" mode=\"refdb\">\n  <xsl:apply-templates mode=\"refdb\"/>\n</xsl:template>\n\n<xsl:template match=\"firstname\" mode=\"refdb\">\n  <xsl:apply-templates mode=\"refdb\"/>\n</xsl:template>\n\n<xsl:template match=\"othername\" mode=\"refdb\">\n  <xsl:apply-templates mode=\"refdb\"/>\n</xsl:template>\n\n<xsl:template match=\"lineage\" mode=\"refdb\">\n  <xsl:apply-templates mode=\"refdb\"/>\n</xsl:template>\n\n";

    # pubdates in bibliography
    print "<!-- pubdates in bibliography -->\n\n";

    print "<xsl:template match=\"pubdate\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n  <xsl:choose>\n    <xsl:when test=\"\@role=\'primary\'\">\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "PUBDATESTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }

    print "      </xsl:choose>\n    </xsl:when>\n    <xsl:when test=\"\@role=\'secondary\'\">\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "PUBDATESECSTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }

    print "      </xsl:choose>\n    </xsl:when>\n  </xsl:choose>\n</xsl:template>\n\n";

    # in-text types for pubdates
    print "<!-- in-text types for pubdates -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"pubdate\" mode=\"$type\">\n  <xsl:choose>\n    <xsl:when test=\"\@role=\'primary\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "PUBDATESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n    <xsl:when test=\"\@role=\'secondary\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "PUBDATESECSTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n  </xsl:choose>\n</xsl:template>\n\n";
    }

    # journal title in bibliography
    print "<!-- journal title in bibliography -->\n\n";
    
    print "<xsl:template match=\"bibliomset[\@relation=\'journal\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n  <xsl:choose>\n";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "JOURNALNAMESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # journal title in intext citation
    print "<!-- journal title in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"bibliomset[\@relation=\'journal\']/title\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "JOURNALNAMESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # book title in bibliography
    print "<!-- book title in bibliography -->\n\n";
    
    print "<xsl:template match=\"bibliomset[\@relation=\'book\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n  <xsl:choose>\n";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "BOOKTITLESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # book title in intext citation
    print "<!-- book title in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"bibliomset[\@relation=\'book\']/title\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "BOOKTITLESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }


    # chapter title in bibliography
    print "<!-- chapter title in bibliography -->\n\n";
    
    print "<xsl:template match=\"bibliomset[\@relation=\'chapter\' or \@relation=\'article\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n  <xsl:choose>\n";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "TITLESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # chapter title in intext citation
    print "<!-- chapter title in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"bibliomset[\@relation=\'chapter\' or \@relation=\'article\']/title\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "TITLESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # series title in bibliography
    print "<!-- series title in bibliography -->\n\n";
    
    print "<xsl:template match=\"bibliomset[\@relation=\'series\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n  <xsl:choose>\n";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "SERIESTITLESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # series title in intext citation
    print "<!-- series title in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"bibliomset[\@relation=\'series\']/title\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "SERIESTITLESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # title as author in bibliography
    # todo: bibliomset[@role='bibliography']/???/bibliomset[@relation='author']/title
    print "<!-- title as author in bibliography -->\n\n";
    
    print "<xsl:template match=\"bibliomset[\@role=\'bibliography\']/bibliomset/bibliomset[\@relation=\'author\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibliomixed/\@role\"/>\n  <xsl:choose>\n";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "AUTHORLISTALTERNATESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # title as author in intext citation
    print "<!-- title as author in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"bibliomset[\@relation=\'author\'][title]\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "AUTHORLISTALTERNATESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # folded multiple citation
    print "<!-- folded multiple citation -->\n\n";

    print "<xsl:template match=\"bibliomset[\@role=\'endtermtarget\']\">\n  <!-- do not render directly -->\n</xsl:template>\n\n</xsl:stylesheet>\n";

}

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
else { # TEI
    print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<xsl:stylesheet xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\"\n                version=\"1.0\">\n\n <xsl:template match=\"seg[\@type=\'bibliography\']\" mode=\"refdb\">\n    <xsl:apply-templates mode=\"refdb\"/>\n  </xsl:template>\n\n";

    print "<!-- this file is generated by libgen.pl. Do not edit this file directly, edit the script instead -->\n\n";

    # "elements" which are in fact seg elements with an attribute
    print "<!-- seg elements in the bibliography -->\n<xsl:template match=\"seg\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>\n    <xsl:when test=\"\@type='endtermtarget'\">\n      <!-- no direct output required -->\n    </xsl:when>\n";

    foreach $element (@tei_seg_elements) {
	my $style = $tei_styles{$element};

	print "    <xsl:when test=\"\@type=\'$element\'\">\n      <xsl:choose>\n";
	foreach $type (@types) {
	    print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "$style" . "STYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
	}

	print "      </xsl:choose>\n    </xsl:when>\n";
    }

    print "    <xsl:otherwise>\n      <xsl:apply-templates mode=\"refdb\"/>\n    </xsl:otherwise>\n  </xsl:choose>\n</xsl:template>\n\n";

    # seg elements in intext citation
    print "<!-- seg elements in intext citation -->\n\n";

    foreach $type (@intext_types) {

	print "<xsl:template match=\"seg\" mode=\"$type\">\n  <xsl:choose>\n";

	foreach $element (@tei_seg_elements) {
	    my $style = $tei_styles{$element};
	    print "    <xsl:when test=\"\@type=\'$element\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "$style" . "STYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
	}

	print "    <xsl:otherwise>\n      <xsl:apply-templates mode=\"refdb\"/>\n    </xsl:otherwise>\n  </xsl:choose>\n</xsl:template>\n\n";
    }


    # real elements in bibliographies
    print "<!-- real elements in bibliographies -->\n\n";

    foreach $element (@tei_elements) {
	my $style = $tei_styles{$element};

	print "<xsl:template match=\"$element\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>\n";

	foreach $type (@types) {
	    print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "$style" . "STYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
	}

	print "      </xsl:choose>\n</xsl:template>\n\n";
    }


    # real elements in intext citation
    print "<!-- real elements in intext citation -->\n\n";

    foreach $element (@tei_elements) {

	print "<xsl:template match=\"$element\" mode=\"refdb\">\n  <xsl:choose>\n";

	foreach $type (@intext_types) {
	    my $style = $tei_styles{$element};
	    print "    <xsl:when test=\"\@type=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "$style" . "STYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
	}

	print "    <xsl:otherwise>\n      <xsl:apply-templates mode=\"refdb\"/>\n    </xsl:otherwise>\n  </xsl:choose>\n</xsl:template>\n";
    }



    # authorlists in bibliography
    print "<!-- authorlists in bibliography -->\n\n";

    print "<xsl:template match=\"persName\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>\n    <xsl:when test=\"\@type=\'author\'\">\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "AUTHORLISTSTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }

    print "      </xsl:choose>\n    </xsl:when>\n    <xsl:when test=\"\@type=\'editor\'\">\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "EDITORLISTSTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }

    print "      </xsl:choose>\n    </xsl:when>\n    <xsl:when test=\"\@type=\'seditor\'\">\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "SEDITORLISTSTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }

    print "      </xsl:choose>\n    </xsl:when>\n  </xsl:choose>\n</xsl:template>\n\n";

    # authorlists in intext citation
    print "<!-- authorlists in intext citation -->\n\n";

    for $type (@intext_types) {
	print "<xsl:template match=\"persName\" mode=\"$type\">\n  <xsl:choose>\n    <xsl:when test=\"\@type=\'author\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "AUTHORLISTSTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n    <xsl:when test=\"\@type=\'editor\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "EDITORLISTSTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n    <xsl:when test=\"\@type=\'seditor\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "SEDITORLISTSTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n  </xsl:choose>\n</xsl:template>\n\n";
    }

    # name components
    print "<!-- name components -->\n\n<xsl:template match=\"surname\" mode=\"refdb\">\n  <xsl:apply-templates mode=\"refdb\"/>\n</xsl:template>\n\n<xsl:template match=\"foreName|forename\" mode=\"refdb\">\n  <xsl:apply-templates mode=\"refdb\"/>\n</xsl:template>\n\n<xsl:template match=\"name[\@type=\'othername\']\" mode=\"refdb\">\n  <xsl:apply-templates mode=\"refdb\"/>\n</xsl:template>\n\n<xsl:template match=\"name[\@type=\'lineage\']\" mode=\"refdb\">\n  <xsl:apply-templates mode=\"refdb\"/>\n</xsl:template>\n\n";

    # pubdates in bibliography
    print "<!-- pubdates in bibliography -->\n\n<xsl:template match=\"date\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>\n    <xsl:when test=\"\@rend=\'primary\'\">\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "PUBDATESTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }

    print "      </xsl:choose>\n    </xsl:when>\n    <xsl:when test=\"\@rend=\'secondary\'\">\n      <xsl:choose>\n";

    foreach $type (@types) {
	print "        <xsl:when test=\"\$reftype=\'$type\'\">\n          <xsl:call-template name=\"refdb-process-inline\">\n            <xsl:with-param name=\"style\" select=\"\$$type" . "PUBDATESECSTYLE\"/>\n          </xsl:call-template>\n        </xsl:when>\n";
    }

    print "      </xsl:choose>\n    </xsl:when>\n  </xsl:choose>\n</xsl:template>\n\n";

    # pubdates in intext citation
    print "<!-- pubdates in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"date\" mode=\"$type\">\n  <xsl:choose>\n    <xsl:when test=\"\@rend=\'primary\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "PUBDATESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n    <xsl:when test=\"\@rend=\'secondary\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "PUBDATESECSTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n  </xsl:choose>\n</xsl:template>\n\n";
    }

    # journal title in bibliography
    print "<!-- journal title in bibliography -->\n\n";

    print "<xsl:template match=\"seg[\@type=\'journal\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "JOURNALNAMESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # journal title in intext citation
    print "<!-- journal title in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"seg[\@type=\'journal\']/title\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "JOURNALNAMESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # book title in bibliography
    print "<!-- book title in bibliography -->\n\n";

    print "<xsl:template match=\"seg[\@type=\'book\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "BOOKTITLESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # book title in intext citation
    print "<!-- book title in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"seg[\@type=\'book\']/title\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "BOOKTITLESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # chapter title in bibliography
    print "<!-- chapter title in bibliography -->\n\n";

    print "<xsl:template match=\"seg[\@type=\'chapter\' or \@type=\'article\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "TITLESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # chapter title in intext citation
    print "<!-- chapter title in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"seg[\@type=\'chapter\' or \@type=\'article\']/title\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "TITLESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # series title in bibliography
    print "<!-- series title in bibliography -->\n\n";

    print "<xsl:template match=\"seg[\@type=\'series\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "SERIESTITLESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # series title in intext citation
    print "<!-- series title in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"seg[\@type=\'series\']/title\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "SERIESTITLESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    # title as author in bibliography
    print "<!-- title as author in bibliography -->\n\n";

    print "<xsl:template match=\"seg[\@type=\'author\']/title\" mode=\"refdb\">\n  <xsl:variable name=\"reftype\" select=\"ancestor::bibl/\@rend\"/>\n  <xsl:choose>";

    foreach $type (@types) {
	print "    <xsl:when test=\"\$reftype=\'$type\'\">\n      <xsl:call-template name=\"refdb-process-inline\">\n        <xsl:with-param name=\"style\" select=\"\$$type" . "AUTHORLISTALTERNATESTYLE\"/>\n      </xsl:call-template>\n    </xsl:when>\n";
    }

    print "  </xsl:choose>\n</xsl:template>\n\n";

    # title as author in intext citation
    print "<!-- title as author in intext citation -->\n\n";

    foreach $type (@intext_types) {
	print "<xsl:template match=\"seg[\@type=\'author\'][title]\" mode=\"$type\">\n  <xsl:call-template name=\"refdb-process-inline\">\n    <xsl:with-param name=\"style\" select=\"\$$type" . "AUTHORLISTALTERNATESTYLE\"/>\n  </xsl:call-template>\n</xsl:template>\n\n";
    }

    print "<!-- folded multiple citation -->\n\n";

    print "<xsl:template match=\"seg[\@type=\'endtermtarget\']\">\n  <!-- do not render directly -->\n</xsl:template>\n\n</xsl:stylesheet>\n";
}
