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
  21 @file:Suppress("TooManyFunctions")
  22
  23 package org.onap.dcae.collectors.veshv.utils.arrow
  24
  25 import arrow.core.Either
  26 import arrow.core.ForOption
  27 import arrow.core.Option
  28 import arrow.core.Try
  29 import arrow.core.extensions.option.monad.monad
  30 import arrow.core.fix
  31 import arrow.core.identity
  32 import arrow.syntax.collections.firstOption
  33 import arrow.typeclasses.MonadContinuation
  34 import reactor.core.publisher.Flux
  35 import reactor.core.publisher.Mono
  36 import java.util.concurrent.atomic.AtomicReference
  37
  38 /**
  39  * @author Piotr Jaszczyk <piotr.jaszczyk@nokia.com>
  40  * @since July 2018
  41  */
  42
  43
  44 object OptionUtils {
  45     fun <A> binding(c: suspend MonadContinuation<ForOption, *>.() -> A)
  46             : Option<A> = Option.monad().binding(c).fix()
  47 }
  48
  49 fun <A> Either<A, A>.flatten() = fold(::identity, ::identity)
  50
  51 fun <B> Either<Throwable, B>.rightOrThrow() = fold({ throw it }, ::identity)
  52
  53 fun <A, B> Either<A, B>.rightOrThrow(mapper: (A) -> Throwable) = fold({ throw mapper(it) }, ::identity)
  54
  55 fun <A : Exception, B> Flux<Either<A, B>>.throwOnLeft(): Flux<B> = map { it.rightOrThrow() }
  56
  57 fun <A, B> Flux<Either<A, B>>.throwOnLeft(f: (A) -> Exception): Flux<B> = map { it.rightOrThrow(f) }
  58
  59 fun <A, B> Mono<Either<A, B>>.throwOnLeft(f: (A) -> Exception): Mono<B> = map { it.rightOrThrow(f) }
  60
  61 fun <A> AtomicReference<A>.getOption() = Option.fromNullable(get())
  62
  63 fun <A> Option.Companion.fromNullablesChain(firstValue: A?, vararg nextValues: () -> A?): Option<A> =
  64         if (firstValue != null)
  65             Option.just(firstValue)
  66         else nextValues.asSequence()
  67                 .map { it() }
  68                 .filter { it != null }
  69                 .firstOption()
  70
  71
  72 fun <A, B> Either<A, B>.doOnLeft(action: () -> Unit): Either<A, B> = apply { if (isLeft()) action() }
  73
  74 fun <A> Option<A>.doOnEmpty(action: () -> Unit): Option<A> = apply { if (isEmpty()) action() }
  75
  76 fun <A> Try<A>.doOnFailure(action: (Throwable) -> Unit): Try<A> = apply {
  77     if (this is Try.Failure) {
  78         action(exception)
  79     }
  80 }
  81
  82 fun <A, B> A.mapBinding(c: suspend MonadContinuation<ForOption, *>.(A) -> B)
  83         : Option<B> = let { OptionUtils.binding { c(it) } }
  84
  85 fun <T> Option<Boolean>.flatFold(ifEmptyOrFalse: () -> T, ifTrue: () -> T) =
  86         fold({
  87             ifEmptyOrFalse()
  88         }, {
  89             if (it) {
  90                 ifTrue()
  91             } else {
  92                 ifEmptyOrFalse()
  93             }
  94         })
  95
  96
  97
  98
  99
 100
 101