1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel words sequences lexer parser fry ;
4 IN: cpu.x86.assembler.syntax
6 : define-register ( name num size -- )
7 [ "cpu.x86.assembler" create dup define-symbol ] 2dip
8 [ dupd "register" set-word-prop ] dip
9 "register-size" set-word-prop ;
11 : define-registers ( names size -- )
12 '[ _ define-register ] each-index ;
15 scan-word ";" parse-tokens swap define-registers ; parsing