# Saved by TopBraid on Sat Aug 01 15:43:26 CDT 2009
# baseURI: http://sparqlmotion.org/examples/DBPediaCallingCodesTBS3
# imports: http://topbraid.org/sparqlmotionlib

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

<http://sparqlmotion.org/examples/DBPediaCallingCodesTBS3>
      rdf:type owl:Ontology ;
      owl:imports <http://topbraid.org/sparqlmotionlib> ;
      owl:versionInfo "Created with TopBraid Composer"^^xsd:string .

:ConstructResponse
      rdf:type sml:BindLiteralVariable ;
      rdfs:label "Construct response"^^xsd:string ;
      sm:next :FindByCallingCode_module ;
      sm:outputVariable "text"^^xsd:string ;
      sml:datatype xsd:string ;
      sml:template "{?callingCode} is the calling code of {?label}."^^xsd:string .

:FindByCallingCode
      rdf:type spin:Function ;
      rdfs:comment "http://localhost:8083/tbl/actions?action=sparqlmotion&id=FindByCallingCode&callingCode=61"^^xsd:string ;
      rdfs:label "Find by calling code"^^xsd:string ;
      rdfs:subClassOf spin:Functions ;
      spin:constraint
              [ rdf:type spl:Argument ;
                spl:predicate :callingCode ;
                spl:valueType xsd:integer ;
                sm:next :GetCallingCodeFromDBPedia
              ] ;
      sm:returnModule :FindByCallingCode_module .

:FindByCallingCode_module
      rdf:type sml:ReturnText ;
      rdfs:comment "http://localhost:8083/tbl/actions?action=sparqlmotion&id=FindByCallingCode&callingCode=61"^^xsd:string ;
      rdfs:label "Find by calling code"^^xsd:string .

:GetCallingCodeFromDBPedia
      rdf:type sml:BindBySelect ;
      rdfs:label "Get country from DBPedia"^^xsd:string ;
      sm:next :ConstructResponse ;
      sml:selectQuery
              [ rdf:type sp:Select ;
                sp:from <http://dbpedia.org/sparql> ;
                sp:resultVariables (_:b1) ;
                sp:where ([ sp:object
                                    [ sp:varName "callingCode"^^xsd:string
                                    ] ;
                            sp:predicate dbp:callingCode ;
                            sp:subject _:b2
                          ] [ sp:object _:b1 ;
                            sp:predicate rdfs:label ;
                            sp:subject _:b2
                          ])
              ] .

:callingCode
      rdf:type owl:DatatypeProperty ;
      rdfs:label "calling code"^^xsd:string .

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

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