cognitect.aws.client.api.clj Maven / Gradle / Ivy
;; Copyright (c) Cognitect, Inc.
;; All rights reserved.
(ns cognitect.aws.client.api
"API functions for using a client to interact with AWS services."
(:require [clojure.core.async :as a]
[clojure.tools.logging :as log]
[clojure.string :as str]
[cognitect.aws.dynaload :as dynaload]
[cognitect.aws.client :as client]
[cognitect.aws.retry :as retry]
[cognitect.aws.client.shared :as shared]
[cognitect.aws.credentials]
[cognitect.aws.endpoint :as endpoint]
[cognitect.aws.http :as http]
[cognitect.aws.service :as service]
[cognitect.aws.region :as region]
[cognitect.aws.client.api.async :as api.async]
;; implements multimethods
[cognitect.aws.signers]))
(set! *warn-on-reflection* true)
(declare ops)
(defn client
"Given a config map, create a client for specified api. Supported keys:
:api - required, name of the api you want to interact with e.g. s3, cloudformation, etc
:http-client - optional, to share http-clients across aws-clients
Default: default-http-client
:region-provider - optional, implementation of aws-clojure.region/RegionProvider
protocol, defaults to cognitect.aws.region/default-region-provider.
Ignored if :region is also provided
:region - optional, the aws region serving the API endpoints you
want to interact with, defaults to region provided by
by the region-provider
:credentials-provider - optional, implementation of
cognitect.aws.credentials/CredentialsProvider protocol
Default: cognitect.aws.credentials/default-credentials-provider
:endpoint-override - optional, map to override parts of the endpoint. Supported keys:
:protocol - :http or :https
:hostname - string
:port - int
:path - string
If the hostname includes an AWS region, be sure use the same
region for the client (either via out of process configuration
or the :region key supplied to this fn).
Also supports a string representing just the hostname, though
support for a string is deprectated and may be removed in the
future.
:retriable? - optional, predicate fn of http-response (see cognitect.aws.http/submit),
which should return a truthy value if the request is
retriable.
Default: cognitect.aws.retry/default-retriable?
:backoff - optional, fn of number of retries so far. Should return
number of milliseconds to wait before the next retry
(if the request is retriable?), or nil if it should stop.
Default: cognitect.aws.retry/default-backoff.
By default, all clients use shared http-client, credentials-provider, and
region-provider instances which use a small collection of daemon threads.
Alpha. Subject to change."
[{:keys [api region region-provider retriable? backoff credentials-provider endpoint-override http-client]
:or {endpoint-override {}}}]
(when (string? endpoint-override)
(log/warn
(format
"DEPRECATION NOTICE: :endpoint-override string is deprecated.\nUse {:endpoint-override {:hostname \"%s\"}} instead."
endpoint-override)))
(let [service (service/service-description (name api))
http-client (if http-client
(http/resolve-http-client http-client)
(shared/http-client))
region-provider (cond region (reify region/RegionProvider (fetch [_] region))
region-provider region-provider
:else (shared/region-provider))
credentials-provider (or credentials-provider (shared/credentials-provider))
endpoint-provider (endpoint/default-endpoint-provider
(get-in service [:metadata :endpointPrefix])
endpoint-override)]
(dynaload/load-ns (symbol (str "cognitect.aws.protocols." (get-in service [:metadata :protocol]))))
(client/->Client
(atom {'clojure.core.protocols/datafy (fn [c]
(let [info (client/-get-info c)
region (region/fetch (:region-provider info))
endpoint (endpoint/fetch (:endpoint-provider info) region)]
(-> info
(select-keys [:service])
(assoc :region region :endpoint endpoint)
(update :endpoint select-keys [:hostname :protocols :signatureVersions])
(update :service select-keys [:metadata])
(assoc :ops (ops c)))))})
{:service service
:retriable? (or retriable? retry/default-retriable?)
:backoff (or backoff retry/default-backoff)
:http-client http-client
:endpoint-provider endpoint-provider
:region-provider region-provider
:credentials-provider credentials-provider
:validate-requests? (atom nil)})))
(defn default-http-client
"Create an http-client to share across multiple aws-api clients."
[]
(http/resolve-http-client nil))
(defn invoke
"Package and send a request to AWS and return the result.
Supported keys in op-map:
:op - required, keyword, the op to perform
:request - required only for ops that require them.
:retriable? - optional, defaults to :retriable? on the client.
See client.
:backoff - optional, defaults to :backoff on the client.
See client.
After invoking (cognitect.aws.client.api/validate-requests true), validates
:request in op-map.
Alpha. Subject to change."
[client op-map]
(a/ client client/-get-info :service) op))
(defn response-spec-key
"Returns the key for the response spec for op.
Alpha. Subject to change."
[client op]
(service/response-spec-key (-> client client/-get-info :service) op))
(def ^:private pprint-ref (delay (dynaload/load-var 'clojure.pprint/pprint)))
(defn ^:skip-wiki pprint
"For internal use. Don't call directly."
[& args]
(binding [*print-namespace-maps* false]
(apply @pprint-ref args)))
(defn ops
"Returns a map of operation name to operation data for this client.
Alpha. Subject to change."
[client]
(->> client
client/-get-info
:service
service/docs))
(defn doc-str
"Given data produced by `ops`, returns a string
representation.
Alpha. Subject to change."
[{:keys [documentation documentationUrl request required response refs] :as doc}]
(when doc
(str/join "\n"
(cond-> ["-------------------------"
(:name doc)
""
documentation]
documentationUrl
(into [""
documentationUrl])
request
(into [""
"-------------------------"
"Request"
""
(with-out-str (pprint request))])
required
(into ["Required"
""
(with-out-str (pprint required))])
response
(into ["-------------------------"
"Response"
""
(with-out-str (pprint response))])
refs
(into ["-------------------------"
"Given"
""
(with-out-str (pprint refs))])))))
(defn doc
"Given a client and an operation (keyword), prints documentation
for that operation to the current value of *out*. Returns nil.
Alpha. Subject to change."
[client operation]
(println (or (some-> client ops operation doc-str)
(str "No docs for " (name operation)))))
(defn stop
"Has no effect when the underlying http-client is the shared
instance.
If you explicitly provided any other instance of http-client, stops
it, releasing resources.
Alpha. Subject to change."
[aws-client]
(let [{:keys [http-client]} (client/-get-info aws-client)]
(when-not (#'shared/shared-http-client? http-client)
(http/stop http-client))))
© 2015 - 2025 Weber Informatics LLC | Privacy Policy