tokyo.abstractdb: Renamed vocab, refactored memory streams to tokyo.utils vocab
parent
73e774cbac
commit
55f466402a
|
@ -1,20 +1,12 @@
|
|||
! Copyright (C) 2009 Bruno Deferrari
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors alien.c-types arrays assocs destructors
|
||||
io io.streams.memory kernel libc locals
|
||||
sequences serialize tokyo.alien.tcadb tokyo.alien.tcutil vectors ;
|
||||
IN: tokyo.cabinet.abstract
|
||||
kernel locals sequences serialize vectors
|
||||
tokyo.alien.tcadb tokyo.alien.tcutil tokyo.utils ;
|
||||
IN: tokyo.abstractdb
|
||||
|
||||
TUPLE: tokyo-abstractdb handle disposed ;
|
||||
|
||||
<PRIVATE
|
||||
: with-memory-reader ( memory quot -- )
|
||||
[ <memory-stream> ] dip with-input-stream* ; inline
|
||||
|
||||
: memory>object ( memory -- object )
|
||||
[ deserialize ] with-memory-reader ;
|
||||
PRIVATE>
|
||||
|
||||
INSTANCE: tokyo-abstractdb assoc
|
||||
|
||||
: <tokyo-abstractdb> ( name -- tokyo-abstractdb )
|
|
@ -0,0 +1 @@
|
|||
Bruno Deferrari
|
|
@ -0,0 +1 @@
|
|||
Some utility words used by the tokyo vocabs
|
|
@ -0,0 +1,10 @@
|
|||
! Copyright (C) 2009 Bruno Deferrari
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: io io.streams.memory serialize kernel ;
|
||||
IN: tokyo.utils
|
||||
|
||||
: with-memory-reader ( memory quot -- )
|
||||
[ <memory-stream> ] dip with-input-stream* ; inline
|
||||
|
||||
: memory>object ( memory -- object )
|
||||
[ deserialize ] with-memory-reader ;
|
Loading…
Reference in New Issue