all-flags ( -- parser )

Vocabulary

cpu.8080.emulator

Inputs

None

Outputs

parser

an object

Definition

USING: peg peg.private ;

IN: cpu.8080.emulator

: all-flags ( -- parser )
    T{ parser
        { peg
            T{ action-parser
                { parser
                    T{ parser
                        { peg ~choice-parser~ }
                        { compiled ( gensym ) }
                        { id 2027 }
                    }
                }
                { quot [ flag-lookup ] }
            }
        }
        { compiled ( gensym ) }
        { id 2028 }
    } ;