package gapi-ocaml

  1. Overview
  2. Docs
package gapi-ocaml
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file gapiDiscoveryV1Service.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
(* Warning! This file is generated. Modify at your own risk.
        *)

open GapiUtils.Infix
open GapiDiscoveryV1Model

module ApisResource =
struct
  module ApisParameters =
  struct
    type t = {
      (* Standard query parameters *)
      alt : string;
      fields : string;
      prettyPrint : bool;
      quotaUser : string;
      userIp : string;
      key : string;
      (* apis-specific query parameters *)
      name : string;
      preferred : bool;
      
    }
    
    let default = {
      alt = "";
      fields = "";
      prettyPrint = true;
      quotaUser = "";
      userIp = "";
      key = "";
      name = "";
      preferred = false;
      
    }
    
    let to_key_value_list qp =
      let param get_value to_string name =
        GapiService.build_param default qp get_value to_string name in [
      param (fun p -> p.alt) (fun x -> x) "alt";
      param (fun p -> p.fields) (fun x -> x) "fields";
      param (fun p -> p.prettyPrint) string_of_bool "prettyPrint";
      param (fun p -> p.quotaUser) (fun x -> x) "quotaUser";
      param (fun p -> p.userIp) (fun x -> x) "userIp";
      param (fun p -> p.key) (fun x -> x) "key";
      param (fun p -> p.name) (fun x -> x) "name";
      param (fun p -> p.preferred) string_of_bool "preferred";
      
    ] |> List.concat
    
    let merge_parameters
        ?(standard_parameters = GapiService.StandardParameters.default)
        ?(name = default.name)
        ?(preferred = default.preferred)
        () =
      let parameters = {
        alt = standard_parameters.GapiService.StandardParameters.alt;
        fields = standard_parameters.GapiService.StandardParameters.fields;
        prettyPrint = standard_parameters.GapiService.StandardParameters.prettyPrint;
        quotaUser = standard_parameters.GapiService.StandardParameters.quotaUser;
        userIp = standard_parameters.GapiService.StandardParameters.userIp;
        key = standard_parameters.GapiService.StandardParameters.key;
        name;
        preferred;
        
      } in
      if parameters = default then None else Some parameters
    
  end
  
  let list
        ?(base_url = "https://www.googleapis.com/discovery/v1/")
        ?std_params
        ?custom_headers
        ?(preferred = false)
        ?name
        session =
    let full_url = GapiUtils.add_path_to_url ["apis"] base_url in
    let params = ApisParameters.merge_parameters
      ?standard_parameters:std_params ?name ~preferred () in
    let query_parameters = GapiOption.map ApisParameters.to_key_value_list
      params in
    GapiService.get ?query_parameters ?custom_headers full_url
      (GapiJson.parse_json_response DirectoryList.of_data_model) session 
    
  let getRest
        ?(base_url = "https://www.googleapis.com/discovery/v1/")
        ?std_params
        ?custom_headers
        ~api
        ~version
        session =
    let full_url = GapiUtils.add_path_to_url ["apis"; ((fun x -> x) api);
      ((fun x -> x) version); "rest"] base_url in
    let params = ApisParameters.merge_parameters
      ?standard_parameters:std_params () in
    let query_parameters = GapiOption.map ApisParameters.to_key_value_list
      params in
    GapiService.get ?query_parameters ?custom_headers full_url
      (GapiJson.parse_json_response RestDescription.of_data_model) session 
    
  
end