Subversion Repositories hwlu

/************************************************************/
/* Filename   : gen_priority_encoder.c                      */
/* Description: Generates priority_encoder module.          */
/* Author     : Nikolaos Kavvadias, <nkavv@physics.auth.gr> */
/* Date       : Friday, 09/04/2004                          */
/* Revision   : 09/02/2010: Created common.[c|h].           */
/************************************************************/
 
#include <stdio.h>
#include <stdlib.h>   
#include <time.h>     
#include "common.h"                             
 
#define PRINT_DEBUG
 
 
// FUNCTION PROTOTYPES 
void write_file_priority_encoder(FILE *outfile);
 
 
FILE *file_priority_encoder; /* VHDL source for the priority_encoder module of the 
                              * hw_looping unit (priority_encoder.vhd) */
char priority_encoder_file_name[32];
int nlp;
time_t t;
 
 
int main(int argc, char **argv) 
{ 
  int i;
  int gen_priority_encoder_file;
  char nlp_s[3];
 
  gen_priority_encoder_file = 0;
 
  if( argc < 3 )
  {
    printf("Usage: gen_priority_encoder <num loops> <output base>\n"); 
    printf("where:\n");                     
    printf("num loops   = give number of supported loops\n");
    printf("output base = output file base name. The generated files will be named:\n");
    printf("              \"<output base>.vhd\" for the module\n");
    //
    printf("\n");
    //
    return -1;
  }
 
  // Acquire number of supported loops
  strcpy(nlp_s,argv[1]);
  nlp = atoi(nlp_s);
 
  // Filenames for the requested VHDL source files
  sprintf(priority_encoder_file_name,"%s_loops%s%s", argv[2], nlp_s, ".vhd");
  gen_priority_encoder_file = 1;                
 
 
  // DEBUG OUTPUT      
  #ifdef PRINT_DEBUG
    printf("\n");
    //
    printf("nlp = %d\n",nlp);
    printf("priority_encoder_file_name = %s\n", priority_encoder_file_name);
    //
  #endif        
 
 
  /******************************************************/
  /* Generate VHDL source for the priority_encoder unit */
  /******************************************************/
  if (gen_priority_encoder_file == 1)
  {
    file_priority_encoder = fopen(priority_encoder_file_name,"w");                            
    write_file_priority_encoder(file_priority_encoder);
    fclose(file_priority_encoder);
  }          
 
  return 0;
 
} 
 
 
void write_file_priority_encoder(
                      FILE *outfile     // Name for the output file -- e.g. mbloop_merger.vhd 
                     )
{
  int i;    
 
  // Get current time
  time(&t);            
 
  /* Generate interface for the VHDL file */
  fprintf(outfile,"----==============================================================----\n");
  fprintf(outfile,"----                                                              ----\n"); 
  fprintf(outfile,"---- Filename: %s                                   ----\n", priority_encoder_file_name);
  fprintf(outfile,"---- Module description: Priority encoder unit. Obtains           ----\n"); 
  fprintf(outfile,"----        increment and reset decisions for the loop indices.   ----\n");
  fprintf(outfile,"----                                                              ----\n");
  fprintf(outfile,"---- Author: Nikolaos Kavvadias                                   ----\n");
  fprintf(outfile,"----         nkavv@physics.auth.gr                                ----\n");
  fprintf(outfile,"----                                                              ----\n");
  fprintf(outfile,"----                                                              ----\n");
  fprintf(outfile,"---- Part of the hwlu OPENCORES project generated automatically   ----\n");
  fprintf(outfile,"---- with the use of the \"gen_priority_encoder\" tool              ----\n");
  fprintf(outfile,"----                                                              ----\n");
  fprintf(outfile,"---- To Do:                                                       ----\n");
  fprintf(outfile,"----         Considered stable for the time being                 ----\n");
  print_vhdl_header_common(outfile);
 
  /* Code generation for library inclusions */
  fprintf(outfile,"library IEEE;\n");
  fprintf(outfile,"use IEEE.std_logic_1164.all;\n");
  fprintf(outfile,"use IEEE.std_logic_unsigned.all;\n");
  fprintf(outfile,"\n");
 
  /* Generate entity declaration */
  fprintf(outfile,"entity priority_encoder is\n");            
  fprintf(outfile,"\tgeneric (\n");           
  fprintf(outfile,"\t\tNLP : integer := %d\n", nlp);                        
  fprintf(outfile,"\t);\n");            
  fprintf(outfile,"\tport (\n");
  fprintf(outfile,"\t\tflag           : in std_logic_vector(NLP-1 downto 0);\n");
  fprintf(outfile,"\t\ttask_loop%d_end : in std_logic;\n", nlp);
  fprintf(outfile,"\t\tincl           : out std_logic_vector(NLP-1 downto 0);\n");
  fprintf(outfile,"\t\treset_vct      : out std_logic_vector(NLP-1 downto 0);\n");
  fprintf(outfile,"\t\tloops_end      : out std_logic\n");
  fprintf(outfile,"\t);\n");            
  fprintf(outfile,"end priority_encoder;\n");
  fprintf(outfile,"\n");
 
  /* Generate architecture declaration */
  fprintf(outfile,"architecture rtl of priority_encoder is\n");           
 
  /* Add component declarations here if needed */   
 
  /* Add signal declarations here if needed */    
 
  /* Continue with the rest of the architecture declaration */          
  fprintf(outfile,"begin\n");
  fprintf(outfile,"\n");                        
 
  fprintf(outfile,"\t-- Fully-nested loop structure with %d loops\n", nlp);
  fprintf(outfile,"\t-- From outer to inner: ");
  //                                               
  i = nlp-1;
  fprintf(outfile,"%d", nlp-1);
  //
  if (nlp>=2)
  {                          
    for (i=nlp-2; i>=0; i--)
      fprintf(outfile,"-> %d",i);
  }   
  //
  fprintf(outfile,"\n");
 
  // Loop counter
  i = nlp-1;
 
  /********************/
  /* GENERATE process */
  /********************/
 
  fprintf(outfile,"\tprocess (flag, task_loop%d_end)\n", nlp);
  fprintf(outfile,"\tbegin\n");
  fprintf(outfile,"\t\t--\n");
  fprintf(outfile,"\t\t-- if loop%d is terminating:\n", i);
  fprintf(outfile,"\t\t-- reset loops %d-%d to initial index\n", i, 0);
  //
  fprintf(outfile,"\t\tif (flag(%d downto 0) = \"", i);
  print_binary_value_fbone( outfile, ipow(2,i+1)-1 );           
  fprintf(outfile,"\") then\n");
  //
  fprintf(outfile,"\t\t\tincl <= \"");
  print_binary_value( outfile, 0, nlp );           
  fprintf(outfile,"\";\n");
  //                 
  fprintf(outfile,"\t\t\treset_vct <= \"");
  print_binary_value( outfile, ipow(2,i+1)-1, nlp );           
  fprintf(outfile,"\";\n");
  //                 
  fprintf(outfile,"\t\t\tloops_end <= '1';\n");
 
  // Loop on all "elsif" cases: i=2 -> i=nlp                 
  for (i=nlp-2; i>=0; i--)
  {
    fprintf(outfile,"\t\t-- else if loop%d is terminating:\n", i);
    fprintf(outfile,"\t\t-- 1. increment loop%d index\n", i+1);
    fprintf(outfile,"\t\t-- 2. reset loop%d to initial index\n", i);
    //    
    fprintf(outfile,"\t\telsif (flag(%d downto 0) = \"", i);
    print_binary_value_fbone( outfile, ipow(2,i+1)-1 );           
    fprintf(outfile,"\") then\n");
    //
    fprintf(outfile,"\t\t\tincl <= \"");
    print_binary_value( outfile, ipow(2,i+1), nlp );           
    fprintf(outfile,"\";\n");
    //
    fprintf(outfile,"\t\t\treset_vct <= \"");
    print_binary_value( outfile, ipow(2,i+1)-1, nlp );           
    fprintf(outfile,"\";\n");
    //
    fprintf(outfile,"\t\t\tloops_end <= '0';\n");
  }                                       
 
  // Else increment inner loop                 
  fprintf(outfile,"\t\t-- else increment loop%d index\n", i);
  fprintf(outfile,"\t\telse\n");
  //                          
  fprintf(outfile,"\t\t\treset_vct <= \"");
  print_binary_value( outfile, 0, nlp );           
  fprintf(outfile,"\";\n");
  // 
  fprintf(outfile,"\t\t\tloops_end <= '0';\n");                       
  //
  fprintf(outfile,"\t\t\tif (task_loop%d_end = '1') then\n", nlp);
  fprintf(outfile,"\t\t\t\tincl <= \"");
  print_binary_value( outfile, ipow(2,i+1), nlp );           
  fprintf(outfile,"\";\n");                                       
  fprintf(outfile,"\t\t\telse\n");
  fprintf(outfile,"\t\t\t\tincl <= \"");
  print_binary_value( outfile, 0, nlp );           
  fprintf(outfile,"\";\n");     
  fprintf(outfile,"\t\t\tend if;\n");                       
  //                    
  fprintf(outfile,"\t\tend if;\n");                       
  fprintf(outfile,"\tend process;\n");                       
  fprintf(outfile,"\n");                        
  //
  fprintf(outfile,"end rtl;\n");                                                  
}