forked from mruby/mruby
/
driver.c
60 lines (50 loc) · 1.18 KB
/
driver.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
/*
** mrbtest - Test for Embeddable Ruby
**
** This program runs Ruby test programs in test/t directory
** against the current mruby implementation.
*/
#include <string.h>
#include <mruby.h>
#include <mruby/proc.h>
#include <mruby/data.h>
#include <mruby/compile.h>
void
mrb_init_mrbtest(mrb_state *);
/* Print a short remark for the user */
void print_hint(void)
{
printf("mrbtest - Embeddable Ruby Test\n");
printf("\nThis is a very early version, please test and report errors.\n");
printf("Thanks :)\n\n");
}
int
main(void)
{
struct mrb_parser_state *parser;
mrb_state *mrb;
mrb_value return_value;
int byte_code;
const char *prog = "report()";
print_hint();
/* new interpreter instance */
mrb = mrb_open();
mrb_init_mrbtest(mrb);
parser = mrb_parse_nstring(mrb, prog, strlen(prog));
/* generate bytecode */
byte_code = mrb_generate_code(mrb, parser->tree);
/* evaluate the bytecode */
return_value = mrb_run(mrb,
/* pass a proc for evaulation */
mrb_proc_new(mrb, mrb->irep[byte_code]),
mrb_top_self(mrb));
/* did an exception occur? */
if (mrb->exc) {
mrb_p(mrb, return_value);
mrb->exc = 0;
}
else {
/* no */
}
return 0;
}