File tests/grammars/lexemes/adverbs/event-on/gcr_tcl artifact f4c44e7885 part of check-in d8022c427d

grammar {
    global {
        start B
        inaccessible warn
    }
    g1 {
        {} {
            B { {priority A 0
                    action {array values}
                    assoc left
                    mask 0} }
        }
        terminal {
            A { terminal }
        }
    }
    lexeme {
        action {array values}
    }
    l0 {
        events {
            A {
                before {
                    snafu on
                }
            }
        }
        latm {
            A 1
        }
        lexeme {
            A { {priority @CHR:<a> 0} }
        }
        literal {
            @CHR:<a> { {character 97} }
        }
    }
}