#
# Template lib for the TM2TM examples.
#

%prefix op <http://psi.ontopedia.net/>
%prefix wp <http://en.wikipedia.org/wiki/>

def born($person, $date, $place)
  ##
  # Creates born_in and born_on assocs
  #
  #   person:   The person
  #   date:     A topic which represents the date when the person was born
  #   place:    The birth place
  #
  op:born_in(op:Person: $person, op:Place: $place)
  op:born_on(op:Person: $person, op:Date: $date)
end


def composed($composer, $song)
  ##
  # Creates a composed_by assoc
  #
  #   composer:   The composer
  #   song:       The song
  #
  op:composed_by(op:Composer: $composer, op:Work_of_art: $song)
end


def composed($composer, $song, $title)
  ##
  # Creates a composed_by assoc and assigns the provided 
  # title to the song and creates an type-instance relationship
  # between the song and wikipedia/Song.
  #
  #   composer:   The composer
  #   song:       The song
  #   title:      Title of the song
  #
  composed($composer, $song)
  
  $song isa wp:Song; - $title.
end