languages/cardinal/src/builtins/say.pir

   1 # $Id$
   2
   3 =head1
   4
   5 builtin functions for Ruby.
   6
   7 =cut
   8
   9 .namespace []
  10
  11 .sub 'print'
  12     .param pmc args            :slurpy
  13     .local pmc iter
  14     iter = new 'Iterator', args
  15   iter_loop:
  16     unless iter goto iter_end
  17     $P0 = shift iter
  18     print $P0
  19     goto iter_loop
  20   iter_end:
  21     .return ()
  22 .end
  23
  24 .sub 'puts'
  25     .param pmc args            :slurpy
  26     $S0 = join "\n", args
  27     'print'($S0, "\n")
  28 .end
  29
  30 .sub 'p'
  31     .param pmc args            :slurpy
  32     $S0 = join "\n", args
  33     'print'($S0, "\n")
  34 .end
  35
  36 # Local Variables:
  37 #   mode: pir
  38 #   fill-column: 100
  39 # End:
  40 # vim: expandtab shiftwidth=4 ft=pir:
  41