diff --git a/oracle-docs.perl b/oracle-docs.perl index 5d44d7b..8e85fd0 100755 --- a/oracle-docs.perl +++ b/oracle-docs.perl @@ -33,7 +33,7 @@ if ($#ARGV != 1) { - warn "usage: oracle-docs (link | xslt | xslt_html | xslt_latex | all)\n"; + warn "usage: oracle-docs (xml | xslt | xslt_html | xslt_latex | link | all)\n"; exit; } @@ -53,6 +53,8 @@ # Print the requested stuff: if ($output_type eq "link") { print generate_doc_netlink(@fields[0], @fields[2]) . "\n"; + } elsif ($output_type eq "xml") { + print generate_xml(@fields[1]) . "\n"; } elsif ($output_type eq "xslt") { print generate_xsl_metatemplate(@fields[0], @fields[1], @fields[2]) . "\n"; } elsif ($output_type eq "xslt_html") { @@ -90,14 +92,8 @@ # Some Web Site # - -# Produce XML markup for a link to a section of the documentation. -sub generate_doc_netlink { - return "" . $_[1] . ""; -} - - # Generate an XSLT meta-template for generating either an HTML or a LaTeX producing template. +# Arguments: (, , ) sub generate_xsl_metatemplate { return "" . "" . # mode=\"hyperlink-internal\">" . @@ -106,7 +102,7 @@ "" . ""; - # Nope, wrong tree: + # Nope, wrong tree here: return "" . "" . "\\href{" . $_[2] . "}" . "{" . "" . " " . $_[0] . "}" . "" . "" . "" . "" . " " . $_[0] . "" . "" . @@ -114,6 +110,17 @@ } +# Produce the actual XML markup to be used in authoring (just to provide a handy list of them all): +# Arguments: () +sub generate_xml { + return "<" . $oracle_prefix . $_[0]. "/>"; +} + +# Produce XML markup for a link to a section of the documentation (deprecated): +sub generate_doc_netlink { + return "" . $_[1] . ""; +} + # Generate an XSLT template for HTML output (deprecated): sub generate_xsl_template_for_html { return "" . $_[1] . "" . " " . $_[2] . "";