examples/tutorial/24_string_ops_clone.pir

   1 # Copyright (C) 2007-2009, Parrot Foundation.
   2 # $Id$
   3
   4 =head1
   5
   6 This code example illustrates cloning with PMC strings. Simple copying
   7 operations create two pointers to the same underlying memory structure.
   8 A C<clone> operation actually creates two separate but identical
   9 objects in memory. In this example, notice how C<$P1> and C<firstname>
  10 both reference the same location in memory, but C<$P2> doesn't.
  11
  12 =cut
  13
  14 .sub main :main
  15     .local pmc firstname
  16
  17     firstname = new ['String']
  18     firstname = "Ford"
  19     say firstname
  20
  21     $P1 = firstname
  22     $P1 = "Zaphod"
  23     say firstname
  24
  25
  26     $P2 = clone firstname
  27     $P2 = "Trillian"
  28     say firstname
  29
  30 .end
  31
  32 # Local Variables:
  33 #   mode: pir
  34 #   fill-column: 100
  35 # End:
  36 # vim: expandtab shiftwidth=4 ft=pir:
  37