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

Go to download
/**
 *  Copyright (c) 2010-2012, The StaccatoCommons 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);
  }

}