basis/cpu/x86/assembler/syntax/syntax.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel words words.symbol sequences lexer parser fry ;
   4 IN: cpu.x86.assembler.syntax
   5
   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 ;
  10
  11 : define-registers ( names size -- )
  12     '[ _ define-register ] each-index ;
  13
  14 : REGISTERS: ( -- )
  15     scan-word ";" parse-tokens swap define-registers ; parsing