simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-07 11:45:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(util): add some query related utils

Browse source
This commit is contained in:
Simon Cruanes 2020-02-26 19:55:37 -06:00
parent 995aee8489
commit bdd2fd8160
2 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Tiny_httpd_util.ml
View file

@ -66,11 +66,20 @@ let percent_decode (s:string) : _ option =
exception Invalid_query exception Invalid_query
let find_q_index_ s = String.index s '?'
let get_non_query_path s =
match find_q_index_ s with
| i -> String.sub s 0 i
| exception Not_found -> s
let get_query s : string = let get_query s : string =
match String.index s '?' with match find_q_index_ s with
| i -> String.sub s (i+1) (String.length s-i-1) | i -> String.sub s (i+1) (String.length s-i-1)
| exception Not_found -> "" | exception Not_found -> ""
let split_query s = get_non_query_path s, get_query s
let parse_query s : (_ list, string) result= let parse_query s : (_ list, string) result=
let pairs = ref [] in let pairs = ref [] in
let is_sep_ = function '&' | ';' -> true | _ -> false in let is_sep_ = function '&' | ';' -> true | _ -> false in

10
src/Tiny_httpd_util.mli
View file

@ -13,8 +13,16 @@ val percent_decode : string -> string option
(** Inverse operation of {!percent_encode}. (** Inverse operation of {!percent_encode}.
Can fail since some strings are not valid percent encodings. *) Can fail since some strings are not valid percent encodings. *)
val split_query : string -> string * string
(** Split a path between the path and the query
@since NEXT_RELEASE *)
val get_non_query_path : string -> string
(** get the part of the path that is not the query parameters.
@since NEXT_RELEASE *)
val get_query : string -> string val get_query : string -> string
(** Obtain the query part of a path (** Obtain the query part of a path.
@since 0.4 *) @since 0.4 *)
val parse_query : string -> ((string*string) list, string) result val parse_query : string -> ((string*string) list, string) result