1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
=head1 DESCRIPTION
tetris.pir - a second tetris for parrot (with parrot's SDL bindings)
=head1 SYNOPSIS
To run this file, be in the Parrot directory and run the following command:
$ parrot examples/sdl/tetris/tetris.pir
$
=head1 FUNCTIONS
=over 4
=item _main( argv )
The entry point of SDL applications.
=over 4
=item parameter C<argv>
Array with commandline parameters.
=back
=cut
.sub _main :main
.param pmc argv
.local pmc app
load_bytecode "examples/sdl/tetris/app.pir"
# create the tetris app
app = new "Tetris::App"
app."flag"( "show blocksize", 1 )
# run the tetris app
app."run"()
# shutdown the app
app."shutdown"()
end
.end
=back
=head1 AUTHOR
Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author
and maintainer.
Please send patches and suggestions to the Perl 6 Internals mailing list.
=head1 COPYRIGHT
Copyright (C) 2004-2008, Parrot Foundation.
=cut
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
|
