mirror of https://gitee.com/bigwinds/arangodb
67 lines
1.3 KiB
C
67 lines
1.3 KiB
C
/*
|
|
** 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();
|
|
if (mrb == NULL) {
|
|
fprintf(stderr, "Invalid mrb_state, exiting test driver");
|
|
return EXIT_FAILURE;
|
|
}
|
|
|
|
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 */
|
|
}
|
|
mrb_close(mrb);
|
|
|
|
return 0;
|
|
}
|