Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Move print() and say() functions to the setting.
  • Loading branch information
pmichaud committed Aug 3, 2009
1 parent d51bca3 commit 91408af
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 29 deletions.
29 changes: 0 additions & 29 deletions src/builtins/io.pir
Expand Up @@ -12,35 +12,6 @@ src/builtins/io.pir - Perl6 builtins for I/O

.namespace []

.sub 'print'
.param pmc args :slurpy
.local pmc it, out
out = get_hll_global '$OUT'
args.'!flatten'()
it = iter args
iter_loop:
unless it goto iter_end
$P0 = shift it
unless null $P0 goto iter_nonull
$P0 = '!FAIL'()
iter_nonull:
out.'print'($P0)
goto iter_loop
iter_end:
.return (1)
.end


.sub 'say'
.param pmc list :slurpy
.local pmc out
out = get_hll_global '$OUT'
out.'print'(list :flat)
out.'print'("\n")
.return (1)
.end


=item printf

Parses a format string and prints formatted output according to it.
Expand Down
4 changes: 4 additions & 0 deletions src/setting/IO.pm
Expand Up @@ -68,9 +68,13 @@ multi sub lines(IO $filehandle,
$filehandle.lines();
}

multi sub print(Object *@items) { $*OUT.print(@items); }

multi sub prompt($msg) {
print $msg;
$*IN.get;
}

multi sub say(Object *@items) { $*OUT.say(@items); }

# vim: ft=perl6

0 comments on commit 91408af

Please sign in to comment.