Exports functions for producing rdf. Fixed emission of metadata with

white spaces, by replacing with underscore. (related to LR-POR#18) (e.g. this line was being printed: "conll:mnewdoc id a conll:MetadataKey ." now it becomes: "conll:mnewdoc_id a conll:MetadataKey .")
GPPassos · Oct 4, 2017 · aaf0941 · aaf0941
1 parent caf64fd
commit aaf0941
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/packages.lisp b/packages.lisp
@@ -71,7 +71,10 @@
 	   #:sentence-equal
 
 	   #:apply-rules
-	   #:apply-rules-from-files))
+	   #:apply-rules-from-files
+
+	   #:convert-rdf
+	   #:convert-rdf-file))
 
 
 (defpackage #:conllu-prolog

diff --git a/rdf.lisp b/rdf.lisp
@@ -59,7 +59,7 @@
   (with-output-to-string (s)
     (mapcar (lambda (m)
               (format s "conll:m~a a conll:MetadataKey .~%" (string-downcase (car m)))
-              (format s "conll:m~a rdfs:label ~a .~%" (string-downcase (car m)) 
+              (format s "conll:m~a rdfs:label ~a .~%" (cl-ppcre:regex-replace-all " " (string-downcase (car m)) "_")
                       (make-literal (car m)))) metadata)
     s))