debugging sqlite
parent
779bd8c8d9
commit
117a7b6643
|
@ -177,10 +177,13 @@ M: sqlite-db modifier-table ( -- hashtable )
|
||||||
{ +not-null+ "not null" }
|
{ +not-null+ "not null" }
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
M: sqlite-db compound-type ( str seq -- )
|
M: sqlite-db compound-modifier ( str obj -- newstr )
|
||||||
|
drop ;
|
||||||
|
|
||||||
|
M: sqlite-db compound-type ( str seq -- newstr )
|
||||||
over {
|
over {
|
||||||
{ "varchar" [ first number>string join-space ] }
|
! { "varchar" [ first number>string join-space ] }
|
||||||
[ 2drop "" ] ! "no sqlite compound data type" 3array throw ]
|
[ drop ] ! "no sqlite compound data type" 3array throw ]
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
M: sqlite-db type-table ( -- assoc )
|
M: sqlite-db type-table ( -- assoc )
|
||||||
|
|
Loading…
Reference in New Issue