ncurses 0.9.1

data/examples/read_line.rb

@@ -0,0 +1,67 @@
+#!/usr/bin/env ruby
+# Emacs: This is -*- ruby -*- code!
+# 
+# Unfinished read_line function
+#
+# Written 2003, 2004 by Tobias Peters
+# No warranties
+# Share and enjoy!
+
+require "ncurses"
+
+# read_line returns an array
+# [string, last_cursor_position_in_string, keycode_of_terminating_enter_key].
+# Complete the "when" clauses before including in your app!
+def read_line(y, x,
+              window     = Ncurses.stdscr,
+              max_len    = (window.getmaxx - x - 1),
+              string     = "",
+              cursor_pos = 0)
+  loop do
+    window.mvaddstr(y,x,string)
+    window.move(y,x+cursor_pos)
+    ch = window.getch
+    case ch
+    when Ncurses::KEY_LEFT
+      cursor_pos = [0, cursor_pos-1].max
+    when Ncurses::KEY_RIGHT
+      # similar, implement yourself !
+    when Ncurses::KEY_ENTER, ?\n, ?\r
+      return string, cursor_pos, ch # Which return key has been used?
+    when Ncurses::KEY_BACKSPACE
+      string = string[0...([0, cursor_pos-1].max)] + string[cursor_pos..-1]
+      cursor_pos = [0, cursor_pos-1].max
+      window.mvaddstr(y, x+string.length, " ")
+    # when etc...
+    when " "[0]..255 # remaining printables
+      if (cursor_pos < max_len)
+        string[cursor_pos,0] = ch.chr
+        cursor_pos += 1
+      else
+        Ncurses.beep
+      end
+    else
+      Ncurses.beep
+    end
+  end    	
+end    
+
+if (__FILE__ == $0) then begin
+  # demo mode
+  Ncurses.initscr
+  Ncurses.cbreak
+  Ncurses.noecho
+
+  # recognize KEY_ENTER, KEY_BACKSPACE  etc
+  Ncurses.keypad(Ncurses.stdscr, true)
+  
+  y = 10
+  x = 2
+  prompt = "Hallo > "
+  Ncurses.mvaddstr(y,x, prompt)
+  s = read_line(y, x + prompt.length)
+  
+ensure
+  Ncurses.endwin
+end end
+p s

data/examples/tclock.rb

