matz	2008-12-09 13:31:41 +0900 (Tue, 09 Dec 2008)

  New Revision: 20592

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=20592

  Log:
    * ext/curses/curses.c (curses_use_default_colors): add new
      method.  a patch from Giancarlo F Bellido
      <support at coaxialhost.com> in [ruby-core:20434].
    * ext/curses/curses.c (curses_tabsize_set): ditto.
    
    * ext/curses/curses.c (curses_tabsize_get): ditto.

  Modified files:
    trunk/ChangeLog
    trunk/ext/curses/curses.c
    trunk/ext/curses/extconf.rb

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 20591)
+++ ChangeLog	(revision 20592)
@@ -6,6 +6,16 @@
 
 	* vm_insnhelper.c (check_cfunc): use function pointer.
 
+Tue Dec  9 13:23:55 2008  Yukihiro Matsumoto  <matz@r...>
+
+	* ext/curses/curses.c (curses_use_default_colors): add new
+	  method.  a patch from Giancarlo F Bellido
+	  <support at coaxialhost.com> in [ruby-core:20434].
+
+	* ext/curses/curses.c (curses_tabsize_set): ditto.
+
+	* ext/curses/curses.c (curses_tabsize_get): ditto.
+
 Tue Dec  9 12:08:47 2008  Nobuyoshi Nakada  <nobu@r...>
 
 	* .gdbinit (rp): fixed typo for T_STRUCT.
Index: ext/curses/curses.c
===================================================================
--- ext/curses/curses.c	(revision 20591)
+++ ext/curses/curses.c	(revision 20592)
@@ -499,6 +499,12 @@
     return INT2FIX(COLS);
 }
 
+/**
+ * Sets Cursor Visibility.
+ * 0: invisible
+ * 1: visible
+ * 2: very visible
+ */
 static VALUE
 curses_curs_set(VALUE obj, VALUE visibility)
 {
@@ -573,6 +579,38 @@
 }
 
 static VALUE
+curses_use_default_colors(VALUE obj)
+{
+#if defined(HAVE_USE_DEFAULT_COLORS)
+	use_default_colors();
+	return Qnil;
+#else
+	rb_notimplement();
+#endif
+}
+
+static VALUE
+curses_tabsize_set(VALUE obj, VALUE val)
+{
+#if defined(HAVE_TABSIZE)
+	TABSIZE=NUM2INT(val);
+	return INT2NUM(TABSIZE);
+#else
+	rb_notimplement();
+#endif
+}
+
+static VALUE
+curses_tabsize_get(VALUE ojb)
+{
+#if defined(HAVE_TABSIZE)
+	return INT2NUM(TABSIZE);
+#else
+	rb_notimplement();
+#endif
+}
+
+static VALUE
 curses_escdelay_set(VALUE obj, VALUE val)
 {
 #if defined(HAVE_ESCDELAY)
@@ -1442,6 +1480,10 @@
 
     rb_define_module_function(mCurses, "ESCDELAY=", curses_escdelay_set, 1);
     rb_define_module_function(mCurses, "ESCDELAY", curses_escdelay_get, 0);
+    rb_define_module_function(mCurses, "TABSIZE", curses_tabsize_get, 0);
+    rb_define_module_function(mCurses, "TABSIZE=", curses_tabsize_set, 1);
+
+    rb_define_module_function(mCurses, "use_default_colors", curses_use_default_colors, 0);
     rb_define_module_function(mCurses, "init_screen", curses_init_screen, 0);
     rb_define_module_function(mCurses, "close_screen", curses_close_screen, 0);
     rb_define_module_function(mCurses, "closed?", curses_closed, 0);
Index: ext/curses/extconf.rb
===================================================================
--- ext/curses/extconf.rb	(revision 20591)
+++ ext/curses/extconf.rb	(revision 20592)
@@ -21,7 +21,7 @@
 end
 
 if make
-  for f in %w(beep bkgd bkgdset curs_set deleteln doupdate flash getbkgd getnstr init isendwin keyname keypad resizeterm scrl set setscrreg ungetch wattroff wattron wattrset wbkgd wbkgdset wdeleteln wgetnstr wresize wscrl wsetscrreg def_prog_mode reset_prog_mode timeout wtimeout nodelay init_color wcolor_set)
+  for f in %w(beep bkgd bkgdset curs_set deleteln doupdate flash getbkgd getnstr init isendwin keyname keypad resizeterm scrl set setscrreg ungetch wattroff wattron wattrset wbkgd wbkgdset wdeleteln wgetnstr wresize wscrl wsetscrreg def_prog_mode reset_prog_mode timeout wtimeout nodelay init_color wcolor_set use_default_colors)
     have_func(f) || (have_macro(f, curses) && $defs.push(format("-DHAVE_%s", f.upcase)))
   end
   flag = "-D_XOPEN_SOURCE_EXTENDED"
@@ -29,5 +29,6 @@
     $defs << flag
   end
   have_var("ESCDELAY", curses)
+  have_var("TABSIZE", curses)
   create_makefile("curses")
 end

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/