basis/math/vectors/simd/simd.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types cpu.architecture kernel
   4 math.vectors.simd.functor vocabs.loader ;
   5 FROM: sequences => each ;
   6 IN: math.vectors.simd
   7
   8 <<
   9
  10 { double float char uchar short ushort int uint }
  11 [ [ define-simd-128 ] [ define-simd-256 ] bi ] each
  12
  13 >>
  14
  15 "math.vectors.simd.alien" require