Merge pull request #1057 from mattn/mruby-print

mruby-print gem

build_config.rb

@@ -11,6 +11,9 @@ MRuby::Build.new do |conf|
   # conf.gem :github => 'masuidrive/mrbgems-example', :branch => 'master'
   # conf.gem :git => 'git@github.com:masuidrive/mrbgems-example.git', :branch => 'master', :options => '-v'
 
+  # Use standard print/puts/p
+  conf.gem "#{root}/mrbgems/mruby-print"
+
   # Use standard Math module
   conf.gem "#{root}/mrbgems/mruby-math"
 

mrbgems/mruby-print/mrbgem.rake

+MRuby::Gem::Specification.new('mruby-print') do |spec|
+  spec.license = 'MIT'
+  spec.authors = 'mruby developers'
+end

mrbgems/mruby-print/mrblib/print.rb

+##
+# Kernel
+#
+# ISO 15.3.1
+module Kernel
+  ##
+  # Invoke method +print+ on STDOUT and passing +*args+
+  #
+  # ISO 15.3.1.2.10
+  def print(*args)
+    i = 0
+    len = args.size
+    while i < len
+      __printstr__ args[i].to_s
+      i += 1
+    end
+  end
+
+  ##
+  # Invoke method +puts+ on STDOUT and passing +*args*+
+  #
+  # ISO 15.3.1.2.11
+  def puts(*args)
+    i = 0
+    len = args.size
+    while i < len
+      s = args[i].to_s
+      __printstr__ s
+      __printstr__ "\n" if (s[-1] != "\n")
+      i += 1
+    end
+    __printstr__ "\n" if len == 0
+    nil
+  end
+
+  ##
+  # Print human readable object description
+  #
+  # ISO 15.3.1.3.34
+  def p(*args)
+    i = 0
+    len = args.size
+    while i < len
+      __printstr__ args[i].inspect
+      __printstr__ "\n"
+      i += 1
+    end
+    args[0]
+  end
+
+  unless Kernel.respond_to?(:sprintf)
+    def printf(*args)
+      raise NotImplementedError.new('printf not available')
+    end
+    def sprintf(*args)
+      raise NotImplementedError.new('sprintf not available')
+    end
+  else
+    def printf(*args)
+      __printstr__(sprintf(*args))
+      nil
+    end
+  end
+end

mrbgems/mruby-print/src/print.c

+#include "mruby.h"
+#include "mruby/string.h"
+#include <stdio.h>
+
+static void
+printstr(mrb_state *mrb, mrb_value obj)
+{
+  struct RString *str;
+  char *s;
+  int len;
+
+  if (mrb_string_p(obj)) {
+    str = mrb_str_ptr(obj);
+    s = str->ptr;
+    len = str->len;
+    fwrite(s, len, 1, stdout);
+  }
+}
+
+/* 15.3.1.2.9  */
+/* 15.3.1.3.34 */
+mrb_value
+mrb_printstr(mrb_state *mrb, mrb_value self)
+{
+  mrb_value argv;
+
+  mrb_get_args(mrb, "o", &argv);
+  printstr(mrb, argv);
+
+  return argv;
+}
+
+void
+mrb_mruby_print_gem_init(mrb_state* mrb)
+{
+  struct RClass *krn;
+  krn = mrb->kernel_module;
+  mrb_define_method(mrb, krn, "__printstr__", mrb_printstr, ARGS_REQ(1));
+}
+
+void
+mrb_mruby_print_gem_final(mrb_state* mrb)
+{
+}

mrblib/print.rb

@@ -3,78 +3,16 @@
 #
 # ISO 15.3.1
 module Kernel
-  unless Kernel.respond_to?(:__printstr__)
-    def print(*a)
-      raise NotImplementedError.new('print not available')
-    end
-    def puts(*a)
-      raise NotImplementedError.new('puts not available')
-    end
-    def p(*a)
-      raise NotImplementedError.new('p not available')
-    end
-    def printf(*args)
-      raise NotImplementedError.new('printf not available')
-    end
-  else
-    unless Kernel.respond_to?(:sprintf)
-      def printf(*args)
-        raise NotImplementedError.new('printf not available')
-      end
-      def sprintf(*args)
-        raise NotImplementedError.new('sprintf not available')
-      end
-    end
-
-
-    ##
-    # Invoke method +print+ on STDOUT and passing +*args+
-    #
-    # ISO 15.3.1.2.10
-    def print(*args)
-      i = 0
-      len = args.size
-      while i < len
-        __printstr__ args[i].to_s
-        i += 1
-      end
-    end
-
-    ##
-    # Invoke method +puts+ on STDOUT and passing +*args*+
-    #
-    # ISO 15.3.1.2.11
-    def puts(*args)
-      i = 0
-      len = args.size
-      while i < len
-        s = args[i].to_s
-        __printstr__ s
-        __printstr__ "\n" if (s[-1] != "\n")
-        i += 1
-      end
-      __printstr__ "\n" if len == 0
-      nil
-    end
-
-    ##
-    # Print human readable object description
-    #
-    # ISO 15.3.1.3.34
-    def p(*args)
-      i = 0
-      len = args.size
-      while i < len
-        __printstr__ args[i].inspect
-        __printstr__ "\n"
-        i += 1
-      end
-      args[0]
-    end
-
-    def printf(*args)
-      __printstr__(sprintf(*args))
-      nil
-    end
+  def print(*a)
+    raise NotImplementedError.new('print not available')
+  end
+  def puts(*a)
+    raise NotImplementedError.new('puts not available')
+  end
+  def p(*a)
+    raise NotImplementedError.new('p not available')
+  end
+  def printf(*args)
+    raise NotImplementedError.new('printf not available')
   end
 end

src/init.c

@@ -21,7 +21,6 @@ void mrb_init_hash(mrb_state*);
 void mrb_init_numeric(mrb_state*);
 void mrb_init_range(mrb_state*);
 void mrb_init_gc(mrb_state*);
-void mrb_init_print(mrb_state*);
 void mrb_init_math(mrb_state*);
 void mrb_init_mrblib(mrb_state*);
 void mrb_init_mrbgems(mrb_state*);
@@ -48,9 +47,6 @@ mrb_init_core(mrb_state *mrb)
   mrb_init_numeric(mrb); DONE;
   mrb_init_range(mrb); DONE;
   mrb_init_gc(mrb); DONE;
-#ifdef ENABLE_STDIO
-  mrb_init_print(mrb); DONE;
-#endif
   mrb_init_mrblib(mrb); DONE;
 #ifndef DISABLE_GEMS
   mrb_init_mrbgems(mrb); DONE;

src/print.c

@@ -34,29 +34,6 @@ mrb_p(mrb_state *mrb, mrb_value obj)
 #endif
 }
 
-/* 15.3.1.2.9  */
-/* 15.3.1.3.34 */
-mrb_value
-mrb_printstr(mrb_state *mrb, mrb_value self)
-{
-  mrb_value argv;
-
-  mrb_get_args(mrb, "o", &argv);
-  printstr(mrb, argv);
-
-  return argv;
-}
-
-void
-mrb_init_print(mrb_state *mrb)
-{
-  struct RClass *krn;
-
-  krn = mrb->kernel_module;
-
-  mrb_define_method(mrb, krn, "__printstr__", mrb_printstr, ARGS_REQ(1));
-}
-
 void
 mrb_show_version(mrb_state *mrb)
 {