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