feat(uri): add missed function
This commit is contained in:
parent
bd1051d1e6
commit
49502b4e7c
|
@ -114,7 +114,7 @@ atom_scheme(Other) -> throw({unsupported_scheme, Other}).
|
||||||
do_uri_encode(Char) ->
|
do_uri_encode(Char) ->
|
||||||
case reserved(Char) of
|
case reserved(Char) of
|
||||||
true ->
|
true ->
|
||||||
[ $% | http_util:integer_to_hexlist(Char)];
|
[ $% | integer_to_hexlist(Char)];
|
||||||
false ->
|
false ->
|
||||||
[Char]
|
[Char]
|
||||||
end.
|
end.
|
||||||
|
@ -151,3 +151,10 @@ reserved($^) -> true;
|
||||||
reserved($%) -> true;
|
reserved($%) -> true;
|
||||||
reserved($\s) -> true;
|
reserved($\s) -> true;
|
||||||
reserved(_) -> false.
|
reserved(_) -> false.
|
||||||
|
|
||||||
|
integer_to_hexlist(Int) ->
|
||||||
|
integer_to_list(Int, 16).
|
||||||
|
|
||||||
|
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.
|
Loading…
Reference in New Issue