examples/tutorial/32_array_ops_sprintf.pir

   1 # Copyright (C) 2007-2009, Parrot Foundation.
   2 # $Id$
   3
   4 =head1
   5
   6 C<sprintf> is a function common to most programmers as part of the C
   7 standard library that allows the creation of a string from a given
   8 format and a list of operators. Parrot's C<sprintf> operator extends
   9 the format options of the regular sprintf function, and allows
  10 arguments to be taken from inside an array PMC.
  11
  12 =cut
  13
  14 .sub main :main
  15
  16     .local pmc myarray
  17     myarray = new ['ResizablePMCArray']
  18
  19     $P0 = new ['Integer']
  20     $P0 = 42
  21     push myarray, $P0
  22
  23     $P1 = new ['Float']
  24     $P1 = 10.5
  25     push myarray, $P1
  26
  27     $S0 = sprintf "int %#Px num %+2.2Pf\n", myarray
  28     print $S0     # prints "int 0x2a num +10.50"
  29     print "\n"
  30
  31 .end
  32
  33 # Local Variables:
  34 #   mode: pir
  35 #   fill-column: 100
  36 # End:
  37 # vim: expandtab shiftwidth=4 ft=pir:
  38