adding XQuery 3.0 support

Author: kirkhess

xbin/saxon3.xqy

@@ -0,0 +1,138 @@
+xquery version "3.0";
+
+(:
+:   Module Name: MARC/XML BIB 2 BIBFRAME RDF using Saxon
+:
+:   Module Version: 1.0
+:
+:   Date: 2012 December 03
+:
+:   Copyright: Public Domain
+:
+:   Proprietary XQuery Extensions Used: saxon (Saxon)
+:
+:   Xquery Specification: January 2007
+:
+:   Module Overview:     Transforms MARC/XML Bibliographic records
+:       to RDF conforming to the BIBFRAME model.  Outputs RDF/XML,
+:       N-triples, or JSON.
+:
+:)
+
+(:~
+:   Transforms MARC/XML Bibliographic records
+:   to RDF conforming to the BIBFRAME model.  Outputs RDF/XML,
+:   N-triples, or JSON.
+:
+:  adding holdings capability; allow <marcxml:collection> with multiple records,some holdings, related to bibs on 004
+
+:   @author Kevin Ford (kefo@loc.gov)
+:   @since December 17, 2014
+:   @version 1.0
+:)
+
+(: IMPORTED MODULES :)
+import module namespace marcbib2bibframe = "info:lc/id-modules/marcbib2bibframe#" at "../modules/module.MARCXMLBIB-2-BIBFRAME.xqy";
+import module namespace rdfxml2nt = "info:lc/id-modules/rdfxml2nt#" at "../modules/module.RDFXML-2-Ntriples.xqy";
+import module namespace rdfxml2json = "info:lc/id-modules/rdfxml2json#" at "../modules/module.RDFXML-2-JSON.xqy";
+import module namespace bfRDFXML2exhibitJSON = "info:lc/bf-modules/bfRDFXML2exhibitJSON#" at "../modules/module.RDFXML-2-ExhibitJSON.xqy";
+import module namespace RDFXMLnested2flat = "info:lc/bf-modules/RDFXMLnested2flat#" at "../modules/module.RDFXMLnested-2-flat.xqy";
+
+(: NAMESPACES :)
+
+declare namespace marcxml       = "http://www.loc.gov/MARC21/slim";
+declare namespace rdf           = "http://www.w3.org/1999/02/22-rdf-syntax-ns#";
+declare namespace rdfs          = "http://www.w3.org/2000/01/rdf-schema#";
+
+declare namespace bf            = "http://bibframe.org/vocab/";
+declare namespace madsrdf       = "http://www.loc.gov/mads/rdf/v1#";
+declare namespace relators      = "http://id.loc.gov/vocabulary/relators/";
+declare namespace identifiers   = "http://id.loc.gov/vocabulary/identifiers/";
+declare namespace notes         = "http://id.loc.gov/vocabulary/notes/";
+declare namespace saxon         = "http://saxon.sf.net/";
+declare namespace mods         = "http://www.loc.gov/mods/v3";
+declare option saxon:output "indent=yes";
+
+(:~
+:   This variable is for the base uri for your Authorites/Concepts.
+:   It is the base URI for the rdf:about attribute.
+:   
+:)
+declare variable $baseuri as xs:string external :="""http://example.org/""";
+
+(:~
+:   This variable determines whether bnodes should identify resources instead of 
+:   http URIs, except for the "main" Work derived from each MARC record.  At this time, 
+:   the "main" Work must be identified by HTTP URI (using the $baseuri variable
+:   above).
+:   
+:)
+declare variable $usebnodes as xs:string external := """false""";
+
+(:~
+:   This variable is for the MARCXML location - externally defined.
+:)
+declare variable $marcxmluri as xs:string external := """NONE""";
+
+(:~
+:   This variable is for desired serialzation.  Expected values are: rdfxml (default), ntriples, json
+:)
+declare variable $serialization as xs:string external := """rdfxml""";
+
+let $marcxml := 
+    if ($marcxmluri ne "NONE") then
+        fn:doc($marcxmluri)//marcxml:record
+    else      
+        (://marcxml:record  ??? :)
+        ()
+(:let $mods:= fn:doc($marcxmluri)//mods:mods:)
+
+let $usebnodes:= if ($usebnodes="") then "false" else $usebnodes
+
+let $resources :=
+    (:for $r in $marcxml:)
+    ( for $r in $marcxml[@type="Bibliographic" or fn:not(@type)]
+
+            let $controlnum := xs:string($r/marcxml:controlfield[@tag eq "001"][1])
+            let $holds:=
+                for $hold in $marcxml[fn:string(marcxml:controlfield[@tag="004"])=$controlnum]
+                    return $hold
+        
+            let $httpuri := fn:concat($baseuri , $controlnum)
+            let $recordset:= element marcxml:collection{$r,$holds}
+            let $bibframe :=  marcbib2bibframe:marcbib2bibframe($recordset,$httpuri)
+            return $bibframe/child::node()[fn:name()]
+      (:      ,
+      for $r in $mods     
+            let $controlnum := xs:string($r//mods:recordIdentifier[1])
+            let $httpuri := fn:concat($baseuri , $controlnum)
+             return   marcbib2bibframe:modsbib2bibframe(element mods:collection{$r}):)
+      )
+let $rdfxml-raw := 
+        element rdf:RDF {
+            $resources
+        }
+        
+let $rdfxml := 
+    if ( $serialization ne "rdfxml-raw" ) then
+        RDFXMLnested2flat:RDFXMLnested2flat($rdfxml-raw, $baseuri, $usebnodes)
+    else
+        $rdfxml-raw 
+        
+let $response :=  
+    if ($serialization eq "ntriples") then 
+        rdfxml2nt:rdfxml2ntriples($rdfxml)
+    else if ($serialization eq "json") then 
+        rdfxml2json:rdfxml2json($rdfxml)
+    else if ($serialization eq "exhibitJSON") then
+        bfRDFXML2exhibitJSON:bfRDFXML2exhibitJSON($rdfxml, $baseuri)
+    else
+        $rdfxml
+
+return $response
+
+
+
+
+
+