factor/basis/byte-arrays/hex/hex.factor

11 lines
311 B
Factor
Raw Normal View History

2009-07-28 15:38:10 -04:00
! Copyright (C) 2009 Maxim Savchenko, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: grouping lexer ascii parser sequences kernel math.parser ;
IN: byte-arrays.hex
SYNTAX: HEX{
"}" parse-tokens "" join
[ blank? not ] filter
2 group [ hex> ] B{ } map-as
2009-10-28 14:38:27 -04:00
suffix! ;