curses 1.3.0 → 1.4.2

data/ext/curses/extconf.rb

@@ -1,4 +1,6 @@
 require 'mkmf'
+require 'shellwords'
+require 'fileutils'
 
 def have_all(*args)
   old_libs = $libs.dup
@@ -21,22 +23,78 @@ def have_all(*args)
   end
 end
 
-dir_config('curses')
-dir_config('ncurses')
-dir_config('termcap')
-
-have_library("mytinfo", "tgetent") if /bow/ =~ RUBY_PLATFORM
-have_library("tinfo", "tgetent") or have_library("termcap", "tgetent")
+def exec_command(cmd)
+  puts "> #{cmd}"
+  if !system(cmd)
+    STDERR.puts("External command failed")
+    exit 1
+  end
+end
 
-header_library = nil
-[
+$library_candidates = [
   ["ncursesw/curses.h", ["ncursesw"]],
   ["ncurses.h", ["ncursesw", "ncurses"]],
   ["ncurses/curses.h", ["ncurses"]],
   ["curses_colr/curses.h", ["cur_colr"]],
   ["curses.h", ["curses", "pdcurses"]],
   # ["xcurses.h", ["XCurses"]], # XCurses (PDCurses for X11)
-].each {|hdr, libs|
+]
+
+$mingw = /mingw/ =~ RUBY_PLATFORM
+$mswin = /mswin/ =~ RUBY_PLATFORM
+$windows = $mingw || $mswin
+$x64 = /x64/ =~ RUBY_PLATFORM
+$use_system_libs = arg_config('--use-system-libraries',
+                              ENV.key?("CURSES_USE_SYSTEM_LIBRARIES"))
+$idefault = nil
+$ldefault = nil
+$pdcurses_wide_default = nil
+$pdcurses_dll_default = nil
+$curses_version_default = nil
+$use_bundled_pdcurses = !$use_system_libs && /mingw|mswin/ =~ RUBY_PLATFORM
+if $use_bundled_pdcurses
+  $pdcurses_wide_default = true
+  $curses_version_default = "function"
+  pdcurses_dir = File.expand_path("../../vendor/PDCurses", __dir__)
+  $idefault = $ldefault = pdcurses_dir
+  wincon_dir = File.expand_path("wincon", pdcurses_dir)
+  old_dir = Dir.pwd
+  Dir.chdir(wincon_dir)
+  begin
+    if $mswin
+      exec_command "nmake -f Makefile.vc clean all WIDE=Y DLL=Y"
+      FileUtils.cp("pdcurses.dll", pdcurses_dir)
+      FileUtils.cp("pdcurses.lib", pdcurses_dir)
+      $pdcurses_dll_default = true
+    else
+      if $x64
+        exec_command "make -f Makefile.mng clean all _w64=1 WIDE=Y DLL=N"
+      else
+        exec_command "make -f Makefile.mng clean all WIDE=Y DLL=N"
+      end
+      FileUtils.cp("pdcurses.a", File.expand_path("libpdcurses.a", pdcurses_dir))
+    end
+  ensure
+    Dir.chdir(old_dir)
+  end
+  FileUtils.cp(File.expand_path("curses.h", pdcurses_dir),
+               File.expand_path("pdcurses.h", pdcurses_dir))
+  $library_candidates = [
+    ["pdcurses.h", ["pdcurses"]]
+  ]
+end
+
+dir_config('curses', $idefault, $ldefault)
+dir_config('ncurses')
+dir_config('termcap')
+
+have_library("mytinfo", "tgetent") if /bow/ =~ RUBY_PLATFORM
+have_library("tinfow", "tgetent") ||
+  have_library("tinfo", "tgetent") ||
+  have_library("termcap", "tgetent")
+
+header_library = nil
+$library_candidates.each {|hdr, libs|
   header_library = have_all(
     lambda { have_header(hdr) && hdr },
     lambda {|h| libs.find {|lib| have_library(lib, "initscr", h) } })
@@ -86,8 +144,8 @@ if header_library
   #   --with-curses-version=function    for SVR4
   #   --with-curses-version=variable    for ncurses and PDcurses
   #   (not given)                       automatically determined
-
-  case with_curses_version = with_config("curses-version")
+  with_curses_version = with_config("curses-version", $curses_version_default)
+  case with_curses_version
   when "function"
     $defs << '-DHAVE_FUNC_CURSES_VERSION'
   when "variable"
@@ -133,33 +191,88 @@ if header_library
     warn "unexpected value for --with-curses-version: #{with_curses_version}"
   end
 
-  if enable_config("pdcurses-wide")
+  if enable_config("pdcurses-wide", $pdcurses_wide_default)
     $defs << '-DPDC_WIDE'
   end
 
-  if enable_config("pdcurses-dll")
+  if enable_config("pdcurses-dll", $pdcurses_dll_default)
     $defs << '-DPDC_DLL_BUILD'
   end
 
-  if (have_header("ncursesw/menu.h") ||
-      have_header("ncurses/menu.h") ||
-      have_header("curses/menu.h") ||
-      have_header("menu.h")) &&
+  if !$use_bundled_pdcurses &&
+      (have_header("ncursesw/menu.h") ||
+       have_header("ncurses/menu.h") ||
+       have_header("curses/menu.h") ||
+       have_header("menu.h")) &&
       (have_library("menuw", "new_menu") ||
        have_library("menu", "new_menu"))
     $defs << '-DHAVE_MENU'
   end
 
-  if (have_header("ncursesw/form.h") ||
-      have_header("ncurses/form.h") ||
-      have_header("curses/form.h") ||
-      have_header("form.h")) &&
+  if !$use_bundled_pdcurses &&
+      (have_header("ncursesw/form.h") ||
+       have_header("ncurses/form.h") ||
+       have_header("curses/form.h") ||
+       have_header("form.h")) &&
       (have_library("formw", "new_form") ||
        have_library("form", "new_form"))
     $defs << '-DHAVE_FORM'
     have_func("form_driver_w")
   end
 
+  ["WINDOW", "MEVENT", "ITEM", "MENU", "FIELD", "FORM"].each do |type|
+    checking_for("sizeof(#{type}) is available") {
+      if try_compile(<<EOF, Shellwords.join($defs))
+#if defined(HAVE_PDCURSES_H)
+# include <pdcurses.h>
+#elif defined(HAVE_NCURSESW_CURSES_H)
+# include <ncursesw/curses.h>
+#elif defined(HAVE_NCURSES_CURSES_H)
+# include <ncurses/curses.h>
+#elif defined(HAVE_NCURSES_H)
+# include <ncurses.h>
+#elif defined(HAVE_CURSES_COLR_CURSES_H)
+# ifdef HAVE_STDARG_PROTOTYPES
+#  include <stdarg.h>
+# else
+#  include <varargs.h>
+# endif
+# include <curses_colr/curses.h>
+#else
+# include <curses.h>
+#endif
+
+#if defined(HAVE_NCURSESW_MENU_H)
+# include <ncursesw/menu.h>
+#elif defined(HAVE_NCURSES_MENU_H)
+# include <ncurses/menu.h>
+#elif defined(HAVE_CURSES_MENU_H)
+# include <curses/menu.h>
+#elif defined(HAVE_MENU_H)
+# include <menu.h>
+#endif
+
+#if defined(HAVE_NCURSESW_FORM_H)
+# include <ncursesw/form.h>
+#elif defined(HAVE_NCURSES_FORM_H)
+# include <ncurses/form.h>
+#elif defined(HAVE_CURSES_FORM_H)
+# include <curses/form.h>
+#elif defined(HAVE_FORM_H)
+# include <form.h>
+#endif
+
+const int sizeof_#{type} = (int) sizeof(#{type});
+EOF
+        $defs << "-DCURSES_SIZEOF_#{type}=sizeof(#{type})"
+        true
+      else
+        $defs << "-DCURSES_SIZEOF_#{type}=0"
+        false
+      end
+    }
+  end
+
   if RUBY_VERSION >= '2.1'
     create_header
     create_makefile("curses")

data/lib/curses.rb

@@ -1,24 +1,17 @@
-platform = RUBY_PLATFORM.sub(/i[3-7]86/, "x86")
-pdcurses_path = File.expand_path("../vendor/#{platform}/PDCurses", __dir__)
-pdcurses_bundled = File.directory?(pdcurses_path)
-if pdcurses_bundled
+pdcurses_dll = File.expand_path("../vendor/PDCurses/pdcurses.dll", __dir__)
+if File.exist?(pdcurses_dll)
   path = ENV["PATH"]
   dir = File::ALT_SEPARATOR ?
-    pdcurses_path.tr("/", File::ALT_SEPARATOR) : dir
+    File.dirname(pdcurses_dll).tr("/", File::ALT_SEPARATOR) : dir
   dirs = path.split(File::PATH_SEPARATOR)
   if !dirs.include?(dir)
     ENV["PATH"] = [dir, *dirs].join(File::PATH_SEPARATOR)
   end
 end
 
-begin
-  major, minor, _ = RUBY_VERSION.split(/\./)
-  require "#{major}.#{minor}/curses.so"
-rescue LoadError
-  require "curses.so"
-end
+require "curses.so"
 
-if pdcurses_bundled
+if /mingw|mswin/ =~ RUBY_PLATFORM
   Curses.keyboard_encoding = Encoding::UTF_8
 end
 

data/sample/addch.rb

@@ -0,0 +1,16 @@
+require_relative "../lib/curses"
+include Curses
+
+init_screen
+begin
+  addstr("The following letter A should be BOLD and UNDERLINED by using addch:\n")
+  addch('A'.ord | A_BOLD | A_UNDERLINE)
+
+  addstr("\nIt should look the same as when using attron and addstr:\n")
+  attron(A_BOLD | A_UNDERLINE)
+  addstr("A")
+  getch
+
+ensure
+  close_screen
+end

data/sample/attr_demo.rb

@@ -0,0 +1,32 @@
+require "curses"
+include Curses
+
+init_screen
+begin
+  attrs = {
+    A_NORMAL =>     'Normal display (no highlight)',
+    A_STANDOUT =>   'Best highlighting mode of the terminal',
+    A_UNDERLINE =>  'Underlining',
+    A_REVERSE =>    'Reverse video',
+    A_BLINK =>      'Blinking',
+    A_DIM =>        'Half bright',
+    A_BOLD =>       'Extra bright or bold',
+    A_PROTECT =>    'Protected mode',
+    A_INVIS =>      'Invisible or blank mode',
+    A_ALTCHARSET => 'Alternate character set',
+  }
+
+  longest_description = attrs.values.map(&:size).max
+  attrs.each { |attribute, description|
+
+    attrset(A_NORMAL)
+    addstr("#{description.ljust(longest_description)}: ")
+
+    attrset(attribute)
+    addstr([*('a'..'z'), *('0'..'9')].join + "\n")
+  }
+  getch
+
+ensure
+  close_screen
+end

data/sample/colors.rb

@@ -0,0 +1,26 @@
+require "curses"
+include Curses
+
+begin
+  init_screen
+
+  if !Curses.has_colors?
+    addstr "This Terminal does not support colors!"
+  else
+    start_color
+
+    addstr "This Terminal supports #{colors} colors.\n"
+
+    Curses.colors.times { |i|
+      Curses.init_pair(i, i, 0)
+      attrset(color_pair(i))
+      addstr("#{i.to_s.rjust(3)} ")
+      addstr("\n") if i == 15 || (i > 16 && (i - 15) % 36 == 0)
+    }
+  end
+
+  getch
+
+ensure
+  close_screen
+end

data/sample/menu.rb

@@ -9,9 +9,9 @@ at_exit do
 end
 
 menu = Curses::Menu.new([
-  ["Apple", "Red fruit"],
-  ["Orange", "Orange fruit"],
-  ["Banana", "Yellow fruit"]
+  Curses::Item.new("Apple", "Red fruit"),
+  Curses::Item.new("Orange", "Orange fruit"),
+  Curses::Item.new("Banana", "Yellow fruit")
 ])
 menu.post
 

data/sample/mouse_move.rb

@@ -0,0 +1,75 @@
+#!/usr/bin/env ruby
+#
+# Mouse movement tracking using CSI 1003 and 1006 (SGR). Will print a cursor that moves with the mouse.
+#
+
+require "curses"
+include Curses
+
+@positions = []
+
+def draw_cursor(y, x, button, state)
+
+  # Keep a trail of 10 previous positions visible on the screen
+  if @positions.size >= 10
+    y_old, x_old = @positions.shift
+    setpos(y_old, x_old)
+    addstr(" ")
+  end
+
+  setpos(2, 1)
+  addstr("Mouse is at y=#{y.to_s.ljust(3)} x=#{x.to_s.ljust(3)} button=#{button.to_s.ljust(3)} #{'%08b' % button}")
+
+  setpos(y, x)
+  addstr("+")
+  @positions << [y, x]
+end
+
+init_screen
+crmode
+noecho
+stdscr.box('|', "-")
+setpos(1,1)
+addstr("Please move your mouse. Press 'q' to close.")
+
+begin
+  # Switch on mouse continous position reporting
+  print("\x1b[?1003h")
+
+  # Also enable SGR extended reporting, because otherwise we can only
+  # receive values up to 160x94. Everything else confuses Ruby Curses.
+  print("\x1b[?1006h")
+
+  loop do
+    c = get_char
+    case c
+    when "q"
+      return
+    when "\e" # ESC
+      case get_char
+      when '['
+        csi = ""
+        loop do
+          d = get_char
+          csi += d
+          if d.ord >= 0x40 && d.ord <= 0x7E
+            break
+          end
+        end
+        if /<(\d+);(\d+);(\d+)(m|M)/ =~ csi
+          button = $1.to_i
+          x = $2.to_i
+          y = $3.to_i
+          state = $4
+          draw_cursor(y, x, button, state)
+        end
+      end
+    end
+  end
+
+ensure
+  print("\x1b[?1003l")
+  print("\x1b[?1006l")
+  close_screen
+end
+

data/vendor/PDCurses/.gitignore

@@ -0,0 +1,47 @@
+*.[oa]
+*.exe
+firework
+manext
+libXCurses.so
+ozdemo
+newtest
+ptest
+rain
+sdltest
+testcurs
+tuidemo
+worm
+xmas
+*.sho
+Makefile
+config.h
+config.log
+config.status
+PDCurses.md
+xcurses-config
+*.dll
+wingui.gif
+wingui.htm
+*.bat
+clock.c
+clock1.c
+fullscrn.c
+hello
+hello.c
+wingui/wcr*
+wingui/wct*
+wingui/wc_*
+wingui/wcw*
+wingui/z*
+wingui/scr2html.c
+wingui/newtest*
+wingui/*.sav
+wingui/*.def
+wincon/*.def
+*.obj
+*.bak
+*.map
+*.lib
+m
+.vscode
+build