view cpack/dml/lib/mazurka_p2r.pl @ 0:718306e29690 tip

commiting public release

/* Part of DML (Digital Music Laboratory)
	Copyright 2014-2015 Samer Abdallah, University of London
	 
	This program is free software; you can redistribute it and/or
	modify it under the terms of the GNU General Public License
	as published by the Free Software Foundation; either version 2
	of the License, or (at your option) any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public
	License along with this library; if not, write to the Free Software
	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
*/

:- module(mazurka_p2r, []).

/** <module> Access to beets database
 */


% :- use_module(library(odbc)).
:- use_module(library(csv)).
:- use_module(library(musicbrainz)).
:- use_module(library(semweb/rdf_db)).
:- use_module(library(termutils)).
:- use_module(library(rdfutils)).
:- use_module(library(stringutils)).
:- use_module(library(dcg/basics)).
:- use_module(entailment(p2r)).
:- use_module(library(memo)).

:- set_prolog_flag(double_quotes,string).

:- rdf_register_prefix(mazurka,'http://dml.org/mazurka/').

:- setting(csv_database,string,"~/lib/mazurka/mazurka-discography.txt","Location of Mazurka tab-separated-values").
:- setting(audio_root,ground,nothing,"Location of Mazurka audio files").

% :- rdf_meta convert(+,+,o).
% convert(string,X,literal(X)).
% convert(atom,X,literal(Y)) :- atom_string(Y,X).
% convert(number,X,literal(Y)) :- number_string(Y,X).
% convert(date(E),X,literal(Date)) :- string_to_date(E,X,Date).

rdf(mazurka:title, rdfs:subPropertyOf, dc:title) <== true.
rdf(mazurka:enc(Id), Prop, Obj) <==
   setting(csv_database,Pattern),
   expand_file_name(Pattern,[DBFile]),
   csv_to_rdf(DBFile,Id,Prop,Obj).

csv_to_rdf(DBFile,Id,Prop,Obj) :-
   once(csv_read_file_row(DBFile,Header,[convert(false),separator(0'\t), line(1)])),
   functor(Header,row,NumCols),
   functor(Row,row,NumCols),
   row_field(Header-Row,pid,Id),
   csv_read_file_row(DBFile,Row,[convert(false),separator(0'\t), line(L)]), L>1,
   status("Importing mazurka: ~w",[Id]),
   row_triple(Header-Row,Prop,Obj).
   % rdf_global_object(Obj1,Obj).

:- rdf_meta row_triple(+,r,o).
row_triple(_,mazurka:composer,literal('Chopin')).
row_triple(HR,mazurka:pid,literal(PID)) :- row_field(HR,pid,PID).
row_triple(HR,Prop,Val) :-
   row_field(HR,opus,OpusNum),
   row_field(HR,key,Key),
   atomic_list_concat([Opus,Number],'.',OpusNum),
   work_triple(Key,Opus,Number,Prop,Val).

row_triple(HR,mazurka:performer,literal(Perf)) :- row_field(HR,performer,Perf).
row_triple(HR,mazurka:recording_date,literal(type(T,Year))) :- row_field(HR,year,Year), rdf_global_id(xsd:gYear,T).
row_triple(HR,mazurka:duration,literal(type(T,X))) :- row_field(HR,seconds,A), atom_number(A,X), rdf_global_id(xsd:int,T).
row_triple(HR,mazurka:label,literal(Label)) :- row_field(HR,label,Label).

:- rdf_meta work_triple(+,+,+,r,o).
work_triple(K,O,N,mazurka:title,literal(T)) :- format(atom(T),"Mazurka in ~w, op.~w, no.~w",[K,O,N]).
work_triple(K,_,_,mazurka:key,literal(K)).
work_triple(_,O,_,mazurka:opus,literal(O)).
work_triple(_,_,N,mazurka:number,literal(N)).
work_triple(_,O,N,mazurka:score,Score) :- 
   format(atom(Score),"kern:/classical/chopin/mazurka/mazurka~|~`0t~w~2+-~w.krn",[O,N]).
   

row_field(Header-Row,Name,Value) :- arg(N,Header,Name), arg(N,Row,Value).
% null_value("-").

:- public import/0.
import :- assert_all(mazurka_p2r).

:- public audio_file/3.
audio_file(URI,Path,just(Fmt)) :-
   rdf(URI,mazurka:pid,literal(PID)),
   rdf(URI,mazurka:opus,literal(Opus)),
   rdf(URI,mazurka:number,literal(Number)),
   setting(audio_root,just(RootPatt)),
   expand_file_name(RootPatt,[Root]),
   member(Fmt-Ext,[aac-mp4,wav-wav]),
   format(atom(Path),"~w/mazurka~|~`0t~w~2+-~w/pid~w.~w",[Root,Opus,Number,PID,Ext]),
   exists_file(Path).

% audio_link(Type,URI,URL) :-
%    member(Type,[mp3,flac]),
%    rdf(URI,charm:file_name,literal(Filename)),
%    (  sub_atom(Filename,_,_,_,'£')
%    -> atom_codes(Filename,C1),
%       fix_url(C1,C2),
%       atom_codes(Filename2,C2)
%    ;  Filename2=Filename
%    ),
%    format(atom(URL),'http://charm.cchcdn.net/audio/~w/~w.~w',[Type,Filename2,Type]).