solutious-stella 0.5.5 → 0.6.0

data/lib/win32/Console/ANSI.rb

@@ -1,305 +0,0 @@
-#
-# Win32::Console::ANSI
-#
-# Copyright 2004 - Gonzalo Garramuno
-# Licensed under GNU General Public License or Perl's Artistic License
-#
-# Based on Perl's Win32::Console::ANSI
-# Copyright (c) 2003 Jean-Louis Morel <jl_morel@bribes.org>
-# Licensed under GNU General Public License or Perl's Artistic License
-#
-require "win32/Console"
-
-module Win32
-  class Console
-    module ANSI
-
-      class IO < IO
-
-	VERSION = '0.05'
-	DEBUG = nil
-
-	require "win32/registry"
-
-	include Win32::Console::Constants
-
-	# @todo: encode is another perl module
-	EncodeOk = false
-
-	# Retrieving the codepages
-	cpANSI = nil
-	Win32::Registry::HKEY_LOCAL_MACHINE.open('SYSTEM\CurrentControlSet\Control\Nls\CodePage' ) { |reg|
-	  cpANSI = reg['ACP']
-	}
-
-	STDERR.puts "Unable to read Win codepage #{cpANSI}" if DEBUG && !cpANSI
-
-
-	cpANSI = 'cp'+(cpANSI ? cpANSI : '1252')      # Windows codepage
-	OEM = Win32::Console::OutputCP()
-	cpOEM = 'cp' + OEM.to_s                       # DOS codepage
-	@@cp = cpANSI + cpOEM
-
-	STDERR.puts "EncodeOk=#{EncodeOk} cpANSI=#{cpANSI} "+
-	  "cpOEM=#{cpOEM}" if DEBUG
-
-	@@color = { 30 => 0,                                               # black foreground
-              31 => FOREGROUND_RED,                                  # red foreground
-              32 => FOREGROUND_GREEN,                                # green foreground
-              33 => FOREGROUND_RED|FOREGROUND_GREEN,                 # yellow foreground
-              34 => FOREGROUND_BLUE,                                 # blue foreground
-              35 => FOREGROUND_BLUE|FOREGROUND_RED,                  # magenta foreground
-              36 => FOREGROUND_BLUE|FOREGROUND_GREEN,                # cyan foreground
-              37 => FOREGROUND_RED|FOREGROUND_GREEN|FOREGROUND_BLUE, # white foreground
-              40 => 0,                                               # black background
-              41 => BACKGROUND_RED,                                  # red background
-              42 => BACKGROUND_GREEN,                                # green background
-              43 => BACKGROUND_RED|BACKGROUND_GREEN,                 # yellow background
-              44 => BACKGROUND_BLUE,                                 # blue background
-              45 => BACKGROUND_BLUE|BACKGROUND_RED,                  # magenta background
-              46 => BACKGROUND_BLUE|BACKGROUND_GREEN,                # cyan background
-              47 => BACKGROUND_RED|BACKGROUND_GREEN|BACKGROUND_BLUE, # white background
-	}
-
-	def initialize
-	  super(1,'w')
-	  @Out = Win32::Console.new(STD_OUTPUT_HANDLE)
-	  @x = @y = 0           # to save cursor position
-	  @foreground = 7
-	  @background = 0
-	  @bold = 
-	  @underline = 
-	  @revideo = 
-	  @concealed = nil
-	  @conv = 1        # char conversion by default
-	end
-
-
-	def write(*s)
-	  s.each { |x|
-	    _PrintString(x)
-	  }
-	end
-
-
-	private
-
-	def _PrintString(t)
-	  s = t.dup
-	  while s != ''
-	    if s.sub!( /([^\e]*)?\e([\[\(])([0-9\;\=]*)([a-zA-Z@])(.*)/s,'\5')
-	      @Out.Write((_conv("#$1")))
-	      if $2 == '['
-		case $4
-		when 'm'        # ESC[#;#;....;#m Set display attributes
-		  attributs = $3.split(';')
-		  attributs.push(nil) unless attributs  # ESC[m == ESC[;m ==...==ESC[0m
-		  for attr in attributs
-		    atv = attr.to_i
-		    if atv > 0
-		      if atv == 1
-			@bold = 1
-		      elsif atv == 21
-			@bold = nil
-		      elsif atv == 4
-			@underline = 1
-		      elsif atv == 24
-			@underline = nil
-		      elsif atv == 7
-			@revideo = 1
-		      elsif atv == 27
-			@revideo = nil
-		      elsif atv == 8
-			@concealed = 1
-		      elsif atv == 28
-			@concealed = nil
-		      elsif atv >= 30 and atv <= 37
-			@foreground = atv - 30
-		      elsif atv >=40 and atv <=47
-			@background = atv - 40
-		      end
-		    else                              # ESC[0m reset
-		      @foreground = 7
-		      @background = 0
-		      @bold = 
-		      @underline = 
-		      @revideo = 
-		      @concealed = nil
-		    end
-		  end
-
-		  if @revideo
-		    attribut = @@color[40+@foreground] | 
-		      @@color[30+@background]
-		  else
-		    attribut = @@color[30+@foreground] | 
-		      @@color[40+@background]
-		  end
-		  attribut |= FOREGROUND_INTENSITY if @bold
-		  attribut |= BACKGROUND_INTENSITY if @underline
-		  @Out.Attr(attribut)
-		when 'J'
-		  if !$3 or $3 == ''  # ESC[0J from cursor to end of display
-		    info = @Out.Info()
-		    s = ' ' * ((info[1]-info[3]-1)*info[0]+info[0]-info[2]-1)
-		    @Out.WriteChar(s, info[2], info[3])
-		    @Out.Cursor(info[2], info[3])
-		  elsif $3 == '1' # ESC[1J erase from start to cursor.
-		    info = @Out.Info()
-		    s = ' ' * (info[3]*info[0]+info[2]+1)
-		    @Out.WriteChar(s, 0, 0)
-		    @Out.Cursor(info[2], info[3])
-		  elsif $3 == '2' # ESC[2J Clear screen and home cursor
-		    @Out.Cls()
-		    @Out.Cursor(0, 0)
-		  else
-		    STDERR.print "\e#$2#$3#$4" if DEBUG # if ESC-code not implemented
-		  end
-		when 'K'
-		  info = @Out.Info()
-		  if !$3 or $3 == ''                  # ESC[0K Clear to end of line
-		    s = ' ' * (info[7]-info[2]+1)
-		    @Out.Write(s)
-		    @Out.Cursor(info[2], info[3])
-		  elsif $3=='1'   # ESC[1K Clear from start of line to cursor
-		    s = ' '*(info[2]+1)
-		    @Out.WriteChar(s, 0, info[3])
-		    @Out.Cursor(info[2], info[3])
-		  elsif $3=='2'   # ESC[2K Clear whole line.
-		    s = ' '* info[0]
-		    @Out.WriteChar(s, 0, info[3])
-		    @Out.Cursor(info[2], info[3])
-		  end
-		when 'L'  # ESC[#L Insert # blank lines.
-		  n = $3 == ''? 1 : $3.to_i  # ESC[L == ESC[1L
-		  info = @Out.Info()
-		  @Out.Scroll(0, info[3], info[0]-1, info[1]-1,
-			      0, info[3] + n.to_i,
-                               ' '[0], @Out.Attr(),
-                               0, 0, 10000, 10000)
-		  @Out.Cursor(info[2], info[3])
-		when 'M'   # ESC[#M Delete # line.
-		  n = $3 == ''? 1 : $3.to_i  # ESC[M == ESC[1M
-		  info = @Out.Info();
-		  @Out.Scroll(0, info[3]+n, info[0]-1, info[1]-1,
-			      0, info[3],
-			      ' '[0], @Out.Attr(),
-			      0, 0, 10000, 10000)
-		  @Out.Cursor(info[2], info[3])
-		when 'P'   # ESC[#P Delete # characters.
-		  n = $3 == ''? 1 : $3.to_i  # ESC[P == ESC[1P
-		  info = @Out.Info()
-		  n = info[0]-info[2] if info[2]+n > info[0]-1
-		  @Out.Scroll(info[2]+n, info[3] , info[0]-1, info[3],
-			      info[2], info[3],
-			      ' '[0], @Out.Attr(),
-			      0, 0, 10000, 10000)
-		  s = ' ' * n
-		  @Out.Cursor(info[0]-n, info[3])
-		  @Out.Write(s)
-		  @Out.Cursor(info[2], info[3])
-		when '@'      # ESC[#@ Insert # blank Characters
-		  s = ' ' * $3.to_i
-		  info = @Out.Info()
-		  s << @Out.ReadChar(info[7]-info[2]+1, info[2], info[3])
-		  s = s[0..-($3.to_i)]
-		  @Out.Write(s);
-		  @Out.Cursor(info[2], info[3])
-		when 'A'     # ESC[#A Moves cursor up # lines
-		  (x, y) = @Out.Cursor()
-		  n = $3 == ''? 1 : $3.to_i;  # ESC[A == ESC[1A
-		  @Out.Cursor(x, y-n)
-		when 'B'    # ESC[#B Moves cursor down # lines
-		  (x, y) = @Out.Cursor()
-		  n = $3 == ''? 1 : $3.to_i;  # ESC[B == ESC[1B
-		  @Out.Cursor(x, y+n)
-		when 'C'    # ESC[#C Moves cursor forward # spaces
-		  (x, y) = @Out.Cursor()
-		  n = $3 == ''? 1 : $3.to_i;  # ESC[C == ESC[1C
-		  @Out.Cursor(x+n, y)
-		when 'D'    # ESC[#D Moves cursor back # spaces
-		  (x, y) = @Out.Cursor()
-		  n = $3 == ''? 1 : $3.to_i;  # ESC[D == ESC[1D
-		  @Out.Cursor(x-n, y)
-		when 'E'    # ESC[#E Moves cursor down # lines, column 1.
-		  x, y = @Out.Cursor()
-		  n = $3 == ''? 1 : $3.to_i;  # ESC[E == ESC[1E
-		  @Out.Cursor(0, y+n)
-		when 'F'    # ESC[#F Moves cursor up # lines, column 1.
-		  x, y = @Out.Cursor()
-		  n = $3 == ''? 1 : $3.to_i;  # ESC[F == ESC[1F
-		  @Out.Cursor(0, y-n)
-		when 'G'   # ESC[#G Moves cursor column # in current row.
-		  x, y = @Out.Cursor()
-		  n = $3 == ''? 1 : $3.to_i;  # ESC[G == ESC[1G
-		  @Out.Cursor(n-1, y)
-		when 'f' # ESC[#;#f Moves cursor to line #, column #
-		  y, x = $3.split(';')
-		  x = 1 unless x    # ESC[;5H == ESC[1;5H ...etc
-		  y = 1 unless y
-		  @Out.Cursor(x.to_i-1, y.to_i-1) # origin (0,0) in DOS console
-		when 'H' # ESC[#;#H  Moves cursor to line #, column #
-		  y, x = $3.split(';')
-		  x = 1 unless x    # ESC[;5H == ESC[1;5H ...etc
-		  y = 1 unless y
-		  @Out.Cursor(x.to_i-1, y.to_i-1) # origin (0,0) in DOS console
-		when 's'       # ESC[s Saves cursor position for recall later
-		  (@x, @y) = @Out.Cursor()
-		when 'u'       # ESC[u Return to saved cursor position
-		  @Out.Cursor(@x, @y)
-		else
-		  STDERR.puts "\e#$2#$3#$4 not implemented" if DEBUG  # ESC-code not implemented
-		end
-	      else
-		case $4
-		when 'U'     # ESC(U no mapping
-		  @conv = nil
-		when 'K'     # ESC(K mapping if it exist
-		  @Out.OutputCP(OEM)      # restore original codepage
-		  @conv = 1
-		when 'X'     # ESC(#X codepage **EXPERIMENTAL**
-		  @conv = nil
-		  @Out.OutputCP($3)
-		else
-		  STDERR.puts "\e#$2#$3#$4 not implemented" if DEBUG # ESC-code not implemented
-		end
-	      end
-	    else
-	      @Out.Write(_conv(s))
-	      s=''
-	    end
-	  end
-	end
-
-	def _conv(s)
-	  if @concealed
-	    s.gsub!( /\S/,' ')
-	  elsif @conv
-	    if EncodeOk
-	      from_to(s, cpANSI, cpOEM)
-	    elsif @@cp == 'cp1252cp850'      # WinLatin1 --> DOSLatin1
-	      s.tr!("���������������������������������������������������������������������������������������������������ÁāŁƁǁȁɁʁˁ́́΁ρЁсҁӁԁՁցׁ؁فځہ܁݁ށ߁��������������������������������������������","???�??????????????????????????��������ρ��݁�����������������������������������������󁨁������ǎ����Ԑ�ҁӁށցׁ؁с������噞����ꚁ��ᅁ���Ƅ�������������Ё������䔁����������")
-	    elsif @@cp == 'cp1252cp437'      # WinLatin1 --> DOSLatinUS
-	      s.tr!("���������������������������������������������������������������������������������������������������ÁāŁƁǁȁɁʁˁ́́΁ρЁсҁӁԁՁցׁ؁فځہ܁݁ށ߁��������������������������������������������", "??????????????????????????????������?�????������???�����??��?��??��������?��????����?�???????��????�?????�??�ᅁ��?�������������?������?���?�����??�")
-	    elsif @@cp == 'cp1250cp852'      # WinLatin2 --> DOSLatin2
-	      s.tr!("���������������������������������������������������������������������������������������������������ÁāŁƁǁȁɁʁˁ́́΁ρЁсҁӁԁՁցׁ؁فځہ܁݁ށ߁��������������������������������������������",
-              "??????????��?��??????????��?������������ρ�?����?��������?����?���???����������񖁾�聵���Ǝ���������Ӂ��ցׁҁс�Ձ��⊙����ށ�뚁�݁�ꁠ��DŽ���������؁���ԁЁ�偢�����������������" )
-	    elsif @@cp == 'cp1251cp855'      # WinCyrillic --> DOSCyrillic
-	      s.tr!("���������������������������������������������������������������������������������������������������ÁāŁƁǁȁɁʁˁ́́΁ρЁсҁӁԁՁցׁ؁فځہ܁݁ށ߁��������������������������������������������",
-              "��?�??????�?����?????????�?����������??���?���?��?�??��????������������쁭������􁸁��ǁсӁՁׁ݁���聫�����������������������끬������󁷁��ƁЁҁԁց؁���灪������������������")
-	    end
-	  end
-	  return s
-	end
-
-      end
-
-# end print overloading
-
-    end
-  end
-end
-
-
-$stdout = Win32::Console::ANSI::IO.new()
-

data/support/kvm.h

@@ -1,91 +0,0 @@
-/*
- * Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
- *
- * @APPLE_LICENSE_HEADER_START@
- * 
- * This file contains Original Code and/or Modifications of Original Code
- * as defined in and that are subject to the Apple Public Source License
- * Version 2.0 (the 'License'). You may not use this file except in
- * compliance with the License. Please obtain a copy of the License at
- * http://www.opensource.apple.com/apsl/ and read it before using this
- * file.
- * 
- * The Original Code and all software distributed under the License are
- * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
- * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
- * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
- * Please see the License for the specific language governing rights and
- * limitations under the License.
- * 
- * @APPLE_LICENSE_HEADER_END@
- */
-/*-
- * Copyright (c) 1989, 1993
- *	The Regents of the University of California.  All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *	This product includes software developed by the University of
- *	California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
- *    may be used to endorse or promote products derived from this software
- *    without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- *
- *	@(#)kvm.h	8.1 (Berkeley) 6/2/93
- */
-
-#ifndef _KVM_H_
-#define	_KVM_H_
-
-/* Default version symbol. */
-#define	VRS_SYM		"_version"
-#define	VRS_KEY		"VERSION"
-
-#include <nlist.h>
-#include <sys/cdefs.h>
-
-__BEGIN_DECLS
-
-typedef struct __kvm kvm_t;
-
-struct kinfo_proc;
-int	  kvm_close(kvm_t *);
-char	**kvm_getargv(kvm_t *, const struct kinfo_proc *, int);
-char	**kvm_getenvv(kvm_t *, const struct kinfo_proc *, int);
-char	 *kvm_geterr(kvm_t *);
-int	  kvm_getloadavg(kvm_t *, double [], int);
-char	 *kvm_getfiles(kvm_t *, int, int, int *);
-struct kinfo_proc *
-	  kvm_getprocs(kvm_t *, int, int, int *);
-int	  kvm_nlist(kvm_t *, struct nlist *);
-kvm_t	 *kvm_open
-	   (const char *, const char *, const char *, int, const char *);
-kvm_t	 *kvm_openfiles
-	   (const char *, const char *, const char *, int, char *);
-int	  kvm_read(kvm_t *, unsigned long, void *, unsigned int);
-int	  kvm_write(kvm_t *, unsigned long, const void *, unsigned int);
-
-__END_DECLS
-
-#endif /* !_KVM_H_ */

data/support/ruby-pcap-takuma-notes.txt

@@ -1,19 +0,0 @@
-Ruby-Pcap Patch (2008-02-10)
--------------------------------------------------------
-
-"pcap.bundle: warning: do not use Fixnums as Symbols"
-
-Ruby-Pcap is a libpcap binding for Ruby. On Ruby 1.8.6, 
-the latest release (0.6) produces the warning above on 
-OS X. ruby-pcap-takuma-patch.txt is a patch from here:
-http://d.hatena.ne.jp/takuma104/20080210/1202638583
-
-You can get Ruby-Pcap from here:
-http://www.goto.info.waseda.ac.jp/~fukusima/ruby/pcap-e.html
-
-$ tar -zxf ruby-pcap-0.6.tar.gz
-$ cd pcap
-$ patch -p1 < ruby-pcap-takuma-patch.txt
-$ make 
-$ make install
-

data/support/ruby-pcap-takuma-patch.txt

@@ -1,30 +0,0 @@
-diff -ur pcap/Pcap.c pcap-modified/Pcap.c
---- pcap/Pcap.c	2000-08-13 01:56:31.000000000 -0400
-+++ pcap-modified/Pcap.c	2009-01-02 10:55:49.000000000 -0500
-@@ -782,9 +782,9 @@
-     /* define class PcapStat */
-     cPcapStat = rb_funcall(rb_cStruct, rb_intern("new"), 4,
- 			   Qnil,
--			   INT2NUM(rb_intern("recv")),
--			   INT2NUM(rb_intern("drop")),
--			   INT2NUM(rb_intern("ifdrop")));
-+			   ID2SYM(rb_intern("recv")),
-+			   ID2SYM(rb_intern("drop")),
-+			   ID2SYM(rb_intern("ifdrop")));
-     rb_define_const(mPcap, "Stat", cPcapStat);
- 
-     /* define exception classes */
-diff -ur pcap/packet.c pcap-modified/packet.c
---- pcap/packet.c	2000-08-13 02:56:15.000000000 -0400
-+++ pcap-modified/packet.c	2009-01-02 10:56:07.000000000 -0500
-@@ -17,8 +17,8 @@
- 
- VALUE cPacket;
- static VALUE mMarshal;
--int id_load;
--int id_dump;
-+ID id_load;
-+ID id_dump;
- 
- /* called from GC */
- static void