net.sf.staccatocommons.control.monad.BoundMonad Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of commons-control Show documentation

The newest version!

/*
 Copyright (c) 2011, The Staccato-Commons Team

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU Lesser General Public License as published by
 the Free Software Foundation; version 3 of the License.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU Lesser General Public License for more details.
 */
package net.sf.staccatocommons.control.monad;

import net.sf.staccatocommons.defs.Applicable;

/**
 * @author flbulgarelli
 * @since 1.2
 */
public class BoundMonad extends AbstractMonad {

  private final MonadicValue sourceValue;
  private final Applicable> sourceBind;

  /**
   * Creates a new {@link BoundMonad}
   */
  public BoundMonad(MonadicValue sourceValue, Applicable> sourceBind) {
    this.sourceValue = sourceValue;
    this.sourceBind = sourceBind;
  }

  public MonadicValue monadicValue() {
    return new MonadicValue() {
      public  void eval(final Applicable> function) {
        sourceValue.eval(new Applicable>() {
          public Monad apply(A arg) {
            return sourceBind.apply(arg).bind(function);
          }
        });
      }
    };
  }

  public void run() {
    sourceValue.eval(sourceBind);
  }

}