Author: jquelin
Date: Thu Oct 4 10:23:56 2007
New Revision: 21841
Modified:
branches/pdd15oo/examples/sdl/tetris/app.pir
branches/pdd15oo/examples/sdl/tetris/block.pir
branches/pdd15oo/examples/sdl/tetris/blockdata.pir
branches/pdd15oo/examples/sdl/tetris/blocks.pir
branches/pdd15oo/examples/sdl/tetris/board.pir
branches/pdd15oo/examples/sdl/tetris/boarddata.pir
branches/pdd15oo/examples/sdl/tetris/eventhandler.pir
Log:
more find_type removal
Modified: branches/pdd15oo/examples/sdl/tetris/app.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/tetris/app.pir (original)
+++ branches/pdd15oo/examples/sdl/tetris/app.pir Thu Oct 4 10:23:56 2007
@@ -40,8 +40,8 @@
.const int tBoards = 8
.sub __onload :load
- find_type $I0, "Tetris::App"
- if $I0 > 1 goto END
+ $P0 = get_class "Tetris::App"
+ unless null $P0 goto END
load_bytecode "library/SDL/App.pir"
load_bytecode "library/SDL/Color.pir"
Modified: branches/pdd15oo/examples/sdl/tetris/block.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/tetris/block.pir (original)
+++ branches/pdd15oo/examples/sdl/tetris/block.pir Thu Oct 4 10:23:56 2007
@@ -27,8 +27,8 @@
.const int Board = 4
.sub __onload :load
- find_type $I0, "Tetris::Block"
- if $I0 > 1 goto END
+ $P0 = get_class "Tetris::Block"
+ unless null $P0 goto END
load_bytecode "examples/sdl/tetris/blockdata.pir"
getclass $P0, "Tetris::BlockData"
subclass $P0, $P0, "Tetris::Block"
Modified: branches/pdd15oo/examples/sdl/tetris/blockdata.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/tetris/blockdata.pir (original)
+++ branches/pdd15oo/examples/sdl/tetris/blockdata.pir Thu Oct 4 10:23:56 2007
@@ -15,8 +15,8 @@
.namespace ["Tetris::BlockData"]
.sub __onload :load
- find_type $I0, "Tetris::BlockData"
- if $I0 > 1 goto END
+ $P0 = get_class "Tetris::BlockData"
+ unless null $P0 goto END
newclass $P0, "Tetris::BlockData"
addattribute $P0, "data"
END:
Modified: branches/pdd15oo/examples/sdl/tetris/blocks.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/tetris/blocks.pir (original)
+++ branches/pdd15oo/examples/sdl/tetris/blocks.pir Thu Oct 4 10:23:56 2007
@@ -7,8 +7,8 @@
.namespace ["Tetris::Blocks"]
.sub __onload :load
- find_type $I0, "Tetris::Block::1"
- if $I0 > 1 goto END
+ $P0 = get_class "Tetris::Block::1"
+ unless null $P0 goto END
load_bytecode "examples/sdl/tetris/block.pir"
Modified: branches/pdd15oo/examples/sdl/tetris/board.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/tetris/board.pir (original)
+++ branches/pdd15oo/examples/sdl/tetris/board.pir Thu Oct 4 10:23:56 2007
@@ -20,8 +20,9 @@
.namespace ["Tetris::Board"]
.sub __onload :load
- find_type $I0, "Tetris::Board"
- if $I0 > 1 goto END
+ $P0 = get_class "Tetris::Board"
+ unless null $P0 goto END
+
load_bytecode "examples/sdl/tetris/boarddata.pir"
load_bytecode "examples/sdl/tetris/blocks.pir"
getclass $P0, "Tetris::BoardData"
Modified: branches/pdd15oo/examples/sdl/tetris/boarddata.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/tetris/boarddata.pir (original)
+++ branches/pdd15oo/examples/sdl/tetris/boarddata.pir Thu Oct 4 10:23:56 2007
@@ -24,8 +24,8 @@
.const int bHeight = 2
.sub __onload :load
- find_type $I0, "Tetris::BoardData"
- if $I0 > 1 goto END
+ $P0 = get_class "Tetris::BoardData"
+ unless null $P0 goto END
newclass $P0, "Tetris::BoardData"
addattribute $P0, "data"
addattribute $P0, "width"
Modified: branches/pdd15oo/examples/sdl/tetris/eventhandler.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/tetris/eventhandler.pir (original)
+++ branches/pdd15oo/examples/sdl/tetris/eventhandler.pir Thu Oct 4
10:23:56 2007
@@ -7,8 +7,8 @@
.namespace ["Tetris::EventHandler"]
.sub __onload :load
- find_type $I0, "Tetris::EventHandler"
- if $I0 > 1 goto END
+ $P0 = get_class "Tetris::EventHandler"
+ unless null $P0 goto END
load_bytecode "library/SDL/EventHandler.pir"
getclass $P0, "SDL::EventHandler"
