Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

49 lines (34 sloc) 0.982 kB
# Copyright (C) 2001-2008, Parrot Foundation.
# $Id$
=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:
Jump to Line
Something went wrong with that request. Please try again.