helloactor.fsx

open System
open System.Threading.Tasks
open Proto
open Proto.Mailbox

type Actor with
    static member SpawnFromFunc handler =
        let wrapper = fun c -> 
            handler(c)
            Task.FromResult(0)
            
        Actor.FromFunc(wrapper) |> Actor.Spawn

[<EntryPoint>]
let main argv = 
    let handler = 
        fun (context : IContext) ->
            match context.Message with
            | :? string as s -> printfn "%s" s
            | _ as o -> printfn "Unhandled message type: %s" (o.GetType().Name)
    
    let pid = handler |> Actor.SpawnFromFunc
    pid.Tell("Testing 1 2 3")

    Console.WriteLine "Press ENTER to continue..."
    Console.ReadLine() |> ignore
    0 // return an integer exit code