core/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 sequences lexer parser ;
   4 IN: cpu.x86.assembler.syntax
   5
   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 ;
  10
  11 : define-registers ( names size -- )
  12     >r dup length r> [ define-register ] curry 2each ;
  13
  14 : REGISTERS: ( -- )
  15     scan-word ";" parse-tokens swap define-registers ; parsing