Add joker.url/parse-query function.

Author: candid82

std/url.joke

@@ -31,3 +31,13 @@
   {:added "1.0"
    :go "queryUnescape(s)"}
   [^String s])
+
+(defn parse-query
+  "Parses the URL-encoded query string and returns a map listing the vectors of values specified for each key.
+  Always returns a non-nil map containing all the valid query parameters found.
+  Query is expected to be a list of key=value settings separated by ampersands. A setting without
+  an equals sign is interpreted as a key set to an empty value. Settings containing a non-URL-encoded
+  semicolon are considered invalid. "
+  {:added "1.3.6"
+   :go "parseQuery(s)"}
+  [^String s])

std/url/a_url.go

@@ -7,6 +7,23 @@ import (
 	"net/url"
 )
 
+var __parse_query__P ProcFn = __parse_query_
+var parse_query_ Proc = Proc{Fn: __parse_query__P, Name: "parse_query_", Package: "std/url"}
+
+func __parse_query_(_args []Object) Object {
+	_c := len(_args)
+	switch {
+	case _c == 1:
+		s := ExtractString(_args, 0)
+		_res := parseQuery(s)
+		return _res
+
+	default:
+		PanicArity(_c)
+	}
+	return NIL
+}
+
 var __path_escape__P ProcFn = __path_escape_
 var path_escape_ Proc = Proc{Fn: __path_escape__P, Name: "path_escape_", Package: "std/url"}
 

std/url/a_url_slow_init.go

@@ -14,6 +14,15 @@ func InternsOrThunks() {
 	}
 	urlNamespace.ResetMeta(MakeMeta(nil, `Parses URLs and implements query escaping.`, "1.0"))
 
+	urlNamespace.InternVar("parse-query", parse_query_,
+		MakeMeta(
+			NewListFrom(NewVectorFrom(MakeSymbol("s"))),
+			`Parses the URL-encoded query string and returns a map listing the vectors of values specified for each key.
+  Always returns a non-nil map containing all the valid query parameters found.
+  Query is expected to be a list of key=value settings separated by ampersands. A setting without
+  an equals sign is interpreted as a key set to an empty value. Settings containing a non-URL-encoded
+  semicolon are considered invalid. `, "1.3.6"))
+
 	urlNamespace.InternVar("path-escape", path_escape_,
 		MakeMeta(
 			NewListFrom(NewVectorFrom(MakeSymbol("s"))),

std/url/url_native.go

@@ -21,3 +21,12 @@ func queryUnescape(s string) string {
 	}
 	return res
 }
+
+func parseQuery(s string) Object {
+	values, _ := url.ParseQuery(s)
+	res := EmptyArrayMap()
+	for k, v := range values {
+		res.Add(MakeString(k), MakeStringVector(v))
+	}
+	return res
+}

tests/eval/url-test.joke

@@ -0,0 +1,9 @@
+(ns joker.test-joker.url
+  (:require [joker.test :refer [deftest is]]
+            [joker.url :as url]))
+
+(deftest parse-query
+  (is (= {} (url/parse-query "")))
+  (is (= {"q" ["1"]} (url/parse-query "q=1")))
+  (is (= {"q" [""]} (url/parse-query "q")))
+  (is (= {"foo" ["1"] "bar" ["2" "3"]} (url/parse-query "foo=1&bar=2&bar=3"))))