factor/basis/compiler/cfg/instructions/syntax/syntax.factor

! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: classes.tuple classes.tuple.parser kernel words
make fry sequences parser accessors ;
IN: compiler.cfg.instructions.syntax

: insn-word ( -- word )
    #! We want to put the insn tuple in compiler.cfg.instructions,
    #! but we cannot have circularity between that vocabulary and
    #! this one.
    "insn" "compiler.cfg.instructions" lookup ;

: insn-effect ( word -- effect )
    boa-effect [ but-last ] change-in { } >>out ;

: INSN:
    parse-tuple-definition "regs" suffix
    [ dup tuple eq? [ drop insn-word ] when ] dip
    [ define-tuple-class ]
    [ 2drop save-location ]
    [ 2drop [ ] [ '[ f _ boa , ] ] [ insn-effect ] tri define-inline ]
    3tri ; parsing