Support sqlite3, basic ops

packages/myddas/sqlite3/test.yap

@@ -0,0 +1,81 @@
+
+:- [library(myddas)].
+
+:- initialization(main).
+
+main :-
+	setup_call_cleanup(
+				   init,
+				  main_ ,
+				  (trace,
+		   close)).
+main_ :-
+	go,
+	fail.
+main_ .
+
+init :-
+    db_open(sqlite3, '~/Yap/Chinook/Chinook_Sqlite.sqlite', _, _),
+	db_import('Artist', artist),
+	db_import('Album', album),
+	db_import('Track', track).
+
+	go :-
+		db_get_attributes_types(album,Als),
+		db_get_attributes_types(track,Ts),
+		db_get_attributes_types(artist,As),
+		writeln(As:Als:Ts).
+
+go :-
+	db_number_of_fields(album,Als),
+	db_number_of_fields(track,Ts),
+	db_number_of_fields(artist,As),
+	writeln(As:Als:Ts).
+
+	go :-
+		db_describe(album, Desc), writeln(Desc) ;
+		db_describe(track, Desc), writeln(Desc) ;
+			db_describe(artist, Desc), writeln(Desc).
+
+			go :-
+				db_show_tables(Desc), writeln(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,artist(X,Y),Ls),
+	length(Ls,Total),
+	sort(Ls, LLs),
+	length(LLs, T),
+    writeln(T:Total).
+
+go :-
+	go_cut1.
+
+go :-
+	X=1,
+    artist(X,Y),
+    writeln(X:Y).
+
+go_cut0 :-
+% start_low_level_trace,
+    artist(X,Y),
+    writeln(X:Y),
+    !.
+
+
+go_cut1 :-
+	X=1,
+    artist(X,Y),
+    writeln(X:Y),
+    !.
+
+close :-
+	db_close.