examples/subs/multi_retvals.pir

   1 # Copyright (C) 2001-2008, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 examples/subs/multi_retvals.pir - Subroutine example
   7
   8 =head1 SYNOPSIS
   9
  10     % ./parrot examples/subs/multi_retvals.pir
  11
  12 =head1 DESCRIPTION
  13
  14 Call a sub with multiple return values.
  15
  16 =head1 SEE ALSO
  17
  18 F<docs/imcc/syntax.pod>
  19 F<docs/imcc/calling_conventions.pod>
  20
  21 =cut
  22
  23 .sub example :main
  24   ($I0, $I1, $I99) = foo(7, 8, "nine")
  25   print "return: "
  26   print $I0
  27   print " "
  28   print $I1
  29   print " "
  30   print $I99
  31   print "\n"
  32 .end
  33
  34 .sub foo
  35   .return( 10, 11, 12 )
  36 .end
  37
  38 # Local Variables:
  39 #   mode: pir
  40 #   fill-column: 100
  41 # End:
  42 # vim: expandtab shiftwidth=4 ft=pir: