kyanite 0.3.1

data/lib/kyanite/array/array2.rb

@@ -0,0 +1,140 @@
+
+require 'kyanite/array/array'   
+   
+class Array 
+
+  # Liefert nil, wenn das erste Element empty ist, sonst self.
+  # Wird von Array2 und Matrix2 verwendet.
+  # Tests: TestMatrix2#test_fehlerhalte_matrix  
+  #
+  def row_to_nil #:nodoc:
+      return nil if self[0].empty?
+      return self
+  end       
+
+end   
+
+class NilClass # :nodoc:
+  def row_to_nil;           nil;              end    
+end
+
+# Ein Array2 ist eine spezielle Form von Array, n�mlich immer zweidimensional. Siehe auch Matrix2!   
+# 
+# Ein Array2 kann <b>in jeder Zeile eine verschiedene Anzahl Spalten </b> haben (im Gegensatz zu Instanzen der Klasse Matrix2!)
+# Jede Zeile hat einen Zeilenheader (Zelle 0), einen Spaltenheader gibt es nicht.
+class Array2 < Array 
+
+    
+    
+    # Schreibt den Wert einer Zelle. Siehe auch set_row! und set_column!
+    # Stattdessen kann man auch schreiben:
+    #  myarray[r][c] = neuerwert  
+    #
+    # Tests: TestMatrix2#test_matrix_zellen_und_zeilen
+    def set_element!(i,j,wert)                    
+        self[i][j] = wert.dup
+    end        
+    
+    
+    # Liefert eine bestimmte Zeile zur�ck.
+    #
+    # Tests: TestMatrix2#test_matrix_zellen_und_zeilen    
+    def row(i)                                    
+        return self.at(i)
+    end        
+    
+    
+    # Setzt den Wert einer Zeile.
+    #
+    # Tests: TestMatrix2#test_matrix_zellen_und_zeilen    
+    def set_row!(i,wert)                        
+        self[i] = wert.dup
+    end        
+    
+    
+    # Wieviele Zeilen hat das Array2?
+    #
+    # Tests: TestMatrix2#test_matrix_zellen_und_zeilen    
+    def row_size                                
+        size
+    end   
+
+
+
+    # Gibt das Array2 menschenlesbar aus. 
+    # Beispielaufruf: 
+    #  pp germany.adms_and_orte.inspect
+    def inspect
+        analyze = Array.new
+        analyze = self.collect do | zeile | 
+                                    ( zeile.collect { | zelle | zelle.inspect } ).join("  |  ")
+                                end # zeile
+        return analyze
+    end # inspect  
+    
+    
+    # Liefert eine bereinigte Kopie des Array2.  
+    # Level=0:: Platzhalter f�r den More-Link durch echten More-Link ersetzen
+    # Level=1:: Zeilen ohne Zeilenheader werden gel�scht    
+    #        
+    def clean4view(level = 0)
+        new = self.collect { |zeile| 
+                                if zeile[1].nil? && level >= 1
+                                    nil
+                                elsif zeile[-1] == :more  
+                                    zeile[0..-2] << zeile[0].dup.more!
+                                else
+                                    zeile
+                                end
+                              }
+        return Array2.new(new.compact)
+    end # clean4view    
+
+    
+    
+    # In-place-Variante von clean4view.
+    def clean4view!(level = 0)
+        self.replace(self.clean4view(level))
+    end
+    
+end # class Array2    
+
+
+
+
+
+
+    
+    
+    
+    
+    
+    
+
+
+
+
+
+
+
+
+    
+    
+    
+
+
+
+
+
+    
+    
+    
+    
+
+
+    
+    
+    
+    
+    
+    

data/lib/kyanite/array/matrix2.rb

@@ -0,0 +1,120 @@
+
+require 'kyanite/array/array2'   
+
+# Datenstruktur f�r streng-zweidimensionale Matritzen. Erbt die Methoden von Array2 und Array. Beispiele siehe TestMatrix2.
+#
+# Eine Matrix2 ist eine spezielle Form von Array2, sie hat <b>in jeder Zeile die gleiche Anzahl Spalten</b>.
+# Jede Zeile hat einen Zeilenheader row(0), jede Spalte einen Spaltenheader column(0).
+#
+# Man k�nnte auch die Standard-Library Matrix verwenden, aber die ist langsam, fehlerhaft und eher auf numerische Werte zugeschnitten denn auf beliebige Objekte.
+#      
+# noch nicht implementiert: append!(top | bottom | left | right)   
+class Matrix2  < Array2
+
+    # Liefert eine bestimmte Spalte zur�ck.
+    # Dabei wird die Matrix2 vorher mit clean4view!(0) behandelt, d.h. sie ver�ndert sich ggf.!         
+    # 
+    # Tests: TestMatrix2#test_spalten
+    def column(j)                                
+        clean4view!(0)
+        return self.transpose.at(j)
+    end    
+    
+    
+    # Setzt den Wert einer Spalte.
+    # Dabei wird die Matrix2 vorher mit clean4view!(0) behandelt, d.h. sie ver�ndert sich ggf.!      
+    # 
+    # Tests: TestMatrix2#test_spalten
+    def set_column!(j,wert)                        
+        clean4view!(0)
+        transpose!    
+        wertdup = wert.dup
+
+        self[j] = wert.dup
+        transpose!
+        return wertdup
+    end
+
+    # Wieviele Spalten hat die Tabelle? Ma�geblich daf�r ist die Header-Spalte!
+    def column_size                                
+        self[0].size
+    end          
+
+    
+    # Liefert eine bereinigte Kopie der Matrix2.  
+    # Level=0:: Resize to Header, d.h. alle Zeilen werden auf die L�nge der ersten Zeile angepasst (beschnitten oder mit nil aufgef�llt) 
+    # Level=1:: Zeilen ohne Zeilenheader werden gel�scht
+    # Level=2:: Spalten ohne Spaltenheader werden gel�scht      
+    #
+    # Test: TestMatrix2#test_resize_to_header
+    #
+    def clean4view(level = 0)
+
+        # Level 0 : Resize to Header, d.h. alle Zeilen werden auf die L�nge der ersten Zeile angepasst (beschnitten oder mit nil aufgef�llt) 
+        cs = self.column_size
+        new = self.collect { |zeile| 
+                                zs = zeile.size
+                                if zs == cs 
+                                    zeile
+                                elsif zs > cs 
+                                    zeile[0, cs]   
+                                else # zs < cs
+                                    zeile + Array.new(cs-zs) 
+                                end }
+        return Matrix2.new(new) if level == 0                                       # Level 0
+
+        
+        #Level 1 : Zeilen ohne Zeilenheader werden gel�scht
+        new.collect!     { | zeile | zeile.row_to_nil }              
+        new.compact!                                                  
+        return Matrix2.new(new) if level == 1                                       # Level 1    
+
+        
+        # Level 2 : Spalten ohne Spaltenheader werden gel�scht
+                new.transpose!                                
+                new.collect! { | spalte | spalte.row_to_nil }              
+                new.compact!                                                  
+                new.transpose!
+        return Matrix2.new(new)                                                     # Level 2    
+    end # def clean4view
+
+    
+    # In-place-Variante von clean4view.
+    def clean4view!(level = 0)
+        self.replace(self.clean4view(level))
+    end
+
+
+end # class Matrix2  
+ 
+
+
+
+
+
+
+
+
+
+
+
+    
+    
+    
+
+
+
+
+
+    
+    
+    
+    
+
+
+    
+    
+    
+    
+    
+    

data/lib/kyanite/array_of_enumerables.rb

@@ -0,0 +1,2 @@
+
+require 'kyanite/enumerable/enumerable_enumerables'  

data/lib/kyanite/array_of_numerics.rb

@@ -0,0 +1,2 @@
+
+require 'kyanite/enumerable/enumerable_numerics'  

data/lib/kyanite/array_of_strings.rb

@@ -0,0 +1,2 @@
+
+require 'kyanite/enumerable/enumerable_strings'  

data/lib/kyanite/basics.rb

@@ -0,0 +1,60 @@
+
+# Required eine Auswahl wichtiger Kyanite-Libs
+
+$KCODE = 'UTF8'
+
+# ----------------------------------------------------------------
+# innerhalb von Verzeichnissen
+#
+
+# require 'kyanite/array'   
+  require 'kyanite/array/array'           # aber nicht array2 und matrix2 
+  
+# require 'kyanite/general'    
+# require 'kyanite/general/callerutils'
+  require 'kyanite/general/classutils'  
+  require 'kyanite/general/kernel'     
+  require 'kyanite/general/nil'     
+  require 'kyanite/general/object'    
+# require 'kyanite/general/optimizer'    
+  require 'kyanite/general/true_false'       
+# require 'kyanite/general/undoable'       
+   
+  require 'kyanite/numeric'    
+# require 'kyanite/operation'              # nur manuell
+  
+# require 'kyanite/string'     
+# require 'kyanite/string/cast'
+# require 'kyanite/string/chars'
+# require 'kyanite/string/diff'
+# require 'kyanite/string/div'
+  require 'kyanite/string/include'
+# require 'kyanite/string/list'
+  require 'kyanite/string/mgsub'
+# require 'kyanite/string/nested'
+# require 'kyanite/string/random'
+# require 'kyanite/string/split'
+
+  
+  
+  
+# ----------------------------------------------------------------
+# Einzeldateien
+#  
+  
+# require 'kyanite/basics'            # diese Datei  
+# require 'kyanite/dictionary'   
+  require 'kyanite/hash'   
+# require 'kyanite/matrix2'   
+# require 'kyanite/nil'               # ist schon in general
+  require 'kyanite/range'  
+# require 'kyanite/set'  
+  require 'kyanite/symbol'  
+# require 'kyanite/tree'  
+# require 'kyanite/unit_test'         # nur für Tests
+         
+# ----------------------------------------------------------------
+# Außerhalb
+#  
+
+require 'pp'

data/lib/kyanite/dictionary.rb

@@ -0,0 +1,116 @@
+
+require 'facets/dictionary'
+require 'kyanite/enumerable'             # is_collection?
+
+class Dictionary
+
+  def fetch_by_index(index)
+    @hash[order[index]]
+  end 
+  
+  def first_key
+    order.first
+  end
+  
+  def last_key
+    order.last
+  end  
+  
+  def -(other)
+    (self.to_a - other.to_a).to_dictionary
+  end
+  
+  def unshift( k,v )
+    unless @hash.include?( k )
+      @order.unshift( k )
+      @hash.store( k,v )
+      true
+    else
+      false
+    end
+  end
+  
+  
+  def each_with_index
+    order.each_with_index { |k,i| yield( k, @hash[k], i ) }
+    self
+  end
+  
+  
+end
+
+
+class Hash
+
+  # :section: Cast
+  # TODO: effizienter
+  def to_dictionary
+    result = Dictionary.new
+      self.each do | key, value |
+        result[key] = value
+      end
+    result
+  end
+
+end
+
+
+class Array
+
+  # :section: Cast
+  
+  
+  
+  # Liefert ein Dictionary (das ist ein geordneter Hash)
+  #
+  # TODO: effizienter
+  def to_dictionary
+    result = Dictionary.new
+      self.each do | zeile |
+        result << zeile
+      end
+    result
+  end
+  
+  #funktioniert nicht
+  def to_dictionary2 # :nodoc:
+    Dictionary.new(self.flatten)
+  end  
+  
+end
+
+
+class NilClass
+  def fetch_by_index(*a);                 nil;                end  
+  def to_dictionary;                      Dictionary.new;     end  
+end
+
+
+
+# ---------------------------------------------------------
+# Ausprobieren
+#
+if $0 == __FILE__ 
+
+  require 'perception'
+  test = Dictionary[ 'a', 1, 'b', 2, 'c', 3 ]
+  see test
+  see
+  see
+  see test.order
+
+
+
+
+
+end
+
+
+
+
+
+
+
+
+
+