@@ -0,0 +1,227 @@
+#!/usr/bin/env ruby
+
+# $Id: tclock.rb,v 1.6 2002/02/28 13:50:10 t-peters Exp $
+
+# tclock - analog/digital clock for curses, translated to ruby
+# Copyright (C) 2002 Tobias Peters <t-peters@users.berlios.de>
+# This file was adapted from the C program tclock.c from the ncurses
+# distribution, which bears the following copyright statement:
+
+#  tclock - analog/digital clock for curses.
+#  If it gives you joy, then
+#  (a) I'm glad
+#  (b) you need to get out more :-)
+#
+#  This program is copyright Howard Jones, September 1994
+#  (ha.jones@ic.ac.uk). It may be freely distributed as
+#  long as this copyright message remains intact, and any
+#  modifications are clearly marked as such. [In fact, if
+#  you modify it, I wouldn't mind the modifications back,
+#  especially if they add any nice features. A good one
+#  would be a precalc table for the 60 hand positions, so
+#  that the floating point stuff can be ditched. As I said,
+#  it was a 20 hackup minute job.]
+#
+#  COMING SOON: tfishtank. Be the envy of your mac-owning
+#  colleagues.
+
+###########################################################################
+# The translation of this program to ruby is a modification and is hereby #
+# clearly marked as such.                                                 #
+###########################################################################
+
+require "ncurses"
+PI = Math::PI
+
+def sign(_x)
+  (_x<0?-1:1)
+end
+
+ASPECT = 2.2
+
+def a2x(angle,radius)
+  (ASPECT * radius * Math::sin(angle)).round
+end
+def a2y(angle,radius)
+  (radius * Math::cos(angle)).round
+end
+
+# Plot a point
+def plot(x, y, c)
+  Ncurses.mvaddch(y, x, c[0])
+end
+
+# Draw a diagonal(arbitrary) line using Bresenham's alogrithm.
+def dline(pair, from_x, from_y, x2, y2, ch)
+  if (Ncurses.has_colors?)
+    Ncurses.attrset(Ncurses.COLOR_PAIR(pair))
+  end
+  
+  dx = x2 - from_x;
+  dy = y2 - from_y;
+  
+  ax = (dx * 2).abs
+  ay = (dy * 2).abs
+  
+  sx = sign(dx);
+  sy = sign(dy);
+  
+  x = from_x;
+  y = from_y;
+  
+  if (ax > ay) 
+    d = ay - (ax / 2);
+    
+    while (1)
+      plot(x, y, ch);
+      if (x == x2)
+	return nil
+      end
+      if (d >= 0) 
+	y += sy;
+	d -= ax;
+      end
+      x += sx;
+      d += ay;
+    end
+  else 
+    d = ax - (ay / 2);
+    
+    while (1) 
+      plot(x, y, ch);
+      if (y == y2)
+	return nil;
+      end
+      if (d >= 0) 
+	x += sx;
+	d -= ay;
+      end
+      y += sy;
+      d += ax;
+    end
+  end
+end
+
+begin
+  #    int i, cx, cy;
+  #    double mradius, hradius, mangle, hangle;
+  #    double sangle, sradius, hours;
+  #    int hdx, hdy;
+  #    int mdx, mdy;
+  #    int sdx, sdy;
+  #    int ch;
+    
+
+  lastbeep = -1;
+  my_bg = Ncurses::COLOR_BLACK;
+  
+  Ncurses::initscr();
+  Ncurses::noecho();
+  Ncurses::cbreak();
+  Ncurses::nodelay(Ncurses::stdscr, TRUE);
+  Ncurses::curs_set(0);
+  
+  if (Ncurses::has_colors?())
+    Ncurses::start_color();
+    
+    Ncurses::init_pair(1, Ncurses::COLOR_RED, my_bg);
+    Ncurses::init_pair(2, Ncurses::COLOR_MAGENTA, my_bg);
+    Ncurses::init_pair(3, Ncurses::COLOR_GREEN, my_bg);
+  end
+  Ncurses::keypad(Ncurses::stdscr, TRUE);
+
+  while (:restart)
+    cx = (Ncurses.COLS - 1) / 2;	#/* 39 */
+    cy = Ncurses.LINES / 2;		#/* 12 */
+    ch = (cx > cy) ? cy : cx;	#/* usually cy */
+    mradius = ((3 * cy) / 4).to_f;	#/* 9 */
+    hradius = (cy / 2).to_f;		#/* 6 */
+    sradius = ((2 * cy) / 3).to_f;	#/* 8 */
+
+    for i in (0...12)
+      sangle = (i + 1) * (2.0 * PI) / 12.0;
+      sradius = ((5 * cy) / 6).to_f;	#/* 10 */
+      sdx = a2x(sangle, sradius);
+      sdy = a2y(sangle, sradius);
+      szChar = sprintf("%d", i + 1);
+
+      Ncurses::mvaddstr(cy - sdy, cx + sdx, szChar);
+    end
+    
+    Ncurses::mvaddstr(0, 0,
+		      "ASCII Clock by Howard Jones (ha.jones@ic.ac.uk),1994");
+    
+    sradius -=2
+    sradius = 1 if sradius < 1
+    window_size_changed = false
+    while (window_size_changed == false)
+      sleep(0.100);
+      
+      hours = Time.now.hour + Time.now.min / 60.0;
+      if (hours > 12.0)
+	hours -= 12.0;
+      end
+      
+      mangle = Time.now.min * (2 * PI) / 60.0;
+      mdx = a2x(mangle, mradius);
+      mdy = a2y(mangle, mradius);
+      
+      hangle = ((hours) * (2.0 * PI) / 12.0);
+      hdx = a2x(hangle, hradius);
+      hdy = a2y(hangle, hradius);
+      
+      sangle = ((Time.now.sec) * (2.0 * PI) / 60.0);
+      sdx = a2x(sangle, sradius);
+      sdy = a2y(sangle, sradius);
+      
+      dline(3, cx, cy, cx + mdx, cy - mdy, '#');
+      
+      Ncurses::attrset(Ncurses::A_REVERSE);
+      dline(2, cx, cy, cx + hdx, cy - hdy, '.');
+      Ncurses::attroff(Ncurses::A_REVERSE);
+      
+      if (Ncurses::has_colors?())
+	Ncurses::attrset(Ncurses::COLOR_PAIR(1));
+      end
+      plot(cx + sdx, cy - sdy, 'O');
+      
+      if (Ncurses::has_colors?())
+	Ncurses::attrset(Ncurses::COLOR_PAIR(0));
+      end
+      Ncurses::mvaddstr(Ncurses.LINES - 2, 0, Time.now.to_s);
+      Ncurses::refresh();
+      if ((Time.now.sec % 5) == 0 &&
+	  Time.now.sec != lastbeep) 
+	lastbeep = Time.now.sec;
+	Ncurses::beep();
+      end
+      
+      if ((ch = Ncurses::getch()) != Ncurses::ERR)
+	if (ch == Ncurses::KEY_RESIZE) 
+	  Ncurses::erase();
+	  window_size_changed = true;
+	else
+	  break;
+	end
+      end
+      
+      plot(cx + sdx, cy - sdy, ' ');
+      dline(0, cx, cy, cx + hdx, cy - hdy, ' ');
+      dline(0, cx, cy, cx + mdx, cy - mdy, ' ');
+      
+    end
+    
+    if ! window_size_changed
+      $stderr.puts "! window_size_changed"
+      break
+    end
+  end
+ensure
+  Ncurses::curs_set(1);
+  Ncurses::endwin();
+end
+  
+
+
+
+

data/examples/test_scanw.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+
+# $Id: test_scanw.rb,v 1.1 2003/03/22 22:55:00 t-peters Exp $
+#
+# Test of the scanw function. Should really not be used in any serious curses
+# program. To use it, install scanf for ruby.
+
+# Copyright (C) 2003 Tobias Peters <t-peters@users.berlios.de>
+#
+# No warranties. Share and enjoy.
+
+require "ncurses"
+begin
+  Ncurses.initscr
+  Ncurses.mvaddstr(4, 19, "Give me a number: ")
+  Ncurses.refresh
+  num = []
+  Ncurses.scanw("%d", num)
+
+  Ncurses.mvprintw(6, 19, "You gave: %d", num[0])
+  Ncurses.refresh
+  sleep 1
+ensure
+  Ncurses.endwin
+end
+
+puts("You gave: #{num[0]}")

data/extconf.rb

@@ -0,0 +1,130 @@
+#!/usr/bin/env ruby
+
+# ncurses-ruby is a ruby module for accessing the FSF's ncurses library
+# (C) 2002 Tobias Peters <t-peters@users.berlios.de>
+#
+# This module is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2 of the License, or (at your option) any later version.
+#
+# This module is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this module; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
+
+# $Id: extconf.rb,v 1.10 2004/05/13 21:54:49 t-peters Exp $
+
+require "mkmf"
+
+$CFLAGS  += " -g"
+$CXXFLAGS  = $CFLAGS
+
+have_header("unistd.h")
+if have_header("ncurses.h")
+  curses_header = "ncurses.h"
+elsif have_header("ncurses/curses.h")
+  curses_header = "ncurses/curses.h"
+elsif have_header("curses.h")
+  curses_header = "curses.h"
+else
+  raise "ncurses header file not found"
+end
+
+if have_library("ncurses", "wmove")
+  curses_lib = "ncurses"
+elsif have_library("pdcurses", "wmove")
+  curses_lib = "pdcurses"
+else
+  raise "ncurses library not found"
+end
+
+have_func("newscr")
+have_func("TABSIZE")
+have_func("ESCDELAY")
+have_func("keybound")
+have_func("curses_version")
+have_func("tigetstr")
+have_func("getwin")
+have_func("putwin")
+have_func("ungetmouse")
+have_func("mousemask")
+have_func("wenclose")
+have_func("mouseinterval")
+have_func("wmouse_trafo")
+have_func("mcprint")
+have_func("has_key")
+
+have_func("delscreen")
+have_func("define_key")
+have_func("keyok")
+have_func("resizeterm")
+have_func("use_default_colors")
+have_func("use_extended_names")
+have_func("wresize")
+have_func("attr_on")
+have_func("attr_off")
+have_func("attr_set")
+have_func("chgat")
+have_func("color_set")
+have_func("filter")
+have_func("intrflush")
+have_func("mvchgat")
+have_func("mvhline")
+have_func("mvvline")
+have_func("mvwchgat")
+have_func("mvwhline")
+have_func("mvwvline")
+have_func("noqiflush")
+have_func("putp")
+have_func("qiflush")
+have_func("scr_dump")
+have_func("scr_init")
+have_func("scr_restore")
+have_func("scr_set")
+have_func("slk_attr_off")
+have_func("slk_attr_on")
+have_func("slk_attr")
+have_func("slk_attr_set")
+have_func("slk_color")
+have_func("tigetflag")
+have_func("tigetnum")
+have_func("use_env")
+have_func("vidattr")
+have_func("vid_attr")
+have_func("wattr_on")
+have_func("wattr_off")
+have_func("wattr_set")
+have_func("wchgat")
+have_func("wcolor_set")
+have_func("getattrs")
+
+puts "checking which debugging functions to wrap..."
+have_func("_tracef")
+have_func("_tracedump")
+have_func("_nc_tracebits")
+have_func("_traceattr")
+have_func("_traceattr2")
+have_func("_tracechar")
+have_func("_tracechtype")
+have_func("_tracechtype2")
+have_func("_tracemouse")
+
+puts "checking for other functions that appeared after ncurses version 5.0..."
+have_func("assume_default_colors")
+have_func("attr_get")
+
+puts "checking for the panel library..."
+if have_header("panel.h")
+  have_library("panel", "panel_hidden")
+end
+puts "checking for the form library..."
+if have_header("form.h")
+  have_library("form", "new_form")
+end
+
+create_makefile('ncurses')