@@ -1342,6 +1342,49 @@ end
1342
1342
@deprecate srand (filename:: AbstractString , n:: Integer = 4 ) srand (read! (filename, Array {UInt32} (Int (n))))
1343
1343
@deprecate MersenneTwister (filename:: AbstractString ) srand (MersenneTwister (0 ), read! (filename, Array {UInt32} (Int (4 ))))
1344
1344
1345
+ # PR #21956
1346
+ macro _depfftw (f)
1347
+ quote
1348
+ function $ (esc (f))(args... ; kwargs... )
1349
+ error ($ f, " has been moved to the package FFTW.jl.\n " ,
1350
+ " Run `Pkg.add(\" FFTW\" )` to install FFTW on Julia v0.7 and later, " ,
1351
+ " and then run `using FFTW` to load it." )
1352
+ end
1353
+ export $ (esc (f))
1354
+ end
1355
+ end
1356
+ function _fftwie (mod:: Module )
1357
+ s = Symbol (mod)
1358
+ vars = filter (n -> n != = s, names (mod))
1359
+ imports = map (v -> Expr (:import , s, v), vars)
1360
+ return Expr (:toplevel , imports... , Expr (:export , vars... ))
1361
+ end
1362
+
1363
+ module DFT
1364
+ for f in [:bfft , :bfft! , :brfft , :dct , :dct! , :fft , :fft! , :fftshift , :idct , :idct! ,
1365
+ :ifft , :ifft! , :ifftshift , :irfft , :plan_bfft , :plan_bfft! , :plan_brfft ,
1366
+ :plan_dct , :plan_dct! , :plan_fft , :plan_fft! , :plan_idct , :plan_idct! ,
1367
+ :plan_ifft , :plan_ifft! , :plan_irfft , :plan_rfft , :rfft ]
1368
+ @eval Base. @_depfftw ($ f)
1369
+ end
1370
+ module FFTW
1371
+ for f in [:r2r , :r2r! , :plan_r2r , :plan_r2r! ]
1372
+ @eval Base. @_depfftw ($ f)
1373
+ end
1374
+ end
1375
+ end
1376
+ @eval _fftwie ($ DFT)
1377
+
1378
+ const FFTW = DFT. FFTW
1379
+ export FFTW
1380
+
1381
+ module DSP
1382
+ for f in [:conv , :conv2 , :deconv , :filt , :filt! , :xcorr ]
1383
+ @eval Base. @_depfftw ($ f)
1384
+ end
1385
+ end
1386
+ @eval _fftwie ($ DSP)
1387
+
1345
1388
# END 0.7 deprecations
1346
1389
1347
1390
# BEGIN 1.0 deprecations
0 commit comments