# Copyright (C) 2008, The Perl Foundation.
# $Id: /mirror/trunk/languages/markdown/src/builtins/length.pir 31893 2008-10-10T18:23:45.506932Z tene  $

=head1

length.pir -- simple implementation of a length function

=cut

.namespace [ 'Markdown';'Grammar' ]

.sub 'length' :method
    $S0 = self
    $I0 = length $S0
    new $P0, 'Integer'
    set $P0, $I0
    .return ($P0)
.end


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

