Author: leo
Date: Tue Oct 11 07:10:49 2005
New Revision: 9455
Modified:
trunk/examples/assembly/md5sum.imc
trunk/examples/assembly/ncurses_life.imc
trunk/examples/assembly/pcre.imc
trunk/examples/assembly/queens_r.imc
trunk/examples/assembly/sudoku.pir
trunk/examples/benchmarks/array_access.imc
trunk/examples/benchmarks/overload.imc
trunk/examples/io/httpd.imc
trunk/examples/io/pipe2.imc
trunk/examples/io/pipe3.imc
trunk/examples/sdl/anim_image.imc
trunk/examples/sdl/anim_image_dblbuf.imc
trunk/examples/sdl/blue_font.imc
trunk/examples/sdl/blue_rect.imc
trunk/examples/sdl/bounce_parrot_logo.imc
trunk/examples/sdl/lcd/clock.imc
trunk/examples/sdl/minesweeper/eventhandler.imc
trunk/examples/sdl/minesweeper/field.imc
trunk/examples/sdl/minesweeper/mines.imc
trunk/examples/sdl/move_parrot_logo.imc
trunk/examples/sdl/raw_pixels.imc
trunk/examples/sdl/tetris/app.imc
trunk/examples/sdl/tetris/block.imc
trunk/examples/sdl/tetris/blockdata.imc
trunk/examples/sdl/tetris/blocks.imc
trunk/examples/sdl/tetris/board.imc
trunk/examples/sdl/tetris/boarddata.imc
trunk/examples/sdl/tetris/eventhandler.imc
trunk/examples/sdl/tetris/tetris.imc
trunk/examples/streams/Bytes.imc
trunk/examples/streams/ParrotIO.imc
trunk/examples/streams/Replay.imc
trunk/examples/streams/SubHello.imc
trunk/examples/streams/Writer.imc
Log:
[PATCH] @directive -> :directive - part 9 examples
Courtesy of Jonathan Scott Duff <[EMAIL PROTECTED]>
Modified: trunk/examples/assembly/md5sum.imc
==============================================================================
--- trunk/examples/assembly/md5sum.imc (original)
+++ trunk/examples/assembly/md5sum.imc Tue Oct 11 07:10:49 2005
@@ -24,7 +24,7 @@ about ten-fold).
# Main Harness to demonstrate MD5.imc
-.sub _main @MAIN
+.sub _main :main
.param pmc args
.local int size
Modified: trunk/examples/assembly/ncurses_life.imc
==============================================================================
--- trunk/examples/assembly/ncurses_life.imc (original)
+++ trunk/examples/assembly/ncurses_life.imc Tue Oct 11 07:10:49 2005
@@ -56,7 +56,7 @@ Run faster.
=cut
-.sub _MAIN @MAIN
+.sub _MAIN :main
.param pmc argv
# the command line
load_bytecode "library/ncurses.pasm"
Modified: trunk/examples/assembly/pcre.imc
==============================================================================
--- trunk/examples/assembly/pcre.imc (original)
+++ trunk/examples/assembly/pcre.imc Tue Oct 11 07:10:49 2005
@@ -25,7 +25,7 @@ E<lt>jerry dot gay at gmail dot com<gt>
.include 'library/pcre.imc'
-.sub main @MAIN
+.sub main :main
.param pmc argv
.local int argc
Modified: trunk/examples/assembly/queens_r.imc
==============================================================================
--- trunk/examples/assembly/queens_r.imc (original)
+++ trunk/examples/assembly/queens_r.imc Tue Oct 11 07:10:49 2005
@@ -2,7 +2,7 @@
# prints all 92 solutions in chess notation
# by leo
-.sub main @MAIN
+.sub main :main
.local pmc queen_row, queen_state
queen_row = new ResizableIntegerArray
queen_state = new ResizableIntegerArray
Modified: trunk/examples/assembly/sudoku.pir
==============================================================================
--- trunk/examples/assembly/sudoku.pir (original)
+++ trunk/examples/assembly/sudoku.pir Tue Oct 11 07:10:49 2005
@@ -139,7 +139,7 @@ Same as parrot.
.const string VERSION="0.2.3"
-.sub _main @MAIN
+.sub _main :main
.param pmc argv
.local int argc
.local string raw_given
Modified: trunk/examples/benchmarks/array_access.imc
==============================================================================
--- trunk/examples/benchmarks/array_access.imc (original)
+++ trunk/examples/benchmarks/array_access.imc Tue Oct 11 07:10:49 2005
@@ -15,7 +15,7 @@ Inspired by computer language shootout.
=cut
-.sub main @MAIN
+.sub main :main
.param pmc argv
load_bytecode "Getopt/Long.pbc"
Modified: trunk/examples/benchmarks/overload.imc
==============================================================================
--- trunk/examples/benchmarks/overload.imc (original)
+++ trunk/examples/benchmarks/overload.imc Tue Oct 11 07:10:49 2005
@@ -1,6 +1,6 @@
# $Id$
-.sub bench @MAIN
+.sub bench :main
.include "pmctypes.pasm"
.include "mmd.pasm"
.local pmc my_mul
Modified: trunk/examples/io/httpd.imc
==============================================================================
--- trunk/examples/io/httpd.imc (original)
+++ trunk/examples/io/httpd.imc Tue Oct 11 07:10:49 2005
@@ -44,7 +44,7 @@ Markus Amsler - <[EMAIL PROTECTED]
=cut
-.sub main @MAIN
+.sub main :main
.local pmc sock, work, fp
.local pmc fp # read requested files from disk
.local string address
Modified: trunk/examples/io/pipe2.imc
==============================================================================
--- trunk/examples/io/pipe2.imc (original)
+++ trunk/examples/io/pipe2.imc Tue Oct 11 07:10:49 2005
@@ -1,4 +1,4 @@
-.sub main @MAIN
+.sub main :main
.param pmc argv
.local int argc
argc = argv
Modified: trunk/examples/io/pipe3.imc
==============================================================================
--- trunk/examples/io/pipe3.imc (original)
+++ trunk/examples/io/pipe3.imc Tue Oct 11 07:10:49 2005
@@ -1,4 +1,4 @@
-.sub main @MAIN
+.sub main :main
.param pmc argv
.local int argc
.local pmc pipew
Modified: trunk/examples/sdl/anim_image.imc
==============================================================================
--- trunk/examples/sdl/anim_image.imc (original)
+++ trunk/examples/sdl/anim_image.imc Tue Oct 11 07:10:49 2005
@@ -12,7 +12,7 @@ To run this file, run the following comm
=cut
-.sub _main non_prototyped, @MAIN
+.sub _main non_prototyped, :main
load_bytecode "library/SDL/App.imc"
load_bytecode "library/SDL/Color.imc"
load_bytecode "library/SDL/Rect.imc"
Modified: trunk/examples/sdl/anim_image_dblbuf.imc
==============================================================================
--- trunk/examples/sdl/anim_image_dblbuf.imc (original)
+++ trunk/examples/sdl/anim_image_dblbuf.imc Tue Oct 11 07:10:49 2005
@@ -12,7 +12,7 @@ To run this file, run the following comm
=cut
-.sub _main non_prototyped, @MAIN
+.sub _main non_prototyped, :main
load_bytecode "library/SDL/App.imc"
load_bytecode "library/SDL/Color.imc"
load_bytecode "library/SDL/Rect.imc"
Modified: trunk/examples/sdl/blue_font.imc
==============================================================================
--- trunk/examples/sdl/blue_font.imc (original)
+++ trunk/examples/sdl/blue_font.imc Tue Oct 11 07:10:49 2005
@@ -17,7 +17,7 @@ royalty-free font file. Maybe soon.
=cut
-.sub _main @MAIN
+.sub _main :main
# first load the necessary libraries
load_bytecode "library/SDL/App.imc"
Modified: trunk/examples/sdl/blue_rect.imc
==============================================================================
--- trunk/examples/sdl/blue_rect.imc (original)
+++ trunk/examples/sdl/blue_rect.imc Tue Oct 11 07:10:49 2005
@@ -11,7 +11,7 @@ To run this file, run the following comm
=cut
-.sub _main @MAIN
+.sub _main :main
# first load the necessary libraries
load_bytecode "library/SDL/App.imc"
Modified: trunk/examples/sdl/bounce_parrot_logo.imc
==============================================================================
--- trunk/examples/sdl/bounce_parrot_logo.imc (original)
+++ trunk/examples/sdl/bounce_parrot_logo.imc Tue Oct 11 07:10:49 2005
@@ -15,7 +15,7 @@ Use the Escape key or close the window w
=cut
-.sub _main @MAIN
+.sub _main :main
load_bytecode "library/SDL/App.imc"
load_bytecode "library/SDL/Color.imc"
load_bytecode "library/SDL/Rect.imc"
Modified: trunk/examples/sdl/lcd/clock.imc
==============================================================================
--- trunk/examples/sdl/lcd/clock.imc (original)
+++ trunk/examples/sdl/lcd/clock.imc Tue Oct 11 07:10:49 2005
@@ -25,7 +25,7 @@ The main function.
=cut
-.sub _main @MAIN
+.sub _main :main
load_bytecode "library/SDL/App.imc"
load_bytecode "library/SDL/Event.imc"
load_bytecode "library/SDL/EventHandler.imc"
Modified: trunk/examples/sdl/minesweeper/eventhandler.imc
==============================================================================
--- trunk/examples/sdl/minesweeper/eventhandler.imc (original)
+++ trunk/examples/sdl/minesweeper/eventhandler.imc Tue Oct 11 07:10:49 2005
@@ -20,7 +20,7 @@ This is a simple SDL event handler class
.namespace ["Mines::EventHandler"]
-.sub __onload @LOAD
+.sub __onload :load
$I0 = find_type "Mines::EventHandler"
if $I0 > 1 goto END
Modified: trunk/examples/sdl/minesweeper/field.imc
==============================================================================
--- trunk/examples/sdl/minesweeper/field.imc (original)
+++ trunk/examples/sdl/minesweeper/field.imc Tue Oct 11 07:10:49 2005
@@ -1082,7 +1082,7 @@ This method is called automatically when
=cut
-.sub __onload @LOAD
+.sub __onload :load
$I0 = find_type "Mines::Field"
if $I0 > 1 goto END
Modified: trunk/examples/sdl/minesweeper/mines.imc
==============================================================================
--- trunk/examples/sdl/minesweeper/mines.imc (original)
+++ trunk/examples/sdl/minesweeper/mines.imc Tue Oct 11 07:10:49 2005
@@ -19,7 +19,7 @@ The main function.
=cut
-.sub _main @MAIN
+.sub _main :main
.param pmc args
.local pmc field
.local pmc screen
Modified: trunk/examples/sdl/move_parrot_logo.imc
==============================================================================
--- trunk/examples/sdl/move_parrot_logo.imc (original)
+++ trunk/examples/sdl/move_parrot_logo.imc Tue Oct 11 07:10:49 2005
@@ -11,7 +11,7 @@ To run this file, run the following comm
=cut
-.sub _main @MAIN
+.sub _main :main
load_bytecode "library/SDL/App.imc"
load_bytecode "library/SDL/Color.imc"
load_bytecode "library/SDL/Rect.imc"
Modified: trunk/examples/sdl/raw_pixels.imc
==============================================================================
--- trunk/examples/sdl/raw_pixels.imc (original)
+++ trunk/examples/sdl/raw_pixels.imc Tue Oct 11 07:10:49 2005
@@ -13,7 +13,7 @@ To run this file, run the following comm
.include 'datatypes.pasm'
-.sub _main @MAIN
+.sub _main :main
# first load the necessary libraries
load_bytecode "library/SDL/App.imc"
load_bytecode "library/SDL/Rect.imc"
Modified: trunk/examples/sdl/tetris/app.imc
==============================================================================
--- trunk/examples/sdl/tetris/app.imc (original)
+++ trunk/examples/sdl/tetris/app.imc Tue Oct 11 07:10:49 2005
@@ -40,7 +40,7 @@ it parent classes nor is it subclassed.
.const int tPalette = 7
.const int tBoards = 8
-.sub __onload @LOAD
+.sub __onload :load
find_type $I0, "Tetris::App"
if $I0 > 1 goto END
Modified: trunk/examples/sdl/tetris/block.imc
==============================================================================
--- trunk/examples/sdl/tetris/block.imc (original)
+++ trunk/examples/sdl/tetris/block.imc Tue Oct 11 07:10:49 2005
@@ -27,7 +27,7 @@ is not subclassed further.
.const int Fall = 3
.const int Board = 4
-.sub __onload @LOAD
+.sub __onload :load
find_type $I0, "Tetris::Block"
if $I0 > 1 goto END
load_bytecode "examples/sdl/tetris/blockdata.imc"
Modified: trunk/examples/sdl/tetris/blockdata.imc
==============================================================================
--- trunk/examples/sdl/tetris/blockdata.imc (original)
+++ trunk/examples/sdl/tetris/blockdata.imc Tue Oct 11 07:10:49 2005
@@ -14,7 +14,7 @@ blockdata.imc - a tetris block data clas
.namespace ["Tetris::BlockData"]
-.sub __onload @LOAD
+.sub __onload :load
find_type $I0, "Tetris::BlockData"
if $I0 > 1 goto END
newclass $P0, "Tetris::BlockData"
Modified: trunk/examples/sdl/tetris/blocks.imc
==============================================================================
--- trunk/examples/sdl/tetris/blocks.imc (original)
+++ trunk/examples/sdl/tetris/blocks.imc Tue Oct 11 07:10:49 2005
@@ -6,7 +6,7 @@ blocks.imc - tetris block classes
.namespace ["Tetris::Blocks"]
-.sub __onload @LOAD
+.sub __onload :load
find_type $I0, "Tetris::Block::1"
if $I0 > 1 goto END
Modified: trunk/examples/sdl/tetris/board.imc
==============================================================================
--- trunk/examples/sdl/tetris/board.imc (original)
+++ trunk/examples/sdl/tetris/board.imc Tue Oct 11 07:10:49 2005
@@ -20,7 +20,7 @@ board.imc - a tetris board class.
.namespace ["Tetris::Board"]
-.sub __onload @LOAD
+.sub __onload :load
find_type $I0, "Tetris::Board"
if $I0 > 1 goto END
load_bytecode "examples/sdl/tetris/boarddata.imc"
Modified: trunk/examples/sdl/tetris/boarddata.imc
==============================================================================
--- trunk/examples/sdl/tetris/boarddata.imc (original)
+++ trunk/examples/sdl/tetris/boarddata.imc Tue Oct 11 07:10:49 2005
@@ -24,7 +24,7 @@ This is the base class of the Board clas
.const int bWidth = 1
.const int bHeight = 2
-.sub __onload @LOAD
+.sub __onload :load
find_type $I0, "Tetris::BoardData"
if $I0 > 1 goto END
newclass $P0, "Tetris::BoardData"
Modified: trunk/examples/sdl/tetris/eventhandler.imc
==============================================================================
--- trunk/examples/sdl/tetris/eventhandler.imc (original)
+++ trunk/examples/sdl/tetris/eventhandler.imc Tue Oct 11 07:10:49 2005
@@ -6,7 +6,7 @@ eventhandler.imc - a tetris event handle
.namespace ["Tetris::EventHandler"]
-.sub __onload @LOAD
+.sub __onload :load
find_type $I0, "Tetris::EventHandler"
if $I0 > 1 goto END
load_bytecode "library/SDL/EventHandler.imc"
Modified: trunk/examples/sdl/tetris/tetris.imc
==============================================================================
--- trunk/examples/sdl/tetris/tetris.imc (original)
+++ trunk/examples/sdl/tetris/tetris.imc Tue Oct 11 07:10:49 2005
@@ -27,7 +27,7 @@ Array with commandline parameters.
=cut
-.sub _main @MAIN
+.sub _main :main
.param pmc argv
.local pmc app
Modified: trunk/examples/streams/Bytes.imc
==============================================================================
--- trunk/examples/streams/Bytes.imc (original)
+++ trunk/examples/streams/Bytes.imc Tue Oct 11 07:10:49 2005
@@ -11,7 +11,7 @@ This example shows the usage of C<Stream
=cut
-.sub _main @MAIN
+.sub _main :main
.local pmc stream
.local pmc temp
Modified: trunk/examples/streams/ParrotIO.imc
==============================================================================
--- trunk/examples/streams/ParrotIO.imc (original)
+++ trunk/examples/streams/ParrotIO.imc Tue Oct 11 07:10:49 2005
@@ -16,7 +16,7 @@ PMC to the stream with the C<assign> op.
=cut
-.sub _main @MAIN
+.sub _main :main
.local pmc stream
.local pmc temp
Modified: trunk/examples/streams/Replay.imc
==============================================================================
--- trunk/examples/streams/Replay.imc (original)
+++ trunk/examples/streams/Replay.imc Tue Oct 11 07:10:49 2005
@@ -1,4 +1,4 @@
-.sub _main @MAIN
+.sub _main :main
.local pmc stream
load_bytecode "library/Stream/Writer.imc"
Modified: trunk/examples/streams/SubHello.imc
==============================================================================
--- trunk/examples/streams/SubHello.imc (original)
+++ trunk/examples/streams/SubHello.imc Tue Oct 11 07:10:49 2005
@@ -12,7 +12,7 @@ Creates a C<Stream::Sub> and dumps it.
=cut
-.sub _main @MAIN
+.sub _main :main
.local pmc stream
.local pmc temp
Modified: trunk/examples/streams/Writer.imc
==============================================================================
--- trunk/examples/streams/Writer.imc (original)
+++ trunk/examples/streams/Writer.imc Tue Oct 11 07:10:49 2005
@@ -12,7 +12,7 @@ Creates a C<Stream::Writer> and writes t
=cut
-.sub _main @MAIN
+.sub _main :main
.local pmc stream
.local pmc temp
