Ticket #1521: test.pir

.HLL 'parrotlog'

.namespace []
.sub 'choose'
    .param pmc options :slurpy
    .local pmc cc
    .local pmc chosen
    .local pmc paths

    if options goto got_options
    'fail'()
  got_options:
    chosen = shift options

    cc = new 'Continuation'
    set_addr cc, recurse
    paths = get_global '!paths'
    push paths, cc

    say chosen
    .return (chosen)

  recurse:
    #.tailcall 'choose'(options :flat)
    'choose'(options :flat)
.end

.sub 'fail'
    .local pmc cc
    .local pmc paths

    paths = get_global '!paths'

    if paths goto got_paths
    cc = get_global '!topcc'
    goto call_cc
  got_paths:
    cc = shift paths

  call_cc:
    cc()
.end

.sub 'blob'
    .local pmc city
    .local pmc store
    .local pmc bx
    .local pmc paths

    paths = new 'ResizablePMCArray'
    set_global '!paths', paths

    city = 'choose'("la", "ny", "bos")
    say city
    say ''

    'fail'()
.end

.sub 'main' :main
    .local pmc cc

    # Install top-level cc in global.
    cc = new 'Continuation'
    set_addr cc, final_failure
    set_global '!topcc', cc

    'blob'()
  final_failure:
.end

# Outputs:
# Blob?
# la
# la
# ny # Right value selected
# la # Old return value...
# bos # Right value selected
# la # Still old return value...
# Blob.