factor/extra/tokyo/abstractdb/abstractdb.factor

! Copyright (C) 2009 Bruno Deferrari
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel tokyo.alien.tcadb tokyo.assoc-functor ;
IN: tokyo.abstractdb

<< "tcadb" "abstractdb" define-tokyo-assoc-api >>

: <tokyo-abstractdb> ( name -- tokyo-abstractdb )
    tcadbnew [ swap tcadbopen drop ] keep
    tokyo-abstractdb new [ handle<< ] keep ;
tokyo.cabinet.abstract: Assoc protocol implementation for Tokyo Cabinet abstract db api 2009-06-16 22:29:09 -04:00			`! Copyright (C) 2009 Bruno Deferrari`
			`! See http://factorcode.org/license.txt for BSD license.`
tokyo: Reimplement assoc protocols for remote and abstract db using a functor 2009-06-18 17:55:26 -04:00			`USING: accessors kernel tokyo.alien.tcadb tokyo.assoc-functor ;`
tokyo.abstractdb: Renamed vocab, refactored memory streams to tokyo.utils vocab 2009-06-17 19:23:39 -04:00			`IN: tokyo.abstractdb`
tokyo.cabinet.abstract: Assoc protocol implementation for Tokyo Cabinet abstract db api 2009-06-16 22:29:09 -04:00
tokyo: Reimplement assoc protocols for remote and abstract db using a functor 2009-06-18 17:55:26 -04:00			`<< "tcadb" "abstractdb" define-tokyo-assoc-api >>`
tokyo.cabinet.abstract: Assoc protocol implementation for Tokyo Cabinet abstract db api 2009-06-16 22:29:09 -04:00
			`: <tokyo-abstractdb> ( name -- tokyo-abstractdb )`
			`tcadbnew [ swap tcadbopen drop ] keep`
Language change: tuple slot setter words with stack effect ( value object -- ) are now named FOO<< instead of (>>FOO) 2010-05-05 16:52:54 -04:00			`tokyo-abstractdb new [ handle<< ] keep ;`