tests/test-interpreter.c

   1
   2 #include <st-types.h>
   3 #include <st-symbol.h>
   4 #include <st-compiler.h>
   5 #include <st-cpu.h>
   6 #include <st-array.h>
   7 #include <st-lexer.h>
   8 #include <st-node.h>
   9 #include <st-universe.h>
  10 #include <st-object.h>
  11 #include <st-float.h>
  12
  13 #include <stdlib.h>
  14 #include <stdio.h>
  15 #include <stdbool.h>
  16
  17 #define BUF_SIZE 10000
  18
  19 int
  20 main (int argc, char *argv[])
  21 {
  22     st_compiler_error error;
  23     char buffer[BUF_SIZE];
  24     char *string;
  25     st_oop value;
  26     char c;
  27     int i = 0;
  28
  29     /* the big bang */
  30     st_bootstrap_universe ();
  31
  32     while ((c = getchar ()) != EOF && i < (BUF_SIZE - 1))
  33         buffer[i++] = c;
  34     buffer[i] = '\0';
  35
  36     string = st_strconcat ("doIt ^ [", buffer, "] value", NULL);
  37
  38     bool result = st_compile_string (ST_UNDEFINED_OBJECT_CLASS, string, &error);
  39     if (!result) {
  40         fprintf (stderr, "test-processor:%i: %s\n",
  41                  error.line, error.message);
  42         return 1;
  43     }
  44
  45     st_cpu_initialize ();
  46
  47     struct timeval before, after;
  48     double elapsed;
  49
  50     gettimeofday (&before, NULL);
  51
  52     st_cpu_main ();
  53
  54     gettimeofday (&after, NULL);
  55
  56     elapsed = after.tv_sec - before.tv_sec +
  57         (after.tv_usec - before.tv_usec) / 1.e6;
  58
  59     /* inspect the returned value on top of the stack */
  60     value = ST_STACK_PEEK ((&__cpu));
  61
  62     printf ("result: %s\n", st_object_printString (value));
  63     printf ("time %.9f seconds\n", elapsed);
  64
  65
  66     return 0;
  67 }