Service Routes and DI Wiring

#!ek9
defines module lesson.shop.app

  references
    lesson.shop.catalogue::HealthService
    lesson.shop.catalogue::ItemService
    lesson.shop.components::ConsoleNotifier
    lesson.shop.components::MemoryRepository
    lesson.shop.components::Notifier
    lesson.shop.components::Repository

  defines application

    ShopApp
      register MemoryRepository() as Repository
      register ConsoleNotifier() as Notifier
      register ItemService()
      register HealthService()

  defines program

    ServeShop() with application of ShopApp
      props <- NetworkProperties(port: 8080, localOnly: true)
      HTTP(props).serve()

//EOF

#!ek9
defines module lesson.shop.catalogue

  references
    lesson.shop.components::Notifier
    lesson.shop.components::Repository

  defines constant

    okStatus <- 200
    jsonType <- "application/json"
    plainType <- "text/plain"
    noCache <- "no-cache"
    langEn <- "en"

  defines class

    Catalogue
      repo as Repository!
      notifier as Notifier!

      howMany()
        <- rtn as Integer: repo.count()

      lookup()
        -> name as String
        <- rtn as String: name
        notifier.notify(`Looked up ${name}`)

      default operator ?

  defines function

    AccountGate is SecurityGate
      -> context as HTTPContext
      <- rtn as HTTPContext: context

  defines service

    ItemService for :/items constrain by AccountGate

      howMany() as GET for :/
        <- response as HTTPResponse?

        count <- Catalogue().howMany()
        response: (count) with trait HTTPResponse
          override content()
            <- rtn as Bytes: Bytes().withUtf8(`{"count": ${count}}`)
          override status() as pure
            <- rtn as Integer: okStatus
          override contentType() as pure
            <- rtn as String: jsonType
          override cacheControl() as pure
            <- rtn as String: noCache
          override contentLanguage() as pure
            <- rtn as String: langEn
          default operator ?

      byName() as GET for :/{name}
        -> name as String
        <- response as HTTPResponse?

        wanted <- Catalogue().lookup(name)
        response: (wanted) with trait HTTPResponse
          override content()
            <- rtn as Bytes: Bytes().withUtf8(`{"name": "${wanted}"}`)
          override status() as pure
            <- rtn as Integer: okStatus
          override contentType() as pure
            <- rtn as String: jsonType
          override cacheControl() as pure
            <- rtn as String: noCache
          override contentLanguage() as pure
            <- rtn as String: langEn
          default operator ?

    HealthService for :/health open

      ping() as GET for :/
        <- response as HTTPResponse: () with trait HTTPResponse
          override content()
            <- rtn as Bytes: Bytes().withUtf8("ok")
          override status() as pure
            <- rtn as Integer: okStatus
          override contentType() as pure
            <- rtn as String: plainType
          override cacheControl() as pure
            <- rtn as String: noCache
          override contentLanguage() as pure
            <- rtn as String: langEn
          default operator ?

//EOF

#!ek9
defines module lesson.shop.components

  defines component

    Repository as abstract
      count() as abstract
        <- rtn as Integer?

      default operator ?

    MemoryRepository extends Repository
      override count()
        <- rtn as Integer: 2

      default operator ?

    Notifier as abstract
      notify() as abstract
        -> message as String

      default operator ?

    ConsoleNotifier extends Notifier
      override notify()
        -> message as String
        stdout <- Stdout()
        stdout.println(message)

      default operator ?

//EOF