examples/subs/no_retval.pir

   1 # Copyright (C) 2001-2008, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 examples/subs/no_retval.pir - Subroutine example
   7
   8 =head1 SYNOPSIS
   9
  10     % ./parrot examples/subs/no_retval.pir
  11
  12 =head1 DESCRIPTION
  13
  14 Call a sub with no 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   foo(7, 8, "nine")
  25 .end
  26
  27 .sub foo
  28   .param int i
  29   .param int j
  30   .param string s
  31
  32   print i
  33   print " "
  34   print j
  35   print " "
  36   print s
  37   print "\n"
  38 .end
  39
  40 # Local Variables:
  41 #   mode: pir
  42 #   fill-column: 100
  43 # End:
  44 # vim: expandtab shiftwidth=4 ft=pir: