examples/japh/japh5.pasm

   1 # Copyright (C) 2004-2009, Parrot Foundation.
   2 # $Id$
   3
   4 # JaPH utilizing an object
   5     newclass P0, "Japh"
   6     new P0, "Japh"
   7     set P0[1], "Just"
   8     set P0[2], "another"
   9     set P0[3], "Parrot"
  10     set P0[0], "Hacker"
  11     end
  12 .namespace ["Japh"]
  13 .pcc_sub :vtable set_string_keyed:
  14     get_params "0,0,0", P5, I5, S5
  15     print S5
  16     if I5, sp
  17     print "\n"
  18     returncc
  19 sp:
  20     print " "
  21     returncc
  22
  23 # Local Variables:
  24 #   mode: pir
  25 #   fill-column: 100
  26 # End:
  27 # vim: expandtab shiftwidth=4 ft=pir: