# Copyright (C) 2001-2008, The Perl Foundation.
# $Id: /mirror/trunk/languages/cardinal/src/classes/Continuation.pir 35037 2009-01-05T20:46:44.797206Z tene  $

=head1 TITLE

Continuation - Cardinal Continuation class

=head1 DESCRIPTION

=head2 Functions

=over

=item onload()

Perform initializations and create the Continuation class

=cut

.namespace ['CardinalContinuation']

.sub 'onload' :anon :init :load
    .local pmc cardinalmeta, contproto
    cardinalmeta = get_hll_global ['CardinalObject'], '!CARDINALMETA'
    contproto = cardinalmeta.'new_class'('CardinalContinuation', 'parent'=>'parrot;Continuation CardinalObject')
    cardinalmeta.'register'('Continuation', 'parent'=>'CardinalObject', 'protoobject'=>contproto)

.end

.sub 'get_string' :vtable
   $S0 = 'Continuation'
   .return ($S0)
.end

.sub 'call' :method
    #.param pmc args :optional
    #.local pmc cont
    #getattribute cont, self, '!block'
    #$P0 = block(args :flat)
    self()
    #.return ($P0)
.end

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