50 lines
1.0 KiB
Factor
50 lines
1.0 KiB
Factor
|
USING: accessors constructors kernel strings uuid ;
|
||
|
|
|
||
|
|
IN: bson.constants
|
||
|
|
|
||
|
|
: <objid> ( -- objid )
|
||
|
|
uuid1 ; inline
|
||
|
|
|
||
|
|
TUPLE: oid { a initial: 0 } { b initial: 0 } ;
|
||
|
|
|
||
|
|
TUPLE: objref ns objid ;
|
||
|
|
|
||
|
|
CONSTRUCTOR: objref ( ns objid -- objref ) ;
|
||
|
|
|
||
|
|
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 1
|
||
|
|
CONSTANT: T_Integer 16
|
||
|
|
CONSTANT: T_Boolean 8
|
||
|
|
CONSTANT: T_String 2
|
||
|
|
CONSTANT: T_Object 3
|
||
|
|
CONSTANT: T_Array 4
|
||
|
|
CONSTANT: T_Binary 5
|
||
|
|
CONSTANT: T_Undefined 6
|
||
|
|
CONSTANT: T_OID 7
|
||
|
|
CONSTANT: T_Date 9
|
||
|
|
CONSTANT: T_NULL 10
|
||
|
|
CONSTANT: T_Regexp 11
|
||
|
|
CONSTANT: T_DBRef 12
|
||
|
|
CONSTANT: T_Code 13
|
||
|
|
CONSTANT: T_ScopedCode 17
|
||
|
|
CONSTANT: T_Symbol 14
|
||
|
|
CONSTANT: T_JSTypeMax 16
|
||
|
|
CONSTANT: T_MaxKey 127
|
||
|
|
|
||
|
|
CONSTANT: T_Binary_Function 1
|
||
|
|
CONSTANT: T_Binary_Bytes 2
|
||
|
|
CONSTANT: T_Binary_UUID 3
|
||
|
|
CONSTANT: T_Binary_MD5 5
|
||
|
|
CONSTANT: T_Binary_Custom 128
|
||
|
|
|
||
|
|
|