\ FFT includes.

\ assign Signal Processing (sp) directory to current directory

assign sp: ""

DECIMAL

max-inline @  120 max-inline !

INCLUDE?  float_fft?  sp:fftcontrols

float_fft? jforth2?     AND .IF
     INCLUDE?  f+  ju:float.ffp  FPINIT  DETACHMODULE ASSEM  .THEN

INCLUDE?  {  ju:locals

float_fft? jforth2? NOT AND .IF
     INCLUDE?  float  ju:f.   ALSO floating  open-float  .THEN


asm_fft? jforth2?     AND .IF  INCLUDE? Z* sp:fft.asm    .THEN
asm_fft? jforth2? NOT AND .IF  INCLUDE? Z* sp:fftold.asm .THEN

w_table_fft? .IF
include?  w-table-fft  sp:wtable
.THEN

asm_fft? NOT .IF  INCLUDE? nsbits sp:fftmisc  .THEN
INCLUDE? s+     sp:cmplx
INCLUDE? fft1   sp:fft1

max-inline !