Be less stupid with bibtotxt

1 files changed, 22 insertions, 10 deletions

diff --git a/bibtotxt.sh b/bibtotxt.sh
index 2e584b7..681ab7c 100755
--- a/bibtotxt.sh
+++ b/bibtotxt.sh
@@ -6,19 +6,31 @@ echo "Publications"
 echo "======================================================================="
 echo ""
 
-# do this with awk
-for uri in `roqet -q -e 'SELECT ?s WHERE { ?s a <http://purl.org/ontology/bibo/Article> }' -D $rdf |awk '{print $2}'|sed -e 's/^\[s=uri<//' -e 's/>]$//'`; do
+q="PREFIX dc: <http://purl.org/dc/elements/1.1/>
+PREFIX bibo: <http://purl.org/ontology/bibo/>
+SELECT ?a ?title ?artdate ?stat ?jtitle ?juri
+WHERE {
+?a a bibo:Article;
+   dc:title ?title;
+   dc:date ?artdate;
+   bibo:status ?stat;
+   dc:isPartOf ?j.
+?j dc:title ?jtitle;
+   bibo:uri ?juri.
+}"
+
+roqet -q -r csv -e "$q" -D /dev/stdin < $rdf | sed '/^Result/d' \
+| while read r; do
+	uri=`echo $r | awk -F , '{print $2}'| sed -e 's/uri(\(.*\))/\1/'`
 	reluri=`echo $uri | sed 's/.*\/\([^\/]\)/\1/'`
-	title=`roqet -q -e "SELECT ?o WHERE { <${uri}> <http://purl.org/dc/elements/1.1/title> ?o }" -D $rdf |sed -e 's/result: \[o=string("//' -e 's/")]//'`
-	artdate=`roqet -q -e "SELECT ?o WHERE { <${uri}> <http://purl.org/dc/elements/1.1/date> ?o }" -D $rdf |sed -e 's/result: \[o=string("//' -e 's/")]//'`
-	stat=`roqet -q -e "SELECT ?o WHERE { <${uri}> <http://purl.org/ontology/bibo/status> ?o }" -D $rdf |awk '{print $2}'|sed -e 's/^\[s=uri<//' -e 's/>]$//'| sed 's/.*\/\([^\/]\)/\1/'`
-	#should be done with smarter queries
-	journalurn=`roqet -q -e "SELECT ?o WHERE { <${uri}> <http://purl.org/dc/elements/1.1/isPartOf> ?o }" -D $rdf |awk '{print $2}'|sed -e 's/^\[o=uri<//' -e 's/>]$//'| sed 's/.*\/\([^\/]\)/\1/'`
-	journaltitle=`roqet -q -e "SELECT ?o WHERE { <${journalurn}> <http://purl.org/dc/elements/1.1/title> ?o }" -D $rdf |sed -e 's/result: \[o=string("//' -e 's/")]//'`
-	journaluri=`roqet -q -e "SELECT ?o WHERE { <${journalurn}> <http://purl.org/ontology/bibo/uri> ?o }" -D $rdf |sed -e 's/result: \[o=string("//' -e 's/")]//'`
+	title=`echo $r | awk -F , '{print $3}'| sed -e 's/"\(.*\)"/\1/'`
+	artdate=`echo $r | awk -F , '{print $4}'| sed -e 's/"\(.*\)"/\1/'`
+	stat=`echo $r | awk -F , '{print $5}'| sed -e 's/uri(\(.*\))/\1/' -e 's/.*\/\([^\/]\)/\1/'`
+	jtitle=`echo $r | awk -F , '{print $6}'| sed -e 's/"\(.*\)"/\1/'`
+	juri=`echo $r | awk -F , '{print $7}'| sed -e 's/"\(.*\)"/\1/'`
 
 	echo "- [${title}](${reluri})"
 	echo "  [[PDF]](${reluri}.pdf) (${artdate})"
-	echo "  *[${journaltitle}](${journaluri})*"
+	echo "  *[${jtitle}](${juri})*"
 	echo "  [${stat}]"
 done