Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance. Project price only 1 $
You can buy this project and download/modify it how often you want.
/*
* Copyright 2021-2024 Disney Streaming
*
* Licensed under the Tomorrow Open Source Technology License, Version 1.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* https://disneystreaming.github.io/TOST-1.0.txt
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
package smithy4s.decline
import cats.implicits._
import cats.MonadThrow
import cats.effect.std.Console
import com.monovore.decline.Opts
import com.monovore.decline.Command
import smithy.api.Documentation
import smithy.api.ExternalDocumentation
import smithy.api.Http
import smithy4s.Service
import smithy4s.decline.core._
import smithy4s.decline.util.PrinterApi
import smithy4s.http.HttpEndpoint
import smithy4s.kinds._
import commons._
final case class Entrypoint[Alg[_[_, _, _, _, _]], F[_]](
interpreter: FunctorAlgebra[Alg, F],
printerApi: PrinterApi[F]
)
/** Main entrypoint to Smithy4s CLIs.
* @param mainOpts
* Opts providing an interpreter to execute commands, and printer to use when displaying the
* input/output/errors. See [[smithy4s.decline.util.PrinterApi]] for default options
* @param service
* The service to build a client call for
*/
class Smithy4sCli[Alg[_[_, _, _, _, _]], F[_]: MonadThrow](
mainOpts: Opts[Entrypoint[Alg, F]]
)(implicit service: Service[Alg]) {
private def protocolSpecificHelp(
endpoint: service.Endpoint[_, _, _, _, _]
): List[String] =
HttpEndpoint
.cast(endpoint.schema)
.toOption
.map { httpEndpoint =>
val path = endpoint.hints
.get(Http)
.map(_.uri.value)
.getOrElse(
throw new Exception(
"HTTP hint missing in a HTTP endpoint! This is probably a bug in Smithy4s codegen."
)
)
s"HTTP ${httpEndpoint.method.showUppercase} $path"
}
.toList
private def makeHelpBlocks(
endpoint: service.Endpoint[_, _, _, _, _]
): List[String] =
protocolSpecificHelp(endpoint) ++
endpoint.hints.get[Documentation].map(_.value) ++
endpoint.hints
.get[ExternalDocumentation]
.map(
_.value
.map { case (url, description) => s"$url: $description" }
.mkString("\n")
)
private def endpointSubcommand[I, E, O](
endpoint: service.Endpoint[I, E, O, _, _]
): Opts[F[Unit]] = {
def compileToOpts[A](schema: smithy4s.Schema[A]): Opts[A] =
schema.compile[Opts](OptsVisitor)
val inputOpts: Opts[I] = compileToOpts(endpoint.input)
Opts
.subcommand(
name = toKebabCase(endpoint.name),
help = makeHelpBlocks(endpoint).mkString_("\n\n")
) {
(
inputOpts,
mainOpts
).mapN { (input, entrypoint) =>
val printers = entrypoint.printerApi
val printer = printers.printer(endpoint)
val polyFunction =
service.toPolyFunction[Kind1[F]#toKind5](entrypoint.interpreter)
val FO = printer
.printInput(input)
.flatMap(_ => polyFunction(endpoint.wrap(input)))
FO.flatMap(printer.printOutput)
.onError {
case e if endpoint.error.flatMap(_.liftError(e)).nonEmpty =>
printer
.printError(e)
}
}
}
}
def opts: Opts[F[Unit]] =
service.endpoints.toVector.foldMapK(endpointSubcommand(_))
def command: Command[F[Unit]] = {
Command(
toKebabCase(service.id.name),
header = service.hints
.get[Documentation]
.map(_.value)
.getOrElse(s"Command line interface for ${service.id.show}"),
helpFlag = true
)(opts)
}
}
object Smithy4sCli {
def standalone[Alg[_[_, _, _, _, _]], F[_]: Console: MonadThrow](
impl: Opts[FunctorAlgebra[Alg, F]]
)(implicit service: Service[Alg]) = {
new Smithy4sCli[Alg, F](
(
impl,
PrinterApi.opts.default[F]()
).mapN(Entrypoint.apply[Alg, F])
)
}
}
