Merge /home/vsc/yap

packages/myddas/sqlite3/sqlitest.yap

@@ -0,0 +1,92 @@
+:- stop_low_level_trace.
+:- use_module(library(maplist)).
+:- use_module(library(myddas)).
+
+main :-
+		 init,
+		 main_,
+		  close.
+main_ :-
+	go,
+	fail.
+main_ .
+
+init :-
+    db_open(sqlite3, '/data/user/0/pt.up.yap.yapdroid/files/Yap/chinook.db', _, _),
+    writeln('chinook has landed').
+
+go :-
+    writeln(('db_import')),
+    db_import('artists', artists),
+    writeln(('artist -> artists')),
+	db_import('albums', albums),
+    writeln(('albums -> albums')),
+	db_import('tracks', tracks),
+    writeln(('tracks -> tracks')).
+
+go :-
+    start_low_level_trace,
+    		writeln(db_get_attributes_types),
+    		db_get_attributes_types(albums,Als),
+    format('~w -> ~w~n',[albums,Als]),
+		db_get_attributes_types(tracks,Ts),
+  	        format('~w -> ~w~n',[tracks,Ts]),
+	db_get_attributes_types(artists,As),
+	     format('~w -> ~w~n',[artists,As]).
+go :-
+	writeln(db_number_of_fields),
+	db_number_of_fields(albums,Als),
+	db_number_of_fields(tracks,Ts),
+	db_number_of_fields(artists,As),
+	writeln(As:Als:Ts).
+
+go :-
+		db_describe(albums, Desc), writeln(albums:Desc).
+go :-
+		db_describe(tracks, Desc), writeln(tracks:Desc).
+go :-
+			db_describe(artists, Desc), writeln(artists:Desc).
+go :-
+				db_show_tables(Desc), writeln(tables:Desc).
+go :-
+					db_show_tables(table(T)),
+					db_describe(T,tableinfo(FieldID,Type,Null,Primary,Default,'')),
+					 writeln(T:tableinfo(FieldID,Type,Null,Primary,Default,'')).
+
+go :-
+	go_cut0.
+
+
+go :-
+%stop_low_level_trace,
+	findall(X:Y,artists(X,Y),Ls),
+	length(Ls,Total),
+	sort(Ls, LLs),
+	length(LLs, T),
+    writeln(T:Total).
+
+go :-
+	go_cut1.
+
+go :-
+	X=1,
+    artists(X,Y),
+    writeln(X:Y).
+
+go_cut0 :-
+% start_low_level_trace,
+    artists(X,Y),
+    writeln(X:Y),
+    !.
+
+
+go_cut1 :-
+	X=1,
+    artists(X,Y),
+    writeln(X:Y),
+    !.
+
+close :-
+	db_close.
+
+:- main.