syndicate-nim/src/syndicate/protocols/service.nim

import
  std/typetraits, preserves

type
  `State`* {.preservesOr.} = enum
    `started`, `ready`, `failed`, `complete`
  ServiceObject*[E] {.preservesRecord: "service-object".} = ref object
    `serviceName`*: Preserve[E]
    `object`*: Preserve[E]

  CoreService*[E] {.preservesRecord: "core-service".} = ref object
    `serviceName`*: Preserve[E]

  RequireService*[E] {.preservesRecord: "require-service".} = ref object
    `serviceName`*: Preserve[E]

  RunService*[E] {.preservesRecord: "run-service".} = ref object
    `serviceName`*: Preserve[E]

  ServiceState*[E] {.preservesRecord: "service-state".} = ref object
    `serviceName`*: Preserve[E]
    `state`*: State

  ServiceDependency*[E] {.preservesRecord: "depends-on".} = ref object
    `depender`*: Preserve[E]
    `dependee`*: ServiceState[E]

proc `$`*[E](x: ServiceObject[E] | CoreService[E] | RequireService[E] |
    RunService[E] |
    ServiceState[E] |
    ServiceDependency[E]): string =
  `$`(toPreserve(x, E))

proc encode*[E](x: ServiceObject[E] | CoreService[E] | RequireService[E] |
    RunService[E] |
    ServiceState[E] |
    ServiceDependency[E]): seq[byte] =
  encode(toPreserve(x, E))