Add HEAD http method

src/gapi/gapiConversation.ml

@@ -163,6 +163,9 @@ let request
       | GapiCore.HttpMethod.DELETE ->
           GapiCurl.set_upload false session.Session.curl;
           GapiCurl.set_nobody true session.Session.curl
+      | GapiCore.HttpMethod.HEAD ->
+          GapiCurl.set_upload false session.Session.curl;
+          GapiCurl.set_nobody true session.Session.curl
     end;
     begin match http_method with
         GapiCore.HttpMethod.PATCH

src/gapi/gapiCore.ml

@@ -51,6 +51,7 @@ struct
     | PUT
     | DELETE
     | PATCH
+    | HEAD
 
   let to_string m =
     match m with
@@ -59,6 +60,7 @@ struct
       | PUT -> "PUT"
       | DELETE -> "DELETE"
       | PATCH -> "PATCH"
+      | HEAD -> "HEAD"
 
 end
 
@@ -90,6 +92,7 @@ struct
     | UploadContentType of string
     | UploadContentLength of string
     | Slug of string
+    | ContentLength of string
     | KeyValueHeader of string * string
     | OtherHeader of string
 
@@ -121,6 +124,8 @@ struct
           "X-Upload-Content-Length: " ^ value
       | Slug value ->
           "Slug: " ^ value
+      | ContentLength value ->
+          "Content-Length: " ^ value
       | KeyValueHeader (name, value) ->
           name ^ ": " ^ value
       | OtherHeader header ->
@@ -155,6 +160,8 @@ struct
               UploadContentLength value
           | "Slug" ->
               Slug value
+          | "Content-Length" ->
+              ContentLength value
           | _ ->
               KeyValueHeader (key, value)
     else

src/gapi/gapiCore.mli

@@ -41,6 +41,7 @@ sig
     | PUT
     | DELETE
     | PATCH
+    | HEAD
 
   val to_string : t -> string
 
@@ -72,6 +73,7 @@ sig
     | UploadContentType of string
     | UploadContentLength of string
     | Slug of string
+    | ContentLength of string
     | KeyValueHeader of string * string
     | OtherHeader of string
 

src/gapi/gapiOAuth1.ml

@@ -90,9 +90,10 @@ let oauth_request
   let post_data =
     match http_method with
         GapiCore.HttpMethod.GET
-      | GapiCore.HttpMethod.PUT (* TODO: verify *)
-      | GapiCore.HttpMethod.PATCH (* TODO: verify *)
-      | GapiCore.HttpMethod.DELETE -> None
+      | GapiCore.HttpMethod.PUT
+      | GapiCore.HttpMethod.PATCH
+      | GapiCore.HttpMethod.DELETE
+      | GapiCore.HttpMethod.HEAD -> None
       | GapiCore.HttpMethod.POST -> Some (GapiCore.PostData.Fields post_fields_to_sign)
   in
     GapiConversation.request

src/gapi/gapiRequest.ml

@@ -22,6 +22,7 @@ type request_type =
   | Update
   | Patch
   | Delete
+  | QueryMeta
 
 let parse_empty_response _ =
   ()
@@ -54,13 +55,13 @@ let parse_response
         200 (* OK *) ->
           let location = get_location () in
             if location = "" then
-              parse_output pipe
+              parse_output pipe headers
             else
               raise (StartUpload (location, session))
       | 201 (* Created *)
       | 204 (* No Content *)
       | 206 (* Partial Content *) ->
-          parse_output pipe
+          parse_output pipe headers
       | 302 (* Found *) ->
           let url = get_location () in
             raise (Redirect (url, session))
@@ -166,7 +167,8 @@ let single_request
       | Create -> GapiCore.HttpMethod.POST
       | Update -> GapiCore.HttpMethod.PUT
       | Patch -> GapiCore.HttpMethod.PATCH
-      | Delete -> GapiCore.HttpMethod.DELETE in
+      | Delete -> GapiCore.HttpMethod.DELETE
+      | QueryMeta -> GapiCore.HttpMethod.HEAD in
   let oauth1_params =
     match auth_data with
         GapiAuth.NoAuth
