extra/mongodb/tuple/state/state.factor

   1 USING: accessors assocs classes kernel sequences ;
   2 IN: mongodb.tuple.state
   3
   4 <PRIVATE
   5
   6 CONSTANT: MDB_TUPLE_INFO       "_mfd_t_info"
   7
   8 PRIVATE>
   9
  10 : <tuple-info> ( tuple -- tuple-info )
  11     class-of [ V{ } clone ] dip over
  12     [ [ name>> ] dip push ]
  13     [ [ vocabulary>> ] dip push ] 2bi ; inline
  14
  15 : tuple-info ( assoc -- tuple-info )
  16     [ MDB_TUPLE_INFO ] dip at ; inline
  17
  18 : set-tuple-info ( tuple assoc -- )
  19    [ <tuple-info> MDB_TUPLE_INFO ] dip set-at ; inline
  20
  21 : tuple-info? ( assoc -- ? )
  22    [ MDB_TUPLE_INFO ] dip key? ;