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

added _p_info hashtable constant keys 

commented make-persistent cause it's not working, yet
db4
Sascha Matzke 2008-12-27 12:03:30 +01:00
parent 752c637cb8
commit 88d337a001
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mongodb/persistent/persistent.factor
View File

@ -10,7 +10,10 @@ SLOT: _p_info
TUPLE: oid { a initial: 0 } { b initial: 0 } ; TUPLE: oid { a initial: 0 } { b initial: 0 } ;
TUPLE: persistent-info type vocab collection dirty? mt ; : MDB_CLASS ( -- string ) "p_class" ; inline
: MDB_VOCAB ( -- string ) "p_vocab" ; inline
: MDB_MODIF ( -- string ) "p_mt" ; inline
: MDB_CREAT ( -- string ) "p_ct" ; inline
<PRIVATE <PRIVATE
@ -40,3 +43,13 @@ M: tuple-class persistent-tuple-class ( class -- class' )
[ "%s_%s" sprintf ] dip swap dup ! class new_name new_name [ "%s_%s" sprintf ] dip swap dup ! class new_name new_name
P_VOCAB lookup dup ! class new_name vo/f vo/f P_VOCAB lookup dup ! class new_name vo/f vo/f
[ [ drop drop ] dip ] [ drop define-persistent-tuple ] if ; [ [ drop drop ] dip ] [ drop define-persistent-tuple ] if ;
GENERIC: make-persistent ( tuple -- 'tuple )
! M: tuple make-persistent ( tuple -- 'tuple )
! [let* | tuple [ ]
! class [ tuple class ]
! 'tuple [ class persistent-tuple-class new ] |
!
! ] ;