File: RetryRecursive.rb

package info (click to toggle)
dlr-languages 20090805%2Bgit.e6b28d27%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 51,484 kB
  • ctags: 59,257
  • sloc: cs: 298,829; ruby: 159,643; xml: 19,872; python: 2,820; yacc: 1,960; makefile: 96; sh: 65
file content (28 lines) | stat: -rw-r--r-- 241 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
$i = 0

def zoo
  puts 'zoo'
   1
end

def foo
  puts 'foo'
  bar(zoo) { puts 'block'; retry }
end

def bar a, &p
  puts 'bar'
  # $g = p 
  baz &p
end

def baz &p
  puts 'baz'
  $i += 1
  if $i < 10 then
    yield
  end  
end

foo
# baz &$g