Front page | perl.cvs.parrot |
Postings from January 2009
[svn:parrot] r34933 - in branches/pdd30install_stage3: examples/library examples/opengl examples/pir examples/sdl examples/sdl/lcd examples/sdl/minesweeper examples/sdl/tetris examples/streams examples/tutorial languages/dotnet/src languages/lua/src/lib l
From:
rurban
Date:
January 4, 2009 12:27
Subject:
[svn:parrot] r34933 - in branches/pdd30install_stage3: examples/library examples/opengl examples/pir examples/sdl examples/sdl/lcd examples/sdl/minesweeper examples/sdl/tetris examples/streams examples/tutorial languages/dotnet/src languages/lua/src/lib l
Message ID:
20090104202741.3C306CB9F9@x12.develooper.com
Author: rurban
Date: Sun Jan 4 12:27:36 2009
New Revision: 34933
Modified:
branches/pdd30install_stage3/examples/library/ncurses_life.pir
branches/pdd30install_stage3/examples/opengl/shapes.pir
branches/pdd30install_stage3/examples/opengl/static-triangle.pir
branches/pdd30install_stage3/examples/opengl/triangle.pir
branches/pdd30install_stage3/examples/pir/sudoku.pir
branches/pdd30install_stage3/examples/sdl/anim_image.pir
branches/pdd30install_stage3/examples/sdl/anim_image_dblbuf.pir
branches/pdd30install_stage3/examples/sdl/blue_font.pir
branches/pdd30install_stage3/examples/sdl/blue_rect.pir
branches/pdd30install_stage3/examples/sdl/bounce_parrot_logo.pir
branches/pdd30install_stage3/examples/sdl/lcd/clock.pir
branches/pdd30install_stage3/examples/sdl/mandel.pir
branches/pdd30install_stage3/examples/sdl/minesweeper/field.pir
branches/pdd30install_stage3/examples/sdl/minesweeper/mines.pir
branches/pdd30install_stage3/examples/sdl/move_parrot_logo.pir
branches/pdd30install_stage3/examples/sdl/raw_pixels.pir
branches/pdd30install_stage3/examples/sdl/tetris/app.pir
branches/pdd30install_stage3/examples/sdl/tetris/eventhandler.pir
branches/pdd30install_stage3/examples/streams/Bytes.pir
branches/pdd30install_stage3/examples/streams/Combiner.pir
branches/pdd30install_stage3/examples/streams/Coroutine.pir
branches/pdd30install_stage3/examples/streams/FileLines.pir
branches/pdd30install_stage3/examples/streams/Filter.pir
branches/pdd30install_stage3/examples/streams/Include.pir
branches/pdd30install_stage3/examples/streams/Lines.pir
branches/pdd30install_stage3/examples/streams/ParrotIO.pir
branches/pdd30install_stage3/examples/streams/Replay.pir
branches/pdd30install_stage3/examples/streams/SubCounter.pir
branches/pdd30install_stage3/examples/streams/SubHello.pir
branches/pdd30install_stage3/examples/streams/Writer.pir
branches/pdd30install_stage3/examples/tutorial/90_writing_tests.pir
branches/pdd30install_stage3/languages/dotnet/src/translator.pir
branches/pdd30install_stage3/languages/lua/src/lib/uuid.pir
branches/pdd30install_stage3/languages/pheme/lib/PhemeTest.pir
branches/pdd30install_stage3/languages/pipp/src/common/php_pcre.pir
branches/pdd30install_stage3/runtime/parrot/library/Data/Dumper.pir
branches/pdd30install_stage3/runtime/parrot/library/Data/Dumper/Default.pir
branches/pdd30install_stage3/runtime/parrot/library/Data/Escape.pir
branches/pdd30install_stage3/runtime/parrot/library/Data/Replace.pir
branches/pdd30install_stage3/runtime/parrot/library/Data/Sort.pir
branches/pdd30install_stage3/runtime/parrot/library/Getopt/Obj.pir
branches/pdd30install_stage3/runtime/parrot/library/NCI/call_toolkit_init.pir
branches/pdd30install_stage3/runtime/parrot/library/OpenGL.pir
branches/pdd30install_stage3/runtime/parrot/library/Parrot/Coroutine.pir
branches/pdd30install_stage3/runtime/parrot/library/Pg.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/App.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/Color.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/Event.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/EventHandler.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/Font.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/Image.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/LCD.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/Rect.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/Sprite.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/StopWatch.pir
branches/pdd30install_stage3/runtime/parrot/library/SDL/Surface.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/Base.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/Combiner.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/Coroutine.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/Filter.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/Lines.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/ParrotIO.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/Replay.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/Sub.pir
branches/pdd30install_stage3/runtime/parrot/library/Stream/Writer.pir
branches/pdd30install_stage3/runtime/parrot/library/Test/Builder.pir
branches/pdd30install_stage3/runtime/parrot/library/Test/Builder/Tester.pir
branches/pdd30install_stage3/runtime/parrot/library/Test/More.pir
branches/pdd30install_stage3/runtime/parrot/library/YAML/Dumper.pir
branches/pdd30install_stage3/runtime/parrot/library/YAML/Dumper/Default.pir
branches/pdd30install_stage3/runtime/parrot/library/dumper.pir
branches/pdd30install_stage3/runtime/parrot/library/libpcre.pir
branches/pdd30install_stage3/runtime/parrot/library/pcre.pir
branches/pdd30install_stage3/runtime/parrot/library/tcpstream.pir
branches/pdd30install_stage3/runtime/parrot/library/yaml_dumper.pir
branches/pdd30install_stage3/t/compilers/imcc/syn/subflags.t
branches/pdd30install_stage3/t/compilers/json/to_parrot.t
branches/pdd30install_stage3/t/compilers/pct/past.t
branches/pdd30install_stage3/t/compilers/pct/post.t
branches/pdd30install_stage3/t/examples/streams.t
branches/pdd30install_stage3/t/library/File_Spec.t
branches/pdd30install_stage3/t/library/md5.t
branches/pdd30install_stage3/t/library/mt19937ar.t
branches/pdd30install_stage3/t/library/p6object.t
branches/pdd30install_stage3/t/library/pcre.t
branches/pdd30install_stage3/t/library/streams.t
branches/pdd30install_stage3/t/library/tcl_glob.t
branches/pdd30install_stage3/t/library/test_builder_tester.t
branches/pdd30install_stage3/t/library/test_more.t
branches/pdd30install_stage3/t/library/uuid.t
branches/pdd30install_stage3/t/oo/metamodel.t
branches/pdd30install_stage3/t/op/load_bytecode.t
branches/pdd30install_stage3/t/pmc/pair.t
branches/pdd30install_stage3/tools/util/crow.pir
Log:
Implement optimization TT #126 in all libraries, tests and examples.
"optimize load_bytecode, .include paths: no library/ and include/ prefix"
Also omit the extension whenever possible.
This is dependant on r34932.
But there are still cornercases to be fixed with cascaded
loading with :load hooks without extension. See RT #39807.
Special testcase for this to be added.
Modified: branches/pdd30install_stage3/examples/library/ncurses_life.pir
==============================================================================
--- branches/pdd30install_stage3/examples/library/ncurses_life.pir (original)
+++ branches/pdd30install_stage3/examples/library/ncurses_life.pir Sun Jan 4 12:27:36 2009
@@ -1,4 +1,4 @@
-# Copyright (C) 2001-2008, The Perl Foundation.
+# Copyright (C) 2001-2009, The Perl Foundation.
# $Id$
=head1 NAME
@@ -59,7 +59,7 @@
.sub _MAIN :main
.param pmc argv
# the command line
- load_bytecode "library/ncurses.pasm"
+ load_bytecode "ncurses"
# should autogenerate these
.globalconst int KEY_DOWN = 258
Modified: branches/pdd30install_stage3/examples/opengl/shapes.pir
==============================================================================
--- branches/pdd30install_stage3/examples/opengl/shapes.pir (original)
+++ branches/pdd30install_stage3/examples/opengl/shapes.pir Sun Jan 4 12:27:36 2009
@@ -65,8 +65,8 @@
.param string window_title
# Load OpenGL libary and a helper library for calling glutInit
- load_bytecode 'library/OpenGL.pbc'
- load_bytecode 'library/NCI/call_toolkit_init.pbc'
+ load_bytecode 'OpenGL'
+ load_bytecode 'NCI/call_toolkit_init'
# Import all OpenGL/GLU/GLUT functions
.local pmc import_gl
Modified: branches/pdd30install_stage3/examples/opengl/static-triangle.pir
==============================================================================
--- branches/pdd30install_stage3/examples/opengl/static-triangle.pir (original)
+++ branches/pdd30install_stage3/examples/opengl/static-triangle.pir Sun Jan 4 12:27:36 2009
@@ -26,8 +26,8 @@
.param pmc argv
# Load OpenGL libary and a helper library for calling glutInit
- load_bytecode 'library/OpenGL.pbc'
- load_bytecode 'library/NCI/call_toolkit_init.pbc'
+ load_bytecode 'OpenGL'
+ load_bytecode 'NCI/call_toolkit_init'
# Import all OpenGL/GLU/GLUT functions
.local pmc import_gl
Modified: branches/pdd30install_stage3/examples/opengl/triangle.pir
==============================================================================
--- branches/pdd30install_stage3/examples/opengl/triangle.pir (original)
+++ branches/pdd30install_stage3/examples/opengl/triangle.pir Sun Jan 4 12:27:36 2009
@@ -29,8 +29,8 @@
.param pmc argv
# Load OpenGL libary and a helper library for calling glutInit
- load_bytecode 'library/OpenGL.pbc'
- load_bytecode 'library/NCI/call_toolkit_init.pbc'
+ load_bytecode 'OpenGL'
+ load_bytecode 'NCI/call_toolkit_init'
# Import all OpenGL/GLU/GLUT functions
.local pmc import_gl
Modified: branches/pdd30install_stage3/examples/pir/sudoku.pir
==============================================================================
--- branches/pdd30install_stage3/examples/pir/sudoku.pir (original)
+++ branches/pdd30install_stage3/examples/pir/sudoku.pir Sun Jan 4 12:27:36 2009
@@ -272,7 +272,7 @@
.sub parse_options
.param pmc argv
- load_bytecode "Getopt/Obj.pbc"
+ load_bytecode "Getopt/Obj"
.local string prog
prog = shift argv
@@ -2148,7 +2148,7 @@
.sub nc_start
.local pmc stdscr
- load_bytecode "library/ncurses.pasm"
+ load_bytecode "ncurses.pasm"
stdscr = _init_curses()
.return(stdscr)
.end
Modified: branches/pdd30install_stage3/examples/sdl/anim_image.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/anim_image.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/anim_image.pir Sun Jan 4 12:27:36 2009
@@ -13,11 +13,11 @@
=cut
.sub _main :main
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Color.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Image.pir"
- load_bytecode "library/SDL/Sprite.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Color"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Image"
+ load_bytecode "SDL/Sprite"
.local pmc app
@@ -114,7 +114,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/anim_image_dblbuf.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/anim_image_dblbuf.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/anim_image_dblbuf.pir Sun Jan 4 12:27:36 2009
@@ -13,11 +13,11 @@
=cut
.sub _main :main
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Color.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Image.pir"
- load_bytecode "library/SDL/Sprite.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Color"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Image"
+ load_bytecode "SDL/Sprite"
.local pmc app
app = new 'SDL::App'
@@ -107,7 +107,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/blue_font.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/blue_font.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/blue_font.pir Sun Jan 4 12:27:36 2009
@@ -20,10 +20,10 @@
.sub main :main
# first load the necessary libraries
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Color.pir"
- load_bytecode "library/SDL/Font.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Color"
+ load_bytecode "SDL/Font"
# create an SDL::App object
.local pmc app
@@ -88,7 +88,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/blue_rect.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/blue_rect.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/blue_rect.pir Sun Jan 4 12:27:36 2009
@@ -13,9 +13,9 @@
.sub _main :main
# first load the necessary libraries
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Color.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Color"
# create an SDL::App object
.local pmc app
@@ -54,7 +54,7 @@
=head1 COPYRIGHt
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/bounce_parrot_logo.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/bounce_parrot_logo.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/bounce_parrot_logo.pir Sun Jan 4 12:27:36 2009
@@ -16,13 +16,13 @@
=cut
.sub _main :main
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Color.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Image.pir"
- load_bytecode "library/SDL/Sprite.pir"
- load_bytecode "library/SDL/EventHandler.pir"
- load_bytecode "library/SDL/Event.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Color"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Image"
+ load_bytecode "SDL/Sprite"
+ load_bytecode "SDL/EventHandler"
+ load_bytecode "SDL/Event"
.local pmc app
app = new 'SDL::App'
@@ -339,7 +339,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/lcd/clock.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/lcd/clock.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/lcd/clock.pir Sun Jan 4 12:27:36 2009
@@ -26,10 +26,10 @@
=cut
.sub _main :main
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Event.pir"
- load_bytecode "library/SDL/EventHandler.pir"
- load_bytecode "library/SDL/LCD.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Event"
+ load_bytecode "SDL/EventHandler"
+ load_bytecode "SDL/LCD"
# create the SDL application object
.local pmc app
@@ -144,7 +144,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/mandel.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/mandel.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/mandel.pir Sun Jan 4 12:27:36 2009
@@ -1,4 +1,4 @@
-# Copyright (C) 2006-2008, The Perl Foundation.
+# Copyright (C) 2006-2009, The Perl Foundation.
# $Id$
=head1 TITLE
@@ -47,12 +47,12 @@
# utils
.sub 'load_libs'
# load the necessary libraries
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Color.pir"
- load_bytecode "library/SDL/EventHandler.pir"
- load_bytecode "library/SDL/Event.pir"
- load_bytecode "library/Getopt/Obj.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Color"
+ load_bytecode "SDL/EventHandler"
+ load_bytecode "SDL/Event"
+ load_bytecode "Getopt/Obj"
.end
# cmd line processing
Modified: branches/pdd30install_stage3/examples/sdl/minesweeper/field.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/minesweeper/field.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/minesweeper/field.pir Sun Jan 4 12:27:36 2009
@@ -965,13 +965,13 @@
.local int rect_type
.local int surface_type
- load_bytecode "examples/sdl/minesweeper/eventhandler.pir"
- load_bytecode "library/SDL/Button.pir"
- load_bytecode "library/SDL/StopWatch.pir"
- load_bytecode "library/SDL/Image.pir"
+ load_bytecode "examples/sdl/minesweeper/eventhandler"
+ load_bytecode "SDL/Button"
+ load_bytecode "SDL/StopWatch"
+ load_bytecode "SDL/Image"
# XXX: remove
- load_bytecode "library/Data/Dumper.pir"
+ load_bytecode "Data/Dumper"
$P0 = new 'String'
$P0 = "examples/sdl/minesweeper/mines.png"
@@ -1109,7 +1109,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/minesweeper/mines.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/minesweeper/mines.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/minesweeper/mines.pir Sun Jan 4 12:27:36 2009
@@ -29,14 +29,14 @@
debug = args
dec debug
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Event.pir"
- load_bytecode "library/SDL/EventHandler.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Surface.pir"
- load_bytecode "library/SDL/Color.pir"
- load_bytecode "library/SDL/Image.pir"
- load_bytecode "examples/sdl/minesweeper/field.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Event"
+ load_bytecode "SDL/EventHandler"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Surface"
+ load_bytecode "SDL/Color"
+ load_bytecode "SDL/Image"
+ load_bytecode "examples/sdl/minesweeper/field"
# setup the screen properties
$P0 = new 'Hash'
@@ -90,7 +90,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/move_parrot_logo.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/move_parrot_logo.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/move_parrot_logo.pir Sun Jan 4 12:27:36 2009
@@ -12,13 +12,13 @@
=cut
.sub _main :main
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Color.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Image.pir"
- load_bytecode "library/SDL/Sprite.pir"
- load_bytecode "library/SDL/EventHandler.pir"
- load_bytecode "library/SDL/Event.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Color"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Image"
+ load_bytecode "SDL/Sprite"
+ load_bytecode "SDL/EventHandler"
+ load_bytecode "SDL/Event"
.local pmc app
.local int app_type
@@ -52,7 +52,12 @@
.local int sprite_type
sprite = new 'SDL::Sprite'
- sprite.'init'( 'surface' => image, 'source_x' => 0, 'source_y' => 0, 'dest_x' => 270, 'dest_y' => 212, 'bgcolor' => black )
+ sprite.'init'('surface' => image,
+ 'source_x' => 0,
+ 'source_y' => 0,
+ 'dest_x' => 270,
+ 'dest_y' => 212,
+ 'bgcolor' => black )
.local pmc parent_class
.local pmc class_type
@@ -193,7 +198,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/raw_pixels.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/raw_pixels.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/raw_pixels.pir Sun Jan 4 12:27:36 2009
@@ -15,9 +15,9 @@
.sub _main :main
# first load the necessary libraries
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Rect.pir"
- load_bytecode "library/SDL/Color.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Rect"
+ load_bytecode "SDL/Color"
# create an SDL::App object
@@ -96,7 +96,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/tetris/app.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/tetris/app.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/tetris/app.pir Sun Jan 4 12:27:36 2009
@@ -33,13 +33,13 @@
$P0 = get_class "Tetris::App"
unless null $P0 goto END
- load_bytecode "library/SDL/App.pir"
- load_bytecode "library/SDL/Color.pir"
- load_bytecode "library/SDL/Event.pir"
- load_bytecode "library/SDL/Rect.pir"
+ load_bytecode "SDL/App"
+ load_bytecode "SDL/Color"
+ load_bytecode "SDL/Event"
+ load_bytecode "SDL/Rect"
- load_bytecode "examples/sdl/tetris/eventhandler.pir"
- load_bytecode "examples/sdl/tetris/board.pir"
+ load_bytecode "examples/sdl/tetris/eventhandler"
+ load_bytecode "examples/sdl/tetris/board"
newclass $P0, "Tetris::App"
@@ -1045,7 +1045,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/sdl/tetris/eventhandler.pir
==============================================================================
--- branches/pdd30install_stage3/examples/sdl/tetris/eventhandler.pir (original)
+++ branches/pdd30install_stage3/examples/sdl/tetris/eventhandler.pir Sun Jan 4 12:27:36 2009
@@ -9,7 +9,7 @@
.sub __onload :load
$P0 = get_class "Tetris::EventHandler"
unless null $P0 goto END
- load_bytecode "library/SDL/EventHandler.pir"
+ load_bytecode "SDL/EventHandler"
get_class $P0, "SDL::EventHandler"
subclass $P0, $P0, "Tetris::EventHandler"
@@ -153,7 +153,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/streams/Bytes.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/Bytes.pir (original)
+++ branches/pdd30install_stage3/examples/streams/Bytes.pir Sun Jan 4 12:27:36 2009
@@ -14,8 +14,8 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/Sub.pir"
- load_bytecode "library/Stream/Replay.pir"
+ load_bytecode "Stream/Sub"
+ load_bytecode "Stream/Replay"
$P0 = new "Stream::Sub"
# set the stream's source sub
@@ -81,7 +81,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/streams/Combiner.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/Combiner.pir (original)
+++ branches/pdd30install_stage3/examples/streams/Combiner.pir Sun Jan 4 12:27:36 2009
@@ -29,9 +29,9 @@
.local pmc text
.local pmc combined
- load_bytecode "library/Stream/Base.pbc"
- load_bytecode "library/Stream/Combiner.pbc"
- load_bytecode "library/Stream/Sub.pbc"
+ load_bytecode "Stream/Base"
+ load_bytecode "Stream/Combiner"
+ load_bytecode "Stream/Sub"
# create the counter stream
counter = new "Stream::Sub"
@@ -131,7 +131,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/streams/Coroutine.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/Coroutine.pir (original)
+++ branches/pdd30install_stage3/examples/streams/Coroutine.pir Sun Jan 4 12:27:36 2009
@@ -24,8 +24,8 @@
.local pmc stream
.local pmc temp
- load_bytecode "library/Stream/Base.pbc"
- load_bytecode "library/Stream/Coroutine.pbc"
+ load_bytecode "Stream/Base"
+ load_bytecode "Stream/Coroutine"
# create the coroutine stream
stream = new "Stream::Coroutine"
@@ -82,7 +82,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/streams/FileLines.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/FileLines.pir (original)
+++ branches/pdd30install_stage3/examples/streams/FileLines.pir Sun Jan 4 12:27:36 2009
@@ -33,10 +33,10 @@
name = argv[1]
NO_NAME:
- load_bytecode "library/Stream/ParrotIO.pir"
- load_bytecode "library/Stream/Lines.pir"
- load_bytecode "library/Stream/Sub.pir"
- load_bytecode "library/Stream/Combiner.pir"
+ load_bytecode "Stream/ParrotIO.pir"
+ load_bytecode "Stream/Lines.pir"
+ load_bytecode "Stream/Sub.pir"
+ load_bytecode "Stream/Combiner.pir"
# create a file stream
file = new "Stream::ParrotIO"
Modified: branches/pdd30install_stage3/examples/streams/Filter.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/Filter.pir (original)
+++ branches/pdd30install_stage3/examples/streams/Filter.pir Sun Jan 4 12:27:36 2009
@@ -21,8 +21,8 @@
.local pmc stream
.local pmc filter
- load_bytecode "library/Stream/Sub.pir"
- load_bytecode "library/Stream/Filter.pir"
+ load_bytecode "Stream/Sub"
+ load_bytecode "Stream/Filter"
# create the counter stream
stream = new "Stream::Sub"
@@ -107,7 +107,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/streams/Include.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/Include.pir (original)
+++ branches/pdd30install_stage3/examples/streams/Include.pir Sun Jan 4 12:27:36 2009
@@ -15,7 +15,7 @@
.sub _main
.local pmc stream
- load_bytecode "library/Stream/Sub.pir"
+ load_bytecode "Stream/Sub"
stream = new "Stream::Sub"
Modified: branches/pdd30install_stage3/examples/streams/Lines.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/Lines.pir (original)
+++ branches/pdd30install_stage3/examples/streams/Lines.pir Sun Jan 4 12:27:36 2009
@@ -16,8 +16,8 @@
.local pmc stream
.local pmc lines
- load_bytecode "library/Stream/Sub.pir"
- load_bytecode "library/Stream/Lines.pir"
+ load_bytecode "Stream/Sub"
+ load_bytecode "Stream/Lines"
# create a text stream
stream = new "Stream::Sub"
@@ -61,7 +61,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/streams/ParrotIO.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/ParrotIO.pir (original)
+++ branches/pdd30install_stage3/examples/streams/ParrotIO.pir Sun Jan 4 12:27:36 2009
@@ -19,7 +19,7 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/ParrotIO.pir"
+ load_bytecode "Stream/ParrotIO"
# create the ParrotIO stream
stream = new "Stream::ParrotIO"
Modified: branches/pdd30install_stage3/examples/streams/Replay.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/Replay.pir (original)
+++ branches/pdd30install_stage3/examples/streams/Replay.pir Sun Jan 4 12:27:36 2009
@@ -1,8 +1,8 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/Writer.pir"
- load_bytecode "library/Stream/Replay.pir"
+ load_bytecode "Stream/Writer"
+ load_bytecode "Stream/Replay"
stream = new "Stream::Writer"
$P0 = global "_reader"
Modified: branches/pdd30install_stage3/examples/streams/SubCounter.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/SubCounter.pir (original)
+++ branches/pdd30install_stage3/examples/streams/SubCounter.pir Sun Jan 4 12:27:36 2009
@@ -15,8 +15,8 @@
.sub _main
.local pmc stream
- load_bytecode "library/Stream/Base.pbc"
- load_bytecode "library/Stream/Sub.pbc"
+ load_bytecode "Stream/Base"
+ load_bytecode "Stream/Sub"
stream = new "Stream::Sub"
Modified: branches/pdd30install_stage3/examples/streams/SubHello.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/SubHello.pir (original)
+++ branches/pdd30install_stage3/examples/streams/SubHello.pir Sun Jan 4 12:27:36 2009
@@ -15,7 +15,7 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/Sub.pir"
+ load_bytecode "Stream/Sub"
stream = new "Stream::Sub"
@@ -54,7 +54,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/streams/Writer.pir
==============================================================================
--- branches/pdd30install_stage3/examples/streams/Writer.pir (original)
+++ branches/pdd30install_stage3/examples/streams/Writer.pir Sun Jan 4 12:27:36 2009
@@ -15,7 +15,7 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/Writer.pir"
+ load_bytecode "Stream/Writer"
stream = new "Stream::Writer"
@@ -58,7 +58,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/examples/tutorial/90_writing_tests.pir
==============================================================================
--- branches/pdd30install_stage3/examples/tutorial/90_writing_tests.pir (original)
+++ branches/pdd30install_stage3/examples/tutorial/90_writing_tests.pir Sun Jan 4 12:27:36 2009
@@ -9,7 +9,7 @@
=cut
.sub _main :main
- load_bytecode 'library/Test/More.pbc'
+ load_bytecode 'Test/More.pbc'
.local pmc exports, curr_namespace, test_namespace
curr_namespace = get_namespace
Modified: branches/pdd30install_stage3/languages/dotnet/src/translator.pir
==============================================================================
--- branches/pdd30install_stage3/languages/dotnet/src/translator.pir (original)
+++ branches/pdd30install_stage3/languages/dotnet/src/translator.pir Sun Jan 4 12:27:36 2009
@@ -22,7 +22,7 @@
assembly.'load'()
# Load the escaper library, which we will be using.
- load_bytecode "library/Data/Escape.pir"
+ load_bytecode "Data/Escape"
# Initialize PIR output string.
pir_output = ""
Modified: branches/pdd30install_stage3/languages/lua/src/lib/uuid.pir
==============================================================================
--- branches/pdd30install_stage3/languages/lua/src/lib/uuid.pir (original)
+++ branches/pdd30install_stage3/languages/lua/src/lib/uuid.pir Sun Jan 4 12:27:36 2009
@@ -30,7 +30,7 @@
.sub 'luaopen_uuid'
# print "luaopen_uuid\n"
- load_bytecode 'uuid.pir'
+ load_bytecode 'uuid'
.local pmc _lua__GLOBAL
_lua__GLOBAL = get_hll_global '_G'
Modified: branches/pdd30install_stage3/languages/pheme/lib/PhemeTest.pir
==============================================================================
--- branches/pdd30install_stage3/languages/pheme/lib/PhemeTest.pir (original)
+++ branches/pdd30install_stage3/languages/pheme/lib/PhemeTest.pir Sun Jan 4 12:27:36 2009
@@ -39,7 +39,7 @@
.namespace [ 'Pheme' ]
.sub _load :load
- load_bytecode 'library/Test/More.pir'
+ load_bytecode 'Test/More'
_export( 'is', 'ok', 'nok', 'diag', 'is_deeply', 'plan' )
.end
Modified: branches/pdd30install_stage3/languages/pipp/src/common/php_pcre.pir
==============================================================================
--- branches/pdd30install_stage3/languages/pipp/src/common/php_pcre.pir (original)
+++ branches/pdd30install_stage3/languages/pipp/src/common/php_pcre.pir Sun Jan 4 12:27:36 2009
@@ -13,12 +13,13 @@
=cut
+# FIXME: Should it get installed or load pipplib.pbc?
.include 'languages/pipp/src/common/php_MACRO.pir'
.include 'cclass.pasm'
.sub '__onload' :anon :load :init
push_eh _handler
- load_bytecode "library/pcre.pir"
+ load_bytecode "pcre"
$P0 = get_global ['PCRE'], 'init'
$P1 = $P0()
new $P0, 'PhpInteger'
Modified: branches/pdd30install_stage3/runtime/parrot/library/Data/Dumper.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Data/Dumper.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Data/Dumper.pir Sun Jan 4 12:27:36 2009
@@ -6,7 +6,7 @@
goto END
load_library:
- load_bytecode "library/Data/Dumper/Default.pir"
+ load_bytecode "Data/Dumper/Default.pbc"
newclass $P0, "Data::Dumper"
END:
.return ()
Modified: branches/pdd30install_stage3/runtime/parrot/library/Data/Dumper/Default.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Data/Dumper/Default.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Data/Dumper/Default.pir Sun Jan 4 12:27:36 2009
@@ -23,7 +23,8 @@
goto END
create_ddb:
- load_bytecode "library/Data/Dumper/Base.pir"
+ load_bytecode "Data/Dumper/Base.pbc" #TODO: without .pbc RT #39807 hits us.
+ # t/pmc/sub.t 54+55 fail
get_class $P0, "Data::Dumper::Base"
subclass $P0, $P0, "Data::Dumper::Default"
END:
@@ -414,7 +415,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/Data/Escape.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Data/Escape.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Data/Escape.pir Sun Jan 4 12:27:36 2009
@@ -6,7 +6,7 @@
...
- load_bytecode "library/Data/Escape.pir"
+ load_bytecode "Data/Escape.pir"
.local pmc escape
@@ -154,7 +154,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/Data/Replace.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Data/Replace.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Data/Replace.pir Sun Jan 4 12:27:36 2009
@@ -8,7 +8,7 @@
...
- load_bytecode "library/Data/Replace.pir"
+ load_bytecode "Data/Replace.pir"
.local pmc replace
Modified: branches/pdd30install_stage3/runtime/parrot/library/Data/Sort.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Data/Sort.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Data/Sort.pir Sun Jan 4 12:27:36 2009
@@ -6,7 +6,7 @@
...
- load_bytecode "library/Data/Sort.pir"
+ load_bytecode "Data/Sort"
.local pmc sort
@@ -107,7 +107,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/Getopt/Obj.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Getopt/Obj.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Getopt/Obj.pir Sun Jan 4 12:27:36 2009
@@ -9,7 +9,7 @@
.local string prog_name
prog_name = shift argv
- load_bytecode "Getopt/Obj.pir"
+ load_bytecode "Getopt/Obj"
.local pmc getopts
getopts = new "Getopt::Obj"
getopts."notOptStop"(1)
@@ -854,7 +854,7 @@
=head1 COPYRIGHT
-Copyright (C) 2006-2008, The Perl Foundation.
+Copyright (C) 2006-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/NCI/call_toolkit_init.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/NCI/call_toolkit_init.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/NCI/call_toolkit_init.pir Sun Jan 4 12:27:36 2009
@@ -8,8 +8,8 @@
.param pmc argv
# Load this library and the NCI wrapper for the toolkit
- load_bytecode 'library/NCI/call_toolkit_init.pbc'
- load_bytecode 'library/FooTK.pbc'
+ load_bytecode 'NCI/call_toolkit_init'
+ load_bytecode 'FooTK'
# Find Subs for toolkit's init function, and this helper routine
.local pmc fooInit, call_toolkit_init
Modified: branches/pdd30install_stage3/runtime/parrot/library/OpenGL.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/OpenGL.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/OpenGL.pir Sun Jan 4 12:27:36 2009
@@ -15,8 +15,8 @@
.param pmc argv
# Load OpenGL libary and a helper library for calling glutInit
- load_bytecode 'library/OpenGL.pbc'
- load_bytecode 'library/NCI/call_toolkit_init.pbc'
+ load_bytecode 'OpenGL.pbc'
+ load_bytecode 'NCI/call_toolkit_init.pbc'
# Import all OpenGL/GLU/GLUT functions
.local pmc import_gl
Modified: branches/pdd30install_stage3/runtime/parrot/library/Parrot/Coroutine.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Parrot/Coroutine.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Parrot/Coroutine.pir Sun Jan 4 12:27:36 2009
@@ -9,7 +9,7 @@
=head1 SYNOPSIS
.sub onload :load
- load_bytecode 'Parrot/Coroutine.pir'
+ load_bytecode 'Parrot/Coroutine'
.end
## Recursive coroutine to enumerate tree elements. Each element that is
@@ -247,7 +247,7 @@
=head1 COPYRIGHT
-Copyright (C) 2006-2008, The Perl Foundation.
+Copyright (C) 2006-2009, The Perl Foundation.
This program is free software. It is subject to the same
license as The Parrot Interpreter.
Modified: branches/pdd30install_stage3/runtime/parrot/library/Pg.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Pg.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Pg.pir Sun Jan 4 12:27:36 2009
@@ -1,4 +1,4 @@
-# Copyright (C) 2006-2008, The Perl Foundation.
+# Copyright (C) 2006-2009, The Perl Foundation.
# $Id$
=head1 NAME
@@ -31,7 +31,7 @@
=head1 DESCRIPTION
-Pg.pir is a thin wrapper around F<postgres.pir> - the NCI functions of
+F<Pg.pir> is a thin wrapper around F<postgres.pir> - the NCI functions of
the C<libpq> library. It's roughly divided into 3 parts, represented
by 'Pg', 'Pg;Conn', and 'Pg;Result' classes.
@@ -44,7 +44,7 @@
.sub __load :load
.local pmc cl
- load_bytecode "postgres.pir" # TODO .pbc
+ load_bytecode "postgres"
cl = newclass 'Pg' # Pg connection constructor
# XXX the hasa 'con' is suboptimal
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/App.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/App.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/App.pir Sun Jan 4 12:27:36 2009
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/SDL/App.pir'
+ load_bytecode 'SDL/App'
# create a new SDL::App object
.local pmc app
@@ -67,9 +67,9 @@
.sub _initialize :load
.include 'datatypes.pasm'
- load_bytecode 'library/SDL.pir'
- load_bytecode 'library/SDL/Surface.pir'
- load_bytecode 'library/SDL/Constants.pir'
+ load_bytecode 'SDL'
+ load_bytecode 'SDL/Surface'
+ load_bytecode 'SDL/Constants'
.local pmc app_class
@@ -242,7 +242,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/Color.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/Color.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/Color.pir Sun Jan 4 12:27:36 2009
@@ -7,7 +7,7 @@
=head1 SYNOPSIS
- load_bytecode 'library/SDL/Color.pir'
+ load_bytecode 'SDL/Color'
# create a new SDL::Color object
.local pmc color
@@ -219,7 +219,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/Event.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/Event.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/Event.pir Sun Jan 4 12:27:36 2009
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/SDL/Event.pir'
+ load_bytecode 'SDL/Event'
# create a new SDL::Event object
.local pmc event
@@ -346,7 +346,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/EventHandler.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/EventHandler.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/EventHandler.pir Sun Jan 4 12:27:36 2009
@@ -8,8 +8,8 @@
=head1 SYNOPSIS
# load the event class and this library
- load_bytecode 'library/SDL/Event.pir'
- load_bytecode 'library/SDL/EventHandler.pir'
+ load_bytecode 'SDL/Event'
+ load_bytecode 'SDL/EventHandler'
# subclass this class
.local pmc parent_class
@@ -378,7 +378,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/Font.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/Font.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/Font.pir Sun Jan 4 12:27:36 2009
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/SDL/Font.pir'
+ load_bytecode 'SDL/Font'
# create a new SDL::Font object
.local pmc font
@@ -200,7 +200,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/Image.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/Image.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/Image.pir Sun Jan 4 12:27:36 2009
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/SDL/Image.pir'
+ load_bytecode 'SDL/Image'
# create a new SDL::Image object
.local pmc image
@@ -83,7 +83,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/LCD.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/LCD.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/LCD.pir Sun Jan 4 12:27:36 2009
@@ -45,8 +45,8 @@
.return()
create_class:
- load_bytecode 'SDL/Image.pir'
- load_bytecode 'SDL/Rect.pir'
+ load_bytecode 'SDL/Image'
+ load_bytecode 'SDL/Rect'
.local pmc digits
digits = new 'SDL::Image'
@@ -285,7 +285,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/Rect.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/Rect.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/Rect.pir Sun Jan 4 12:27:36 2009
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/SDL/Rect.pir'
+ load_bytecode 'SDL/Rect'
# create a new SDL::Rect object
.local pmc rect
@@ -243,7 +243,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/Sprite.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/Sprite.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/Sprite.pir Sun Jan 4 12:27:36 2009
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/SDL/Sprite.pir'
+ load_bytecode 'SDL/Sprite'
# ... load a new SDL::Image into image
@@ -518,7 +518,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/StopWatch.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/StopWatch.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/StopWatch.pir Sun Jan 4 12:27:36 2009
@@ -42,7 +42,7 @@
.return()
create_class:
- load_bytecode "library/SDL/LCD.pir"
+ load_bytecode "SDL/LCD"
class = get_class 'SDL::LCD'
class = subclass class, 'SDL::StopWatch'
addattribute $P0, 'time'
@@ -333,7 +333,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/SDL/Surface.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/SDL/Surface.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/SDL/Surface.pir Sun Jan 4 12:27:36 2009
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/SDL/Surface.pir'
+ load_bytecode 'SDL/Surface'
# create a new SDL::Surface object
surface = new 'SDL::Surface'
@@ -601,7 +601,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/Base.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/Base.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/Base.pir Sun Jan 4 12:27:36 2009
@@ -27,7 +27,7 @@
.sub onload :load :anon
$P0 = get_class 'Stream::Base'
unless null $P0 goto END
- load_bytecode "library/Data/Escape.pir"
+ load_bytecode "Data/Escape.pir"
newclass $P0, "Stream::Base"
addattribute $P0, 'source'
@@ -351,7 +351,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/Combiner.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/Combiner.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/Combiner.pir Sun Jan 4 12:27:36 2009
@@ -32,7 +32,7 @@
$P0 = get_class 'Stream::Combiner'
unless null $P0 goto END
- load_bytecode "library/Stream/Base.pir"
+ load_bytecode "Stream/Base.pir"
get_class base, "Stream::Base"
subclass comb, base, "Stream::Combiner"
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/Coroutine.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/Coroutine.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/Coroutine.pir Sun Jan 4 12:27:36 2009
@@ -28,7 +28,7 @@
$P0 = get_class "Stream::Coroutine"
unless null $P0 goto END
- load_bytecode "library/Stream/Base.pir"
+ load_bytecode "Stream/Base.pir"
get_class base, "Stream::Base"
subclass coro, base, "Stream::Coroutine"
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/Filter.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/Filter.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/Filter.pir Sun Jan 4 12:27:36 2009
@@ -30,7 +30,7 @@
$P0 = get_class 'Stream::Filter'
unless null $P0 goto END
- load_bytecode "library/Stream/Base.pir"
+ load_bytecode "Stream/Base.pir"
get_class base, "Stream::Base"
subclass filter, base, "Stream::Filter"
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/Lines.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/Lines.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/Lines.pir Sun Jan 4 12:27:36 2009
@@ -32,7 +32,7 @@
$P0 = get_class 'Stream::Lines'
unless null $P0 goto END
- load_bytecode "library/Stream/Base.pir"
+ load_bytecode "Stream/Base.pir"
get_class base, "Stream::Base"
subclass lines, base, "Stream::Lines"
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/ParrotIO.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/ParrotIO.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/ParrotIO.pir Sun Jan 4 12:27:36 2009
@@ -30,7 +30,7 @@
$P0 = get_class 'Stream::ParrotIO'
unless null $P0 goto END
- load_bytecode "library/Stream/Base.pir"
+ load_bytecode "Stream/Base.pir"
get_class base, "Stream::Base"
subclass io, base, "Stream::ParrotIO"
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/Replay.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/Replay.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/Replay.pir Sun Jan 4 12:27:36 2009
@@ -10,7 +10,7 @@
=head1 SYNOPSIS
- load_bytecode "library/Stream/Replay.pir"
+ load_bytecode "Stream/Replay.pir"
$P0 = new "Stream::Replay"
assign $P0, other_stream
@@ -40,7 +40,7 @@
$P0 = get_class 'Stream::Replay'
unless null $P0 goto END
- load_bytecode "library/Stream/Base.pir"
+ load_bytecode "Stream/Base.pir"
# Stream::Replay
get_class $P0, "Stream::Base"
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/Sub.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/Sub.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/Sub.pir Sun Jan 4 12:27:36 2009
@@ -61,7 +61,7 @@
$P0 = get_class "Stream::Sub"
unless null $P0 goto END
- load_bytecode "library/Stream/Base.pir"
+ load_bytecode "Stream/Base.pir"
get_class base, "Stream::Base"
subclass sub, base, "Stream::Sub"
Modified: branches/pdd30install_stage3/runtime/parrot/library/Stream/Writer.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Stream/Writer.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Stream/Writer.pir Sun Jan 4 12:27:36 2009
@@ -37,7 +37,7 @@
$P0 = get_class "Stream::Writer"
unless null $P0 goto END
- load_bytecode "library/Stream/Base.pir"
+ load_bytecode "Stream/Base.pir"
get_class $P0, "Stream::Base"
subclass $P1, $P0, "Stream::Writer"
Modified: branches/pdd30install_stage3/runtime/parrot/library/Test/Builder.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Test/Builder.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Test/Builder.pir Sun Jan 4 12:27:36 2009
@@ -5,7 +5,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/Test/Builder.pbc'
+ load_bytecode 'Test/Builder.pbc'
# create a new Test::Builder object
.local pmc test
@@ -46,9 +46,9 @@
.namespace [ 'Test'; 'Builder' ]
.sub '_initialize' :load
- load_bytecode 'library/Test/Builder/Test.pbc'
- load_bytecode 'library/Test/Builder/Output.pbc'
- load_bytecode 'library/Test/Builder/TestPlan.pbc'
+ load_bytecode 'Test/Builder/Test.pbc'
+ load_bytecode 'Test/Builder/Output.pbc'
+ load_bytecode 'Test/Builder/TestPlan.pbc'
.local pmc tb_class
@@ -555,7 +555,7 @@
=head1 COPYRIGHT
-Copyright (C) 2005-2008, The Perl Foundation.
+Copyright (C) 2005-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/Test/Builder/Tester.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Test/Builder/Tester.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Test/Builder/Tester.pir Sun Jan 4 12:27:36 2009
@@ -7,7 +7,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/Test/Builder/Tester.pbc'
+ load_bytecode 'Test/Builder/Tester'
# grab the subroutines you want to use
.local pmc plan
@@ -154,7 +154,7 @@
.namespace [ 'Test'; 'Builder'; 'Tester' ]
.sub _initialize :load
- load_bytecode 'library/Test/Builder.pbc'
+ load_bytecode 'Test/Builder.pir'
.local pmc test
.local pmc output
@@ -455,7 +455,7 @@
=head1 COPYRIGHT
-Copyright (C) 2005-2008, The Perl Foundation.
+Copyright (C) 2005-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/Test/More.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/Test/More.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/Test/More.pir Sun Jan 4 12:27:36 2009
@@ -5,7 +5,7 @@
=head1 SYNOPSIS
# load this library
- load_bytecode 'library/Test/More.pbc'
+ load_bytecode 'Test/More'
# get the testing functions
.local pmc exports, curr_namespace, test_namespace
@@ -64,7 +64,7 @@
.namespace [ 'Test'; 'More' ]
.sub _initialize :load
- load_bytecode 'library/Test/Builder.pbc'
+ load_bytecode 'Test/Builder.pir'
.local pmc test
test = new [ 'Test'; 'Builder' ]
@@ -999,7 +999,7 @@
=head1 COPYRIGHT
-Copyright (C) 2005-2008, The Perl Foundation.
+Copyright (C) 2005-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/YAML/Dumper.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/YAML/Dumper.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/YAML/Dumper.pir Sun Jan 4 12:27:36 2009
@@ -6,7 +6,7 @@
goto END
load_library:
- load_bytecode "library/YAML/Dumper/Default.pir"
+ load_bytecode "YAML/Dumper/Default"
newclass $P0, "YAML::Dumper"
END:
.return ()
Modified: branches/pdd30install_stage3/runtime/parrot/library/YAML/Dumper/Default.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/YAML/Dumper/Default.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/YAML/Dumper/Default.pir Sun Jan 4 12:27:36 2009
@@ -23,7 +23,7 @@
goto END
create_ydb:
- load_bytecode "library/YAML/Dumper/Base.pir"
+ load_bytecode "YAML/Dumper/Base"
get_class $P0, "YAML::Dumper::Base"
subclass $P0, $P0, "YAML::Dumper::Default"
END:
@@ -445,7 +445,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/dumper.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/dumper.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/dumper.pir Sun Jan 4 12:27:36 2009
@@ -31,7 +31,7 @@
# first method prints usage information
.sub __library_dumper_onload
print "usage:"
- print "\tload_bytecode \"library/Data/Dumper.pir\"\n"
+ print "\tload_bytecode \"Data/Dumper.pbc\"\n"
print "\t...\n"
print "\tnew dumper, \"Data::Dumper\"\n"
print "\tdumper.\"dumper\"( foo, \"foo\" )\n\n"
@@ -150,7 +150,7 @@
goto TYPE_OK
load_dd_pir:
- load_bytecode "library/Data/Dumper.pir"
+ load_bytecode "Data/Dumper.pbc"
get_class dd_class, "Data::Dumper"
if null dd_class goto no_class
goto TYPE_OK
@@ -183,7 +183,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/runtime/parrot/library/libpcre.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/libpcre.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/libpcre.pir Sun Jan 4 12:27:36 2009
@@ -7,7 +7,7 @@
=head1 DESCRIPTION
-See 'library/pcre.pir' for details on the user interface.
+See F<library/pcre.pir> for details on the user interface.
=cut
@@ -163,7 +163,7 @@
=head1 FILES
-pcre.pir, libpcre.pir
+F<pcre.pir>, F<libpcre.pir>
=head1 SEE ALSO
Modified: branches/pdd30install_stage3/runtime/parrot/library/pcre.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/pcre.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/pcre.pir Sun Jan 4 12:27:36 2009
@@ -1,4 +1,4 @@
-# Copyright (C) 2004-2008, The Perl Foundation.
+# Copyright (C) 2004-2009, The Perl Foundation.
# $Id$
=head1 TITLE
@@ -7,7 +7,7 @@
=head1 SYNOPSIS
- load_bytecode 'library/pcre.pir'
+ load_bytecode 'pcre.pbc'
lib = pcre_init()
func = find_global 'PCRE', 'compile'
@@ -25,7 +25,7 @@
compile regexes, match against strings, and return the results.
All functions are found in the 'PCRE' namespace.
-The NCI interface is contained in libpcre.pir.
+The NCI interface is contained in F<libpcre.pir>.
=cut
@@ -81,7 +81,7 @@
LIB_LOADED:
store_global 'PCRE', 'lib', libpcre
- load_bytecode 'library/libpcre.pir'
+ load_bytecode 'libpcre.pbc' # TODO RT #39807, fails without .pbc
# pcre *pcre_compile(const char *pattern, int options,
# const char **errptr, int *erroffset,
@@ -216,7 +216,7 @@
=head1 FILES
-pcre.pir, libpcre.pir
+F<pcre.pir>, F<libpcre.pir>
=head1 SEE ALSO
Modified: branches/pdd30install_stage3/runtime/parrot/library/tcpstream.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/tcpstream.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/tcpstream.pir Sun Jan 4 12:27:36 2009
@@ -6,7 +6,7 @@
=head1 SYNOPSIS
.sub main :main
- load_bytecode 'library/tcpstream.pir'
+ load_bytecode 'tcpstream'
.local pmc stream
stream = new 'TCPStream'
Modified: branches/pdd30install_stage3/runtime/parrot/library/yaml_dumper.pir
==============================================================================
--- branches/pdd30install_stage3/runtime/parrot/library/yaml_dumper.pir (original)
+++ branches/pdd30install_stage3/runtime/parrot/library/yaml_dumper.pir Sun Jan 4 12:27:36 2009
@@ -32,7 +32,7 @@
# first method prints usage information
.sub __library_dumper_onload
print "usage:"
- print "\tload_bytecode \"library/YAML/Dumper.pir\"\n"
+ print "\tload_bytecode \"YAML/Dumper\"\n"
print "\t...\n"
print "\tnew yaml, \"YAML::Dumper\"\n"
print "\tyaml.\"yaml\"( foo, \"foo\" )\n\n"
@@ -151,13 +151,13 @@
goto TYPE_OK
load_yd_pir:
- load_bytecode "library/YAML/Dumper.pir"
+ load_bytecode "YAML/Dumper"
get_class yd_class, "YAML::Dumper"
if null yd_class goto no_class
goto TYPE_OK
no_class:
- print "fatal error: failure while loading library/YAML/Dumper.pir\n"
+ print "fatal error: failure while loading YAML::Dumper\n"
end
TYPE_OK:
@@ -184,7 +184,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004-2008, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
=cut
Modified: branches/pdd30install_stage3/t/compilers/imcc/syn/subflags.t
==============================================================================
--- branches/pdd30install_stage3/t/compilers/imcc/syn/subflags.t (original)
+++ branches/pdd30install_stage3/t/compilers/imcc/syn/subflags.t Sun Jan 4 12:27:36 2009
@@ -17,7 +17,7 @@
.namespace ['FlagTest']
.sub 'main' :main
- load_bytecode 'library/Test/More.pbc'
+ load_bytecode 'Test/More.pbc'
.local pmc exports, curr_namespace, test_namespace
curr_namespace = get_namespace
Modified: branches/pdd30install_stage3/t/compilers/json/to_parrot.t
==============================================================================
--- branches/pdd30install_stage3/t/compilers/json/to_parrot.t (original)
+++ branches/pdd30install_stage3/t/compilers/json/to_parrot.t Sun Jan 4 12:27:36 2009
@@ -690,7 +690,7 @@
.sub test :main
load_bytecode 'compilers/json/JSON.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc JSON, result
JSON = compreg "JSON"
Modified: branches/pdd30install_stage3/t/compilers/pct/past.t
==============================================================================
--- branches/pdd30install_stage3/t/compilers/pct/past.t (original)
+++ branches/pdd30install_stage3/t/compilers/pct/past.t Sun Jan 4 12:27:36 2009
@@ -14,7 +14,7 @@
my $code = <<'CODE'
.sub _main :main
load_bytecode 'PCT.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc node
.local pmc node2
CODE
@@ -51,7 +51,7 @@
pir_output_is( <<'CODE', <<'OUT', 'dump PAST::Val node in visual format' );
.sub _main :main
load_bytecode 'PCT.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc node
node = new ['PAST';'Val']
node.'value'(1)
@@ -78,7 +78,7 @@
pir_output_is( <<'CODE', <<'OUT', 'dump PAST::Var node in visual format' );
.sub _main :main
load_bytecode 'PCT.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc node
node = new ['PAST';'Var']
node.'scope'('foo')
@@ -98,7 +98,7 @@
pir_output_is( <<'CODE', <<'OUT', 'dump PAST::Op node in visual format' );
.sub _main :main
load_bytecode 'PCT.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc node
node = new ['PAST';'Op']
node.'pasttype'('pirop')
@@ -120,7 +120,7 @@
pir_output_is( <<'CODE', <<'OUT', 'dump PAST::Block node in visual format' );
.sub _main :main
load_bytecode 'PCT.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc node
node = new ['PAST';'Block']
node.'blocktype'('declaration')
Modified: branches/pdd30install_stage3/t/compilers/pct/post.t
==============================================================================
--- branches/pdd30install_stage3/t/compilers/pct/post.t (original)
+++ branches/pdd30install_stage3/t/compilers/pct/post.t Sun Jan 4 12:27:36 2009
@@ -13,7 +13,7 @@
my $code = <<'CODE'
.sub _main
load_bytecode 'PCT.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc node
.local pmc node2
CODE
@@ -50,7 +50,7 @@
pir_output_is( <<'CODE', <<'OUT', 'dump POST::Op node in visual format' );
.sub _main
load_bytecode 'PCT.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc node
node = new ['POST';'Op']
node.'pirop'('add')
@@ -70,7 +70,7 @@
pir_output_is( <<'CODE', <<'OUT', 'dump POST::Label node in visual format' );
.sub _main
load_bytecode 'PCT.pbc'
- load_bytecode 'library/dumper.pbc'
+ load_bytecode 'dumper.pbc'
.local pmc node
node = new ['POST';'Label']
node.'name'('labeler')
Modified: branches/pdd30install_stage3/t/examples/streams.t
==============================================================================
--- branches/pdd30install_stage3/t/examples/streams.t (original)
+++ branches/pdd30install_stage3/t/examples/streams.t Sun Jan 4 12:27:36 2009
@@ -155,10 +155,10 @@
read:[ 33 name = argv[1]]
read:[ 34 NO_NAME:]
read:[ 35 ]
-read:[ 36 load_bytecode "library/Stream/ParrotIO.pir"]
-read:[ 37 load_bytecode "library/Stream/Lines.pir"]
-read:[ 38 load_bytecode "library/Stream/Sub.pir"]
-read:[ 39 load_bytecode "library/Stream/Combiner.pir"]
+read:[ 36 load_bytecode "Stream/ParrotIO.pir"]
+read:[ 37 load_bytecode "Stream/Lines.pir"]
+read:[ 38 load_bytecode "Stream/Sub.pir"]
+read:[ 39 load_bytecode "Stream/Combiner.pir"]
read:[ 40 ]
read:[ 41 # create a file stream]
read:[ 42 file = new "Stream::ParrotIO"]
Modified: branches/pdd30install_stage3/t/library/File_Spec.t
==============================================================================
--- branches/pdd30install_stage3/t/library/File_Spec.t (original)
+++ branches/pdd30install_stage3/t/library/File_Spec.t Sun Jan 4 12:27:36 2009
@@ -27,7 +27,7 @@
my $PRE = <<'PRE';
.sub 'main' :main
- load_bytecode 'library/File/Spec.pir'
+ load_bytecode 'File/Spec.pir'
.local int classtype
.local pmc spec
Modified: branches/pdd30install_stage3/t/library/md5.t
==============================================================================
--- branches/pdd30install_stage3/t/library/md5.t (original)
+++ branches/pdd30install_stage3/t/library/md5.t Sun Jan 4 12:27:36 2009
@@ -34,7 +34,7 @@
pir_output_is( <<'CODE', <<'OUT', "Miscellaneous words" );
.sub _main
- load_bytecode "library/Digest/MD5.pbc"
+ load_bytecode "Digest/MD5.pbc"
$P0 = _md5sum ("Hello")
_md5_print ($P0)
print "\n"
@@ -62,7 +62,7 @@
pir_output_is( <<'CODE', <<'OUT', "Funny chars" );
.sub _main
- load_bytecode "library/Digest/MD5.pbc"
+ load_bytecode "Digest/MD5.pbc"
$P0 = _md5sum ("\n\n\n\n\t")
_md5_print ($P0)
print "\n"
@@ -200,7 +200,7 @@
pir_output_is( <<CODE, <<'OUT', "String lengths" );
.sub _main
- load_bytecode "library/Digest/MD5.pbc"
+ load_bytecode "Digest/MD5.pbc"
$code
end
.end
@@ -323,7 +323,7 @@
pir_output_is( <<CODE, <<'OUT', "REALLY long string" );
.sub _main
- load_bytecode "library/Digest/MD5.pbc"
+ load_bytecode "Digest/MD5.pbc"
\$P0 = _md5sum ("$text")
_md5_print (\$P0)
print "\\n"
@@ -351,7 +351,7 @@
pir_output_is( <<'CODE', <<'OUT', "recursive md5sum (1)" );
.sub _main
- load_bytecode "library/Digest/MD5.pbc"
+ load_bytecode "Digest/MD5.pbc"
$S0 = "Hello World!"
$I0 = 0
@@ -589,7 +589,7 @@
pir_output_is( <<'CODE', <<'OUT', "recursive md5sum (2)" );
.sub _main
- load_bytecode "library/Digest/MD5.pbc"
+ load_bytecode "Digest/MD5.pbc"
$S0 = "Hello World!"
$I0 = 0
Modified: branches/pdd30install_stage3/t/library/mt19937ar.t
==============================================================================
--- branches/pdd30install_stage3/t/library/mt19937ar.t (original)
+++ branches/pdd30install_stage3/t/library/mt19937ar.t Sun Jan 4 12:27:36 2009
@@ -20,7 +20,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT typeof' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$S0 = typeof mt
@@ -34,7 +34,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT can init_genrand' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$I0 = can mt, 'init_genrand'
@@ -48,7 +48,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT can init_by_array' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$I0 = can mt, 'init_by_array'
@@ -62,7 +62,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT can genrand_int32' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$I0 = can mt, 'genrand_int32'
@@ -76,7 +76,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT can genrand_int31' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$I0 = can mt, 'genrand_int31'
@@ -90,7 +90,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT can genrand_real1' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$I0 = can mt, 'genrand_real1'
@@ -104,7 +104,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT can genrand_real2' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$I0 = can mt, 'genrand_real2'
@@ -118,7 +118,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT can genrand_real3' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$I0 = can mt, 'genrand_real3'
@@ -132,7 +132,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'MT can genrand_res53' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
$I0 = can mt, 'genrand_res53'
@@ -147,7 +147,7 @@
my $out = Parrot::Test::slurp_file(File::Spec->catfile( 't', 'library', 'mt19937ar.txt' ));
pir_output_is( << 'CODE', $out, 'mt19937ar output' );
.sub test :main
- load_bytecode 'library/Math/Random/mt19937ar.pbc'
+ load_bytecode 'Math/Random/mt19937ar.pbc'
.local pmc mt
mt = new [ 'Math'; 'Random'; 'MT' ]
.local pmc init
Modified: branches/pdd30install_stage3/t/library/p6object.t
==============================================================================
--- branches/pdd30install_stage3/t/library/p6object.t (original)
+++ branches/pdd30install_stage3/t/library/p6object.t Sun Jan 4 12:27:36 2009
@@ -17,7 +17,7 @@
=cut
.sub 'main' :main
- load_bytecode 'library/Test/More.pbc'
+ load_bytecode 'Test/More.pbc'
.local pmc exports, curr_namespace, test_namespace
curr_namespace = get_namespace
Modified: branches/pdd30install_stage3/t/library/pcre.t
==============================================================================
--- branches/pdd30install_stage3/t/library/pcre.t (original)
+++ branches/pdd30install_stage3/t/library/pcre.t Sun Jan 4 12:27:36 2009
@@ -61,7 +61,7 @@
include_paths = lib_paths[2]
unshift include_paths, '$pcre_libpath'
- load_bytecode "library/pcre.pir"
+ load_bytecode "pcre.pir"
.local pmc func
.local pmc lib
Modified: branches/pdd30install_stage3/t/library/streams.t
==============================================================================
--- branches/pdd30install_stage3/t/library/streams.t (original)
+++ branches/pdd30install_stage3/t/library/streams.t Sun Jan 4 12:27:36 2009
@@ -34,7 +34,7 @@
.sub _main
print "loading '$a'...\\n"
- load_bytecode "library/Stream/$a.pir"
+ load_bytecode "Stream/$a.pir"
print "loaded\\n"
\$P0 = new "Stream::$a"
@@ -62,7 +62,7 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/Sub.pir"
+ load_bytecode "Stream/Sub.pir"
stream = new "Stream::Sub"
@@ -108,8 +108,8 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/Sub.pir"
- load_bytecode "library/Stream/Replay.pir"
+ load_bytecode "Stream/Sub.pir"
+ load_bytecode "Stream/Replay.pir"
$P0 = new "Stream::Sub"
# set the stream's source sub #'
@@ -185,9 +185,9 @@
.local pmc text
.local pmc combined
- load_bytecode "library/Stream/Base.pir"
- load_bytecode "library/Stream/Combiner.pir"
- load_bytecode "library/Stream/Sub.pir"
+ load_bytecode "Stream/Base.pir"
+ load_bytecode "Stream/Combiner.pir"
+ load_bytecode "Stream/Sub.pir"
# create the counter stream
counter = new "Stream::Sub"
@@ -271,8 +271,8 @@
.sub _main
.local pmc stream
- load_bytecode "library/Stream/Base.pir"
- load_bytecode "library/Stream/Coroutine.pir"
+ load_bytecode "Stream/Base.pir"
+ load_bytecode "Stream/Coroutine.pir"
# create the coroutine stream
stream = new "Stream::Coroutine"
@@ -343,10 +343,10 @@
name = "t/library/perlhist.txt"
- load_bytecode "library/Stream/ParrotIO.pir"
- load_bytecode "library/Stream/Lines.pir"
- load_bytecode "library/Stream/Sub.pir"
- load_bytecode "library/Stream/Combiner.pir"
+ load_bytecode "Stream/ParrotIO.pir"
+ load_bytecode "Stream/Lines.pir"
+ load_bytecode "Stream/Sub.pir"
+ load_bytecode "Stream/Combiner.pir"
# create a file stream
file = new "Stream::ParrotIO"
@@ -704,8 +704,8 @@
.local pmc stream
.local pmc filter
- load_bytecode "library/Stream/Sub.pir"
- load_bytecode "library/Stream/Filter.pir"
+ load_bytecode "Stream/Sub.pir"
+ load_bytecode "Stream/Filter.pir"
# create the counter stream
stream = new "Stream::Sub"
@@ -789,7 +789,7 @@
.sub _main
.local pmc stream
- load_bytecode "library/Stream/Sub.pir"
+ load_bytecode "Stream/Sub.pir"
stream = new "Stream::Sub"
@@ -895,8 +895,8 @@
.local pmc stream
.local pmc lines
- load_bytecode "library/Stream/Sub.pir"
- load_bytecode "library/Stream/Lines.pir"
+ load_bytecode "Stream/Sub.pir"
+ load_bytecode "Stream/Lines.pir"
# create a text stream
stream = new "Stream::Sub"
@@ -942,7 +942,7 @@
.local pmc stream
.local pmc temp
- load_bytecode "library/Stream/ParrotIO.pir"
+ load_bytecode "Stream/ParrotIO.pir"
# create the ParrotIO stream
stream = new "Stream::ParrotIO"
@@ -1256,8 +1256,8 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/Writer.pir"
- load_bytecode "library/Stream/Replay.pir"
+ load_bytecode "Stream/Writer.pir"
+ load_bytecode "Stream/Replay.pir"
stream = new "Stream::Writer"
P0 = global "_reader"
@@ -1358,8 +1358,8 @@
.local pmc stream
.local pmc temp
- load_bytecode "library/Stream/Base.pir"
- load_bytecode "library/Stream/Sub.pir"
+ load_bytecode "Stream/Base.pir"
+ load_bytecode "Stream/Sub.pir"
stream = new "Stream::Sub"
@@ -1419,7 +1419,7 @@
.sub _main :main
.local pmc stream
- load_bytecode "library/Stream/Writer.pir"
+ load_bytecode "Stream/Writer.pir"
stream = new "Stream::Writer"
Modified: branches/pdd30install_stage3/t/library/tcl_glob.t
==============================================================================
--- branches/pdd30install_stage3/t/library/tcl_glob.t (original)
+++ branches/pdd30install_stage3/t/library/tcl_glob.t Sun Jan 4 12:27:36 2009
@@ -15,7 +15,7 @@
=cut
.sub 'main' :main
- load_bytecode 'library/Test/More.pbc'
+ load_bytecode 'Test/More.pbc'
.local pmc exports, curr_namespace, test_namespace
curr_namespace = get_namespace
Modified: branches/pdd30install_stage3/t/library/test_builder_tester.t
==============================================================================
--- branches/pdd30install_stage3/t/library/test_builder_tester.t (original)
+++ branches/pdd30install_stage3/t/library/test_builder_tester.t Sun Jan 4 12:27:36 2009
@@ -3,7 +3,7 @@
# $Id$
.sub _main :main
- load_bytecode 'library/Test/Builder/Tester.pir'
+ load_bytecode 'Test/Builder/Tester.pir'
.local pmc tb_args
tb_args = new 'Hash'
Modified: branches/pdd30install_stage3/t/library/test_more.t
==============================================================================
--- branches/pdd30install_stage3/t/library/test_more.t (original)
+++ branches/pdd30install_stage3/t/library/test_more.t Sun Jan 4 12:27:36 2009
@@ -3,8 +3,8 @@
# $Id$
.sub _main :main
- load_bytecode 'library/Test/Builder/Tester.pir'
- load_bytecode 'library/Test/More.pir'
+ load_bytecode 'Test/Builder/Tester.pir'
+ load_bytecode 'Test/More.pir'
.local pmc tb_args
tb_args = new 'Hash'
Modified: branches/pdd30install_stage3/t/library/uuid.t
==============================================================================
--- branches/pdd30install_stage3/t/library/uuid.t (original)
+++ branches/pdd30install_stage3/t/library/uuid.t Sun Jan 4 12:27:36 2009
@@ -20,7 +20,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'generate' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'generate'
$P1 = $P0()
$S1 = typeof $P1
@@ -34,7 +34,7 @@
pir_output_like( << 'CODE', << 'OUTPUT', 'generate' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'generate'
$P1 = $P0()
print $P1
@@ -46,7 +46,7 @@
pir_output_like( << 'CODE', << 'OUTPUT', 'generate_random' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'generate_random'
$P1 = $P0()
print $P1
@@ -58,7 +58,7 @@
pir_output_like( << 'CODE', << 'OUTPUT', 'generate_time' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'generate_time'
$P1 = $P0()
print $P1
@@ -70,7 +70,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'parse' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'parse'
($I0, $P1) = $P0("84949cc5-4701-4a84-895b-354c584a981b")
print $I0
@@ -87,7 +87,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'parse' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'parse'
$I0 = $P0("84949cc5-4701-4a84-895b-354c584a981b")
print $I0
@@ -140,7 +140,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'time' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'parse'
($I0, $P1) = $P0("84949cc5-4701-4a84-895b-354c584a981b")
$I1 = $P1.'time'()
@@ -154,7 +154,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'type' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'generate'
$P1 = $P0()
$I0 = $P1.'type'()
@@ -168,7 +168,7 @@
pir_output_is( << 'CODE', << 'OUTPUT', 'variant' );
.sub test :main
- load_bytecode 'library/uuid.pbc'
+ load_bytecode 'uuid.pbc'
$P0 = get_global ['uuid'], 'generate'
$P1 = $P0()
$I0 = $P1.'variant'()
Modified: branches/pdd30install_stage3/t/oo/metamodel.t
==============================================================================
--- branches/pdd30install_stage3/t/oo/metamodel.t (original)
+++ branches/pdd30install_stage3/t/oo/metamodel.t Sun Jan 4 12:27:36 2009
@@ -17,7 +17,7 @@
=cut
.sub _main :main
- load_bytecode 'library/Test/More.pir'
+ load_bytecode 'Test/More.pir'
.local pmc exports, curr_namespace, test_namespace
curr_namespace = get_namespace
Modified: branches/pdd30install_stage3/t/op/load_bytecode.t
==============================================================================
--- branches/pdd30install_stage3/t/op/load_bytecode.t (original)
+++ branches/pdd30install_stage3/t/op/load_bytecode.t Sun Jan 4 12:27:36 2009
@@ -1,12 +1,12 @@
#!perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2009, The Perl Foundation.
# $Id$
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 3;
+use Parrot::Test tests => 8;
=head1 NAME
@@ -46,6 +46,52 @@
/"load_bytecode" couldn't find file 'no_file_by_this_name'/
OUTPUT
+pir_output_like( <<'CODE', <<'OUTPUT', "load_bytecode with full path" );
+.sub main :main
+ load_bytecode 'runtime/parrot/library/Test/More.pir'
+ say 1
+.end
+CODE
+/1/
+OUTPUT
+
+pir_output_like( <<'CODE', <<'OUTPUT', "load_bytecode with path search" );
+.sub main :main
+ load_bytecode 'Test/More.pir'
+ say 1
+.end
+CODE
+/1/
+OUTPUT
+
+pir_output_like( <<'CODE', <<'OUTPUT', "load_bytecode with extension fallback" );
+.sub main :main
+ load_bytecode 'Test/More'
+ say 1
+.end
+CODE
+/1/
+OUTPUT
+
+pir_output_like( <<'CODE', <<'OUTPUT', "load_bytecode dir+file ambiguity" );
+.sub main :main
+ load_bytecode 'Test/Builder'
+ say 1
+.end
+CODE
+/1/
+OUTPUT
+
+open F, ">test_1.pir.pasm"; print F ""; close F;
+pir_error_output_like( <<'CODE', <<'OUTPUT', "load_bytecode skip extension search" );
+.sub main :main
+ load_bytecode 'test_1.pir'
+.end
+CODE
+/"load_bytecode" couldn't find file 'test_1.pir'/
+OUTPUT
+unlink "test_1.pir.pasm";
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: branches/pdd30install_stage3/t/pmc/pair.t
==============================================================================
--- branches/pdd30install_stage3/t/pmc/pair.t (original)
+++ branches/pdd30install_stage3/t/pmc/pair.t Sun Jan 4 12:27:36 2009
@@ -5,7 +5,7 @@
.const int NUM_OF_TESTS = 8
.sub main :main
- load_bytecode 'library/Test/More.pir'
+ load_bytecode 'Test/More.pir'
.local pmc plan, is, ok
plan = get_hll_global [ 'Test'; 'More' ], 'plan'
Modified: branches/pdd30install_stage3/tools/util/crow.pir
==============================================================================
--- branches/pdd30install_stage3/tools/util/crow.pir (original)
+++ branches/pdd30install_stage3/tools/util/crow.pir Sun Jan 4 12:27:36 2009
@@ -10,7 +10,7 @@
This utility is used to help Release Managers format announcement messages.
It uses a *very* simple and fast templating system, described in the related
-module, L<runtime/parrot/library/Crow.pir>.
+module, F<runtime/parrot/library/Crow.pir>.
=head1 SYNOPSIS
@@ -23,7 +23,7 @@
.sub 'main' :main
.param pmc args
- load_bytecode 'Crow.pir' # TODO s/pir/pbc/
+ load_bytecode 'Crow'
.local pmc exports, curr_namespace, test_namespace
curr_namespace = get_namespace
@@ -73,7 +73,7 @@
.sub 'get_json'
.param string filename
- load_bytecode 'Config/JSON.pir'
+ load_bytecode 'Config/JSON'
.local pmc exports, curr_namespace, test_namespace
curr_namespace = get_namespace
-
[svn:parrot] r34933 - in branches/pdd30install_stage3: examples/library examples/opengl examples/pir examples/sdl examples/sdl/lcd examples/sdl/minesweeper examples/sdl/tetris examples/streams examples/tutorial languages/dotnet/src languages/lua/src/lib l
by rurban