Consolidated PR to unbitrot Imlib2

.travis.yml

@@ -0,0 +1,16 @@
+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-panda
+  - panda installdeps .

Build.pm

@@ -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,13 @@
+{
+	"perl" : "6.*",
+	"name" : "Imlib2",
+	"license" : "Artistic-2.0",
+	"version" : "0.0.1",
+	"description" : "Perl 6 interface to the Imlib2 image library.",
+	"provides" : { "Imlib2": "lib/Imlib2.pm" },
+	"authors" : ["Henrique Dias"],
+	"perl" : "6.c",
+	"depends" : [ "LibraryMake" ],
+	"source-type" : "git",
+	"source-url" : "git://github.com/hankache/perl6-Imlib2.git"
+}

README.md

@@ -1,64 +1,63 @@
-perl6-Imlib2
+Perl 6 Imlib2 ![Imlib2 Logo](logotype/logo_32x32.png)
 ============
-
-![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.  
+Perl 6 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.
-
-	panda update
-	panda install Imlib2
+To install with Zef:
 
-To run a sample script that uses the Imlib2 library.
+	zef update
+	zef install Imlib2
 
-	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.
+WARNING: This module is Work in Progress, which means: this interface is not final. This will perhaps change in the future.
 
-	use Imlib2;
+Below is a sample code:
 
-	my $im = Imlib2.new();
-	# Create a new raw image.
-	my $rawimage = $im.create_image(200, 200);
-	exit() unless $rawimage;
+```Perl6
+use Imlib2;
 
-	# Sets the current image Imlib2 will be using with its function calls.
-	$rawimage.context_set();
+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);
+# 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");
+$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();
+# Frees the image that is set as the current image in Imlib2's context. 
+$im.free_image();
 
-	exit();
+exit();
+```
 
 Author
 ------
@@ -73,7 +72,7 @@ See Also
 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 Perl 6 itself.
 
 [1]: lib/Imlib2.pod "Imlib2 Perl6 Module Documentation"
 [2]: http://docs.enlightenment.org/api/imlib2/html/ "Imlib2 Library Documentation"

examples/adjust.p6

@@ -1,7 +1,5 @@
 #!/usr/bin/env perl6
 
-BEGIN { @*INC.push('../lib') };
-
 use Imlib2;
 
 say "Select a parameter to adjust";
@@ -79,7 +77,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

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

examples/blur.p6

@@ -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

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

examples/circumference.p6

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

examples/clone_image.p6

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

examples/color_modifier.p6

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

examples/color_range.p6

@@ -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

@@ -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

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

examples/draw_pixel.p6

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

examples/ellipse.p6

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

examples/export_image.p6

@@ -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

@@ -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

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

examples/imlib2.p6

@@ -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();

examples/koch_curve.p6

@@ -1,6 +1,4 @@
-#!/usr/bin/env perl6
-
-BEGIN { @*INC.push('../lib') };
+use Imlib2;
 
 my $x0 = 0;
 my $y0 = 0;
@@ -10,7 +8,6 @@ my $recursions = 6;
 my $width = 600;
 my $height = ($width/3).Int;
 
-use Imlib2;
 
 my $im = Imlib2.new();
 my $newimage = $im.create_image($width, $height);
@@ -23,7 +20,7 @@ $im.image_draw_rectangle(
 	location => (0, 0),
 	size     => ($width, $height),
 	fill     => True);
-	
+
 my $polygon = $im.polygon_new();
 exit() unless $polygon;
 
@@ -56,7 +53,7 @@ sub begin($x, $y) {
 sub from360($angle360) {
 	return pi * $angle360/180;
 }
- 
+
 sub right($angle360) {
 	$direction360 -= $angle360;
 }
@@ -84,4 +81,3 @@ sub kock_curve($length, $depth) {
 		kock_curve($length/3, $depth - 1);
 	}
 }
-