16 lines
509 B
Factor
16 lines
509 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel words sequences lexer parser fry ;
|
|
IN: cpu.x86.assembler.syntax
|
|
|
|
: define-register ( name num size -- )
|
|
>r >r "cpu.x86.assembler" create dup define-symbol r> r>
|
|
>r dupd "register" set-word-prop r>
|
|
"register-size" set-word-prop ;
|
|
|
|
: define-registers ( names size -- )
|
|
'[ _ define-register ] each-index ;
|
|
|
|
: REGISTERS: ( -- )
|
|
scan-word ";" parse-tokens swap define-registers ; parsing
|