/* -*- c++ -*- */
/* 
 * Copyright 2015 Free Software Foundation, Inc.
 * 
 * This file is part of GNU Radio
 * 
 * GNU Radio is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3, or (at your option)
 * any later version.
 * 
 * GNU Radio is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with GNU Radio; see the file COPYING.  If not, write to
 * the Free Software Foundation, Inc., 51 Franklin Street,
 * Boston, MA 02110-1301, USA.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <gnuradio/io_signature.h>
#include <gnuradio/fec/polar_encoder_systematic.h>
#include <volk/volk.h>

namespace gr {
  namespace fec {
    namespace code {

      generic_encoder::sptr
      polar_encoder_systematic::make(int block_size, int num_info_bits,
                                     std::vector<int> frozen_bit_positions)
      {
        return generic_encoder::sptr(
            new polar_encoder_systematic(block_size, num_info_bits, frozen_bit_positions));
      }

      polar_encoder_systematic::polar_encoder_systematic(int block_size, int num_info_bits,
                                                         std::vector<int> frozen_bit_positions) :
          polar_common(block_size, num_info_bits, frozen_bit_positions, std::vector<char>())
      {
        d_volk_syst_intermediate = (unsigned char*) volk_malloc(sizeof(unsigned char) * block_size, volk_get_alignment());
      }

      polar_encoder_systematic::~polar_encoder_systematic()
      {
        volk_free(d_volk_syst_intermediate);
      }

      void
      polar_encoder_systematic::generic_work(void* in_buffer, void* out_buffer)
      {
        const unsigned char *in = (const unsigned char*) in_buffer;
        unsigned char *out = (unsigned char*) out_buffer;

        volk_encode(out, in);
        bit_reverse_and_reset_frozen_bits(d_volk_syst_intermediate, out);
        volk_encode_block(out, d_volk_syst_intermediate);
      }

      void
      polar_encoder_systematic::bit_reverse_and_reset_frozen_bits(unsigned char* outbuf,
                                                                  const unsigned char* inbuf)
      {
        memset(outbuf, 0, sizeof(unsigned char) * block_size());
        for(int i = 0; i < num_info_bits(); i++){
          outbuf[d_info_bit_positions[i]] = inbuf[d_info_bit_positions_reversed[i]];
        }
      }

    } /* namespace code */
  } /* namespace fec */
} /* namespace gr */