sequence 0.1.0

data/test/test_seqrex.rb

@@ -0,0 +1,204 @@
+# Copyright (C) 2006  Caleb Clausen
+# Distributed under the terms of Ruby's license.
+$VERBOSE=1
+
+require 'test/unit'
+require 'sequence/indexed' 
+ 
+module Sequence::StringLike
+  public :group_anchors
+end
+
+  class SimpleScanUntil < Test::Unit::TestCase
+    def test_scan_until
+
+      cu= Sequence::Indexed.new('1234')
+
+#      assert_equal '#Sequence::OfString: @data="1234" @pos=0 >', cu.inspect
+      assert cu.is_a?(Sequence::OfString)
+      assert_equal ["1234",0], cu.instance_eval{[@data,@pos]}
+
+
+      _=cu.scan_until(/3/)
+      assert_equal '123',_
+      assert_equal 3, cu.pos
+      assert_equal '4', cu.last_match.post_match.read(1)
+      assert_equal 3, cu.pos
+    end
+  end
+ 
+  class GroupAnchorsExhaustive < Test::Unit::TestCase
+    def setup;       @cu= Sequence::OfString.new'' end
+
+    def test_unnamed 
+    assert_nothing_thrown do
+ 
+      _=@cu.group_anchors(/asdfdfs$/,nil)
+      assert_equal "[/(?-mix:asdfdfs(?=\n))/, []]", _.inspect
+
+      _=@cu.group_anchors(/asdf(df)s$/,nil)
+      assert_equal "[/(?-mix:asdf(df)s(?=\n))/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\Z|asdf(df)s)$/,nil)
+      assert_equal "[/(?-mix:((?!)|asdf(df)s)(?=\n))/, []]", _.inspect
+
+     _=@cu.group_anchors(/(\Z|asdf(df)s)$/,nil)
+      assert_equal "[/(?-mix:((?!)|asdf(df)s)(?=\n))/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\Z|asdf(df)s)$/,true)
+      assert_equal "[/(\\Z|asdf(df)s)$/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\A|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|(^)asdf(df)s))/, [2]]", _.inspect
+
+      _=@cu.group_anchors(/(\A|^asdf(df)s)/,nil)
+      assert_equal "[/(\\A|^asdf(df)s)/, []]", _.inspect
+
+
+      _=@cu.group_anchors(/(\A|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|(^)asdf(df)s))/, [2]]", _.inspect
+
+
+      _=@cu.group_anchors(/(\A|\^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|\\^asdf(df)s))/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\\A|^asdf(df)s)/,nil)
+      assert_equal "[/(\\\\A|^asdf(df)s)/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\\A|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:(\\\\A|(^)asdf(df)s))/, [2]]", _.inspect
+
+
+      _=@cu.group_anchors(/([\A]|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:([\\A]|(^)asdf(df)s))/, [2]]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^]asdf(df)s)/,nil)
+      assert_equal "[/(\\A|[z^]asdf(df)s)/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^]asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|[z^]asdf(df)s))/, []]", _.inspect
+
+      _=@cu.group_anchors(/([\A]|^asdf(df)s)/,nil)
+      assert_equal "[/([\\A]|^asdf(df)s)/, []]", _.inspect
+
+
+oldVERBOSE=$VERBOSE
+$VERBOSE=nil
+eval <<'END'
+      _=@cu.group_anchors(/([\A[]|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:([\\A[]|(^)asdf(df)s))/, [2]]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^[]asdf(df)s)/,nil)
+      assert_equal "[/(\\A|[z^[]asdf(df)s)/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^[]asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|[z^[]asdf(df)s))/, []]", _.inspect
+
+      _=@cu.group_anchors(/([\A[]|^asdf(df)s)/,nil)
+      assert_equal "[/([\\A[]|^asdf(df)s)/, []]", _.inspect
+END
+$VERBOSE=oldVERBOSE
+
+      _=@cu.group_anchors(/([\A\[]|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:([\\A\\[]|(^)asdf(df)s))/, [2]]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^\[]asdf(df)s)/,nil)
+      assert_equal "[/(\\A|[z^\\[]asdf(df)s)/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^\[]asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|[z^\\[]asdf(df)s))/, []]", _.inspect
+
+      _=@cu.group_anchors(/([\A\[]|^asdf(df)s)/,nil)
+      assert_equal "[/([\\A\\[]|^asdf(df)s)/, []]", _.inspect
+
+
+      _=@cu.group_anchors(/([\A(]|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:([\\A(]|(^)asdf(df)s))/, [2]]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^(]asdf(df)s)/,nil)
+      assert_equal "[/(\\A|[z^(]asdf(df)s)/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^(]asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|[z^(]asdf(df)s))/, []]", _.inspect
+
+      _=@cu.group_anchors(/([\A(]|^asdf(df)s)/,nil)
+      assert_equal "[/([\\A(]|^asdf(df)s)/, []]", _.inspect
+
+
+      _=@cu.group_anchors(/([\A)]|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:([\\A)]|(^)asdf(df)s))/, [2]]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^)]asdf(df)s)/,nil)
+      assert_equal "[/(\\A|[z^)]asdf(df)s)/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^)]asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|[z^)]asdf(df)s))/, []]", _.inspect
+
+      _=@cu.group_anchors(/([\A)]|^asdf(df)s)/,nil)
+      assert_equal "[/([\\A)]|^asdf(df)s)/, []]", _.inspect
+
+
+      _=@cu.group_anchors(/([\A\]]|^asdf(df)s)/,true)
+      assert_equal "[/(?-mix:([\\A\\]]|(^)asdf(df)s))/, [2]]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^\]]asdf(df)s)/,nil)
+      assert_equal "[/(\\A|[z^\\]]asdf(df)s)/, []]", _.inspect
+
+      _=@cu.group_anchors(/(\A|[z^\]]asdf(df)s)/,true)
+      assert_equal "[/(?-mix:((?!)|[z^\\]]asdf(df)s))/, []]", _.inspect
+
+      _=@cu.group_anchors(/([\A\]]|^asdf(df)s)/,nil)
+      assert_equal "[/([\\A\\]]|^asdf(df)s)/, []]", _.inspect
+
+
+      _=@cu.group_anchors(/fdgdsfgdsf/,nil)
+      assert_equal "[/fdgdsfgdsf/, []]", _.inspect
+
+      _=@cu.group_anchors(/fdgdsfgdsf/,true)
+      assert_equal "[/fdgdsfgdsf/, []]", _.inspect
+
+    end
+    end
+  end
+  class BasicMatchData < Test::Unit::TestCase
+    def setup
+      @cu="".to_sequence
+    end
+
+    def test_unnamed 
+
+
+
+      _=md=(//.match'') 
+
+      _=md= Sequence::StringLike::CorrectedMatchData.new
+      
+      _=md.begins=[10,20,30,40,50]
+      assert_equal "[10, 20, 30, 40, 50]", _.inspect
+
+      _=md.ends=[15,25,35,45,55]
+      assert_equal "[15, 25, 35, 45, 55]", _.inspect
+
+      _=md.groups=%w[abcde fghij klmno pqrst uvwxy]
+      assert_equal "[\"abcde\", \"fghij\", \"klmno\", \"pqrst\", \"uvwxy\"]", _.inspect
+
+      _=md=@cu.fixup_match_result( md,[1,3],3,:post) do end
+
+      _=md.begin 0
+      assert_equal "13", _.inspect
+
+      _=md.begin 1
+      assert_equal "33", _.inspect
+
+      _=md.begin 2
+      assert_equal "53", _.inspect
+
+      _=md.begin 5
+      assert_equal "nil", _.inspect
+
+      _=md.begin 4
+      assert_equal "nil", _.inspect
+
+      assert_equal ["abcde", "klmno", "uvwxy"],md.to_a
+    end
+  end

data/test/test_sequences.rb

@@ -0,0 +1,106 @@
+#eric's original test code; I can't say I understand it
+BEGIN{exit}
+#!/bin/env ruby
+#
+# $Id$
+#
+# Run this to test non-circular sequences.
+# Here is a list of the optional arguments:
+#
+#  <iterations> : approximate number of times to test each method
+#  <seed>       : seed for random number generation (0: none)
+#  <classRE>    : regular expression for the classes to test ('': all)
+#  <methodRE>   : regular expression for the methods to test ('': all)
+#  <flags>      : Combination of bits for various flags
+#    1 : disable testing of positions
+#    2 : only test with strings/characters
+#
+# All of the standar Test::Unit auto runner options apply.  The --verbose=<level>
+# option is especially useful.  Here are the various levels:
+#
+#  s[ilent]   : don't display anything
+#  p[rogress] : show a progress bar.  Upon fail, show the test and seed.
+#  n[ormal]   : show each method (and args) tested
+#  v[erbose]  : show each method and the object state (inspect)
+#
+# If you want to see a demo for a particular method, usually a good command
+# line would be something like this:
+#
+#  ruby sequence/test_sequences.rb --verbose=v 10 0 Indexed '^(<method>|close)$'
+
+require 'sequence/test'
+require 'sequence/indexed'
+require 'sequence/shifting'
+require 'sequence/split'
+require 'sequence/linked'
+require 'sequence/buffered'
+require 'sequence/lined'
+require 'sequence/reversed'
+require 'stringio'
+require 'sequence/io'
+
+# :stopdoc:
+
+class Sequence
+class Test
+class Sequence < Test
+    def self.suite
+       # @reject = /to_s/ # because of Sequence::Lined
+        $0==__FILE__ ? super(*ARGV) : super()
+    end
+    def self.seed(before,after)
+        seqs = [
+            (before+after).to_sequence(before.size),
+           Sequence::Shifting.new(after+before,after.size),
+           Sequence::Split.new(before.clone,after.reverse),
+           Sequence::Linked.new(before.clone,after.reverse),
+           Sequence.new(Sequence::Indexed.new(before+after,before.size)),
+           Sequence::Buffered.new(
+               Sequence::Indexed.new(after.clone),
+               Sequence::Indexed.new(before.clone,before.size),
+                before.size
+            ),
+           Sequence::Reversed.new(Sequence::Indexed.new((before+after).reverse,after.size)),
+        ]
+        if @string = String===before
+            io=StringIO.new(before+after)
+            io.pos=before.size
+            seqs << io.to_sequence
+            seqs << Sequence::Buffered.new(
+                StringIO.new(after),
+               Sequence::Indexed.new(before.clone,before.size),
+                before.size
+            )
+        end
+        if rand(2).zero?
+            @use_positions = false
+            seqs << Sequence.new(Sequence::Indexed.new(before+after,before.size)).position
+        else
+            @use_positions = @flags[0].zero?
+        end
+        seqs
+    end
+    def self.plant
+        @characters = @flags[1].nonzero?||rand(2).zero?
+        super
+    end
+    def self.elements
+        @flags[1].nonzero? ? [?A,?B,?C] : @characters ? [?\n,?\0,?0] : [false,"",[]]
+    end
+    def self.empty
+        @characters&&(@flags[1].nonzero?||rand(2).zero?) ? "" : []
+    end
+    def self.reject(name,*args,&block)
+        case name
+        when :scan_pattern then !@string
+        when :scan_pattern_until then !@string
+        when :scan_pattern_while then !@string
+        end
+    end
+end
+end
+end
+
+# :startdoc:
+
+

metadata

@@ -0,0 +1,90 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: sequence
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2006-10-05 00:00:00 -07:00
+summary: A single api for reading and writing sequential data types.
+require_paths: 
+- lib
+- test
+email: sequence-owner @at@ inforadical .dot. net
+homepage: http://sequence.rubyforge.org/
+rubyforge_project: sequence
+description: A unified wrapper api for accessing data in Strings, Arrays, Files, IOs,  and Enumerations. Each sequence encapsulates some data and a current position  within it. There are methods for moving the position, reading and writing data (with or without moving the position) forward or backward from the current position (or anywhere at all), scanning for patterns (like StringScanner, but  it works in Files too, among others), and saving a position that will remain valid even after data is deleted or inserted elsewhere within the sequence.   There are also some utility classes for making sequences reversed or circular, turning one-way sequences into two-way, buffering, and making sequences that are subsets or aggregations of existing sequences.
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Caleb Clausen
+files: 
+- lib/assert.rb
+- lib/sequence.rb
+- lib/sequence/arraylike.rb
+- lib/sequence/buffered.rb
+- lib/sequence/circular.rb
+- lib/sequence/enum.rb
+- lib/sequence/file.rb
+- lib/sequence/functional.rb
+- lib/sequence/generator.rb
+- lib/sequence/indexed.rb
+- lib/sequence/io.rb
+- lib/sequence/list.rb
+- lib/sequence/ofhash.rb
+- lib/sequence/ofobjectivars.rb
+- lib/sequence/ofobjectmethods.rb
+- lib/sequence/position.rb
+- lib/sequence/reversed.rb
+- lib/sequence/shifting.rb
+- lib/sequence/singleitem.rb
+- lib/sequence/stringlike.rb
+- lib/sequence/subseq.rb
+- lib/sequence/usedata.rb
+- lib/sequence/version.rb
+- lib/weakrefset.rb
+- test/test.rb
+- test/test_all.rb
+- test/test_changes.rb
+- test/test_circulars.rb
+- test/test_rexscan.rb
+- test/test_seqrex.rb
+- test/test_sequences.rb
+- Rakefile
+- Manifest.txt
+- README.txt
+- COPYING
+- GPL
+test_files: 
+- test/test_all.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.0.5
+    version: