open Akka
open Akka.Actor
open System

type Message = 
    | ContinueProcess 
    | InputSuccess of string
    | InputError of string 
    | NullInput of string
    | ValidateError of string

type ConsoleWriteActor() =
    inherit UntypedActor()
    override x.OnReceive(message) = 
        let msg = message :?> Message 
        match msg with
        |ValidateError r -> printfn "%A" r
        |NullInput r -> printfn "%A" r
        |InputSuccess r -> printfn "%A" r 
        |_ -> printfn "%A" message

[<Literal>]
let ExitCommand = "exit"
[<Literal>]
let StartCommand = "start" 

type ValidateActor(consoleWriterActor: IActorRef) =
    inherit UntypedActor()
    let _consoleWriterActor = consoleWriterActor
    override x.OnReceive(message) = 
        let msg = message :?> string
        if(String.IsNullOrEmpty(msg)) then
            _consoleWriterActor.Tell(NullInput "no input receive")
        else
            if (msg.Length % 2 = 0) then
                _consoleWriterActor.Tell(InputSuccess "Thank you, message is Valid")
            else
                _consoleWriterActor.Tell(ValidateError "Invalid: Odd msg")
        //x.Sender.Tell(ContinueProcess) 1

type ConsoleReaderActor(validateActor:IActorRef) = 
    inherit UntypedActor()
    let _validateActor = validateActor
    override x.OnReceive(message) = 
        if(message.Equals(StartCommand)) then 
            printfn "Start now!"
        else 
            let uinput = message |> string //2
　　　　　　　//let uinput = Console.ReadLine()
            if((not <| String.IsNullOrEmpty(uinput)) && uinput = ExitCommand) then
                UntypedActor.Context.System.Terminate() |> ignore
            else  
                _validateActor.Tell(uinput)

let system = ActorSystem.Create "my-system"
let consoleWriteActor = system.ActorOf(Props.Create<ConsoleWriteActor>())
let validateActor = system.ActorOf(Props.Create<ValidateActor>(consoleWriteActor))
let consoleReadActor = system.ActorOf(Props.Create<ConsoleReaderActor>(validateActor))
consoleReadActor.Tell(StartCommand)
consoleReadActor.Tell("aa")
consoleReadActor.Tell("")
consoleReadActor.Tell("hello")
system.Terminate()