examples/subs/single_retval.pir

   1 # Copyright (C) 2001-2008, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 examples/subs/single_retval.pir - Subroutine example
   7
   8 =head1 SYNOPSIS
   9
  10     % ./parrot examples/subs/single_retval.pir
  11
  12 =head1 DESCRIPTION
  13
  14 Simple subroutine calls with 1 return value.
  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   .local int i
  25   i = 7
  26   $I1 = 8
  27   .local string s
  28   s = "nine"
  29   $I2  = 10
  30
  31   # subs accept locals and registers
  32   $I0 = foo(i, $I1, s, $I2)
  33   print "return: "
  34   print $I0
  35   print "\n"
  36
  37   # subs accept locals and registers
  38   ( $I3 ) = foo(i, $I1, s, $I2)
  39   print "return: "
  40   print $I3
  41   print "\n"
  42
  43 .end
  44
  45 .sub foo
  46   .param int i
  47   .param int j
  48   .param string s
  49   .param string k
  50
  51   print i
  52   print " "
  53   print j
  54   print " "
  55   print s
  56   print " "
  57   print k
  58   print "\n"
  59
  60   .return( 10 )
  61 .end
  62
  63 # Local Variables:
  64 #   mode: pir
  65 #   fill-column: 100
  66 # End:
  67 # vim: expandtab shiftwidth=4 ft=pir: