tagen 0.1.0

data/lib/tagen/core/time.rb

@@ -0,0 +1,8 @@
+class Time 
+	# return a float of current time
+	#
+	#   #=> 1295953427.0005338
+	#
+	# @return [Float] 
+	def self.time; now.to_f end
+end # class Time

data/lib/tagen/gdk_pixbuf2.rb

@@ -0,0 +1,26 @@
+module Gdk
+	class Pixbuf
+		# get width, height
+		#
+		# @return [Array] [width, height]
+		def wh; [width.to_f, height.to_f] end
+
+		# get width
+		#
+		# @return [Float] width
+		def w; wh[0] end
+
+		# get height
+		#
+		# @return [Float] height
+		def h; wh[1] end
+
+		# set width, height
+		#
+		# @param [Array] wh [width, height]
+		def wh=(wh) width=wh[0]; height=wh[1] end
+
+		alias w= width=
+		alias h= height=
+	end
+end

data/lib/tagen/gtk2.rb

@@ -0,0 +1,122 @@
+require "cairo"
+require_relative "cairo"
+require "gtkhtml2"
+
+module Gtk
+
+class Window 
+	# alias from set_default_size
+	def default_size=(wh)
+		set_default_size(*wh)
+	end
+end # class Window
+
+class ListStore 
+	alias append_ append
+	# @example
+	# 	data=[
+	# 		[1, 2],
+	# 		[3, 4]
+	# 	]
+	# 	liststore.append(data)
+	def append rows
+		rows.each do |row|
+			iter = append_
+			row.each do |col, col_i|
+				iter[col_i] = col
+			end
+		end
+	end
+end # class ListStore
+
+=begin
+Addition Methods list
+---------------------
+* \#add _alias from add\_widget_
+=end
+class SizeGroup 
+	alias initialize_ initialize
+	# add mode=HORIZONTAL as default option
+	def _initialize(mode=HORIZONTAL)
+		initialize_(mode)
+	end
+	alias add add_widget
+end # class SizeGroup
+
+class PrintOperation 
+	alias initialize_ initialize
+	# add @ispreview instance variable
+	def initialize
+		initialize_
+
+		@ispreview = false
+		signal_connect("ready") do |previewop, ctx|
+			@ispreview = true
+		end
+	end
+
+	def preview?; @ispreview end
+
+	alias run_ run 
+	def run(action=:print_dialog, parent=nil, &blk)
+		action = PrintOperation.const_get("ACTION_#{action}".upcase) 
+		if blk
+			run_(action, parent){|result| 
+				blk.call self,result.nick.gsub(/-/, "_").to_sym
+			}
+		else
+			run_(action, parent)
+		end
+	end # def run
+
+	alias status_ status
+	# return symbol.
+	def status
+		status_.nick.gsub(/-/,"_").to_sym
+	end # def status
+
+end # class PrintOperation
+
+class Entry 
+	alias text_ text
+
+	# default encoding is ASCII-8BIT, some error occurs.
+	# change to text.force_encoding("UTF-8")
+	def text
+		text_.force_encoding "UTF-8"
+	end
+end
+
+end # module Gtk
+
+module Gdk
+
+class EventKey 
+	# return {Gdk::Key} instance
+	def key
+		Key.new keyval
+	end
+
+end # class EventKey
+
+class Key 
+	attr_reader :code, :name
+	def initialize keyval
+		@code = keyval
+		@name = Keyval.to_name(keyval).downcase.to_sym
+	end
+
+	def ==(key)
+		case key
+		when Integer
+			@code == key
+		when String,Symbol
+			@name == key.to_sym
+		end
+	end # def ==
+
+	def inspect; @name end
+
+end # class Key
+end # module Gdk
+

data/lib/tagen/magick.rb

@@ -0,0 +1,23 @@
+=begin
+* **gem**: rmagic
+=end
+module Magick
+
+=begin
+Method list
+-----------
+* \#width _alias from columns_
+* \#height  _alias from rows_
+=end
+class Image
+
+	alias width columns
+	alias height rows
+
+	# get width height
+	#
+	# @return [Array] [width, height]
+	def wh; [columns, rows] end
+
+end
+end

data/lib/tagen/ncurses.rb

