t/array/select.t @@ -302,6 +302,7 @@ namespace :test do |ns| test "array/reject.t" test "array/replace.t" test "array/reverse.t" + test "array/select.t" test "array/shift.t" test "array/slice.t" test "array/sort.t" @@ -311,7 +312,7 @@ namespace :test do |ns| test "array/warray.t" desc "Run tests on Array." - task :all => [:array, :assign, :at, :clear, :collect, :compact, :concat, :count, :delete, :empty, :equals, :fetch, :fill, :first, :flatten, :grep, :include, :index, :insert, :intersection, :join, :mathop, :pop, :push, :reject, :replace, :reverse, :shift, :slice, :sort, :to_s, :uniq, :values_at, :warray] + task :all => [:array, :assign, :at, :clear, :collect, :compact, :concat, :count, :delete, :empty, :equals, :fetch, :fill, :first, :flatten, :grep, :include, :index, :insert, :intersection, :join, :mathop, :pop, :push, :reject, :replace, :reverse, :select, :shift, :slice, :sort, :to_s, :uniq, :values_at, :warray] end namespace :file do Rakefile @@ -284,6 +284,27 @@ Return a sorted copy of the list .return ($P0) .end +.sub 'select' :method + .param pmc block :named('!BLOCK') + .local pmc uarray, val + + uarray = new 'CardinalArray' + $P0 = iter self + + loop: + unless $P0 goto done + + $P1 = shift $P0 + $P2 = block($P1) + unless $P2 goto loop + + uarray.'push'($P1) + goto loop + + done: + .return (uarray) +.end + .sub reject :method .param pmc block :named("!BLOCK") .local pmc uarray, val src/classes/Array.pir a2b5f4dcbf6db1d1a1bdd88a1301e745aea0ad79 Danius Michaelides danius.michaelides@gmail.com http://github.com/cardinal/cardinal/commit/f33b4944e160024765ec2d3e37eb840925e59170 f33b4944e160024765ec2d3e37eb840925e59170 2009-08-23T08:57:15-07:00 2009-08-23T08:18:56-07:00 Implement Array#select. Signed-off-by: Ted Reed <ted.reed@gmail.com> f21ca477e72a57fd6dd492a4aef7845dc7dc5556 Ted Reed ted.reed@gmail.com