IFFT.bsv
上传用户:aoptech
上传日期:2014-09-22
资源大小:784k
文件大小:3k
源码类别:

3G开发

开发平台:

Others

  1. // The MIT License
  2. //
  3. // Copyright (c) 2006 Nirav Dave (ndave@csail.mit.edu)
  4. //
  5. // Permission is hereby granted, free of charge, to any person obtaining a copy
  6. // of this software and associated documentation files (the "Software"), to deal
  7. // in the Software without restriction, including without limitation the rights
  8. // to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  9. // copies of the Software, and to permit persons to whom the Software is
  10. // furnished to do so, subject to the following conditions:
  11. //
  12. // The above copyright notice and this permission notice shall be included in
  13. // all copies or substantial portions of the Software.
  14. //
  15. // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  16. // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17. // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  18. // AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  19. // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  20. // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  21. // THE SOFTWARE.
  22. import ComplexF::*;
  23. import DataTypes::*;
  24. import Interfaces::*;
  25. import IFFT_Library::*;
  26. import Pipelines::*;
  27. import FIFO::*;
  28. import FIFOF::*;
  29. import Vector::*;
  30. (* synthesize *)
  31. module  mkIFFT_Circ(IFFT#(64));
  32.   let _x <- mkIFFT(mkPipeline_Circ(2'd3, 2'd1, stagefunction));
  33.   return (_x);
  34. endmodule  
  35. (* synthesize *)
  36. module  mkIFFT_Pipe(IFFT#(64));
  37.   let _x <- mkIFFT(mkPipeline_Sync(2'd3, 2'd1, stagefunction));
  38.   return (_x);
  39. endmodule  
  40. (* synthesize *)
  41. module  mkIFFT_Comb(IFFT#(64));
  42.   let _x <- mkIFFT(mkPipeline_Comb(2'd3, 2'd1, stagefunction));
  43.   return (_x);
  44. endmodule  
  45. (* synthesize *)
  46. module  mkIFFT_Circ_w_1Radix(IFFT#(64));
  47.   let _x <- mkIFFT(mkPipeline_Circ(6'd48, 6'd1, stagefunction2));
  48.   return (_x);
  49. endmodule  
  50. (* synthesize *)
  51. module  mkIFFT_Circ_w_2Radix(IFFT#(64));
  52.   let _x <- mkIFFT(mkPipeline_Circ(6'd48, 6'd2, stagefunction2));
  53.   return (_x);
  54. endmodule 
  55. (* synthesize *)
  56. module  mkIFFT_Circ_w_4Radix(IFFT#(64));
  57.   let _x <- mkIFFT(mkPipeline_Circ(6'd48, 6'd4, stagefunction2));
  58.   return (_x);
  59. endmodule 
  60. (* synthesize *)
  61. module  mkIFFT_Circ_w_8Radix(IFFT#(64));
  62.   let _x <- mkIFFT(mkPipeline_Circ(6'd48, 6'd8, stagefunction2));
  63.   return (_x);
  64. endmodule 
  65. module [Module] mkIFFT#(Module#(Pipeline#(IFFTData)) mkP)
  66.               (IFFT#(64));
  67.    Pipeline#(IFFTData) p <- mkP(); 
  68.   
  69.    method Action fromMapper(MsgComplexFVec#(64) x);
  70.      IFFTData data = x.data;
  71.      IFFTData reordered_data = newVector();
  72.      for(Integer i = 0; i < 64; i = i + 1)
  73.        begin
  74.          // note swapped values
  75.  reordered_data[i].i = data[63-reorder[i]].q;
  76.  reordered_data[i].q = data[63-reorder[i]].i;
  77.        end
  78.      p.put(reordered_data);
  79.    endmethod
  80.    // output to cyclic extend queue method
  81.    method ActionValue#(MsgComplexFVec#(64)) toCyclicExtender();
  82.      IFFTData data <- p.get();
  83.      IFFTData data_out = newVector();
  84.      for(Integer i = 0; i < 64; i = i + 1)
  85.        begin
  86.  data_out[i].i = data[63-i].q;
  87.  data_out[i].q = data[63-i].i;
  88.        end
  89.      return(MsgComplexFVec{
  90.               new_message: True, 
  91.       data       : data_out
  92.              });
  93.    endmethod
  94.   
  95.   
  96.   
  97.   
  98. endmodule