Avoid deprecated http_uri functions for OTP 21+

rebar.config

@@ -3,6 +3,7 @@
           , "deps"
           ]}.
 {erl_opts, [ {platform_define, "^R[0-9]+", erlang_deprecated_types}
+           , {platform_define, "^(R[0-9]+|17|18|19|20)", http_uri_depricated_functions}
              %% , warn_export_all
            , warn_export_vars
            , warn_obsolete_guard

src/jesse_json_path.erl

@@ -293,7 +293,7 @@ normalize(K, undefined) ->
 
 -spec parse_json_pointer_token(Token :: string()) -> binary().
 parse_json_pointer_token(Token) ->
-  DecodedToken = unicode:characters_to_binary(http_uri:decode(Token)),
+  DecodedToken = unicode:characters_to_binary(hex_decode(Token)),
   lists:foldl( fun({From, To}, T) ->
                    binary:replace(T, From, To)
                end
@@ -302,3 +302,16 @@ parse_json_pointer_token(Token) ->
                , {<<"~1">>, <<"/">>}
                ]
              ).
+
+%% @private
+hex_decode([$%, Hex1, Hex2 | Rest]) ->
+    [hex2dec(Hex1)*16 + hex2dec(Hex2) | hex_decode(Rest)];
+hex_decode([First | Rest]) ->
+    [First | hex_decode(Rest)];
+hex_decode([]) ->
+    [].
+
+%% @private
+hex2dec(X) when (X>=$0) andalso (X=<$9) -> X-$0;
+hex2dec(X) when (X>=$A) andalso (X=<$F) -> X-$A+10;
+hex2dec(X) when (X>=$a) andalso (X=<$f) -> X-$a+10.

src/jesse_state.erl

@@ -295,16 +295,11 @@ load_local_schema(Schema, [Key | Keys]) ->
 combine_id(Id, undefined) ->
   Id;
 combine_id(Id, RefBin) ->
-  Ref = unicode:characters_to_list(RefBin),
-  case http_uri:parse(Ref) of
-    %% Absolute http/s:
-    {ok, _} ->
-      Ref;
-    %% Absolute file:
-    {error, {no_default_port, file, Ref}} ->
+  case parse_ref(RefBin) of
+    {absolute, Ref} ->
       Ref;
     %% Relative
-    _ ->
+    {relative, Ref} ->
       combine_relative_id(Id, Ref)
   end.
 
@@ -403,3 +398,31 @@ load_schema(#state{schema_loader_fun = LoaderFun}, SchemaURI) ->
 %% @private
 get_external_validator(#state{external_validator = Fun}) ->
   Fun.
+
+%% @private
+-ifdef(http_uri_depricated_functions).
+parse_ref(RefBin) ->
+  Ref = unicode:characters_to_list(RefBin),
+  case http_uri:parse(Ref) of
+    %% Absolute http/s:
+    {ok, _} ->
+      {absolute, Ref};
+    %% Absolute file:
+    {error, {no_default_port, file, Ref}} ->
+      {absolute, Ref};
+    %% Relative
+    _ ->
+      {relative, Ref}
+  end.
+-else.
+parse_ref(RefBin) ->
+  Ref = unicode:characters_to_list(RefBin),
+  case uri_string:parse(Ref) of
+    %% Absolute
+    #{scheme := _} ->
+      {absolute, Ref};
+    %% Relative
+    _ ->
+      {relative, Ref}
+  end.
+-endif.