89 lines
2.2 KiB
Factor
89 lines
2.2 KiB
Factor
! Copyright (C) 2010 Sascha Matzke.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors assocs calendar combinators
|
|
combinators.short-circuit constructors kernel linked-assocs
|
|
math math.bitwise random strings uuid ;
|
|
IN: bson.constants
|
|
|
|
: <objid> ( -- objid )
|
|
uuid1 ; inline
|
|
|
|
TUPLE: oid { a initial: 0 } { b initial: 0 } ;
|
|
|
|
: <oid> ( -- oid )
|
|
oid new
|
|
now timestamp>micros >>a
|
|
8 random-bits 16 shift 0xFF0000 mask
|
|
16 random-bits 0xFFFF mask
|
|
bitor >>b ;
|
|
|
|
TUPLE: dbref ref id db ;
|
|
|
|
TUPLE: mongo-timestamp incr seconds ;
|
|
|
|
: <mongo-timestamp> ( incr seconds -- mongo-timestamp )
|
|
mongo-timestamp boa ;
|
|
|
|
TUPLE: mongo-scoped-code code object ;
|
|
|
|
: <mongo-scoped-code> ( code object -- mongo-scoped-code )
|
|
mongo-scoped-code boa ;
|
|
|
|
CONSTRUCTOR: <dbref> dbref ( ref id -- dbref ) ;
|
|
|
|
: dbref>assoc ( dbref -- assoc )
|
|
[ <linked-hash> ] dip over
|
|
{
|
|
[ [ ref>> "$ref" ] [ set-at ] bi* ]
|
|
[ [ id>> "$id" ] [ set-at ] bi* ]
|
|
[ over db>> [
|
|
[ db>> "$db" ] [ set-at ] bi*
|
|
] [ 2drop ] if ]
|
|
} 2cleave ; inline
|
|
|
|
: assoc>dbref ( assoc -- dbref )
|
|
[ "$ref" of ] [ "$id" of ] [ "$db" of ] tri
|
|
dbref boa ; inline
|
|
|
|
: dbref-assoc? ( assoc -- ? )
|
|
{ [ "$ref" swap key? ] [ "$id" swap key? ] } 1&& ; inline
|
|
|
|
TUPLE: mdbregexp { regexp string } { options string } ;
|
|
|
|
: <mdbregexp> ( string -- mdbregexp )
|
|
[ mdbregexp new ] dip >>regexp ;
|
|
|
|
|
|
CONSTANT: MDB_OID_FIELD "_id"
|
|
CONSTANT: MDB_META_FIELD "_mfd"
|
|
|
|
CONSTANT: T_EOO 0
|
|
CONSTANT: T_Double 0x1
|
|
CONSTANT: T_String 0x2
|
|
CONSTANT: T_Object 0x3
|
|
CONSTANT: T_Array 0x4
|
|
CONSTANT: T_Binary 0x5
|
|
CONSTANT: T_Undefined 0x6
|
|
CONSTANT: T_OID 0x7
|
|
CONSTANT: T_Boolean 0x8
|
|
CONSTANT: T_Date 0x9
|
|
CONSTANT: T_NULL 0xA
|
|
CONSTANT: T_Regexp 0xB
|
|
CONSTANT: T_DBRef 0xC
|
|
CONSTANT: T_Code 0xD
|
|
CONSTANT: T_Symbol 0xE
|
|
CONSTANT: T_ScopedCode 0xF
|
|
CONSTANT: T_Integer 0x10
|
|
CONSTANT: T_Timestamp 0x11
|
|
CONSTANT: T_Integer64 0x12
|
|
CONSTANT: T_MinKey 0xFF
|
|
CONSTANT: T_MaxKey 0x7F
|
|
|
|
CONSTANT: T_Binary_Default 0x0
|
|
CONSTANT: T_Binary_Function 0x1
|
|
CONSTANT: T_Binary_Bytes_Deprecated 0x2
|
|
CONSTANT: T_Binary_UUID 0x3
|
|
CONSTANT: T_Binary_MD5 0x5
|
|
CONSTANT: T_Binary_Custom 0x80
|
|
|