# Saved by TopBraid on Tue Feb 17 14:13:29 PST 2009
# baseURI: http://tests.sparqlmotion.topbraid.org/services/TrackChangesTest
# imports: http://topbraid.org/sparqlmotionfunctions
# imports: http://topbraid.org/sparqlmotionlib
# imports: http://topbraid.org/change
# imports: http://topbraid.org/examples/kennedys

@prefix kennedys:  <http://topbraid.org/examples/kennedys#> .
@prefix sp:      <http://spinrdf.org/sp#> .
@prefix spin:    <http://spinrdf.org/spin#> .
@prefix xsd:     <http://www.w3.org/2001/XMLSchema#> .
@prefix sml:     <http://topbraid.org/sparqlmotionlib#> .
@prefix sm:      <http://topbraid.org/sparqlmotion#> .
@prefix rdfs:    <http://www.w3.org/2000/01/rdf-schema#> .
@prefix rdf:     <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
@prefix owl:     <http://www.w3.org/2002/07/owl#> .
@prefix :        <http://tests.sparqlmotion.topbraid.org/services/TrackChangesTest#> .

<http://tests.sparqlmotion.topbraid.org/services/TrackChangesTest>
      a       owl:Ontology ;
      owl:imports <http://topbraid.org/sparqlmotionlib> , <http://topbraid.org/change> , <http://topbraid.org/examples/kennedys> , <http://topbraid.org/sparqlmotionfunctions> ;
      owl:versionInfo "Created with TopBraid Composer"^^xsd:string .

:CreateNewName
      a       sml:PerformUpdate ;
      rdfs:label "Create new name"^^xsd:string ;
      sm:nodeX 186 ;
      sm:nodeY 344 ;
      sml:updateQuery """INSERT INTO <http://tb-session> {
	?subject kennedys:name ?name .
}
WHERE {
	?subject kennedys:firstName ?firstName .
	?subject kennedys:lastName ?lastName .
	LET (?name := fn:concat(?firstName, \" \", ?lastName)) .
}"""^^xsd:string .

:DeleteOldLabels
      a       sml:PerformUpdate ;
      rdfs:label "Delete old names"^^xsd:string ;
      sm:next :CreateNewName ;
      sm:nodeX 186 ;
      sm:nodeY 241 ;
      sml:updateQuery """DELETE FROM <http://tb-session> { 
	?subject kennedys:name ?oldValue 
}
WHERE {
	?subject kennedys:name ?oldValue
}"""^^xsd:string .

:ImportCurrentRDF
      a       sml:ImportCurrentRDF ;
      rdfs:label "Import current RDF"^^xsd:string ;
      sm:next :IterateOverSubjects ;
      sm:nodeX 225 ;
      sm:nodeY 7 .

:IterateOverSubjects
      a       sml:IterateOverSelect ;
      rdfs:label "Iterate over subjects"^^xsd:string ;
      sm:body :DeleteOldLabels ;
      sm:nodeX 131 ;
      sm:nodeY 116 ;
      sml:selectQuery
              [ a       sp:Select ;
                sp:distinct "true"^^xsd:boolean ;
                sp:resultVariables (_:b1) ;
                sp:where ([ a       sp:Union ;
                            sp:elements (([ sp:object kennedys:firstName ;
                                          sp:predicate rdf:predicate ;
                                          sp:subject _:b2
                                        ]) ([ sp:object kennedys:lastName ;
                                          sp:predicate rdf:predicate ;
                                          sp:subject _:b2
                                        ]))
                          ] [ sp:object _:b1 ;
                            sp:predicate rdf:subject ;
                            sp:subject _:b2
                          ])
              ] .

:TrackChanges_1
      a       sml:TrackChanges ;
      rdfs:label "Track changes"^^xsd:string ;
      sm:next :IterateOverSubjects ;
      sm:nodeX 50 ;
      sm:nodeY 8 .

_:b2  sp:varName "triple"^^xsd:string .

_:b1  sp:varName "subject"^^xsd:string .