Author: leo
Date: Tue Oct 11 06:19:05 2005
New Revision: 9447
Modified:
trunk/runtime/parrot/library/Data/Replace.imc
trunk/runtime/parrot/library/Digest/MD5.pir
trunk/runtime/parrot/library/Getopt/Long.pir
trunk/runtime/parrot/library/PGE/Class.pir
trunk/runtime/parrot/library/PGE/Hs.pir
trunk/runtime/parrot/library/PGE/RegCounter.pir
trunk/runtime/parrot/library/SDL.imc
trunk/runtime/parrot/library/SDL/Button.imc
trunk/runtime/parrot/library/SDL/Color.imc
trunk/runtime/parrot/library/SDL/Constants.imc
trunk/runtime/parrot/library/SDL/Event.imc
trunk/runtime/parrot/library/SDL/EventHandler.imc
trunk/runtime/parrot/library/SDL/Font.imc
trunk/runtime/parrot/library/SDL/Image.imc
trunk/runtime/parrot/library/SDL/LCD.imc
trunk/runtime/parrot/library/SDL/Rect.imc
trunk/runtime/parrot/library/SDL/Sprite.imc
trunk/runtime/parrot/library/SDL/StopWatch.imc
trunk/runtime/parrot/library/SDL/Surface.imc
trunk/runtime/parrot/library/Stream/Base.imc
trunk/runtime/parrot/library/Stream/Combiner.imc
trunk/runtime/parrot/library/Stream/Coroutine.imc
trunk/runtime/parrot/library/Stream/Filter.imc
trunk/runtime/parrot/library/Stream/Lines.imc
trunk/runtime/parrot/library/Stream/ParrotIO.imc
trunk/runtime/parrot/library/Stream/Replay.imc
trunk/runtime/parrot/library/Stream/Sub.imc
trunk/runtime/parrot/library/Stream/Writer.imc
trunk/runtime/parrot/library/Test/Builder.pir
trunk/runtime/parrot/library/Test/Builder/Output.pir
trunk/runtime/parrot/library/Test/Builder/Test.pir
trunk/runtime/parrot/library/Test/Builder/TestPlan.pir
trunk/runtime/parrot/library/Test/Builder/Tester.pir
trunk/runtime/parrot/library/ncurses.imc
trunk/runtime/parrot/library/ncurses.pasm
trunk/runtime/parrot/library/parrotlib.imc
trunk/runtime/parrot/library/postgres.imc
trunk/runtime/parrot/library/postgres.pasm
Log:
[PATCH] @directive -> :directive - part 1 runtime
Courtesy of Jonathan Scott Duff <[EMAIL PROTECTED]>
Modified: trunk/runtime/parrot/library/Data/Replace.imc
==============================================================================
--- trunk/runtime/parrot/library/Data/Replace.imc (original)
+++ trunk/runtime/parrot/library/Data/Replace.imc Tue Oct 11 06:19:05 2005
@@ -107,7 +107,7 @@ REPLACE_PROPS:
END:
.end
-.sub __onload @LOAD
+.sub __onload :load
$P0 = find_global "Data::Replace", "PerlArray"
store_global "Data::Replace", "PMCArray", $P0
store_global "Data::Replace", "StringArray", $P0
Modified: trunk/runtime/parrot/library/Digest/MD5.pir
==============================================================================
--- trunk/runtime/parrot/library/Digest/MD5.pir (original)
+++ trunk/runtime/parrot/library/Digest/MD5.pir Tue Oct 11 06:19:05 2005
@@ -49,7 +49,7 @@ consumption which should be resolved soo
###########################################################################
# Export function entries to globals
-.sub onload @LOAD
+.sub onload :load
.local pmc f
f = find_global "Digest", "_md5sum"
Modified: trunk/runtime/parrot/library/Getopt/Long.pir
==============================================================================
--- trunk/runtime/parrot/library/Getopt/Long.pir (original)
+++ trunk/runtime/parrot/library/Getopt/Long.pir Tue Oct 11 06:19:05 2005
@@ -49,7 +49,7 @@ The subroutine get_options() is exported
.include "library/dumper.imc"
-.sub "__onload" @LOAD
+.sub "__onload" :load
# Load dependant libraries
load_bytecode "PGE.pbc"
Modified: trunk/runtime/parrot/library/PGE/Class.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Class.pir (original)
+++ trunk/runtime/parrot/library/PGE/Class.pir Tue Oct 11 06:19:05 2005
@@ -18,7 +18,7 @@ walk the logic tree and replace it with
=cut
-.sub __onload @LOAD
+.sub __onload :load
.local pmc base
newclass base, "PGE::Class"
Modified: trunk/runtime/parrot/library/PGE/Hs.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Hs.pir (original)
+++ trunk/runtime/parrot/library/PGE/Hs.pir Tue Oct 11 06:19:05 2005
@@ -53,7 +53,7 @@ whole thing may be taken out or refactor
.const string PGE_SUB_POS = "@:capt"
.const string PGE_SUB_NAMED = "%:capt"
-.sub "__onload" @LOAD
+.sub "__onload" :load
.local pmc load
load_bytecode "Data/Escape.imc"
.end
Modified: trunk/runtime/parrot/library/PGE/RegCounter.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/RegCounter.pir (original)
+++ trunk/runtime/parrot/library/PGE/RegCounter.pir Tue Oct 11 06:19:05 2005
@@ -27,7 +27,7 @@ PGE::RegCounter - A register naming mana
=cut
-.sub __onload @ANON, @LOAD
+.sub __onload :anon, :load
newclass $P0, "PGE::RegCounter"
addattribute $P0, ".counter"
addattribute $P0, ".map"
Modified: trunk/runtime/parrot/library/SDL.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL.imc (original)
+++ trunk/runtime/parrot/library/SDL.imc Tue Oct 11 06:19:05 2005
@@ -48,7 +48,7 @@ The subsystem initalizers include:
.namespace [ 'SDL' ]
-.sub _sdl_init @LOAD
+.sub _sdl_init :load
_init_video()
.local pmc layouts
Modified: trunk/runtime/parrot/library/SDL/Button.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Button.imc (original)
+++ trunk/runtime/parrot/library/SDL/Button.imc Tue Oct 11 06:19:05 2005
@@ -42,7 +42,7 @@ An SDL::Button object has the following
.namespace ['SDL::Button']
-.sub __onload @LOAD
+.sub __onload :load
$I0 = find_type 'SDL::Button'
if $I0 > 1 goto END
Modified: trunk/runtime/parrot/library/SDL/Color.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Color.imc (original)
+++ trunk/runtime/parrot/library/SDL/Color.imc Tue Oct 11 06:19:05 2005
@@ -50,7 +50,7 @@ SDL::Color objects have the following me
.namespace [ 'SDL::Color' ]
-.sub _initialize , @LOAD
+.sub _initialize , :load
.local pmc color_class
Modified: trunk/runtime/parrot/library/SDL/Constants.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Constants.imc (original)
+++ trunk/runtime/parrot/library/SDL/Constants.imc Tue Oct 11 06:19:05 2005
@@ -23,7 +23,7 @@ This library declares the following cons
.namespace [ 'SDL::Constants' ]
-.sub _initialize @LOAD
+.sub _initialize :load
# load the constants
_load_key_names()
Modified: trunk/runtime/parrot/library/SDL/Event.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Event.imc (original)
+++ trunk/runtime/parrot/library/SDL/Event.imc Tue Oct 11 06:19:05 2005
@@ -41,7 +41,7 @@ The SDL::Event object has the following
.namespace [ 'SDL::Event' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc event_class
newclass event_class, 'SDL::Event'
Modified: trunk/runtime/parrot/library/SDL/EventHandler.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/EventHandler.imc (original)
+++ trunk/runtime/parrot/library/SDL/EventHandler.imc Tue Oct 11 06:19:05 2005
@@ -64,7 +64,7 @@ SDL::EventHandler provides the following
.namespace [ 'SDL::EventHandler' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc handler_class
Modified: trunk/runtime/parrot/library/SDL/Font.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Font.imc (original)
+++ trunk/runtime/parrot/library/SDL/Font.imc Tue Oct 11 06:19:05 2005
@@ -41,7 +41,7 @@ All SDL::Font objects have the following
.namespace [ 'SDL::Font' ]
-.sub _sdl_init @LOAD
+.sub _sdl_init :load
.local pmc init_ttf
init_ttf = find_global 'SDL', '_init_ttf'
init_ttf()
Modified: trunk/runtime/parrot/library/SDL/Image.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Image.imc (original)
+++ trunk/runtime/parrot/library/SDL/Image.imc Tue Oct 11 06:19:05 2005
@@ -39,7 +39,7 @@ An SDL::Image object has the following m
.namespace [ 'SDL::Image' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc surface_type
.local pmc image_class
Modified: trunk/runtime/parrot/library/SDL/LCD.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/LCD.imc (original)
+++ trunk/runtime/parrot/library/SDL/LCD.imc Tue Oct 11 06:19:05 2005
@@ -36,7 +36,7 @@ An SDL::LCD object has the following met
.namespace ["SDL::LCD"]
-.sub __onload @LOAD
+.sub __onload :load
$I0 = find_type 'SDL::LCD'
if $I0 > 1 goto END
Modified: trunk/runtime/parrot/library/SDL/Rect.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Rect.imc (original)
+++ trunk/runtime/parrot/library/SDL/Rect.imc Tue Oct 11 06:19:05 2005
@@ -44,7 +44,7 @@ An SDL::Rect object has the following me
.namespace [ 'SDL::Rect' ]
-.sub _initialize @LOAD
+.sub _initialize :load
$I0 = find_type 'SDL::Rect'
if $I0 > 1 goto END
Modified: trunk/runtime/parrot/library/SDL/Sprite.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Sprite.imc (original)
+++ trunk/runtime/parrot/library/SDL/Sprite.imc Tue Oct 11 06:19:05 2005
@@ -53,7 +53,7 @@ A SDL::Sprite object has the following m
.namespace [ 'SDL::Sprite' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc sprite_class
newclass sprite_class, 'SDL::Sprite'
Modified: trunk/runtime/parrot/library/SDL/StopWatch.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/StopWatch.imc (original)
+++ trunk/runtime/parrot/library/SDL/StopWatch.imc Tue Oct 11 06:19:05 2005
@@ -33,7 +33,7 @@ An SDL::StopWatch object has the followi
.include "iterator.pasm"
.namespace ['SDL::StopWatch']
-.sub __onload @LOAD
+.sub __onload :load
$I0 = find_type 'SDL::StopWatch'
if $I0 > 1 goto END
@@ -264,7 +264,7 @@ It is drawn onto the screen consigned to
.namespace ["SDL::StopWatch::Timer"]
-.sub __onload @LOAD
+.sub __onload :load
# XXX: an old array will be overwritten when loading this file again
$P0 = new PerlArray
store_global "SDL::StopWatch::Timer", "array", $P0
Modified: trunk/runtime/parrot/library/SDL/Surface.imc
==============================================================================
--- trunk/runtime/parrot/library/SDL/Surface.imc (original)
+++ trunk/runtime/parrot/library/SDL/Surface.imc Tue Oct 11 06:19:05 2005
@@ -40,7 +40,7 @@ All SDL::Surface objects have the follow
.namespace [ 'SDL::Surface' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc surface_class
$I0 = find_type 'SDL::Surface'
Modified: trunk/runtime/parrot/library/Stream/Base.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/Base.imc (original)
+++ trunk/runtime/parrot/library/Stream/Base.imc Tue Oct 11 06:19:05 2005
@@ -26,7 +26,7 @@ TBD
.const int aIncludes = 1
.const int aBuffer = 2
-.sub onload @LOAD, @ANON
+.sub onload :load, :anon
find_type $I0, "Stream::Base"
if $I0 > 1 goto END
Modified: trunk/runtime/parrot/library/Stream/Combiner.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/Combiner.imc (original)
+++ trunk/runtime/parrot/library/Stream/Combiner.imc Tue Oct 11 06:19:05 2005
@@ -24,7 +24,7 @@ TBD
=cut
-.sub onload @LOAD, @ANON
+.sub onload :load, :anon
.local int i
.local pmc base
.local pmc comb
Modified: trunk/runtime/parrot/library/Stream/Coroutine.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/Coroutine.imc (original)
+++ trunk/runtime/parrot/library/Stream/Coroutine.imc Tue Oct 11 06:19:05 2005
@@ -20,7 +20,7 @@ TBD
=cut
-.sub onload @LOAD, @ANON
+.sub onload :load, :anon
.local pmc base
.local pmc coro
.local int i
Modified: trunk/runtime/parrot/library/Stream/Filter.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/Filter.imc (original)
+++ trunk/runtime/parrot/library/Stream/Filter.imc Tue Oct 11 06:19:05 2005
@@ -20,7 +20,7 @@ TBD
=cut
-.sub onload @LOAD, @ANON
+.sub onload :load, :anon
.local int i
.local pmc base
.local pmc filter
Modified: trunk/runtime/parrot/library/Stream/Lines.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/Lines.imc (original)
+++ trunk/runtime/parrot/library/Stream/Lines.imc Tue Oct 11 06:19:05 2005
@@ -22,7 +22,7 @@ TBD
.include "library/Data/Escape.imc"
-.sub onload @LOAD, @ANON
+.sub onload :load, :anon
.local int i
.local pmc base
.local pmc lines
Modified: trunk/runtime/parrot/library/Stream/ParrotIO.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/ParrotIO.imc (original)
+++ trunk/runtime/parrot/library/Stream/ParrotIO.imc Tue Oct 11 06:19:05 2005
@@ -20,7 +20,7 @@ TDB
=cut
-.sub onload @LOAD, @ANON
+.sub onload :load, :anon
.local int i
.local pmc base
.local pmc io
Modified: trunk/runtime/parrot/library/Stream/Replay.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/Replay.imc (original)
+++ trunk/runtime/parrot/library/Stream/Replay.imc Tue Oct 11 06:19:05 2005
@@ -37,7 +37,7 @@ By using C<clone>, you can read data fro
.namespace ["Stream::Replay"]
-.sub onload @LOAD, @ANON
+.sub onload :load, :anon
find_type $I0, "Stream::Replay"
if $I0 > 1 goto END
Modified: trunk/runtime/parrot/library/Stream/Sub.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/Sub.imc (original)
+++ trunk/runtime/parrot/library/Stream/Sub.imc Tue Oct 11 06:19:05 2005
@@ -52,7 +52,7 @@ The stream will be disconnected automati
=cut
-.sub onload @LOAD, @ANON
+.sub onload :load, :anon
.local int i
.local pmc base
.local pmc sub
Modified: trunk/runtime/parrot/library/Stream/Writer.imc
==============================================================================
--- trunk/runtime/parrot/library/Stream/Writer.imc (original)
+++ trunk/runtime/parrot/library/Stream/Writer.imc Tue Oct 11 06:19:05 2005
@@ -32,7 +32,7 @@ version 0.1
.include "interpinfo.pasm"
.namespace ["Stream::Writer"]
-.sub __onload @LOAD
+.sub __onload :load
find_type $I0, "Stream::Writer"
if $I0 > 1 goto END
Modified: trunk/runtime/parrot/library/Test/Builder.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder.pir Tue Oct 11 06:19:05 2005
@@ -47,7 +47,7 @@ This class defines the following methods
.namespace [ 'Test::Builder' ]
-.sub _initialize @LOAD
+.sub _initialize :load
load_bytecode 'library/Test/Builder/Test.pir'
load_bytecode 'library/Test/Builder/Output.pir'
load_bytecode 'library/Test/Builder/TestPlan.pir'
Modified: trunk/runtime/parrot/library/Test/Builder/Output.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/Output.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder/Output.pir Tue Oct 11
06:19:05 2005
@@ -21,7 +21,7 @@ This class defines the following methods
.namespace [ 'Test::Builder::Output' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc tbo_class
newclass tbo_class, 'Test::Builder::Output'
addattribute tbo_class, 'output'
Modified: trunk/runtime/parrot/library/Test/Builder/Test.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/Test.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder/Test.pir Tue Oct 11 06:19:05 2005
@@ -16,7 +16,7 @@ This class provides the following method
.namespace [ 'Test::Builder::Test' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc tbtb_class
newclass tbtb_class, 'Test::Builder::Test::Base'
Modified: trunk/runtime/parrot/library/Test/Builder/TestPlan.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/TestPlan.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder/TestPlan.pir Tue Oct 11
06:19:05 2005
@@ -25,7 +25,7 @@ Both classes support the following metho
.namespace [ 'Test::Builder::TestPlan' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc tbtp_class
newclass tbtp_class, 'Test::Builder::TestPlan'
addattribute tbtp_class, 'expect'
Modified: trunk/runtime/parrot/library/Test/Builder/Tester.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/Tester.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder/Tester.pir Tue Oct 11
06:19:05 2005
@@ -65,7 +65,7 @@ This module defines the following public
.namespace [ 'Test::Builder::Tester::Output' ]
-.sub _initialize @LOAD
+.sub _initialize :load
.local pmc tbto_class
newclass tbto_class, 'Test::Builder::Tester::Output'
addattribute tbto_class, 'output'
@@ -162,7 +162,7 @@ This module defines the following public
.namespace [ 'Test::Builder::Tester' ]
-.sub _initialize @LOAD
+.sub _initialize :load
load_bytecode 'library/Test/Builder.pir'
.local pmc test
Modified: trunk/runtime/parrot/library/ncurses.imc
==============================================================================
--- trunk/runtime/parrot/library/ncurses.imc (original)
+++ trunk/runtime/parrot/library/ncurses.imc Tue Oct 11 06:19:05 2005
@@ -1,4 +1,4 @@
-.pcc_sub __ncurses_init @LOAD
+.pcc_sub __ncurses_init :load
loadlib $P1, 'libform'
dlfunc $P2, $P1, 'new_field', 'piiiiii'
Modified: trunk/runtime/parrot/library/ncurses.pasm
==============================================================================
--- trunk/runtime/parrot/library/ncurses.pasm (original)
+++ trunk/runtime/parrot/library/ncurses.pasm Tue Oct 11 06:19:05 2005
@@ -1,4 +1,4 @@
-.pcc_sub @LOAD __ncurses_init:
+.pcc_sub :load __ncurses_init:
loadlib P1, 'libform'
dlfunc P2, P1, 'new_field', 'piiiiii'
store_global 'ncurses::new_field', P2
Modified: trunk/runtime/parrot/library/parrotlib.imc
==============================================================================
--- trunk/runtime/parrot/library/parrotlib.imc (original)
+++ trunk/runtime/parrot/library/parrotlib.imc Tue Oct 11 06:19:05 2005
@@ -17,7 +17,7 @@ parrotlib's interface functions.
=cut
-.sub __onload @LOAD
+.sub __onload :load
.local pmc paths
.local pmc includes
.local string root
Modified: trunk/runtime/parrot/library/postgres.imc
==============================================================================
--- trunk/runtime/parrot/library/postgres.imc (original)
+++ trunk/runtime/parrot/library/postgres.imc Tue Oct 11 06:19:05 2005
@@ -1,4 +1,4 @@
-.pcc_sub __postgres_init @LOAD
+.pcc_sub __postgres_init :load
loadlib $P1, 'libpq'
dlfunc $P2, $P1, 'PQconnectStart', 'pt'
Modified: trunk/runtime/parrot/library/postgres.pasm
==============================================================================
--- trunk/runtime/parrot/library/postgres.pasm (original)
+++ trunk/runtime/parrot/library/postgres.pasm Tue Oct 11 06:19:05 2005
@@ -1,4 +1,4 @@
-.pcc_sub __postgres_init @LOAD
+.pcc_sub __postgres_init :load
loadlib $P1, 'libpq'
dlfunc $P2, $P1, 'PQconnectStart', 'pt'
