Dorthy

//-------------------------------------------------//
//                                                 //
//                         FMN                     //
//                                                 //
//-------------------------------------------------//
 
#Dorthy

    -machine-
    
        $Begin
		|start| 
			print("Starting") 
			-> $Kansas ^
		|enter| print("Never called!") ^
		|exit| print("Dim the lights!") ^
                
        $Kansas
		|enter| print("That dog's a menace to the community.") ^   
		|tornado| -> $Oz ^
		|exit| print("Aunty Em!") ^
            
        $Oz
		|enter| print("We aren't in Kansas anymore") ^   
		|3 heel clicks| -> $Kansas ^
		|exit| print("There's no place like home!") ^          
            
 //-------------------------------------------------//
 //                                                 //
 //                 Implementation                  //
 //                                                 //
 //-------------------------------------------------//
  
 class Dorthy {
    
   	// -machine-
    
   	var _state(e:FrameEvent) = Begin
    
	/**********************************

        $Begin
		|start| 
			print("Starting") 
			-> $Kansas ^
		|enter| print("Never called!") ^
		|exit| print("Dim the lights!") ^
                

        ***********************************/
    
	func Begin(e:FrameEvent) {
		if (e._msg == "start") {
		    print("Starting")			
		    _transition(Kansas)
		    return
		}
		if (e._msg == "enter") {
		    print("Never called!")
		    return
		}
		if (e._msg == "exit") {
		    print("Dim the lights!")
		    return
		}
	}
    
	/**********************************

        $Kansas
		|enter| print("That dog's a menace to the community.") ^   
		|tornado| -> $Oz ^
		|exit| print("Aunty Em!") ^
            

	***********************************/
    
	func Kansas(e:FrameEvent) {
		if (e._msg == "enter") {
		    print("That dog's a menace to the community.")
		    return
		}
		if (e._msg == "tornado") {
		    _transition(Oz)
		    return
		}
		if (e._msg == "exit") {
		    print("Aunty Em!")
		    return
		}
	}  

	/**********************************

        $Oz
		|enter| print("We aren't in Kansas anymore") ^   
		|3 heel clicks| -> $Kansas ^
		|exit| print("There's no place like home!") ^          

	***********************************/

	func Oz(e:FrameEvent) {
		if (e._msg == "enter") {
		    print("We aren't in Kansas anymore")
		    return
		}
		if (e._msg == "3 heel clicks") {
		    _transition(Kansas)
		    return
		}
		if (e._msg == "exit") {
		    print("There's no place like home!")
		    return
		}
	}  

	// machinery

	func _transition(newState:FrameState) {
		_state(new FrameEvent("exit"))
		_state = newState
		_state(new FrameEvent("enter"))
	}
}