153 lines
4.1 KiB
Perl
153 lines
4.1 KiB
Perl
|
:- module( uniprot, [uniprot/0] ).
|
||
|
|
|
||
|
|
|
||
|
|
:- nl, nl, nl.
|
||
|
|
:- write( 'To get the example database used in this examples do:' ), nl.
|
||
|
|
:- write( 'wget http://stoics.org.uk/~nicos/sware/sqlite/uniprot.sqlite' ), nl.
|
||
|
|
:- nl, nl.
|
||
|
|
|
||
|
|
:- use_module( library(prosqlite) ).
|
||
|
|
|
||
|
|
/** <module> uniprot: A complete example for proSQLite.
|
||
|
|
|
||
|
|
Look at the sources for the difference predicate calls.
|
||
|
|
|
||
|
|
You need the test database from
|
||
|
|
http://stoics.org.uk/~nicos/sware/sqlite/uniprot.sqlite
|
||
|
|
|
||
|
|
The output should look like:
|
||
|
|
|
||
|
|
==
|
||
|
|
άμπελος;lib/db% swipl -f none
|
||
|
|
|
||
|
|
?- uniprot.
|
||
|
|
Running on :date(2012,10,17)
|
||
|
|
Using database at: uniprot.sqlite
|
||
|
|
|
||
|
|
table:secondary_accessions
|
||
|
|
table:identifier_mapping
|
||
|
|
|
||
|
|
secondary_accessions/secondary_accession
|
||
|
|
secondary_accessions/primary_accession
|
||
|
|
identifier_mapping/uniprot_accession
|
||
|
|
identifier_mapping/identifier_type
|
||
|
|
identifier_mapping/target_identifier
|
||
|
|
|
||
|
|
secondary_accessions:286525
|
||
|
|
identifier_mapping:3044651
|
||
|
|
|
||
|
|
secondary_accessions+286525
|
||
|
|
identifier_mapping+3044651
|
||
|
|
|
||
|
|
[A0A111,Q10706]-_G309
|
||
|
|
rows_for(_G309):[row(A0A111),row(Q10706)]
|
||
|
|
|
||
|
|
by_findall(P64943,[A0A111,Q10706])
|
||
|
|
Caution! Deleting db entries for-P64943
|
||
|
|
Affected rows:row(2)
|
||
|
|
now(P64943,[])
|
||
|
|
|
||
|
|
Not to worry! Adding back the db entries for-P64943
|
||
|
|
affected_two(row(1),row(1))
|
||
|
|
finally(P64943,[A0A111,Q10706])
|
||
|
|
|
||
|
|
v:0:1:0
|
||
|
|
vd:date(2012,10,17)
|
||
|
|
|
||
|
|
citation
|
||
|
|
Exploring file based databases via an Sqlite interface.
|
||
|
|
Canisius Sander, Nicos Angelopoulos and Lodewyk Wessels
|
||
|
|
In the ICLP Workshop on Logic-based methods in Programming Environments (WLPE'12),
|
||
|
|
p.2-9, 2012. Budapest, Hungary.
|
||
|
|
true.
|
||
|
|
|
||
|
|
?-
|
||
|
|
|
||
|
|
|
||
|
|
==
|
||
|
|
@version 0.1.2, 2013/11/1
|
||
|
|
@see latest version at http://stoics.org.uk/~nicos/sware/prosqlite/uniprot.pl
|
||
|
|
@see also http://stoics.org.uk/~nicos/sware/sqlite/uniprot.sqlite (184Mb)
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
/** uniprot.
|
||
|
|
|
||
|
|
Test predicate for prosqlite. Tests all components.
|
||
|
|
|
||
|
|
You need the test database from
|
||
|
|
http://stoics.org.uk/~nicos/sware/sqlite/uniprot.sqlite
|
||
|
|
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
uniprot :-
|
||
|
|
date( Date ),
|
||
|
|
write( 'Running on ':Date ), nl,
|
||
|
|
sqlite_connect('uniprot.sqlite',uniprot, as_predicates(true) ), % connect the database
|
||
|
|
nl,
|
||
|
|
show_tables,
|
||
|
|
show_columns,
|
||
|
|
show_counts,
|
||
|
|
findall_counts,
|
||
|
|
Id = 'P64943',
|
||
|
|
findall( A, secondary_accessions(A,Id), As ),
|
||
|
|
write( As-Id ), nl,
|
||
|
|
Q = 'Select secondary_accession From secondary_accessions Where primary_accession="~w"',
|
||
|
|
findall( Row, sqlite_format_query( uniprot, Q-'P64943', Row ), Rows ),
|
||
|
|
write(rows_for(Id):Rows), nl, nl,
|
||
|
|
findall( S, secondary_accessions(S,Id), SetBef ),
|
||
|
|
write( by_findall(Id,SetBef) ), nl,
|
||
|
|
write( 'Caution! Deleting db entries for'-Id ), nl,
|
||
|
|
sqlite_query( uniprot, 'Delete from secondary_accessions where primary_accession="P64943";', Aff ),
|
||
|
|
write( 'Affected rows':Aff ), nl,
|
||
|
|
findall( S, secondary_accessions(S,Id), SetAft ),
|
||
|
|
write( now(Id,SetAft) ), nl, nl,
|
||
|
|
write( 'Not to worry! Adding back the db entries for'-Id ), nl,
|
||
|
|
sqlite_query( uniprot, 'Insert into secondary_accessions (primary_accession,secondary_accession) Values ("P64943","A0A111");', Aff1 ),
|
||
|
|
sqlite_query( uniprot, 'Insert into secondary_accessions (secondary_accession,primary_accession) Values ("Q10706","P64943");', Aff2 ),
|
||
|
|
write( affected_two( Aff1, Aff2 ) ), nl,
|
||
|
|
findall( S, secondary_accessions(S,Id), SetFin ),
|
||
|
|
write( finally(Id,SetFin) ), nl, nl,
|
||
|
|
sqlite_version( Ver, VerDate ),
|
||
|
|
write( v:Ver ), nl,
|
||
|
|
write( vd:VerDate ), nl, nl,
|
||
|
|
sqlite_citation( AtmCite, _B ),
|
||
|
|
write( citation ), nl,
|
||
|
|
write( AtmCite ), nl.
|
||
|
|
|
||
|
|
|
||
|
|
show_tables :-
|
||
|
|
sqlite_current_table( uniprot, Table ),
|
||
|
|
write( table:Table ), nl,
|
||
|
|
fail.
|
||
|
|
show_tables :-
|
||
|
|
nl.
|
||
|
|
|
||
|
|
show_columns :-
|
||
|
|
sqlite_table_column( uniprot, Table, Col ),
|
||
|
|
write( Table/Col ), nl,
|
||
|
|
fail.
|
||
|
|
show_columns :-
|
||
|
|
nl.
|
||
|
|
|
||
|
|
show_counts :-
|
||
|
|
sqlite_current_table(uniprot, Table),
|
||
|
|
sqlite_table_count(uniprot, Table, Count),
|
||
|
|
write(Table:Count), nl,
|
||
|
|
fail.
|
||
|
|
show_counts :-
|
||
|
|
nl.
|
||
|
|
|
||
|
|
findall_counts :-
|
||
|
|
sqlite_current_table(uniprot, Table, arity(Arity) ),
|
||
|
|
length(List, Arity),
|
||
|
|
Pred =.. [Table|List],
|
||
|
|
findall(1, Pred, Ones),
|
||
|
|
length(Ones, Count),
|
||
|
|
write( Table+Count ), nl,
|
||
|
|
fail.
|
||
|
|
findall_counts :-
|
||
|
|
nl.
|