@@ -190,7 +192,8 @@ let single_request
   let etag_header =
     Option.map (fun e ->
                   match request_type with
-                      Query ->
+                      Query
+                    | QueryMeta ->
                         Some (GapiCore.Header.IfNoneMatch e)
                     | Update
                     | Patch

src/gapi/gapiRequest.mli

@@ -19,6 +19,7 @@ type request_type =
   | Update
   | Patch
   | Delete
+  | QueryMeta
 
 val parse_empty_response : 'a -> unit
 
@@ -31,7 +32,7 @@ val gapi_request :
   ?parse_error:(GapiPipe.OcamlnetPipe.t -> int -> 'a) ->
   request_type ->
   string ->
-  (GapiPipe.OcamlnetPipe.t -> 'a) ->
+  (GapiPipe.OcamlnetPipe.t -> GapiCore.Header.t list -> 'a) ->
   GapiConversation.Session.t ->
   'a * GapiConversation.Session.t
 

src/gapi/gapiService.ml

@@ -88,7 +88,7 @@ let download_resource
       ?version
       ~request_type:GapiRequest.Query
       url
-      GapiRequest.parse_empty_response
+      (fun pipe _ -> GapiRequest.parse_empty_response pipe)
       session
 
 let build_param default_params params get_value to_string name = 
@@ -136,6 +136,22 @@ struct
 
 end
 
+let head
+      ?etag
+      ?query_parameters
+      ?media_download
+      url
+      parse_headers
+      session =
+  service_request
+    ?etag
+    ?query_parameters
+    ?media_download
+    ~request_type:GapiRequest.QueryMeta
+    url
+    (fun _ headers -> parse_headers headers)
+    session
+
 let get
       ?etag
       ?query_parameters
@@ -149,7 +165,7 @@ let get
     ?media_download
     ~request_type:GapiRequest.Query
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session
 
 let post
@@ -169,7 +185,7 @@ let post
       ?media_source
       ~request_type:GapiRequest.Create
       url
-      parse_response
+      (fun pipe _ -> parse_response pipe)
       session
 
 let put
@@ -189,7 +205,7 @@ let put
     ?media_source
     data
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session
 
 let put'
@@ -209,7 +225,7 @@ let put'
       ?media_source
       ~request_type:GapiRequest.Update
       url
-      parse_response
+      (fun pipe _ -> parse_response pipe)
       session
 
 let patch
@@ -229,7 +245,7 @@ let patch
     ?media_source
     data
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session
 
 let patch'
@@ -249,7 +265,7 @@ let patch'
       ?media_source
       ~request_type:GapiRequest.Patch
       url
-      parse_response
+      (fun pipe _ -> parse_response pipe)
       session
 
 let delete
@@ -263,6 +279,6 @@ let delete
     ?query_parameters
     ~request_type:GapiRequest.Delete
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session
 

src/gapi/gapiService.mli

@@ -12,7 +12,7 @@ val service_request :
   ?media_download:GapiMediaResource.download ->
   ?request_type:GapiRequest.request_type ->
   string ->
-  (GapiPipe.OcamlnetPipe.t -> 'a) ->
+  (GapiPipe.OcamlnetPipe.t -> GapiCore.Header.t list -> 'a) ->
   GapiConversation.Session.t ->
   'a * GapiConversation.Session.t
 
@@ -26,7 +26,7 @@ val service_request_with_data :
   ?media_download:GapiMediaResource.download ->
   'a ->
   string ->
-  (GapiPipe.OcamlnetPipe.t -> 'a) ->
+  (GapiPipe.OcamlnetPipe.t -> GapiCore.Header.t list -> 'a) ->
   GapiConversation.Session.t ->
   'a * GapiConversation.Session.t
 
@@ -70,6 +70,15 @@ sig
 
 end
 
+val head :
+  ?etag:string ->
+  ?query_parameters:(string * string) list ->
+  ?media_download:GapiMediaResource.download ->
+  string ->
+  (GapiCore.Header.t list -> 'a) ->
+  GapiConversation.Session.t ->
+  'a * GapiConversation.Session.t
+
 val get :
   ?etag:string ->
   ?query_parameters:(string * string) list ->

src/gdata/gdataDocumentsV3Service.ml

@@ -436,7 +436,7 @@ let resumable_upload
       ~request_type:GapiRequest.Create
       ?query_parameters
       url
-      parse_document_entry
+      (fun pipe _ -> parse_document_entry pipe)
       session
 
 (* Download *)

src/gdata/gdataService.ml

@@ -16,7 +16,7 @@ let query
     ?query_parameters
     ~request_type:GapiRequest.Query
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session
 
 let create
@@ -36,7 +36,7 @@ let create
     ?media_source
     data
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session
 
 let read
@@ -51,7 +51,7 @@ let read
       ?version
       ?etag
       url
-      parse_response
+      (fun pipe _ -> parse_response pipe)
       session
   with GapiRequest.NotModified new_session ->
     (data, new_session)
@@ -75,7 +75,7 @@ let update
     ?media_source
     data
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session
 
 let patch
@@ -97,7 +97,7 @@ let patch
     ?media_source
     data
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session
 
 let delete
@@ -112,7 +112,7 @@ let delete
     ?query_parameters
     ~request_type:GapiRequest.Delete
     url
-    GapiRequest.parse_empty_response
+    (fun pipe _ -> GapiRequest.parse_empty_response pipe)
     session
 
 let batch_request
@@ -128,6 +128,6 @@ let batch_request
     ?version
     data
     url
-    parse_response
+    (fun pipe _ -> parse_response pipe)
     session