# Copyright (C) 2007-2009, Parrot Foundation.
# $Id: 24_string_ops_clone.pir 39674 2009-06-20 14:09:03Z cotto $

=head1

This code example illustrates cloning with PMC strings. Simple copying
operations create two pointers to the same underlying memory structure.
A C<clone> operation actually creates two separate but identical
objects in memory. In this example, notice how C<$P1> and C<firstname>
both reference the same location in memory, but C<$P2> doesn't.

=cut

.sub main :main
    .local pmc firstname

    firstname = new ['String']
    firstname = "Ford"
    say firstname

    $P1 = firstname
    $P1 = "Zaphod"
    say firstname


    $P2 = clone firstname
    $P2 = "Trillian"
    say firstname

.end

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

