Avoid complaining from strlen

`
2015-09-21 17:05:36 -05:00
parent 880a9989c3
commit 4336b2ba88
469 changed files with 207364 additions and 9193 deletions
--- a/packages/prosqlite/examples/uniprot.pl
+++ b/packages/prosqlite/examples/uniprot.pl
@@ -0,0 +1,152 @@
+:- 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.