Merge pull request #417 from aycabta/implement-tigetflag

Implement Reline::Terminfo.tigetflag

Author: aycabta

lib/reline/terminfo.rb

@@ -74,7 +74,15 @@ module Reline::Terminfo
  #extern 'char *tparm(const char *str, ...)'
  @tiparm = Fiddle::Function.new(curses_dl['tparm'], [Fiddle::TYPE_VOIDP, Fiddle::TYPE_VARIADIC], Fiddle::TYPE_VOIDP)
  end
- # TODO: add int tigetflag(char *capname) and int tigetnum(char *capname)
+ begin
+ #extern 'char *tigetflag(const char *str, ...)'
+ @tigetflag = Fiddle::Function.new(curses_dl['tigetflag'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_INT)
+ rescue Fiddle::DLError
+ # OpenBSD lacks tigetflag
+ #extern 'char *tgetflag(const char *str, ...)'
+ @tigetflag = Fiddle::Function.new(curses_dl['tgetflag'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_INT)
+ end
+ # TODO: add int tigetnum(char *capname)
 
  def self.setupterm(term, fildes)
  errret_int = String.new("\x00" * 8, encoding: 'ASCII-8BIT')
@@ -122,6 +130,17 @@ def self.tiparm(str, *args)
  @tiparm.(str, *new_args).to_s
  end
 
+ def self.tigetflag(capname)
+ flag = @tigetflag.(capname).to_i
+ case flag
+ when -1
+ raise TerminfoError, "not boolean capability: #{capname}"
+ when 0
+ raise TerminfoError, "can't find capability: #{capname}"
+ end
+ flag
+ end
+
  def self.enabled?
  true
  end

test/reline/test_terminfo.rb

@@ -29,4 +29,18 @@ def test_tiparm_with_param
  rescue Reline::Terminfo::TerminfoError => e
  omit e.message
  end
+
+ def test_tigetflag
+ assert_instance_of Integer, Reline::Terminfo.tigetflag('xenl')
+ rescue Reline::Terminfo::TerminfoError => e
+ omit e.message
+ end
+
+ def test_tigetflag_with_error
+ assert_raise(Reline::Terminfo::TerminfoError) { Reline::Terminfo.tigetflag('cuu') }
+ end
+
+ def test_tigetflag_with_error_unknwon
+ assert_raise(Reline::Terminfo::TerminfoError) { Reline::Terminfo.tigetflag('unknown') }
+ end
 end if Reline::Terminfo.enabled?