1 files changed, 87 insertions, 0 deletions
diff --git a/src/version.c b/src/version.c
new file mode 100644
index 000000000..d69c6941c
--- /dev/null
+++ b/src/version.c
@@ -0,0 +1,87 @@
+/**********************************************************************
+
+  version.c -
+
+  $Author: knu $
+  $Date: 2008-05-31 22:37:06 +0900 (Sat, 31 May 2008) $
+  created at: Thu Sep 30 20:08:01 JST 1993
+
+  Copyright (C) 1993-2003 Yukihiro Matsumoto
+
+**********************************************************************/
+
+#include "mruby.h"
+#include "version.h"
+#include <stdio.h>
+#include "mruby/string.h"
+#include "variable.h"
+
+#define PRINT(type) puts(ruby_##type)
+//#define MKSTR(type) mrb_obj_freeze(mrb_str_new(ruby_##type, sizeof(ruby_##type)-1))
+#define MKSTR(type) mrb_str_new(mrb, ruby_##type, sizeof(ruby_##type)-1)
+
+const char ruby_version[] = RUBY_VERSION;
+const char ruby_release_date[] = RUBY_RELEASE_DATE;
+const char ruby_platform[] = RUBY_PLATFORM;
+const int ruby_patchlevel = RUBY_PATCHLEVEL;
+const char ruby_engine[] = RUBY_ENGINE;
+
+void
+Init_version(mrb_state *mrb)
+{
+    char description[128];
+    char copyright[128];
+    mrb_value v = MKSTR(version);
+    mrb_value d = MKSTR(release_date);
+    mrb_value p = MKSTR(platform);
+    mrb_value e = MKSTR(engine);
+    mrb_value tmp;
+
+    mrb_define_global_const(mrb, "RUBY_VERSION", v);
+    mrb_define_global_const(mrb, "RUBY_RELEASE_DATE", d);
+    mrb_define_global_const(mrb, "RUBY_PLATFORM", p);
+    mrb_define_global_const(mrb, "RUBY_PATCHLEVEL", mrb_fixnum_value(RUBY_PATCHLEVEL));
+    mrb_define_global_const(mrb, "RUBY_ENGINE", e);
+
+    snprintf(description, sizeof(description), "ruby %s (%s %s %d) [%s]",
+             RUBY_VERSION, RUBY_RELEASE_DATE, RUBY_RELEASE_STR,
+             RUBY_RELEASE_NUM, RUBY_PLATFORM);
+    //tmp = mrb_obj_freeze(mrb_str_new2(description));
+    tmp = mrb_str_new2(mrb, description);
+    mrb_define_global_const(mrb, "RUBY_DESCRIPTION", tmp);
+
+    snprintf(copyright, sizeof(copyright), "ruby - Copyright (C) %d-%d %s",
+             RUBY_BIRTH_YEAR, RUBY_RELEASE_YEAR, RUBY_AUTHOR);
+    //tmp = mrb_obj_freeze(mrb_str_new2(copyright));
+    tmp = mrb_str_new2(mrb, copyright);
+    mrb_define_global_const(mrb, "RUBY_COPYRIGHT", tmp);
+
+    /* obsolete constants */
+    mrb_define_global_const(mrb, "VERSION", v);
+    mrb_define_global_const(mrb, "RELEASE_DATE", d);
+    mrb_define_global_const(mrb, "PLATFORM", p);
+}
+
+void
+ruby_show_version(mrb_state *mrb)
+{
+  mrb_value v = mrb_const_get(mrb, mrb_obj_value(mrb->object_class), mrb_intern(mrb, "RUBY_DESCRIPTION"));
+
+  if (mrb_type(v) != MRB_TT_STRING)
+    return;
+
+  puts(RSTRING_PTR(v));
+  fflush(stdout);
+}
+
+void
+ruby_show_copyright(mrb_state *mrb)
+{
+  mrb_value v = mrb_const_get(mrb, mrb_obj_value(mrb->object_class), mrb_intern(mrb, "RUBY_COPYRIGHT"));
+
+  if (mrb_type(v) != MRB_TT_STRING)
+    return;
+
+  puts(RSTRING_PTR(v));
+  exit(0);
+}