Merge: mongodb: allow client to set skip and limit when calling find

Signed-off-by: Alexandre Terrasa <alexandre@moz-code.org>

Pull-Request: #1868
Reviewed-by: Romain Chanoir <romain.chanoir@viacesi.fr>
Reviewed-by: Jean Privat <jean@pryen.org>

Author: privat

lib/mongodb/mongodb.nit

@@ -523,6 +523,10 @@ class MongoCollection
 
 	# Finds the first document that matches `query`.
 	#
+	# Params:
+	# * `skip` number of documents to skip
+	# * `limit` number of documents to return
+	#
 	# Returns `null` if an error occured. See `Sys::last_mongoc_error`.
 	#
 	# ~~~
@@ -533,9 +537,11 @@ class MongoCollection
 	# var doc = col.find(query)
 	# assert doc["foo"] == 10
 	# ~~~
-	fun find(query: JsonObject): nullable JsonObject do
+	fun find(query: JsonObject, skip, limit: nullable Int): nullable JsonObject do
 		var q = new NativeBSON.from_json_string(query.to_json.to_cstring)
-		var c = native.find(q)
+		var s = skip or else 0
+		var l = limit or else 0
+		var c = native.find(q, s, l)
 		q.destroy
 		if c == null then return null
 		var cursor = new MongoCursor(c)
@@ -549,16 +555,22 @@ class MongoCollection
 
 	# Finds all the documents matching the `query`.
 	#
+	# Params:
+	# * `skip` number of documents to skip
+	# * `limit` number of documents to return
+	#
 	# ~~~
 	# var client = new MongoClient("mongodb://localhost:27017/")
 	# var col = client.database("test").collection("test")
 	# var query = new JsonObject
 	# query["foo"] = 10
 	# assert col.find_all(query).length > 0
 	# ~~~
-	fun find_all(query: JsonObject): Array[JsonObject] do
+	fun find_all(query: JsonObject, skip, limit: nullable Int): Array[JsonObject] do
+		var s = skip or else 0
+		var l = limit or else 0
 		var res = new Array[JsonObject]
-		var c = native.find(query.to_bson.native)
+		var c = native.find(query.to_bson.native, s, l)
 		if c == null then return res
 		var cursor = new MongoCursor(c)
 		while cursor.is_ok do

lib/mongodb/native_mongodb.nit

@@ -421,11 +421,11 @@ extern class NativeMongoCollection `{ mongoc_collection_t * `}
 	#
 	# If you would like to specify options such as a sort order,
 	# the query must be placed inside of `{"$query": {}}`.
-	fun find(query: NativeBSON): nullable NativeMongoCursor import
+	fun find(query: NativeBSON, skip, limit: Int): nullable NativeMongoCursor import
 		NativeMongoCursor.as nullable, set_mongoc_error `{
 		bson_error_t error;
 		mongoc_cursor_t	*cursor;
-		cursor = mongoc_collection_find(self, MONGOC_QUERY_NONE, 0, 0, 0, query, NULL, NULL);
+		cursor = mongoc_collection_find(self, MONGOC_QUERY_NONE, skip, limit, 0, query, NULL, NULL);
 		if (mongoc_cursor_error(cursor, &error)) {
 			NativeMongoCollection_set_mongoc_error(self, &error);
 			return null_NativeMongoCursor();