#!/bin/bash # # Ask information from a Pengines/SWISH server from the shell. # # This program allows you to download query results from a SWISH server # as CSV data. server=${SWISH_SERVER-http://localhost:3020} srctext= format=${SWISH_FORMAT-rdf} program=$(basename $0) usage() { cat << _EOM_ Usage: $program "[--server=URL] [--format=rdf|prolog]" file.pl ... projection query Where - server is by default "$server". Environment: SWISH_SERVER - format is by default "$format". Environment: SWISH_FORMAT - file.pl ... are files saved in SWISH. Zero or more files are allowed - projection is a comma-separated list of Prolog variables that define the CSV columns. - query is a Prolog goal using the variables from projection. For example $program X 'X is 1<<100' X 1267650600228229401496703205376 $program factbook.pl Code,Country 'country(Country,Code)' Code,Country af,http://www4.wiwiss.fu-berlin.de/factbook/resource/Afghanistan ax,http://www4.wiwiss.fu-berlin.de/factbook/resource/Akrotiri ... _EOM_ } done=false while [ $done = false ]; do case "$1" in --server=*) server=$(echo $1 | sed 's/.*=//') shift ;; --format=*) format=$(echo $1 | sed 's/.*=//') case "$format" in rdf|prolog) ;; *) usage exit 1 ;; esac shift ;; *.pl) script=$(echo $1 | sed 's/.*=//') srctext+=":- include('$script'). " shift ;; *) done=true ;; esac done vars="$1" query="$2" if [ -z "$vars" -o -z "$query" ]; then usage exit 1 fi curl -s \ -d ask="$query" \ -d template="$format($vars)" \ -d application="swish" \ -d src_text="$srctext" \ -d format=csv \ -d chunk=10 \ -d solutions=all \ $server/pengine/create