factor/basis/db/errors/errors.factor

! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: continuations kernel ;
IN: db.errors

ERROR: db-error ;
TUPLE: sql-error location ;

ERROR: bad-schema ;

TUPLE: sql-unknown-error < sql-error message ;

: <sql-unknown-error> ( message -- error )
    f swap sql-unknown-error boa ;

TUPLE: sql-table-exists < sql-error table ;

: <sql-table-exists> ( table -- error )
    f swap sql-table-exists boa ;

TUPLE: sql-table-missing < sql-error table ;

: <sql-table-missing> ( table -- error )
    f swap sql-table-missing boa ;

TUPLE: sql-syntax-error < sql-error message ;

: <sql-syntax-error> ( message -- error )
    f swap sql-syntax-error boa ;

TUPLE: sql-function-exists < sql-error message ;

: <sql-function-exists> ( message -- error )
    f swap sql-function-exists boa ;

TUPLE: sql-function-missing < sql-error message ;

: <sql-function-missing> ( message -- error )
    f swap sql-function-missing boa ;

TUPLE: sql-database-exists < sql-error message ;

: <sql-database-exists> ( message -- error )
    f swap sql-database-exists boa ;

TUPLE: sql-index-exists < sql-error name ;

: <sql-index-exists> ( name -- error )
    f swap sql-index-exists boa ;

: ignore-table-exists ( quot -- )
    [ sql-table-exists? ] ignore-error ; inline

: ignore-table-missing ( quot -- )
    [ sql-table-missing? ] ignore-error ; inline

: ignore-function-exists ( quot -- )
    [ sql-function-exists? ] ignore-error ; inline

: ignore-function-missing ( quot -- )
    [ sql-function-missing? ] ignore-error ; inline

: ignore-database-exists ( quot -- )
    [ sql-database-exists? ] ignore-error ; inline

: ignore-index-exists ( quot -- )
    [ sql-index-exists? ] ignore-error ; inline
commit local changes before pulling 2008-05-30 19:00:42 -04:00			`! Copyright (C) 2008 Doug Coleman.`
			`! See http://factorcode.org/license.txt for BSD license.`
db.errors: cleanup using. 2018-02-14 13:39:09 -05:00			`USING: continuations kernel ;`
commit local changes before pulling 2008-05-30 19:00:42 -04:00			`IN: db.errors`

			`ERROR: db-error ;`
ERROR:s is immutable now, so don't use it in db 2010-02-03 13:25:55 -05:00			`TUPLE: sql-error location ;`
commit local changes before pulling 2008-05-30 19:00:42 -04:00
			`ERROR: bad-schema ;`
add error handling to sqlite, postgresql is next. switching computers.. 2009-02-20 21:40:17 -05:00
db: update for ERROR: change 2010-02-01 15:40:56 -05:00			`TUPLE: sql-unknown-error < sql-error message ;`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00			`: <sql-unknown-error> ( message -- error )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`f swap sql-unknown-error boa ;`
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00
db: update for ERROR: change 2010-02-01 15:40:56 -05:00			`TUPLE: sql-table-exists < sql-error table ;`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00
add parsing for postgresql errors and some unit tests 2009-02-21 22:22:51 -05:00			`: <sql-table-exists> ( table -- error )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`f swap sql-table-exists boa ;`
add error handling to sqlite, postgresql is next. switching computers.. 2009-02-20 21:40:17 -05:00
db: update for ERROR: change 2010-02-01 15:40:56 -05:00			`TUPLE: sql-table-missing < sql-error table ;`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00
add parsing for postgresql errors and some unit tests 2009-02-21 22:22:51 -05:00			`: <sql-table-missing> ( table -- error )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`f swap sql-table-missing boa ;`
add error handling to sqlite, postgresql is next. switching computers.. 2009-02-20 21:40:17 -05:00
db: update for ERROR: change 2010-02-01 15:40:56 -05:00			`TUPLE: sql-syntax-error < sql-error message ;`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00
add parsing for postgresql errors and some unit tests 2009-02-21 22:22:51 -05:00			`: <sql-syntax-error> ( message -- error )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`f swap sql-syntax-error boa ;`
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00
db: update for ERROR: change 2010-02-01 15:40:56 -05:00			`TUPLE: sql-function-exists < sql-error message ;`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00			`: <sql-function-exists> ( message -- error )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`f swap sql-function-exists boa ;`
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00
db: update for ERROR: change 2010-02-01 15:40:56 -05:00			`TUPLE: sql-function-missing < sql-error message ;`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00			`: <sql-function-missing> ( message -- error )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`f swap sql-function-missing boa ;`
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00
Change postgresql test database to prepend the cpu string so that running two builders on the Mac Pro build machine will not cause random failures due to interference. 2011-09-04 17:52:44 -04:00			`TUPLE: sql-database-exists < sql-error message ;`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00
Change postgresql test database to prepend the cpu string so that running two builders on the Mac Pro build machine will not cause random failures due to interference. 2011-09-04 17:52:44 -04:00			`: <sql-database-exists> ( message -- error )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`f swap sql-database-exists boa ;`
Change postgresql test database to prepend the cpu string so that running two builders on the Mac Pro build machine will not cause random failures due to interference. 2011-09-04 17:52:44 -04:00
db.(sqlite.)errors: add sql-index-exists error 2016-02-20 13:00:50 -05:00			`TUPLE: sql-index-exists < sql-error name ;`

			`: <sql-index-exists> ( name -- error )`
			`f swap sql-index-exists boa ;`

add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00			`: ignore-table-exists ( quot -- )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`[ sql-table-exists? ] ignore-error ; inline`
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00
			`: ignore-table-missing ( quot -- )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`[ sql-table-missing? ] ignore-error ; inline`
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00
			`: ignore-function-exists ( quot -- )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`[ sql-function-exists? ] ignore-error ; inline`
add more postgres error handling, remove usage of ignore-errors in db.tuples 2009-02-21 22:59:23 -05:00
			`: ignore-function-missing ( quot -- )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`[ sql-function-missing? ] ignore-error ; inline`
Change postgresql test database to prepend the cpu string so that running two builders on the Mac Pro build machine will not cause random failures due to interference. 2011-09-04 17:52:44 -04:00
			`: ignore-database-exists ( quot -- )`
db.errors: move to db.{postgresql,sqlite}.errors. 2016-03-22 15:44:23 -04:00			`[ sql-database-exists? ] ignore-error ; inline`
db.(sqlite.)errors: add sql-index-exists error 2016-02-20 13:00:50 -05:00
			`: ignore-index-exists ( quot -- )`
			`[ sql-index-exists? ] ignore-error ; inline`