gistfile1.txt

[23:11] [inara:/Users/treed/code/cardinal]% ../parrot/parrot test.pir
foo
1
set_string_native() not implemented in class 'String'
current instr.: 'main' pc 56 (test.pir:24)

test.pir

# Copyright (C) 2006-2009, Parrot Foundation.
# $Id: skeleton.pir 38369 2009-04-26 12:57:09Z fperrad $

.HLL 'foo'

.sub 'onload' :anon :init :load
    .local pmc meta, pint
    load_bytecode 'P6object.pbc'
    meta = get_root_global ['parrot'], 'P6metaclass'
    meta.'new_class'('FooString', 'parent'=>'parrot;String') 
    meta.'new_class'('String','parent'=>'parrot;String')
    pint = get_root_namespace['parrot';'Integer']
    subclass pint, "Integer"
.end

.sub main :main
    $P0 = new 'FooString'
    $P0 = 'foo'
    say $P0
    $P0 = new 'Integer'
    $P0 = 1
    say $P0
    $P0 = new 'String'
    $P0 = 'foo'
    say $P0
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: