frame-lang

#TCPProtocol

	-machine-
    
    $Closed
    	|>|
        	activeOpen() ? 
            	-> "Active\nOpen" $SynSent 
            : 
            	-> "Passive\nOpen" $Listen :: ^

frame-lang

```
package trafficlight

import (
	"encoding/json"

	"github.com/frame-lang/frame-demos/persistenttrafficlight/framelang"
)
```
#[derive(Managed,Marshal)]

frame-lang

```
package trafficlight
import (
    "github.com/frame-lang/frame-demos/persistenttrafficlight/framelang"
)
```
#TrafficLightMom

    -interface-
    

frame-lang

#Iterator

    -interface-

    start @(|>>|)

    -machine-

    $Start 
        |>>| 

frame-lang

--- see https://www.lucidchart.com/blog/what-is-workflow

#EditorialWorkflow

    -machine-

    $GatherInfo
        |done| -> $FirstDraft ^

    $FirstDraft 

frame-lang

#AliceProtocolSpec

    -machine-

    $Start 
        |seeBob| 
            -> $GreetBob ^

    $GreetBob 
        |>| 

frame-lang

#InterfaceSpec

    -interface-

    yo
    foo[bar:String]:bool
    start @(|>>|)
    stop  @(|<<|)
##

frame-lang

#HierarchicalStateMachine

    -interface-

    start @(|>>|)
    stop @(|<<|)

    -machine-

    $Begin

frame-lang

#TransitionEnterEventParametersSpec

    -interface-

    start[msg:String]

    -machine-

    $Start 
        |start|[msg:String]

frame-lang

#VariablesSpec

    -interface-

    start @(|>>|)
    
    -machine-

    $Start
        |>>| -> $Working ^