Subversion Repositories pavr

#include <string.h>

#include <io.h>

#include <stdio.h>

#include <stdlib.h>

#include <malloc.h>

#include "../common/tagScan.h"

#define TAG_CLK_CNT_BEGIN      "-- <Clk Cnt>"

#define TAG_CLK_CNT_END        "-- </Clk Cnt>"

#define TAG_INSTRUCTIONS_BEGIN "-- <Instructions>"

#define TAG_INSTRUCTIONS_END   "-- </Instructions>"

#define CLK_OFFSET 100

//#define K1 "         if std_logic_vector_to_nat(cnt)<"

//#define K2 " then\n"

#define K3 "               when "

#define K4 " => tmpv1 := pm_setup("

#define K5 ", 16#"

#define K6 "#);\n"

int main(int argc, char * argv[]) {

   FILE *fStr1;

   scanTag_t stag;

   long int pos1, pos2;

   char *tStr1, *tStr2;

   int instr;

   int addr;

   if (argc > 2)

   {

      scanTag_t_construct(&stag);

      fStr1 = fopen(argv[2], "rb");

      if (fStr1 != NULL)

      {

         fseek(fStr1, 0L, SEEK_SET);

         pos1 = ftell(fStr1);

         fseek(fStr1, 0L, SEEK_END);

         pos2 = ftell(fStr1);

         tStr1 = (char *) malloc(10+2);

         tStr2 = (char *) malloc(10+2);

         sprintf(tStr2, "%li", CLK_OFFSET+(pos2-pos1)/2);

         strcpy(tStr1, "\n");

         //strcat(tStr1, K1);

         strcat(tStr1, tStr2);

         strcat(tStr1, "\n");

         //strcat(tStr1, K2);

         // Scan VHDL source and modify the paragraph tagged by `-- <Clk Cnt>' `-- </Clk Cnt>'.

         scanTag_t_writeTaggedText(TAG_CLK_CNT_BEGIN, TAG_CLK_CNT_END, tStr1, argv[1], &stag);

         free(tStr1);

         tStr1 = (char *) malloc((pos2-pos1)*(sizeof(K3)+10+sizeof(K4)+10+sizeof(K5)+10+sizeof(K6))+2);

         strcpy(tStr1, "\n");

         fseek(fStr1, 0L, SEEK_SET);

         addr = 0;

         while (feof(fStr1) == 0)

         {

            fread(&instr, 2, 1, fStr1);

            if (feof(fStr1) == 0)

            {

               strcat(tStr1, K3);

               sprintf(tStr2, "%i", addr+CLK_OFFSET);

               strcat(tStr1, tStr2);

               strcat(tStr1, K4);

               sprintf(tStr2, "%i", addr);

               strcat(tStr1, tStr2);

               strcat(tStr1, K5);

               sprintf(tStr2, "%04x", instr);

               strcat(tStr1, tStr2);

               strcat(tStr1, K6);

               addr++;

            }

         }

         // Scan VHDL source and modify the paragraph tagged by `-- <Instructions>' `-- </Instructions>'.

         scanTag_t_writeTaggedText(TAG_INSTRUCTIONS_BEGIN, TAG_INSTRUCTIONS_END, tStr1, argv[1], &stag);

         free(tStr1);

         free(tStr2);

      }

      else

      {

         exit(1);

      }

      fprintf(stdout, "%s\n", scanTag_t_getStatus(&stag));

      scanTag_t_destruct(&stag);

   }

   else

   {

      fprintf(stderr, "Usage: this_executable.exe src.vhd prog.bin\n");

   }

   return 0;

}