@@ -0,0 +1,245 @@
+=begin
+
+Ncurses
+@stdscr @curscr @newscr
+@windows_hash
+.
+move(y,x)  #stdscr
+wmove(win, y,x)
+
+== extensions
+
+class MEVENT; end
+
+class SCREEN; end
+
+module Panel
+	class PANEL; end
+end
+
+module Form
+	class FORM; end
+	class FIELD; end
+	class FIELDTYPE; end
+end
+
+module Menu
+	class MENU; end
+	class ITEM; end
+end
+
+=end
+
+=begin
+* **Install**: gem(rbcurse)
+=end
+module Ncurses
+
+	# a convient function.
+	#
+	# setup initscr cbreak nonl noecho 
+	#
+	# @example
+	# 	new do |stdsrc|
+	# 		..
+	# 	end
+	#
+	def self.new &blk 
+		begin
+			initscr
+			cbreak
+			nonl
+			noecho
+
+			stdscr.intrflush(false)
+			stdscr.keypad(true)   
+
+			blk.call stdscr if blk
+		ensure
+			self.end if blk
+		end
+		stdscr
+	end
+
+	# end ncurses
+	#
+	# call echo nocbreak nl endwin
+	#
+	# @see self.new
+	def self.end
+		echo
+		nocbreak
+		nl
+		endwin
+	end
+
+end # module Ncurses
+
+module Ncurses # Key
+class Key 
+	include Comparable
+	@@keys = {} 
+	keys = String.letters.to_a + String.digits.to_a + \
+				%w(` ~ ! @ # $ % ^ & * ( ) - _ = + \ | [ ] { } : " ' ; < . > / ? ,)
+	keys.each do |v|
+		@@keys[v] = v.ascii
+	end
+	@@codes = @@keys.invert
+
+	attr_reader :key, :code
+
+	def initialize(arg)
+	# arg: int or str		
+		if arg.class == Fixnum
+			@code = arg
+			@key = @@codes[arg]
+		elsif arg.class == String
+			@key = arg
+			@code = @@keys[arg]
+		end
+	end
+
+	def keys; @@keys end
+	def codes; @@codes end
+
+	def <=>(arg)
+		if arg.class == self.class
+			code <=> arg.code
+		elsif arg.class == Fixnum
+			code <=> arg
+		elsif arg.class == String
+			code <=> @@keys[arg]
+		end
+	end
+
+	def to_s; "#{@key}: #{@code}" end
+
+end # class Key
+end
+
+module Ncurses # WINDOW
+class WINDOW 
+	def initialize
+		@stdscr = Ncurses.stdscr
+		@curscr = Ncurses.curscr
+	end
+
+	# xy mvxy wh .. 
+	def xy
+		y,x=[],[]
+		Ncurses.getyx(self,y,x)
+		[x[0], y[0]]
+	end
+	def x; xy[0] end
+	def y; xy[1] end
+
+	def save; @save_xy = xy end
+	def restore; xy *@save_xy end
+	
+	def mvxy x,y, &blk
+		x,y = convert_xy(x,y)
+		x_, y_ = self.xy
+		Ncurses.move(y,x) 
+		if blk
+		blk.call
+		Ncurses.move(y_, x_)
+		end
+	end
+
+	def mvx x, &blk; mvxy(x, self.y) end
+	def mvy y, &blk; mvxy(self.x, y) end
+
+	def rmvxy x,y, &blk; mvxy(x.to_s, y.to_s, &blk) end
+	def rmvx x, &blk; mvx(x.to_s, &blk) end
+	def rmvy y, &blk; mvy(y.to_s, &blk) end
+
+	def wh
+		y,x=[],[]
+		Ncurses.getmaxyx(self,y,x)
+		[x, y]
+	end
+	def w; wh[0] end
+	def h; wh[1] end
+
+	def beginxy
+		y,x=[],[]
+		Ncurses.getbegyx(self,y,x)
+		[x,y]
+	end
+	def beginx; beginxy[0] end
+	def beginy; beginxy[1] end
+
+	def convert_xy x=nil,y=nil
+		x = self.x+x.to_i if x and String===x
+		y = self.y+y.to_i if y and String===y
+
+		if x and y
+			[x,y]
+		elsif x
+			x
+		elsif y
+			y
+		end
+	end
+
+	# getc 
+	# ctrl_a      "\C-a"
+	# alt_a  			"\ea"
+	# ctrl_alt_a 	"\e\C-a"
+	# KEYS #{{{2
+	keys = {}
+	Ncurses.constants.grep(/^KEY_/).each do |const|
+		value = Ncurses.get_const const
+		key = const[/^KEY_(.*)/, 1]
+		keys[value] = key.downcase.to_sym
+	end
+	keys += { 
+		127	=> 	:backspace,
+		[27, 127]	=> :alt_backspace,
+
+		289	=> 	:ctrl_f1, # :f25
+		290	=> 	:ctrl_f2,
+		291	=> 	:ctrl_f3,
+		292	=> 	:ctrl_f4,
+		293	=> 	:ctrl_f5,
+		294	=> 	:ctrl_f6,
+		295	=> 	:ctrl_f7,
+		296	=> 	:ctrl_f8,
+		297	=> 	:ctrl_f9,
+		298	=> 	:ctrl_f1, 
+		299	=> 	:ctrl_f11,
+		300	=> 	:ctrl_f12,
+
+		313	=>	:alt_f1,
+		314	=>	:alt_f2,
+		315	=>	:alt_f3,
+		316	=>	:alt_f4,
+		317	=>	:alt_f5,
+		318	=>	:alt_f6,
+		319	=>	:alt_f7,
+		320	=>	:alt_f8,
+		321	=>	:alt_f9,
+		322 => 	:alt_f10,
+		323 => 	:alt_f11,
+		324 => 	:alt_f12,
+	}
+	KEYS = keys
+
+	def getc
+		key = getch
+		if key==27
+		c = getch
+		(value=KEYS[[27, c]]) ?  value : "\e"+c.chr
+		elsif value=KEYS[key]
+		value
+		else
+		# a "\C-a"
+		key.chr
+		end
+	end
+
+	def necho(*args); Ncurses.addstr(args.gach{|v|v.to_s}.join(" ")) end
+	def echo *args; necho *args, "\n" end
+
+end # class WINDOW
+end

data/lib/tagen/net/http.rb

@@ -0,0 +1,34 @@
+module Net
+class HTTP
+	class << self
+
+		# support params
+		# 
+		# @example
+		# 	get1("http://www.google.com/search", "&q=foo")
+		# 	get1("http://www.google.com/search", {"q" => "foo"} )
+		#
+		# @param [String Hash] params Hash by URI.encoding_www_form
+		def get1 path, params, initheader={}, &blk
+			path = path + "?" + (String===params ? params : URI.encode_www_form(params))
+      req = Get.new(path, initheader)
+			request req, &blk
+		end
+
+		# support params
+		#
+		# @see get1
+		def post1 path, params, initheader={}, &blk
+      req = Post.new(path, initheader)
+			if String===params
+				req.body = params
+				req.content_type = 'application/x-www-form-urlencoded'
+			else
+				req.set_form_data(params)
+			end
+			request req, &blk
+		end
+
+	end
+end
+end