16 lines
443 B
Factor
16 lines
443 B
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 ;
|
||
|
|
IN: compiler.cfg.instructions.syntax
|
||
|
|
|
||
|
|
TUPLE: insn ;
|
||
|
|
|
||
|
|
: INSN:
|
||
|
|
parse-tuple-definition "regs" suffix
|
||
|
|
[ dup tuple eq? [ drop insn ] when ] dip
|
||
|
|
[ define-tuple-class ]
|
||
|
|
[ 2drop save-location ]
|
||
|
|
[ 2drop dup '[ f _ boa , ] define-inline ]
|
||
|
|
3tri ; parsing
|