guile-rdf

Julien LepillerThu Apr 02 14:18:41+0200 2020

fe8814c

turtle/tordf.scm

     (() "")))
 (define (parse-iri iri state)
   (pk 'iri iri)
   (match iri
     (('iri ('prefixed-name ('pname-ln ('pname-ns ns) ('pn-local suffix))))
      `(("iri" . ,(string-append (assoc-ref (parser-state-namespaces state) ns)
     (('blank-node ('blank-node-label label))
      (let* ((node
               (or (assoc-ref (parser-state-bnode-labels state) label)
                   ((parser-state-blank-node-gen state)))))
                   ((parser-state-blank-node-gen state))))
             (state
               (if (assoc-ref (parser-state-bnode-labels state) label)
                   state
                   (update-parser-state state
                     #:bnode-labels
                     (cons
                       (cons label node)
                       (parser-state-bnode-labels state))))))
        (update-parser-state state
          #:cur-object node
          #:result