testsuite/perf_parse.c

   1
   2 #include <orc/orc.h>
   3 #include <orc-test/orctest.h>
   4 #include <orc/orcparse.h>
   5
   6 #include <stdio.h>
   7 #include <stdlib.h>
   8
   9 static char * read_file (const char *filename);
  10 void output_code (OrcProgram *p, FILE *output);
  11 void output_code_header (OrcProgram *p, FILE *output);
  12 void output_code_test (OrcProgram *p, FILE *output);
  13
  14 int error = FALSE;
  15
  16 int
  17 main (int argc, char *argv[])
  18 {
  19   char *code;
  20   int n;
  21   int i;
  22   OrcProgram **programs;
  23   const char *filename = NULL;
  24
  25   orc_init ();
  26   orc_test_init ();
  27
  28   if (argc >= 2) {
  29     filename = argv[1];
  30   }
  31   if (filename == NULL) {
  32     filename = getenv ("testfile");
  33   }
  34   if (filename == NULL) {
  35     filename = "test.orc";
  36   }
  37   code = read_file (filename);
  38   if (!code) {
  39     printf("perf_parse <file.orc>\n");
  40     exit(1);
  41   }
  42
  43   n = orc_parse (code, &programs);
  44
  45   for(i=0;i<n;i++){
  46     printf("%-30s %g\n", programs[i]->name,
  47         orc_test_performance_full (programs[i], 0, NULL));
  48   }
  49
  50   if (error) return 1;
  51   return 0;
  52 }
  53
  54
  55 static char *
  56 read_file (const char *filename)
  57 {
  58   FILE *file = NULL;
  59   char *contents = NULL;
  60   long size;
  61   int ret;
  62
  63   file = fopen (filename, "r");
  64   if (file == NULL) return NULL;
  65
  66   ret = fseek (file, 0, SEEK_END);
  67   if (ret < 0) goto bail;
  68
  69   size = ftell (file);
  70   if (size < 0) goto bail;
  71
  72   ret = fseek (file, 0, SEEK_SET);
  73   if (ret < 0) goto bail;
  74
  75   contents = malloc (size + 1);
  76   if (contents == NULL) goto bail;
  77
  78   ret = fread (contents, size, 1, file);
  79   if (ret < 0) goto bail;
  80
  81   contents[size] = 0;
  82
  83   return contents;
  84 bail:
  85   /* something failed */
  86   if (file) fclose (file);
  87   if (contents) free (contents);
  88
  89   return NULL;
  90 }
  91