serdisplib-ruby 0.5.0-x86-linux

data/examples/serdisplib_test.rb

@@ -0,0 +1,260 @@
+#!/usr/bin/ruby -w
+# 
+# File:: serdisp_test.rb
+# Description:: Testing serdisplib Ruby extension.
+#
+# Author:: David Muir <dhm@davidmuir.co.uk>
+# Date:: 7 June 2008
+# 
+# Based off of testserdisp.c by Wolfgang Astleitner.
+# Portions Copyright (C) 2003-2007 Wolfgang Astleitner.
+# ----------------------------------------------------------------------------
+# This program is free software; you can redistribute it and/or modify   
+# it under the terms of the GNU General Public License as published by   
+# the Free Software Foundation; either version 2 of the License, or (at  
+# your option) any later version.                                        
+#                                                                        
+# This program 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      
+# General Public License for more details.                               
+#                                                                        
+# You should have received a copy of the GNU General Public License      
+# along with this program; if not, write to the Free Software            
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA              
+# 02111-1307, USA.  Or, point your browser to                            
+# http://www.gnu.org/copyleft/gpl.html           
+#-----------------------------------------------------------------------------
+
+#-----------------------------------------------------------------------------
+# Uses
+#-----------------------------------------------------------------------------
+require 'rubygems'
+require 'serdisp'
+include Serdisp
+
+require 'getoptlong'
+
+#-----------------------------------------------------------------------------
+# Constants
+#-----------------------------------------------------------------------------
+
+SERDISP_TEST_RB_NAME    = 'serdisp_test.rb'
+SERDISP_TEST_RB_VERSION = '0.0.1'
+SERDISP_TEST_RB_OPTIONS = GetoptLong.new( 
+  [ '--help',    '-h', GetoptLong::NO_ARGUMENT ],
+  [ '--version', '-V', GetoptLong::NO_ARGUMENT ],
+  [ '--verbose', '-v', GetoptLong::NO_ARGUMENT ],
+  [ '--name',    '-n', GetoptLong::REQUIRED_ARGUMENT ],
+  [ '--port',    '-p', GetoptLong::REQUIRED_ARGUMENT ],
+  [ '--options', '-o', GetoptLong::REQUIRED_ARGUMENT ],
+  [ '--debug',   '-d', GetoptLong::OPTIONAL_ARGUMENT ]
+)
+
+#-----------------------------------------------------------------------------
+# Functions
+#-----------------------------------------------------------------------------
+
+#
+# Print program usage information to stdout.
+#
+def usage()
+  puts "usage: #{SERDISP_TEST_RB_NAME} -n <display name> [<options>]\n\n"
+  puts "  Options: (default values in square brackets)"
+  puts "    -n name        display name"
+  puts "    -p dev|port    output device or port"
+  puts "    -o options     options for driver, semicolon-separated key-value pairs"
+  puts "                   eg: -o \"WIRING=1;CONTRAST=2;BACKLIGHT=ON\""
+  puts "    -v             verbose output"
+  puts "    -d [0]         debug level (0 .. no debugging, 2 .. max. debugging)"
+  puts "    -V             version information\n\n"
+  puts "  Examples:"
+  puts "    #{SERDISP_TEST_RB_NAME} -n PCD8544 -p \"/dev/parport0\""
+  puts "    #{SERDISP_TEST_RB_NAME} -n PCD8544 -p \"0x378\" ## direct io"
+end
+
+#
+# Print program version information to stdout.
+#
+def version()
+  print "  #{SERDISP_TEST_RB_NAME} version #{SERDISP_TEST_RB_VERSION}"
+  print "   (using serdisplib version #{SERDISP_VERSION_MAJOR}.#{SERDISP_VERSION_MINOR})\n"
+  puts "  Portions (C) 2003-2007 Wolfgang Astleitner"
+  puts "  (C) 2008 David Muir"
+  puts "  Based on testserdisp (part of the serdisplib package) by Wolfgang Astleitner"
+  puts "  Ruby extension and this Ruby test script written by David Muir"
+end
+
+#
+# Print interpreter usage information to stdout.
+#
+def interpreter_usage()
+  puts "\n\n"
+  puts "exit | quit              exit this program"
+  puts "close                    exit this program but don't shut down display"
+  puts "clear | cls              clear display"
+  puts "redraw | re              redraw display"
+  puts "update | upd             update display"
+  puts "invert | inv             toggle display inversion"
+  puts "rotate | rot             rotate display 180 degrees"
+  puts "reset                    re-init the display"
+  puts "fullreset                resets device and re-inits the display"
+  puts "blink <x>                blink x-times (if no x given: blink once)"
+  puts "sp <W>x<H>               set a pixel at WxH. eg: sp 1x1"
+  puts "cp <W>x<H>               clear a pixel at WxH. eg: cp 1x1"
+  puts "gp <W>x<H>               get pixel at WxH. eg: gp 1x1"
+  puts "p [<x>, 0 <= x <= 9]     draw a test pattern (p w/o digit for more info)"
+  puts "sl <x>                   shift display to left x times"
+  puts "sr <x>                   shift display to right x times\n\n"
+end
+
+#-----------------------------------------------------------------------------
+# Entry-Point
+#-----------------------------------------------------------------------------
+
+if ( __FILE__ == $0 ) then
+  
+  # Parse options
+  g_name = ''
+  g_device = ''
+  g_options = ''
+  g_loop = true
+  g_shutdown_lcd = true
+  g_fgcolour = SD_COL_BLACK
+  g_bgcolour = SD_COL_WHITE
+  SERDISP_TEST_RB_OPTIONS.each do |opt, arg|
+    case opt
+    when '--help'
+      usage()
+      g_loop = false
+    when '--version'
+      version()
+      g_loop = false
+    when '--name'
+      g_name = arg
+      puts "Set LCD display: #{arg}"
+    when '--port'
+      g_device = arg
+      puts "Set LCD device: #{arg}"
+    when '-options'
+      g_options = arg
+    when '--debug'
+      sd_debuglevel = arg.to_i
+    end
+  end
+  
+  if ( '' == g_device and '' == g_name and g_loop )
+    g_loop = false
+    usage()
+  end
+  
+  begin
+    if ( g_loop ) then
+      sdcd = SDCONN_open( g_device )
+      raise RuntimeError.new( "Failed to initialise device: #{g_device}" ) \
+        if ( nil == sdcd )
+      dd = serdisp_init( sdcd, g_name, g_options )
+      raise RuntimeError.new( "Failed to initilaise LCD: #{g_name}" ) \
+        if ( nil == dd )
+
+      puts "\nEnter 'help' to get help\n\n"
+      serdisp_clear( dd )
+
+      # User-command processing loop
+      while ( g_loop )
+        print "> "
+        cmd = gets.chomp
+        case cmd
+        # LCD commands
+        when 'clear', 'cls'
+          serdisp_clear( dd )
+        when 'redraw', 're'
+          serdisp_rewrite( dd )
+        when 'update', 'upd'
+          serdisp_update( dd )
+        when 'invert', 'inv'
+          serdisp_setoption( dd, 'INVERT', SD_OPTION_TOGGLE )
+        when /rotate( [0-9]+)?/, /rot( [0-9]+)?/
+          rc = ( nil == $1 ) ? SD_OPTON_TOGGLE : $1.to_i
+          serdisp_setoption( dd, 'ROTATE', rc )
+        when 'reset'
+          rc = serdisp_reset( dd )
+          puts "reset was #{rc ? '' : 'un'}successful"
+        when 'fullreset'
+          dd = serdisp_fullreset( dd )
+          puts "fullreset was #{dd ? '' : 'un'}successful"
+          g_loop = false if ( nil == dd )
+        when /blink( [0-9]+)?/
+          serdisp_blink( dd, 0, $1.to_i, 100 )
+        when /sp ([0-9]+)x([0-9]+)/
+          x = $1.to_i
+          y = $2.to_i
+          puts "set pixel at: #{x}/#{y}"
+          serdisp_setcolour( dd, x, y, g_fgcolour )
+          serdisp_update( dd )
+        when /gp ([0-9]+)x([0-9]+)/
+          x = $1.to_i
+          y = $2.to_i
+          printf( "pixel at: %d/%d: %d\n\n", x, y, serdisp_getcolour( dd, x, y ) )
+          serdisp_setcolour( dd, x, y, g_fgcolour )
+          serdisp_update( dd )
+        when /cp ([0-9]+)x([0-9]+)/
+          x = $1.to_i
+          y = $2.to_i
+          puts "clear pixel at: #{x}/#{y}"
+          serdisp_setcolour( dd, x, y, g_bgcolour )
+          serdisp_update( dd )
+        when /p ([0-9])/
+          pattern = $1.to_i
+          serdisp_clear( dd )
+          case pattern
+          when 1
+            h = serdisp_getheight( dd )
+            w = serdisp_getwidth( dd )
+            px = 0
+            py = 0
+            while ( py <  h )
+              while ( px < w )
+                serdisp_setcolour( dd, px, py, g_fgcolour )
+                px += 2
+              end
+              py += 2
+            end
+            serdisp_update( dd )
+          else
+            puts "Pattern #{pattern} not currently implemented.\n\n"
+          end # pattern
+        # Interpreter commands
+        when 'help'
+          interpreter_usage()
+        when 'quit', 'exit'
+          g_loop = false
+        when 'close'
+          g_loop = false
+          g_shutdown_lcd = false
+        else
+          puts "Unknown/unimplemented command.  Enter 'help' to get help.\n\n"
+        end
+      end
+
+      if ( g_shutdown_lcd ) then
+        serdisp_quit( dd )
+      else
+        serdisp_close( dd )
+      end
+    end
+    
+  rescue RuntimeError => ex
+    puts "Exception: #{ex.message}"
+    puts "Exiting."
+    
+  rescue Exception => ex
+    puts "Unhandled exception: #{ex.message}"
+    puts "Exiting."
+  end
+  
+  #Serdisp.methods.each do |m| puts m; end
+  #Serdisp.constants.each do |c| puts c; end
+end
+
+# End of serdisp_test.rb

