Dear Gitlab users, due to maintenance reasons, Gitlab will not be available on Thursday 30.09.2021 from 5:00 pm to approximately 5:30 pm.

Commit b2e44299 authored by mrodzis's avatar mrodzis 🌎
Browse files

docs: update docs

parent 221c295a
...@@ -2,7 +2,7 @@ xquery version "3.1"; ...@@ -2,7 +2,7 @@ xquery version "3.1";
(:~ (:~
: This module is responsible for getting an XML version of the abbreviations : This module is responsible for getting an XML version of the abbreviations
: index which can be converted to TeX. This XML version is appended to : index which can be converted to TeX. The output XML version is appended to
: fontane-full.xml during the creation of the intermediate format in etTransfo.xqm. : fontane-full.xml during the creation of the intermediate format in etTransfo.xqm.
: :
: @author Michelle Weidling : @author Michelle Weidling
...@@ -14,13 +14,12 @@ module namespace abbrev-index="http://fontane-nb.dariah.eu/abbrev-index"; ...@@ -14,13 +14,12 @@ module namespace abbrev-index="http://fontane-nb.dariah.eu/abbrev-index";
import module namespace config="http://textgrid.de/ns/SADE/config" at "../../config/config.xqm"; import module namespace config="http://textgrid.de/ns/SADE/config" at "../../config/config.xqm";
declare namespace map = "http://www.w3.org/2005/xpath-functions/map";
declare namespace tei="http://www.tei-c.org/ns/1.0"; declare namespace tei="http://www.tei-c.org/ns/1.0";
declare namespace xhtml="http://www.w3.org/1999/xhtml"; declare namespace xhtml="http://www.w3.org/1999/xhtml";
declare function abbrev-index:main() as element(tei:div) { declare function abbrev-index:main() as element(tei:div) {
let $docs-coll := collection("/db/sade-projects/textgrid/data/xml/doku/") let $docs-coll := collection($config:data-root || "/doku/")
let $file := $docs-coll[matches(base-uri(.), "verzeichnis_der_abkuerzungen")]/* let $file := $docs-coll[matches(base-uri(.), "verzeichnis_der_abkuerzungen")]/*
let $transformed := let $transformed :=
abbrev-index:transform($file) abbrev-index:transform($file)
......
...@@ -7,6 +7,8 @@ xquery version "3.1"; ...@@ -7,6 +7,8 @@ xquery version "3.1";
: It creates all the single HTML files for each notebook as well as a complete : It creates all the single HTML files for each notebook as well as a complete
: intermediate format TEI/XML that is used for the print output. : intermediate format TEI/XML that is used for the print output.
: :
: This module is used in production and is called by tgconnect.
:
: @author Michelle Weidling : @author Michelle Weidling
: @version 1.0 : @version 1.0
:) :)
...@@ -39,7 +41,7 @@ declare variable $etTransfo:coll := "/db/apps/SADE/modules/fontane/edited-text/" ...@@ -39,7 +41,7 @@ declare variable $etTransfo:coll := "/db/apps/SADE/modules/fontane/edited-text/"
(:~ (:~
: The main function : The main function. It is called by tgconnect.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @return An XHTML page for each notebook in /db/sade-projects/textgrid/data/print/xhtml : @return An XHTML page for each notebook in /db/sade-projects/textgrid/data/print/xhtml
...@@ -55,21 +57,24 @@ declare function etTransfo:complete() { ...@@ -55,21 +57,24 @@ declare function etTransfo:complete() {
try { try {
etTransfo:create-print-tei() etTransfo:create-print-tei()
} catch * { } catch * {
error(QName("error", "ETTRANSFO02"), "An error occured while creating the whole TEI base for print.") error(QName("error", "ETTRANSFO02"), "An error occurred while creating the whole TEI base for print.")
}, },
etTransfo:tidy-logs(), etTransfo:tidy-logs(),
try { try {
etTransfo:report-errors() etTransfo:report-errors()
} catch * { } catch * {
error(QName("error", "ETTRANSFO15"), "An error occured while reporting errors.") error(QName("error", "ETTRANSFO15"), "An error occurred while reporting errors.")
} }
}; };
(:~ (:~
: A function to trigger the creation of the edited text for a single notebook. : A function to trigger the creation of the edited text for a single notebook.
: Mainly used for parallel creation of the notebooks. : Mainly used for parallel creation of the notebooks but can also be used for
: debugging.
: :
: @param $uri The notebook's URI, e.g. "16b00" :) : @param $uri The notebook's URI, e.g. "16b00"
:)
declare function etTransfo:transform-single-nb($uri as xs:string) as xs:string* { declare function etTransfo:transform-single-nb($uri as xs:string) as xs:string* {
let $assure-dir-available := etTransfo:assure-coll-available("print") let $assure-dir-available := etTransfo:assure-coll-available("print")
let $assure-dir-available := etTransfo:assure-coll-available("log") let $assure-dir-available := etTransfo:assure-coll-available("log")
...@@ -86,17 +91,23 @@ declare function etTransfo:transform-single-nb($uri as xs:string) as xs:string* ...@@ -86,17 +91,23 @@ declare function etTransfo:transform-single-nb($uri as xs:string) as xs:string*
} }
return return
(try { (
etTransfo:transform-tei($updated-notebook, $log) try {
} catch * { etTransfo:transform-tei($updated-notebook, $log)
etTransfo:add-log-entry($log, "ETTRANSFO08: Couldn't transform TEI. ") } catch * {
}, etTransfo:add-log-entry($log, "ETTRANSFO08: Couldn't transform TEI.")
etTransfo:tidy-logs()) },
etTransfo:tidy-logs()
)
}; };
(:~ (:~
: Resolves all XIncludes in a given case file and copies all notebooks belonging to a case into one file. : Resolves all XIncludes in a given case file and copies all notebooks belonging
: to a case into one XML file.
:
: This is mainly used to be able to serialize one case at a time which has been
: a requirement of the scholars.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @param $showcase The filename of a showcase, e.g. "12345.xml" : @param $showcase The filename of a showcase, e.g. "12345.xml"
...@@ -124,7 +135,7 @@ declare function etTransfo:create-case($showcase as xs:string) as xs:string { ...@@ -124,7 +135,7 @@ declare function etTransfo:create-case($showcase as xs:string) as xs:string {
let $uri := $xi/@href/string() let $uri := $xi/@href/string()
let $tei-referred-to := let $tei-referred-to :=
try { try {
doc("/db/sade-projects/textgrid/data/xml/data/" || $uri || ".xml")/tei:TEI doc($config:data-root || "/data/" || $uri || ".xml")/tei:TEI
} catch * { } catch * {
etTransfo:add-log-entry($log, "ETTRANSFO04: Couldn't find the node tei:TEI of " || $uri || ".") etTransfo:add-log-entry($log, "ETTRANSFO04: Couldn't find the node tei:TEI of " || $uri || ".")
} }
...@@ -133,7 +144,7 @@ declare function etTransfo:create-case($showcase as xs:string) as xs:string { ...@@ -133,7 +144,7 @@ declare function etTransfo:create-case($showcase as xs:string) as xs:string {
attribute id {$uri}, attribute id {$uri},
$tei-referred-to/@*, $tei-referred-to/@*,
$tei-referred-to/* $tei-referred-to/*
} }
return update replace $xi with $updated-notebook return update replace $xi with $updated-notebook
return return
...@@ -142,14 +153,14 @@ declare function etTransfo:create-case($showcase as xs:string) as xs:string { ...@@ -142,14 +153,14 @@ declare function etTransfo:create-case($showcase as xs:string) as xs:string {
(:~ (:~
: Gets all notebooks of a showcase in-memory. : Returns all notebooks of a showcase
: :
: @author Michelle Weidling : @author Michelle Weidling
: @param $showcase The filename of a showcase, e.g. "12345.xml" : @param $showcase The filename of a showcase, e.g. "12345.xml"
: @return All notebooks of a showcase in-memory, i.e. a sequence of tei:TEI : @return All notebooks of a showcase in-memory, i.e. a sequence of tei:TEI
:) :)
declare function etTransfo:get-teis($showcase as xs:string) as element(tei:TEI)* { declare function etTransfo:get-teis($showcase as xs:string) as element(tei:TEI)* {
let $doc := doc("/db/sade-projects/textgrid/data/xml/data/" || $showcase) let $doc := doc($config:data-root || "/data/" || $showcase)
let $summary-file-name := $doc//tei:title[1] => replace(" ", "-") || ".xml" let $summary-file-name := $doc//tei:title[1] => replace(" ", "-") || ".xml"
let $log := doc($etTransfo:coll || "logs/" || $doc//tei:title[1] => replace(" ", "-") || "-log.xml") let $log := doc($etTransfo:coll || "logs/" || $doc//tei:title[1] => replace(" ", "-") || "-log.xml")
return return
...@@ -187,7 +198,11 @@ declare function etTransfo:create-htmls($showcase as xs:string) as xs:string* { ...@@ -187,7 +198,11 @@ declare function etTransfo:create-htmls($showcase as xs:string) as xs:string* {
: Handles the transformation to the intermediate format and the XHTML : Handles the transformation to the intermediate format and the XHTML
: representation. : representation.
: :
: The whole transformation is a five step process in order to keep different
: steps apart semantically and logically.
:
: @param $tei The current notebook as element(tei:TEI) : @param $tei The current notebook as element(tei:TEI)
: @param $log The absolute path of the log file belonging to the current notebook
:) :)
declare function etTransfo:transform-tei($tei as element(tei:TEI), $log as xs:string) { declare function etTransfo:transform-tei($tei as element(tei:TEI), $log as xs:string) {
let $sorted := let $sorted :=
...@@ -233,11 +248,14 @@ declare function etTransfo:transform-tei($tei as element(tei:TEI), $log as xs:st ...@@ -233,11 +248,14 @@ declare function etTransfo:transform-tei($tei as element(tei:TEI), $log as xs:st
(:~ (:~
: Assembles the intermediate format version of each notebook and copies them into one file called "fontane-full.xml". : Assembles the intermediate format version of each notebook and copies it into one file.
: Furthermore, additional data needed for the print is appended. : Furthermore, additional data needed for the print is appended.
: :
: The resulting file is mainly needed for serializing the print.
: Attention: In case you change the file name, update the PERL script in the print repo as well.
:
: @author Michelle Weidling : @author Michelle Weidling
: @return A string indicating the location where the full TEI/XML of the edition was stored to. : @return A string indicating the location where the full TEI/XML of the edition was stored to, i.e. "/db/sade-projects/textgrid/data/xml/print/xml/fontane-full.xml"
:) :)
declare function etTransfo:create-print-tei() as xs:string { declare function etTransfo:create-print-tei() as xs:string {
let $xmls := etTransfo:get-all-xmls() let $xmls := etTransfo:get-all-xmls()
...@@ -248,30 +266,31 @@ declare function etTransfo:create-print-tei() as xs:string { ...@@ -248,30 +266,31 @@ declare function etTransfo:create-print-tei() as xs:string {
try { try {
etTransfo:get-literature() etTransfo:get-literature()
} catch * { } catch * {
etTransfo:add-log-entry($log, "ETTRANSFO06: An error occured while creating the bibliography.") etTransfo:add-log-entry($log, "ETTRANSFO06: An error occurred while creating the bibliography.")
}, },
try { try {
abbrev-index:main() abbrev-index:main()
} catch * { } catch * {
etTransfo:add-log-entry($log, "ETTRANSFO07: An error occured while creating the index of abbreviations.") etTransfo:add-log-entry($log, "ETTRANSFO07: An error occurred while creating the index of abbreviations.")
}, },
try { try {
etTransfo:create-overall-toc() etTransfo:create-overall-toc()
} catch * { } catch * {
etTransfo:add-log-entry($log, "ETTRANSFO10: An error occured while creating the overall TOC..") etTransfo:add-log-entry($log, "ETTRANSFO10: An error occurred while creating the overall TOC..")
} }
} }
return return
xmldb:store($config:data-root || "/print/xml/", "fontane-full.xml", $complete-print-file) xmldb:store($config:data-root || "/print/xml/", "fontane-full.xml", $complete-print-file)
}; };
(:~ (:~
: An auxiliary function. Returns all final intermediate format TEI/XML files. : An auxiliary function. Returns all final intermediate format TEI/XML files.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @return All available final intermediate format TEI/XML files as opened documents : @return All available final intermediate format TEI/XML files as document nodes
:) :)
declare function etTransfo:get-all-xmls() as node()+ { declare function etTransfo:get-all-xmls() as node()+ {
for $res in collection($config:data-root || "/print/xml/") for $res in collection($config:data-root || "/print/xml/")
...@@ -288,7 +307,7 @@ declare function etTransfo:get-all-xmls() as node()+ { ...@@ -288,7 +307,7 @@ declare function etTransfo:get-all-xmls() as node()+ {
: bibliography. : bibliography.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @return a tei:div containing all bibliographic sections of the print : @return A tei:div containing all bibliographic sections of the print
:) :)
declare function etTransfo:get-literature() as element(tei:div) { declare function etTransfo:get-literature() as element(tei:div) {
element {QName("http://www.tei-c.org/ns/1.0", "text")} { element {QName("http://www.tei-c.org/ns/1.0", "text")} {
...@@ -311,14 +330,14 @@ declare function etTransfo:get-literature() as element(tei:div) { ...@@ -311,14 +330,14 @@ declare function etTransfo:get-literature() as element(tei:div) {
(:~ (:~
: An auxiliary function to create the tei:div elements in the bibliography. : An auxiliary function to create the tei:div elements/sections in the bibliography.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @param $identifier An identifier for a subtype of scholarly literature : @param $identifier An identifier for a sub-type of scholarly literature, e.g. "Briefausgaben"
: @return a tei:div containing all bibliographic information of the literatur's subtype : @return A tei:div containing all bibliographic information of the literature's sub-type
:) :)
declare function local:make-bib-div($identifier as xs:string) as element(tei:div) { declare function local:make-bib-div($identifier as xs:string) as element(tei:div) {
element tei:div { element {QName("http://www.tei-c.org/ns/1.0", "div")} {
attribute n {$identifier}, attribute n {$identifier},
etTransfo:make-bib-entries($identifier) etTransfo:make-bib-entries($identifier)
} }
...@@ -327,17 +346,18 @@ declare function local:make-bib-div($identifier as xs:string) as element(tei:div ...@@ -327,17 +346,18 @@ declare function local:make-bib-div($identifier as xs:string) as element(tei:div
(:~ (:~
: Creates a div containing all the scholarly literature ("Forschungsliteratur") : Creates a tei:div containing all the scholarly literature ("Forschungsliteratur")
: of a kind that's listed in the respective index. Examples for this are : of a kind that's listed in the respective index. Examples for this are
: "Allgemeine Nachschlagewerke" and "Werkausgaben" : "Allgemeine Nachschlagewerke" and "Werkausgaben"
: :
: @author Michelle Weidling : @author Michelle Weidling
: @param $type The type of a tei:listBibl, e.g. "Forschungsliteratur" : @param $type The type of a tei:listBibl, e.g. "Forschungsliteratur"
: @return a tei:div containing the scribal abbreviation as well as the full : @return A tei:div containing the scribal abbreviation as well as the full
: bibliographic reference : bibliographic reference
:) :)
declare function etTransfo:make-bib-entries($type as xs:string) as element(tei:div)* { declare function etTransfo:make-bib-entries($type as xs:string) as element(tei:div)* {
for $entry in doc("/db/sade-projects/textgrid/data/xml/data/25547.xml")//tei:listBibl[@type = $type]//tei:bibl (: 25547.xml is the file that contains all bibliographical information :)
for $entry in doc($config:data-root || "/data/25547.xml")//tei:listBibl[@type = $type]//tei:bibl
let $abbr := let $abbr :=
if($entry/tei:abbr) then if($entry/tei:abbr) then
$entry/tei:abbr $entry/tei:abbr
...@@ -347,14 +367,14 @@ declare function etTransfo:make-bib-entries($type as xs:string) as element(tei:d ...@@ -347,14 +367,14 @@ declare function etTransfo:make-bib-entries($type as xs:string) as element(tei:d
let $bib-no := count($entry/ancestor::tei:bibl) let $bib-no := count($entry/ancestor::tei:bibl)
return return
element tei:div { element {QName("http://www.tei-c.org/ns/1.0", "div")} {
attribute type {"entry"}, attribute type {"entry"},
element tei:seg { element {QName("http://www.tei-c.org/ns/1.0", "seg")} {
attribute type {"abbr"}, attribute type {"abbr"},
$abbr $abbr
}, },
if($full-ref) then if($full-ref) then
element tei:seg { element {QName("http://www.tei-c.org/ns/1.0", "seg")} {
attribute type {"full"}, attribute type {"full"},
$full-ref $full-ref
} }
...@@ -366,19 +386,21 @@ declare function etTransfo:make-bib-entries($type as xs:string) as element(tei:d ...@@ -366,19 +386,21 @@ declare function etTransfo:make-bib-entries($type as xs:string) as element(tei:d
let $same-as-loc := $referenced-entry/ancestor::tei:listBibl[1]/@type/string() let $same-as-loc := $referenced-entry/ancestor::tei:listBibl[1]/@type/string()
return return
(element tei:seg { (
attribute type {"same-as"}, element {QName("http://www.tei-c.org/ns/1.0", "seg")} {
$same-as attribute type {"same-as"},
}, $same-as
element tei:seg { },
attribute type {"same-as-loc"}, element {QName("http://www.tei-c.org/ns/1.0", "seg")} {
$same-as-loc attribute type {"same-as-loc"},
}) $same-as-loc
}
)
else else
(), (),
if($bib-no gt 0) then if($bib-no gt 0) then
element tei:seg { element {QName("http://www.tei-c.org/ns/1.0", "seg")} {
attribute type {"sub-entry"}, attribute type {"sub-entry"},
$bib-no $bib-no
} }
...@@ -406,7 +428,7 @@ declare function etTransfo:create-log($uri as xs:string) as xs:string { ...@@ -406,7 +428,7 @@ declare function etTransfo:create-log($uri as xs:string) as xs:string {
: Makes sure a requested collection is available. : Makes sure a requested collection is available.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @param $flag a string indicating the target collection : @param $flag A string indicating the target collection
: @return The location of the log collection, "/db/apps/sade/modules/fontane/edited-text/logs/" : @return The location of the log collection, "/db/apps/sade/modules/fontane/edited-text/logs/"
:) :)
declare function etTransfo:assure-coll-available($flag as xs:string) { declare function etTransfo:assure-coll-available($flag as xs:string) {
...@@ -432,19 +454,21 @@ declare function etTransfo:assure-coll-available($flag as xs:string) { ...@@ -432,19 +454,21 @@ declare function etTransfo:assure-coll-available($flag as xs:string) {
: Adds a log entry to a given log file. : Adds a log entry to a given log file.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @param $log-file The path to the log file, e.g. "/db/apps/sade/modules/fontane/edited-text/logs/12345-log.xml" : @param $log-file The path to the log file, e.g. "/db/apps/sade/modules/fontane/edited-text/logs/12345-log.xml"
: @param $message The message of the log entry : @param $message The message of the log entry
: @return The location of the log collection, "/db/apps/sade/modules/fontane/edited-text/logs/" : @return The location of the log collection, "/db/apps/sade/modules/fontane/edited-text/logs/"
:) :)
declare function etTransfo:add-log-entry($log-file as xs:string, declare function etTransfo:add-log-entry($log-file as xs:string,
$message as xs:string) as empty-sequence() { $message as xs:string) as empty-sequence() {
let $entry := <LogEntry timestamp="{util:system-time()}">{$message}</LogEntry> let $entry := <LogEntry timestamp="{util:system-time()}">{$message}</LogEntry>
return update insert $entry into doc($log-file)/* return
update insert $entry into doc($log-file)/*
}; };
(:~ (:~
: Removes all log files that don't contain any information. : Removes all log files that don't contain any information.
:
: @author Michelle Weidling : @author Michelle Weidling
:) :)
declare function etTransfo:tidy-logs() as item()* { declare function etTransfo:tidy-logs() as item()* {
...@@ -458,7 +482,8 @@ declare function etTransfo:tidy-logs() as item()* { ...@@ -458,7 +482,8 @@ declare function etTransfo:tidy-logs() as item()* {
}; };
(:~ (:~
: Prints all errors found to stdout. : Prints all errors found during the transformation to stdout.
:
: @author Michelle Weidling : @author Michelle Weidling
:) :)
declare function etTransfo:report-errors() as item()* { declare function etTransfo:report-errors() as item()* {
...@@ -482,43 +507,45 @@ declare function etTransfo:report-errors() as item()* { ...@@ -482,43 +507,45 @@ declare function etTransfo:report-errors() as item()* {
(:~ (:~
: creates the overall TOC by collection information from all Überblickskommentare. : Creates the overall TOC by collection information from all "Überblickskommentare".
: this info is needed for a separate kind of index in the book. : This info is needed for a separate kind of index in the book.
: :
: TODO: fine tuning : This feature is still in development and has to be extended to work with all
: notebooks, not just E1.
: :
: @author Michelle Weidling:) : @author Michelle Weidling
:)
declare function etTransfo:create-overall-toc() as element(tei:div) { declare function etTransfo:create-overall-toc() as element(tei:div) {
let $nbs := collection($config:data-root || "/data") let $nbs := collection($config:data-root || "/data")
let $items := collection($config:data-root || "/data")//tei:TEI[descendant::tei:title = "Notizbuch E1"]/tei:teiHeader//tei:msContents/tei:ab/tei:list[@type="editorial"]/tei:item let $items := $nbs//tei:TEI[descendant::tei:title = "Notizbuch E1"]/tei:teiHeader//tei:msContents/tei:ab/tei:list[@type="editorial"]/tei:item
let $sortPattern := "^\W+" let $sortPattern := "^\W+"
return element tei:div { return element {QName("http://www.tei-c.org/ns/1.0", "div")} {
attribute type {"overall-toc"}, attribute type {"overall-toc"},
let $segs := let $segs :=
for $doc in $nbs for $doc in $nbs
return return
let $nb-name := $doc//tei:fileDesc/tei:titleStmt/tei:title[1]/substring-after(., " ") let $nb-name := $doc//tei:fileDesc/tei:titleStmt/tei:title[1]/substring-after(., " ")
return return
for $item in $doc//tei:msContents/tei:ab/tei:list[@type="editorial"]//tei:item return for $item in $doc//tei:msContents/tei:ab/tei:list[@type="editorial"]//tei:item return
let $first-ref := $item//tei:ref[@type = "first"]/@target/string() let $first-ref := $item//tei:ref[@type = "first"]/@target/string()
let $last-ref := $item//tei:ref[@type = "last"]/@target/string() let $last-ref := $item//tei:ref[@type = "last"]/@target/string()
let $refs := let $refs :=
for $ref in ($first-ref, $last-ref) return for $ref in ($first-ref, $last-ref) return
let $tokens := tokenize($ref, " ") let $tokens := tokenize($ref, " ")
return $tokens[2] return $tokens[2]
return return
element tei:seg { element {QName("http://www.tei-c.org/ns/1.0", "seg")} {
attribute type {$nb-name}, attribute type {$nb-name},
attribute source { attribute source {
let $string := for $ref in $refs return let $string := for $ref in $refs return
substring-after($ref, "@xml:id='") substring-after($ref, "@xml:id='")
=> substring-before("']") => substring-before("']")
return return
string-join($string, " ") string-join($string, " ")
}, },
normalize-space(functx:substring-before-last($item, ")") || ")") normalize-space(functx:substring-before-last($item, ")") || ")")
} }
return for $seg in $segs return for $seg in $segs
order by replace($seg, $sortPattern, "") => substring(1, 1) => upper-case() order by replace($seg, $sortPattern, "") => substring(1, 1) => upper-case()
return $seg return $seg
......
...@@ -2,7 +2,7 @@ xquery version "3.1"; ...@@ -2,7 +2,7 @@ xquery version "3.1";
(:~ (:~
: This module is responsible for retrieving all relevant information from the : This module is responsible for retrieving all relevant information from the
: different indicies in order to create a tei:index in the simpler TEI. : different indices in order to create a tei:index in the simpler TEI.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @version 0.1 : @version 0.1
...@@ -164,7 +164,7 @@ declare variable $index-info:lit-map := ...@@ -164,7 +164,7 @@ declare variable $index-info:lit-map :=
: @param $index-type the index type ("psn", "eve", ...) : @param $index-type the index type ("psn", "eve", ...)
: @param $term the current term, e.g. plc:Lueneburg : @param $term the current term, e.g. plc:Lueneburg
: @param $info the specific information to be retrieved, e.g. "regular-name" : @param $info the specific information to be retrieved, e.g. "regular-name"
: @return the information asked : @return The information asked
:) :)
declare function index-info:get-info-about($index-type as xs:string, declare function index-info:get-info-about($index-type as xs:string,
$term as xs:string, $info as xs:string) as xs:string* { $term as xs:string, $info as xs:string) as xs:string* {
......
xquery version "3.1"; xquery version "3.1";
(:~ (:~
:
: This modules serves for setting a tei:ptr right before each element that : This modules serves for setting a tei:ptr right before each element that
: is referenced by an editorial commentary (tei:note[@type = 'editorial']). : is referenced by an editorial commentary (tei:note[@type = 'editorial']).
: :
......
xquery version "3.1"; xquery version "3.1";
(:~ (:~
: This modules runs the first and second process that transforms the Fontane : This modules runs the whole process that transforms the Fontane
: TEI subset into a simpler TEI encoding. : TEI subset into a "simpler" TEI encoding.
:
: This is used for development and debugging purposes only.
: :
: @author Michelle Weidling : @author Michelle Weidling
: @version 1.0 : @version 1.0
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment