Ticket #745: try.pir

.namespace [ 'Foo' ; 'Bar' ; 'Dog' ]
.sub 'burble' :method
        say "burble, burble"
.end

.namespace []
.sub list_methods
        .param pmc obj

        $P0 = typeof obj
        $P0 = get_class $P0
        $P0 = $P0.'methods'()

        print "Here are the methods of class "
        $S0 = typeof obj
        say $S0

        .local pmc iter
        iter = new 'Iterator', $P0
        while:
        unless iter, done
        $S0 = shift iter
        print " - "
        print $S0
        print ": "
        $S0 = iter[$S0]
        say $S0
        goto while
        done:
        say "That's all"
.end

.sub main :main

        .local pmc clas
        say "Creating Foo::Bar::Dog by hash"
        .local pmc class_info
        class_info = new 'Hash'

        .local pmc ns
        $P0 = split "::", "Foo::Bar::Dog"
        $P1 = get_hll_namespace
        ns = $P1.'make_namespace'($P0)
        class_info['name'] = ns

        $P0 = new 'Hash'
        class_info['methods'] = $P0
        $P1 = get_hll_global [ 'Foo';'Bar';'Dog'], 'burble'
        $P0['bark'] = $P1
        #class_info['roles'] =

        $P0 = new 'ResizableStringArray'
        class_info['attributes'] = $P0
        push $P0, "alpha"
        push $P0, "beta"
        push $P0, "omega"

        clas = newclass class_info
        $P0 = new clas

        'list_methods'($P0)

        $P0.'bark'()
        $P0.'burble'()

        clas = newclass "Foo;Bar;Dog"

        say "Creating Foo::Bar::Dog by name"

        $P0 = new clas
        'list_methods'($P0)

        push_eh step2
        $P0.'burble'()
        $P0.'bark'()
        say "Done with dog-by-name"

        step2:
        pop_eh
        say "So much for that"

.end