data/examples/uptime.rb

@@ -0,0 +1,218 @@
+#!/usr/bin/ruby -w
+#
+# File:: uptime.rb
+# Description:: Sample uptime application for serdisp-ruby Gem.
+#
+# Author:: David Muir <dhm@davidmuir.co.uk>
+# Date:: 12 June 2008
+#
+
+#-----------------------------------------------------------------------------
+# Uses
+#-----------------------------------------------------------------------------
+require 'rubygems'
+require 'getoptlong'
+require 'serdisp'
+include Serdisp
+require 'imlib2_util'
+
+#-----------------------------------------------------------------------------
+# Constants
+#-----------------------------------------------------------------------------
+
+UPTIME_NAME = 'uptime.rb'
+UPTIME_VERSION = '0.0.1'
+UPTIME_OPTIONS = GetoptLong.new( 
+  [ '--help',    '-h', GetoptLong::NO_ARGUMENT ],
+  [ '--version', '-V', GetoptLong::NO_ARGUMENT ],
+  [ '--verbose', '-v', GetoptLong::NO_ARGUMENT ],
+  [ '--name',    '-n', GetoptLong::REQUIRED_ARGUMENT ],
+  [ '--port',    '-p', GetoptLong::REQUIRED_ARGUMENT ],
+  [ '--options', '-o', GetoptLong::REQUIRED_ARGUMENT ],
+  [ '--debug',   '-d', GetoptLong::OPTIONAL_ARGUMENT ],
+  [ '--refresh', '-r', GetoptLong::REQUIRED_ARGUMENT ]
+)
+
+#-----------------------------------------------------------------------------
+# Globals
+#-----------------------------------------------------------------------------
+
+#-----------------------------------------------------------------------------
+# Functions
+#-----------------------------------------------------------------------------
+
+#
+# Print program usage information to stdout.
+#
+def usage()
+  puts "usage: #{UPTIME_NAME} -n <display name> [<options>]\n\n"
+  puts "  Options: (default values in square brackets)"
+  puts "    -n name        display name"
+  puts "    -p dev|port    output device or port"
+  puts "    -o options     options for driver, semicolon-separated key-value pairs"
+  puts "                   eg: -o \"WIRING=1;CONTRAST=2;BACKLIGHT=ON\""
+  puts "    -v             verbose output"
+  puts "    -d [0]         debug level (0 .. no debugging, 2 .. max. debugging)"
+  puts "    -V             version information"
+  puts "    -r <N>         refresh delay in seconds\n\n"
+  puts "  Examples:"
+  puts "    #{UPTIME_NAME} -n PCD8544 -p \"/dev/parport0\""
+  puts "    #{UPTIME_NAME} -n PCD8544 -p \"0x378\" ## direct io"
+end
+
+#
+# Print program version information to stdout.
+#
+def version()
+  print "  #{UPTIME_NAME} version #{UPTIME_VERSION}"
+  print "   (using serdisplib version #{SERDISP_VERSION_MAJOR}.#{SERDISP_VERSION_MINOR})\n"
+  puts "  Portions (C) 2003-2007 Wolfgang Astleitner"
+  puts "  (C) 2008 David Muir"
+  puts "  Simple serdisp-ruby test application which displays system uptime"
+  puts "  and load usage on the LCD.  Refreshing the data every 2 seconds."
+end
+
+#
+# Print interpreter usage to stdout.
+#
+def print_interpreter_usage( )
+  puts "\n\n"
+  puts "exit | quit | q          exit this program"
+  puts "help | h                 display this usage information"
+  puts "delay | d <[0-9]+>       update refresh delay in seconds (default: 2)\n\n"
+end
+
+#-----------------------------------------------------------------------------
+# Entry-Point
+#-----------------------------------------------------------------------------
+
+if ( __FILE__ == $0 ) then
+
+  # Parse options
+  g_name = ''
+  g_device = ''
+  g_options = ''
+  g_loop = true
+  g_delay = 2
+  g_fgcolour = SD_COL_BLACK
+  g_bgcolour = SD_COL_WHITE
+  UPTIME_OPTIONS.each do |opt, arg|
+    case opt
+    when '--help'
+      usage()
+      g_loop = false
+    when '--version'
+      version()
+      g_loop = false
+    when '--name'
+      g_name = arg
+      puts "Set LCD display: #{arg}"
+    when '--port'
+      g_device = arg
+      puts "Set LCD device: #{arg}"
+    when '-options'
+      g_options = arg
+    when '--debug'
+      sd_debuglevel = arg.to_i
+    when '--refresh'
+      g_delay = arg.to_i
+    end
+  end
+  
+  if ( '' == g_device and '' == g_name and g_loop )
+    usage( )
+    g_loop = false
+  end
+  
+  begin
+    if ( g_loop ) then
+      sdcd = SDCONN_open( g_device )
+      raise RuntimeError.new( "Failed to initialise device: #{g_device}" ) \
+        if ( nil == sdcd )
+      dd = serdisp_init( sdcd, g_name, g_options )
+      raise RuntimeError.new( "Failed to initilaise LCD: #{g_name}" ) \
+        if ( nil == dd )
+ 
+      puts "\nEnter 'help' to get help, 'quit' to quit\n\n"      
+      serdisp_clear( dd )
+      
+      # Initialise our refresh thread.
+      refresh_thread = Thread.new do
+        begin
+          h = serdisp_getheight( dd )
+          w = serdisp_getwidth( dd )        
+          im = Imlib2::Image.new( w, h )
+          Imlib2::Font.add_path '/home/dhm/projects/library.ruby/trunk/gem/serdisp/examples/fonts'
+          font = Imlib2::Font.new( 'yudit/10' ) 
+          text = "Testing: UPTIME INFO"
+          fw, fh = font.size text
+          fx, fy = (im.width - fw) / 2, (im.height / 2 - fh ) / 2
+          im.draw_text font, text, fx, fy, Imlib2::Color::RED
+          im.save( 'test.png' )
+
+          while ( g_loop )
+
+            uptime_output = `uptime`
+            puts "output: #{uptime_output}"
+            
+            lcd_data = Imlib2Util.imlib_image_to_serdisp_data( im )
+            im.width.times do |x|
+              im.height.times do |y|
+
+                serdisp_setcolour( dd, x, y, lcd_data[y][x] )
+                puts "Value: #{lcd_data[y][x]}" unless ( 0 == lcd_data[y][x] )
+              end
+            end
+            puts "Done setting LCD."
+            
+            serdisp_update( dd )
+            sleep( g_delay )
+          end
+        ensure
+          
+          im.delete!( true ) unless ( nil == im )
+        end
+      end 
+      
+      while ( g_loop )
+        print "> "
+        cmd = gets.chomp
+        case cmd
+        when 'h', 'help'
+          print_interpreter_usage( )
+          
+        when 'q', 'quit', 'exit'
+          g_loop = false
+          
+        when /delay ([0-9]+)?/, /d ([0-9]+)?/
+          puts "Setting delay time to #{$1.to_i} seconds"
+          g_delay = $1.to_i
+        end
+      end     
+      
+      refresh_thread.join()
+    end # if g_loop
+    
+  rescue RuntimeError => ex
+    puts "Exception: #{ex.message}"
+    puts "Stacktrace:"
+    ex.backtrace.each do |m| puts m; end
+    puts "Exiting."
+    
+  rescue Exception => ex
+    puts "Unhandled exception: #{ex.message}"
+    puts "Stacktrace:"
+    ex.backtrace.each do |m| puts m; end
+    puts "Exiting."
+    
+  ensure
+    puts "Shutting down..."
+    g_loop = false
+    refresh_thread.join()
+    serdisp_quit( dd )
+    
+  end
+end
+
+# End of uptime.rb
+