steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

db2: fix typo in with-dummy-sqlite, renaming some db2 words

db4
Doug Coleman 2016-03-12 20:16:57 -08:00
parent 7b07e5a9bf
commit c42926ae97
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/db2/debug/debug.factor
View File

@ -47,4 +47,4 @@ IN: db2.debug
[ postgresql-test-db ] dip with-db ; inline [ postgresql-test-db ] dip with-db ; inline
: with-dummy-sqlite ( quot -- ) : with-dummy-sqlite ( quot -- )
[ postgresql-test-db ] dip with-db ; inline [ sqlite-test-db ] dip with-db ; inline

16
basis/db2/queries/queries.factor
View File

@ -76,16 +76,19 @@ M: object database-table-columns-statement ( database table -- sequence )
: database-tables ( database -- sequence ) : database-tables ( database -- sequence )
database-tables-statement >sql-objects ; database-tables-statement >sql-objects ;
: tables ( -- sequence ) : current-tables ( -- sequence )
current-db-name database-tables ; current-db-name database-tables ;
: database-table-names ( database -- sequence ) : table-names ( sequence -- strings )
database-tables [ table-name>> ] map ; [ table-name>> ] map ;
: table-names ( -- sequence ) : database-table-names ( database -- sequence )
database-tables table-names ;
: current-table-names ( -- sequence )
current-db-name database-table-names ; current-db-name database-table-names ;
: table-exists? ( table -- ? ) table-names member? ; : table-exists? ( table -- ? ) current-table-names member? ;
: database-table-columns ( database table -- sequence ) : database-table-columns ( database table -- sequence )
database-table-columns-statement >sql-columns ; database-table-columns-statement >sql-columns ;
@ -95,3 +98,6 @@ M: object database-table-columns-statement ( database table -- sequence )
: databases ( -- sequence ) : databases ( -- sequence )
databases-statement sql-query concat ; databases-statement sql-query concat ;
! [ "select nspname from pg_catalog.pg_namespace" sql-query ] with-dummy-postgresql
! [ "select schema_name from information_schema.schemata" sql-query ] with-dummy-postgresql