sources/hv-collector-utils/src/main/kotlin/org/onap/dcae/collectors/veshv/utils/arrow/core.kt

   1 /*
   2  * ============LICENSE_START=======================================================
   3  * dcaegen2-collectors-veshv
   4  * ================================================================================
   5  * Copyright (C) 2018 NOKIA
   6  * ================================================================================
   7  * Licensed under the Apache License, Version 2.0 (the "License");
   8  * you may not use this file except in compliance with the License.
   9  * You may obtain a copy of the License at
  10  *
  11  *      http://www.apache.org/licenses/LICENSE-2.0
  12  *
  13  * Unless required by applicable law or agreed to in writing, software
  14  * distributed under the License is distributed on an "AS IS" BASIS,
  15  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  16  * See the License for the specific language governing permissions and
  17  * limitations under the License.
  18  * ============LICENSE_END=========================================================
  19  */
  20 package org.onap.dcae.collectors.veshv.utils.arrow
  21
  22 import arrow.core.Either
  23 import arrow.core.ForOption
  24 import arrow.core.Option
  25 import arrow.core.Try
  26 import arrow.core.fix
  27 import arrow.core.identity
  28 import arrow.effects.ForIO
  29 import arrow.effects.IO
  30 import arrow.effects.fix
  31 import arrow.effects.instances.io.monad.monad
  32 import arrow.instances.option.monad.monad
  33 import arrow.syntax.collections.firstOption
  34 import arrow.typeclasses.MonadContinuation
  35 import arrow.typeclasses.binding
  36 import reactor.core.publisher.Flux
  37 import reactor.core.publisher.Mono
  38 import java.util.concurrent.atomic.AtomicReference
  39
  40 /**
  41  * @author Piotr Jaszczyk <piotr.jaszczyk@nokia.com>
  42  * @since July 2018
  43  */
  44
  45 object OptionUtils {
  46     fun <A> binding(c: suspend MonadContinuation<ForOption, *>.() -> A)
  47             : Option<A> = Option.monad().binding(c).fix()
  48 }
  49
  50 object IOUtils {
  51     fun <A> binding(c: suspend MonadContinuation<ForIO, *>.() -> A)
  52             : IO<A> = IO.monad().binding(c).fix()
  53 }
  54
  55 fun <A> Either<A, A>.flatten() = fold(::identity, ::identity)
  56
  57 fun <B> Either<Throwable, B>.rightOrThrow() = fold({ throw it }, ::identity)
  58
  59 fun <A, B> Either<A, B>.rightOrThrow(mapper: (A) -> Throwable) = fold({ throw mapper(it) }, ::identity)
  60
  61 fun <A : Exception, B> Flux<Either<A, B>>.throwOnLeft(): Flux<B> = map { it.rightOrThrow() }
  62
  63 fun <A, B> Flux<Either<A, B>>.throwOnLeft(f: (A) -> Exception): Flux<B> = map { it.rightOrThrow(f) }
  64
  65 fun <A, B> Mono<Either<A, B>>.throwOnLeft(f: (A) -> Exception): Mono<B> = map { it.rightOrThrow(f) }
  66
  67 fun <A> AtomicReference<A>.getOption() = Option.fromNullable(get())
  68
  69 fun <A> Option.Companion.fromNullablesChain(firstValue: A?, vararg nextValues: () -> A?): Option<A> =
  70         if (firstValue != null)
  71             Option.just(firstValue)
  72         else nextValues.asSequence()
  73                 .map { it() }
  74                 .filter { it != null }
  75                 .firstOption()
  76
  77
  78 fun <A, B> Either<A, B>.doOnLeft(action: () -> Unit): Either<A, B> = apply { if (isLeft()) action() }
  79
  80 fun <A> Option<A>.doOnEmpty(action: () -> Unit): Option<A> = apply { if (isEmpty()) action() }
  81
  82 fun <A> Try<A>.doOnFailure(action: (Throwable) -> Unit): Try<A> = apply {
  83     if (this is Try.Failure) {
  84         action(exception)
  85     }
  86 }
  87
  88 fun <A, B> A.mapBinding(c: suspend MonadContinuation<ForOption, *>.(A) -> B)
  89         : Option<B> = let { OptionUtils.binding { c(it) } }
  90
  91
  92
  93
  94
  95
  96