distrib/sources/tbg/tbg_Design.c

   1 /* functions for the pattern.c file */
   2
   3 #include "tbg.h"
   4
   5 extern int   vhdlparse ();
   6 extern FILE *vhdlin;
   7
   8 extern int vhdldebug;
   9
  10 void Design (char *file_name, char *design_name)
  11 {
  12     static int already_done = 0;
  13     char pat_file_name[1024];
  14     char out_file_name[1024];
  15
  16     if (!already_done) {
  17         if ((vhdlin = fopen (file_name, "r"))) {
  18             DESIGN_NAME = strdup (design_name);
  19             //vhdldebug = 1;
  20             vhdlparse ();
  21             fclose (vhdlin);
  22         } else {
  23             fprintf (stderr, "Can't open file %s for writing, exiting...\n", file_name);
  24             EXIT (1);
  25         }
  26     }
  27     already_done = 1;
  28
  29     sprintf (pat_file_name, "%s.pat", design_name);
  30     sprintf (out_file_name, "%s.out", design_name);
  31     if (!(PAT_FILE = fopen (pat_file_name, "w+"))) {
  32         fprintf (stderr, "Can't open file %s for writing, exiting...\n", pat_file_name);
  33         EXIT (1);
  34     }
  35     PAT_FILE_NAME = strdup (pat_file_name);
  36     OUT_FILE_NAME = strdup (out_file_name);
  37 }