17 lines
506 B
Factor
17 lines
506 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.syntax
|
|
|
|
: define-register ( name num size -- )
|
|
[ "cpu.x86" create dup define-symbol ]
|
|
[ dupd "register" set-word-prop ]
|
|
[ "register-size" set-word-prop ]
|
|
tri* ;
|
|
|
|
: define-registers ( names size -- )
|
|
[ dup length ] dip '[ _ define-register ] 2each ;
|
|
|
|
: REGISTERS: ( -- )
|
|
scan-word ";" parse-tokens swap define-registers ; parsing
|