examples/pir/substr.pir

   1 # Copyright (C) 2001-2008, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 examples/pir/substr.pir - playing with substr
   7
   8 =head1 SYNOPSIS
   9
  10     % ./parrot examples/pir/substr.pir
  11
  12 =head1 DESCRIPTION
  13
  14 A exuberating C<substr> version of "Hello World".
  15
  16 =cut
  17
  18 .sub "example" :main
  19         $I2 = 1
  20         $I1 = 0
  21         $S1 = "Hello World"
  22         $I3 = 0
  23         $I4 = 0
  24         $I5 = length $S1
  25 WAX:    $S2 = substr $S1, $I3, $I4
  26         print  $S2
  27         print  "\n"
  28         $I4 = $I4 + $I2
  29         if $I4 == $I5 goto WANE
  30         branch WAX
  31 WANE:   $I1 = length $S1
  32         print  $S1
  33         print  "\n"
  34         chopn  $S1, 1
  35         unless $I1 == $I3 goto WANE
  36 DONE:
  37 .end
  38
  39 # Local Variables:
  40 #   mode: pir
  41 #   fill-column: 100
  42 # End:
  43 # vim: expandtab shiftwidth=4 ft=pir: