tjaskula

open System
open System.Threading

type FiberResult<'a> = Result<'a, exn> option

[<Sealed;AllowNullLiteral>]
type Cancel(parent: Cancel) =
  let mutable flag: int = 0
  let mutable children: Cancel list = []
  new() = Cancel(null)

tjaskula

using System;
using System.Runtime.CompilerServices;
using System.Runtime.ExceptionServices;
using System.Threading;

namespace Fibers
{
    public struct AsyncFiberMethodBuilder<T>
    {
        private Fiber<T>? fiber;

tjaskula

f(events) -> state
    match f(state, event) -> state

f(state, command) -> events

tjaskula

Recursion and Trampolines in Scala

Recursion is beautiful. As an example, let's consider this perfectly acceptable example of defining the functions even and odd in Scala, whose semantics you can guess:

def even(i: Int): Boolean = i match {
  case 0 => true
  case _ => odd(i - 1)
}

def odd(i: Int): Boolean = i match {

tjaskula

module FunDomain.Persistence.NEventStore.NesGateway

open FunDomain.Persistence.Serialization

open NEventStore
open NEventStore.Persistence
open NEventStore.Persistence.Sql.SqlDialects

open Microsoft.FSharp.Reflection
open System

tjaskula

// Udi style w Static Domain Events

var dispatcher = new RecordingDomainEventsDispatcher();

DomainEvents.Dispatcher = dispatcher;

var customer = new Customer(new Address());
customer.Move(new Address());

Console.WriteLine("Customer moved: " + dispatcher.RecordedDomainEvent(new CustomerMoved()));