Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
74 lines (53 sloc) 1.27 KB
.namespace []
.namespace [ 'NilClass' ]
.sub 'onload' :anon :load :init
.local pmc cardinalmeta, nilproto
cardinalmeta = get_hll_global ['CardinalObject'], '!CARDINALMETA'
nilproto = cardinalmeta.'new_class'('NilClass', 'parent'=>'parrot;Undef CardinalObject')
cardinalmeta.'register'('Undef', 'parent'=>nilproto, 'protoobject'=>nilproto)
.end
=over 4
=item _get_bool()
Return true when integers are queried about the their truth value
=cut
.sub '_get_bool' :vtable('get_bool') :method
$P0 = new 'Boolean'
$P0 = 0
.return ($P0)
.end
=item get_string() (vtable method)
Return the elements of the list concatenated.
=cut
.sub 'get_string' :vtable :method
$P0 = new 'CardinalString'
$P0 = 'nil'
.return($P0)
.end
.sub 'to_i' :method
$P0 = new 'CardinalInteger'
$P0 = 0
.return ($P0)
.end
.sub 'to_a' :method
$P0 = new 'CardinalArray'
.return ($P0)
.end
.sub 'to_s' :method
$P0 = new 'CardinalString'
$P0 = ''
.return($P0)
.end
.sub 'nil?' :method
$P0 = get_hll_global 'true'
.return ($P0)
.end
.namespace []
.sub 'setup' :anon :load :init
$P0 = new 'NilClass'
set_hll_global 'nil', $P0
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: