forestdb: Remove unix only forestdb. Fix segfault for fdb-get-kv.
							parent
							
								
									2453a785f7
								
							
						
					
					
						commit
						f015d3d6f6
					
				| 
						 | 
				
			
			@ -1 +0,0 @@
 | 
			
		|||
unix
 | 
			
		||||
| 
						 | 
				
			
			@ -65,10 +65,6 @@ SYMBOL: current-fdb-kvs-handle
 | 
			
		|||
: fdb-open-default-config ( path -- file-handle handle )
 | 
			
		||||
    fdb_get_default_config get-kvs-default-config fdb-open ;
 | 
			
		||||
 | 
			
		||||
: ret>string ( void** len -- string )
 | 
			
		||||
    [ void* deref ] [ size_t deref ] bi*
 | 
			
		||||
    [ memory>byte-array utf8 decode ] [ drop (free) ] 2bi ;
 | 
			
		||||
 | 
			
		||||
: get-file-handle ( -- handle )
 | 
			
		||||
    current-fdb-file-handle get handle>> ;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -111,6 +107,10 @@ SYMBOL: current-fdb-kvs-handle
 | 
			
		|||
: fdb-del ( doc -- )
 | 
			
		||||
    [ get-kvs-handle ] dip fdb_del fdb-check-error ;
 | 
			
		||||
 | 
			
		||||
: ret>string ( void** len -- string )
 | 
			
		||||
    [ void* deref ] [ size_t deref ] bi*
 | 
			
		||||
    memory>byte-array utf8 decode ;
 | 
			
		||||
 | 
			
		||||
: fdb-get-kv ( key -- value/f )
 | 
			
		||||
    [ get-kvs-handle ] dip
 | 
			
		||||
    utf8 encode dup length f void* <ref> 0 size_t <ref>
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1 +0,0 @@
 | 
			
		|||
unix
 | 
			
		||||
| 
						 | 
				
			
			@ -1 +0,0 @@
 | 
			
		|||
unix
 | 
			
		||||
| 
						 | 
				
			
			@ -1 +0,0 @@
 | 
			
		|||
unix
 | 
			
		||||
| 
						 | 
				
			
			@ -1 +0,0 @@
 | 
			
		|||
unix
 | 
			
		||||
		Loading…
	
		Reference in New Issue