Subversion Repositories hwlu

/************************************************************/

/* Filename   : common.c                                    */

/* Description: Commonly used functions.                    */

/* Author     : Nikolaos Kavvadias, <nkavv@physics.auth.gr> */

/* Date       : Tuesday, 09/02/2010.                        */

/* Revision   : --                                          */

/************************************************************/

#include <stdio.h>

#include <stdlib.h>   

void print_vhdl_header_common(FILE *outfile)

{

  fprintf(outfile,"----                                                              ----\n");

  fprintf(outfile,"---- Author: Nikolaos Kavvadias                                   ----\n");

  fprintf(outfile,"----         nkavv@physics.auth.gr                                ----\n");

  fprintf(outfile,"----                                                              ----\n");

  fprintf(outfile,"----==============================================================----\n");

  fprintf(outfile,"----                                                              ----\n");

  fprintf(outfile,"---- Copyright (C) 2004-2010   Nikolaos Kavvadias                 ----\n");

  fprintf(outfile,"----                    nkavv@uop.gr                              ----\n");

  fprintf(outfile,"----                    nkavv@physics.auth.gr                     ----\n");

  fprintf(outfile,"----                    nikolaos.kavvadias@gmail.com              ----\n");

  fprintf(outfile,"----                                                              ----\n");

  fprintf(outfile,"---- This source file may be used and distributed without         ----\n");

  fprintf(outfile,"---- restriction provided that this copyright statement is not    ----\n");

  fprintf(outfile,"---- removed from the file and that any derivative work contains  ----\n");

  fprintf(outfile,"---- the original copyright notice and the associated disclaimer. ----\n");

  fprintf(outfile,"----                                                              ----\n");

  fprintf(outfile,"---- This source file is free software; you can redistribute it   ----\n");

  fprintf(outfile,"---- and/or modify it under the terms of the GNU Lesser General   ----\n");

  fprintf(outfile,"---- Public License as published by the Free Software Foundation; ----\n");

  fprintf(outfile,"---- either version 2.1 of the License, or (at your option) any   ----\n");

  fprintf(outfile,"---- later version.                                               ----\n");

  fprintf(outfile,"----                                                              ----\n");

  fprintf(outfile,"---- This source is distributed in the hope that it will be       ----\n");

  fprintf(outfile,"---- useful, but WITHOUT ANY WARRANTY; without even the implied   ----\n");

  fprintf(outfile,"---- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR      ----\n");

  fprintf(outfile,"---- PURPOSE. See the GNU Lesser General Public License for more  ----\n");

  fprintf(outfile,"---- details.                                                     ----\n");

  fprintf(outfile,"----                                                              ----\n");

  fprintf(outfile,"---- You should have received a copy of the GNU Lesser General    ----\n");

  fprintf(outfile,"---- Public License along with this source; if not, download it   ----\n");

  fprintf(outfile,"---- from <http://www.opencores.org/lgpl.shtml>                   ----\n");

  fprintf(outfile,"----                                                              ----\n");

  fprintf(outfile,"----==============================================================----\n");

  fprintf(outfile,"--\n");

  fprintf(outfile,"-- CVS Revision History\n");

  fprintf(outfile,"--\n");

  fprintf(outfile,"\n");

}

unsigned ipow(unsigned x, unsigned y)

{

  unsigned i;

  unsigned result;

  result = 1;

  for (i=1; i<=y; i++)

    result = result*x;

  return result;

}

unsigned dectobin(unsigned bin_data, int num_bits)

{

   int count;

   unsigned MASK;

   unsigned result;

   unsigned result_arr[100];

   count = num_bits;

   MASK = 1<<(count-1);

   result = 0;

   for (count=num_bits-1; count>-1; count--)

   {

     result_arr[count] = (( bin_data & MASK ) ? 1 : 0 );

     bin_data <<= 1;

   }

   for (count=num_bits-1; count>-1; count--)

     result = ipow(10,count)*result_arr[count] + result;

   return result;

}

/* log2 function for integers: unsigned log2(unsigned operand) */

unsigned log2(unsigned operand)

{

  unsigned temp;

  unsigned log_val;

  temp = operand-1;

  //temp = operand;

  log_val = 0;

  while (temp > 0)

  {

    temp = temp/2;

    log_val = log_val + 1;

  }

  return log_val;

}

void print_binary_value(FILE *outfile, int i, int bw)

{

  // Print integer value

  switch (bw)

  {

    case 1:

      fprintf(outfile,"%d",dectobin( i, bw ));

      break;

    case 2:

      fprintf(outfile,"%02d",dectobin( i, bw ));

      break;

    case 3:

      fprintf(outfile,"%03d",dectobin( i, bw ));

      break;

    case 4:

      fprintf(outfile,"%04d",dectobin( i, bw ));

      break;

    case 5:

      fprintf(outfile,"%05d",dectobin( i, bw ));

      break;

    case 6:

      fprintf(outfile,"%06d",dectobin( i, bw ));

      break;

    case 7:

      fprintf(outfile,"%07d",dectobin( i, bw ));

      break;

    case 8:

      fprintf(outfile,"%08d",dectobin( i, bw ));

      break;

    case 9:

      fprintf(outfile,"%09d",dectobin( i, bw ));

      break;

    case 10:

      fprintf(outfile,"%10d",dectobin( i, bw ));

      break;

    case 11:

      fprintf(outfile,"%11d",dectobin( i, bw ));

      break;

    case 12:

      fprintf(outfile,"%12d",dectobin( i, bw ));

      break;

    case 13:

      fprintf(outfile,"%13d",dectobin( i, bw ));

      break;

    case 14:

      fprintf(outfile,"%14d",dectobin( i, bw ));

      break;

    case 15:

      fprintf(outfile,"%15d",dectobin( i, bw ));

      break;

    case 16:

      fprintf(outfile,"%16d",dectobin( i, bw ));

      break;

    default:

      break;

  }

}

// Print binary value -- First bit is "one".

void print_binary_value_fbone(FILE *outfile, int i)

{

  // Print integer value

  switch ( log2(i) )

  {

    // i = 1

    case 0:

      fprintf(outfile,"%d",dectobin( i, i ));

      break;

    // i = 2:3

    case 1:

      fprintf(outfile,"%d",dectobin( i, log2(i) ));

      break;

    // i = 4:7 

    case 2:

      fprintf(outfile,"%02d",dectobin( i, log2(i) ));

      break;

    // i = 8:15

    case 3:

      fprintf(outfile,"%03d",dectobin( i, log2(i) ));

      break;

    // i = 16:31

    case 4:

      fprintf(outfile,"%04d",dectobin( i, log2(i) ));

      break;

    // i = 32:63

    case 5:

      fprintf(outfile,"%05d",dectobin( i, log2(i) ));

      break;

    default:

      break;

  }

}