#!/usr/bin/perl -w use lib "tools"; use lib "../tools"; use File::Basename; use RDQL; my $db = "dawgtest"; my $using = " USING rs FOR ". " mf FOR ". " qt FOR ". " dt FOR "; my $rdql = new RDQL(database => $db); $rdql->set("max_comp", 100000); if (@ARGV == 0) { die "Usage: $0 [--include-data] ...\n"; } $date = `date -I`; chomp $date; my %done; $contents = ""; $body = ""; @manifests = (); while ($file = shift) { if ($file eq "--include-data") { $include_data = 1; next; } $file =~ s/\/+/\//g; next if $done{$file}; $done{$file} = 1; $datadir = dirname($file); #$xmlfile = $file; #$xmlfile =~ s(data/)(data-xml/); #$xmlfile =~ s(.n3$)(.rdf); #push(@manifests, "
  • $file [RDF/XML version]
    • "); push(@manifests, "
  • $file
    • "); $cmd = "tstore_import --database=$db -m test: -f $file"; print STDERR "reading $file\n"; $out = `$cmd 2>&1`; if ($out) { print "$cmd: $out"; next; } $cmd = "tstore_rebuild_taxonomy --database=$db"; system($cmd); my $rows = $rdql->query(<, ?list) $using EOQ ); for $row (@{$rows}) { %cols = %{$row}; &printEntry($cols{'?list'}); } } $manifests = join("", @manifests); $dollar = '$'; print < DAWG Testcases

    DAWG Testcases

    Document Editor
    Steve Harris – IAM, University of Southampton
    Version:
    \$Revision: 1.23 $dollar

    Copyright © 2004 W3C® (MIT, ERCIM, Keio), All Rights Reserved. W3C liability, trademark, and document use rules apply.

    Abstract. This document lists a selection of queries that have been used in the discussions of the RDF Data Access Working Group.

    Last updated $date

    Source files

    This document is automatically built from the manifest files. Relevant files are:

    Schema and documentation
    Manifests
      $manifests
    Source archives
    EOB print "
    \n"; print "

    Contents

    \n"; print "
    \n"; print $contents; print "
    \n"; print "
    \n"; print $body; print < EOB sub printEntry { local($uri) = @_; my $listq = $rdql->query(<, ?first) ($uri, , ?rest) EOQ ); $row = @{$listq}[0]; if (!$row) { return; } %cols = %{$row}; $this = $cols{'?first'}; $rest = $cols{'?rest'}; my $rows = $rdql->query(<') { $name .= " [negative]" } $name = &escape($name); $body .= "\n

    $name

    \n"; $contents .= "
    $name
    \n"; } else { $body .= "

    unknown test

    \n"; } if ($data{'approval'}) { $aval = &valof($data{'approval'}); $aval =~ s/.*?#//; $body .= "
    $aval"; if ($data{'approvedBy'}) { my $ab = &valof($data{'approvedBy'}); $body .= ' by '.$ab."
    \n"; $contents .= "
    $aval
    \n"; } else { $body .= "\n"; $contents .= "
    $aval
    \n"; } } if ($data{'comment'}) { $body .= "

    ".valof($data{'comment'})."

    \n"; $contents .= "

    ".valof($data{'comment'})."

    \n"; } if ($data{'action'}) { $quri = valof($data{'action'}); my $qq = $rdql->query(<, , ?query) $using EOQ ); my $first = 1; for $row (@{$qq}) { %cols = %{$row}; my $dq = $rdql->query(<, , ?data) $using EOQ ); $datafn = $dq->[0]{'?data'}; if ($datafn) { if ($first) { $body .= "

    Data

    \n

    \n"; $first = 0; } $datafn = &valof($datafn); $datafn =~ s/file:/$datadir\//; $datafn =~ s/test:/$datadir\//; $datafn =~ s/\/+/\//g; $body .= " $datafn
    \n"; if ($include_data) { $body .= "

    \n"; $body .= "
    "; open(D, $datafn) || die "cannot open '$datafn' for printing: $!"; @d = ; close D; map {$_ = &escape($_)} @d; map {s/\s*$/\n/} @d; eval {$d[@d-1] =~ s/\s+$//;}; if ($@) {my $lineNo = @d-1; warn "$datafn:$lineNo $@\n";} $body .= join("", @d); $body .= "
    \n"; $body .= "

    \n"; } } } if (!$first) { $body .= "

    \n"; } $body .= "

    Query

    \n"; $query = &valof($cols{'?query'}); $query =~ s/file:/$datadir\//; $query =~ s/test:/$datadir\//; $query =~ s/\/+/\//g; $body .= " $query
    \n"; $body .= "
    "; if (open(Q, $query)) { @q = ; close Q; map {$_ = &escape($_)} @q; map {s/\s*$/\n/} @q; eval {$q[@q-1] =~ s/\s+$//;}; if ($@) {warn "$query: $@\n";} $body .= join("", @q); } else { $body .= "cannot open '$query' for printing: $!"; warn "cannot open '$query' for printing: $!\n"; } $body .= "
    \n"; } if ($data{'result'}) { $body .= "

    Results

    \n"; $fn = valof($data{'result'}); $fn =~ s/file:/$datadir\//; $fn =~ s/test:/$datadir\//; &printRes($fn); } &printEntry($rest) if $rest; } sub printRes { local @files = @_; while ($file = shift @files) { $file =~ s/\/+/\//g; $cmd = "tstore_import --database=$db -m test:res -f $file"; eval {$out = `$cmd 2>&1`; if ($out) { warn "$cmd: $out"; } }; print STDERR "reading ".$file."\n"; $cmd = "tstore_rebuild_taxonomy --database=$db"; system($cmd); my $rows = $rdql->query(<, ) $using EOQ ); $body .= "

    $file

    \n"; for $row (@{$rows}) { %cols = %{$row}; &printSet($cols{'?sol'}); } } } sub printSet { local($uri) = @_; my @resvar = (); my $rows = $rdql->query(<, ?var) $using EOQ ); $body .= " \n"; $body .= " \n"; $body .= " "; for $row (@{$rows}) { %cols = %{$row}; $var = &valof($cols{'?var'}); $body .= ""; push @resvar, $var; } $body .= "\n"; my %resrow; $rows = $rdql->query(<, ?binding) (?binding, , ?var) (?binding, , ?val) $using EOQ ); my $rr; my @order; for $row (@{$rows}) { my %cols = %{$row}; my $sol = $cols{'?sol'}; my $var = $cols{'?var'}; my $val = $cols{'?val'}; if ($resrow{$sol}) { $rr = $resrow{$sol}; } else { $rr = {}; $resrow{$sol} = $rr; } $rr->{valof($var)} = $val; if (!grep(/^$sol$/, @order)) { push(@order, $sol); } } for $k (@order) { $body .= " "; $rr = $resrow{$k}; for $var (@resvar) { if ($rr->{$var}) { $body .= ""; } else { #$body .= ""; $body .= ""; } } $body .= "\n"; } $body .= " \n"; $body .= "
    ".valof($var)."
    ".escape($rr->{$var})."NULL
    \n"; } sub valof { local ($v) = @_; $v =~ s/^<(.*)>$/$1/; $v =~ s/^"(.*)"$/$1/; return $v; } sub escape { local ($v) = @_; $v =~ s/&/\&/g; $v =~ s//\>/g; return $v; }