Post GLR changes

.gitignore

@@ -0,0 +1,4 @@
+.precomp/
+blib/
+Makefile
+*.o

.travis.yml

@@ -0,0 +1,17 @@
+sudo: required
+
+language: perl6
+
+perl6:
+  - latest
+
+before_install:
+  - perl6 -v
+install:
+  - echo $TRAVIS_OS_NAME
+  - if [ "$TRAVIS_OS_NAME" == "linux" ]; then sudo apt-get -qq update               ; fi
+  - if [ "$TRAVIS_OS_NAME" == "linux" ]; then sudo apt-get install -y libimlib2-dev ; fi
+  - if [ "$TRAVIS_OS_NAME" == "linux" ]; then sudo apt-get install screen ; fi
+  - rakudobrew build zef
+  - zef --depsonly install .
+  - zef --debug install .

Build.pm → Build.rakumod

@@ -1,8 +1,6 @@
-use Panda::Common;
-use Panda::Builder;
 use LibraryMake;
 
-class Build is Panda::Builder {
+class Build {
     method build($workdir) {
         shell("mkdir -p $workdir/blib/lib");
         make("$workdir/src", "$workdir/blib/lib");

META6.json

@@ -0,0 +1,12 @@
+{
+	"name" : "Imlib2",
+	"version" : "0.0.3",
+	"description" : "Raku interface to the Imlib2 image library.",
+	"license" : "Artistic-2.0",
+	"provides" : { "Imlib2": "lib/Imlib2.rakumod" },
+	"authors" : ["Naoum Hankache","Henrique Dias"],
+	"perl" : "6.d",
+	"depends" : [ "LibraryMake" ],
+	"source-type" : "git",
+	"source-url" : "git://github.com/hankache/perl6-Imlib2.git"
+}

README.md

@@ -1,80 +1,79 @@
-perl6-Imlib2
+Raku Imlib2 ![Imlib2 Logo](logotype/logo_32x32.png)
 ============
+Raku interface to the Imlib2 image library.
 
-![Imlib2 Logo](logotype/logo_32x32.png)  
-Perl 6 interface to the Imlib2 image library.
+| Operating System  |   Build Status  |
+| ----------------- | --------------- |
+| Linux		    | [![Build Status](https://travis-ci.org/hankache/perl6-Imlib2.svg?branch=master)](https://travis-ci.org/hankache/perl6-Imlib2)  |
 
 Description
 -----------
-Perl6 binding for [Imlib2][2], a featureful and efficient image manipulation library, which produces high quality, anti-aliased output.  
+Raku binding for [Imlib2][2], a featureful and efficient image manipulation library, which produces high quality, anti-aliased output.  
 
 Installation
 ------------
 Note that a recent version of [Imlib2][3] library must be installed before installing this module.
 
-To install with the Panda tool.
+To install with zef:
 
-	panda update
-	panda install Imlib2
+	zef update
+	zef install Imlib2
 
-To run a sample script that uses the Imlib2 library.
-
-	git clone git://github.com/mrhdias/perl6-Imlib2.git
-	cd perl6-Imlib2/examples
-	PERL6LIB=$HOME/.perl6/2013.02.1/lib LD_LIBRARY_PATH=$HOME/.perl6/2013.02.1/lib ./imlib2.p6
 
 Synopsis
 --------
-WARNING: This module is Work in Progress, which means: this interface is not final. This will perhaps change in the future.  
-A sample of the code can be seen below.
-
-	use Imlib2;
-
-	my $im = Imlib2.new();
-	# Create a new raw image.
-	my $rawimage = $im.create_image(200, 200);
-	exit() unless $rawimage;
-
-	# Sets the current image Imlib2 will be using with its function calls.
-	$rawimage.context_set();
-
-	# Sets the color with which text, lines and rectangles are drawn when
-	# being rendered onto an image.
-	$im.context_set_color(
-		red   => 255,
-		green => 127,
-		blue  => 0,
-		alpha => 255);
-
-	$im.image_draw_rectangle(
-		location => (0, 0),
-		size     => (200, 200),
-		fill     => True);
-
-	$im.image_set_format("png");
-	unlink("images/test_imlib2.png") if "images/test_imlib2.png".IO ~~ :e;
-	$im.save_image("images/test_imlib2.png");
-
-	# Frees the image that is set as the current image in Imlib2's context. 
-	$im.free_image();
-
-	exit();
+WARNING: This module is Work in Progress, which means: this interface is not final. This will perhaps change in the future.
+
+Below is a sample code:
+
+```Raku
+use Imlib2;
+
+my $im = Imlib2.new();
+# Create a new raw image.
+my $rawimage = $im.create_image(200, 200);
+exit() unless $rawimage;
+
+# Sets the current image Imlib2 will be using with its function calls.
+$rawimage.context_set();
+
+# Sets the color with which text, lines and rectangles are drawn when
+# being rendered onto an image.
+$im.context_set_color(
+	red   => 255,
+	green => 127,
+	blue  => 0,
+	alpha => 255);
+
+$im.image_draw_rectangle(
+	location => (0, 0),
+	size     => (200, 200),
+	fill     => True);
+$im.image_set_format("png");
+unlink("images/test_imlib2.png") if "images/test_imlib2.png".IO ~~ :e;
+$im.save_image("images/test_imlib2.png");
+
+# Frees the image that is set as the current image in Imlib2's context.
+$im.free_image();
+
+exit();
+```
 
 Author
 ------
 Henrique Dias <[email protected]>
 
 See Also
 --------
-* [Imlib2 Perl6 Module Documentation][1]  
+* [Imlib2 Raku Module Documentation][1]  
 * [Imlib2 Library Documentation][2]
 * [Imlib2 Source Repository][3]
 
 License
 -------
 
-This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
+This library is free software; you can redistribute it and/or modify it under the same terms as Raku itself.
 
-[1]: lib/Imlib2.pod "Imlib2 Perl6 Module Documentation"
+[1]: lib/Imlib2.pod "Imlib2 Raku Module Documentation"
 [2]: http://docs.enlightenment.org/api/imlib2/html/ "Imlib2 Library Documentation"
 [3]: http://sourceforge.net/projects/enlightenment/files/imlib2-src/

examples/adjust.p6 → examples/adjust.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 say "Select a parameter to adjust";
@@ -79,7 +75,7 @@ $im.image_set_format("png");
 unlink("images/test_adjust.png") if "images/test_adjust.png".IO ~~ :e;
 $im.save_image("images/test_adjust.png");
 
-# Frees the image that is set as the current image in Imlib2's context. 
+# Frees the image that is set as the current image in Imlib2's context.
 $im.free_image();
 
 exit();

examples/blend_image_onto_image.p6 → examples/blend_image_onto_image.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 say "Operations:

examples/blur.p6 → examples/blur.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $radius = prompt("How much value to blur the image? (0..128): ");

examples/border.p6 → examples/border.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();

examples/circumference.p6 → examples/circumference.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();

examples/clone_image.p6 → examples/clone_image.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();

examples/color_modifier.p6 → examples/color_modifier.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();

examples/color_range.p6 → examples/color_range.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();
@@ -18,7 +14,7 @@ my $color_range = $im.create_color_range();
 # Sets the current color range to use for rendering gradients.
 $color_range.context_set();
 
-# Returns the current color range being used for gradients. 
+# Returns the current color range being used for gradients.
 say "Yes I'm a color range." if $im.context_get_color_range();
 
 $im.context_set_color(

examples/create_transparent_image.p6 → examples/create_transparent_image.raku

@@ -1,10 +1,3 @@
-#!/usr/bin/env perl6
-#
-# Note: the perl6 implementation is very slow...
-#
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 say "Create transparent image function implementations:";
@@ -48,13 +41,13 @@ sub create_transparent_image($source_image, $new_alpha) {
 	$source_image.context_set();
 	my $width = $im.image_get_width();
 	my $height = $im.image_get_height();
-	
+
 	my $dest_image = $im.create_image($width, $height);
 	exit() unless $dest_image;
 	$dest_image.context_set();
 	$im.image_clear();
 	$im.image_set_has_alpha(True);
-	
+
 	my ($red, $green, $blue, $alpha) = (0, 0, 0, 0);
 	loop (my $y = 0; $y < $height; $y++) {
 		loop (my $x = 0; $x < $width; $x++)  {

examples/draw_lines.p6 → examples/draw_lines.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();

examples/draw_pixel.p6 → examples/draw_pixel.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();

examples/ellipse.p6 → examples/ellipse.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();

examples/export_image.p6 → examples/export_image.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 if @*ARGS.elems != 2 {
@@ -39,7 +35,7 @@ if @*ARGS[0].IO ~~ :e {
 
 $im.save_image(@*ARGS[0]);
 
-# Frees the image that is set as the current image in Imlib2's context. 
+# Frees the image that is set as the current image in Imlib2's context.
 $im.free_image();
 
 exit();

examples/font.p6 → examples/font.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();
@@ -76,7 +72,7 @@ $im.image_set_format("png");
 unlink("images/test_font.png") if "images/test_font.png".IO ~~ :e;
 $im.save_image("images/test_font.png");
 
-# Frees the image that is set as the current image in Imlib2's context. 
+# Frees the image that is set as the current image in Imlib2's context.
 $im.free_image();
 
 exit();

examples/image_modification.p6 → examples/image_modification.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();

examples/imlib2.p6 → examples/imlib2.raku

@@ -1,7 +1,3 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 my $im = Imlib2.new();
@@ -72,7 +68,7 @@ $im.image_set_format("png");
 unlink("images/test_imlib2.png") if "images/test_imlib2.png".IO ~~ :e;
 $im.save_image("images/test_imlib2.png");
 
-# Frees the image that is set as the current image in Imlib2's context. 
+# Frees the image that is set as the current image in Imlib2's context.
 $im.free_image();
 
 exit();