Initial commit, AppImages for Rakudo Star

build-appimage.sh

@@ -0,0 +1,17 @@
+#!/usr/bin/env bash
+sudo -p mkdir /rsu
+sudo chown $(whoami):$(whoami) /rsu || exit
+#cd /rsu
+tar -xf rakudo-star-*.tar.gz || exit
+cd rakudo-star* || exit
+perl ./Configure.pl --prefix="/rsu" --backends=moar --gen-moar || exit
+make || exit
+make install || exit
+cd /rsu || exit
+find . -type f | xargs -I '{}' sed -i -e 's|/rsu|././|g' '{}'
+mkdir -p usr
+mv * ./usr
+echo "Now you need to fix usr/bin/perl6 script"
+
+APP=perl6
+ID=org.perl6.rakudo

org.perl6.rakudo.appdata.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<component type="desktop">
+  <id>org.perl6.rakudo.desktop</id>
+  <name>perl6</name>
+  <summary>Perl 6 is a dynamic programming language for the future</summary>
+  <developer_name>Perl 6</developer_name>
+  <description>
+  <p>
+   A programming language. words words words wordswords words words wordswords words words words
+  </p>
+  <p>
+   This should a second paragraph.
+  </p>
+</description>
+  <metadata_license>MIT</metadata_license>
+  <project_license>Artistic-2.0</project_license>
+  ​<mimetypes>
+​    <mimetype>text/perl6</mimetype>
+  </mimetypes>
+  <url type="bugtracker">http://rt.perl.org</url>
+  <url type="donation">XXX: http://www.homepage.com/donation.html</url>
+  <url type="faq">XXX: http://www.homepage.com/faq.html</url>
+  <url type="help">XXX: http://www.homepage.com/docs/</url>
+  <url type="homepage">XXX: http://www.homepage.com/</url>
+  <update_contact>XXX: [email protected]</update_contact>
+</component>

org.perl6.rakudo.desktop

@@ -0,0 +1,6 @@
+[Desktop Entry]
+Name=org.perl6.rakudo
+Icon=perl6
+Exec=perl6
+Categories=Programming;
+Comment=Programming Language designed for the future

perl6

@@ -0,0 +1,31 @@
+#!/usr/bin/env bash
+#Get the directory you ran the script from
+IMAGE_PWD="$(pwd)"
+cd "$OWD"
+i=$(($#-1))
+function argv {
+    for a in ${BASH_ARGV[*]} ; do
+      arg="$a"
+      if [ "$APPIMAGE_DEBUG" ]; then echo $i; fi
+      first_letter=$(printf %.1s "$arg")
+      if [ $first_letter != '-' ]; then
+        arg=$(readlink -f "$arg")
+      fi
+      NEWARGS[$i]="$arg"
+      i=$((i-1))
+    done
+}
+argv
+function debug {
+  for a in ${NEWARGS[*]} ; do
+    echo $a
+  done
+}
+if [ "$APPIMAGE_DEBUG" ]; then debug; fi
+
+cd "$IMAGE_PWD"
+exec ./bin/moar  --execname="$APPIMAGE" --libpath="././share/nqp/lib" --libpath="././share/nqp/lib" \
+--libpath="././share/perl6/lib" \
+--libpath="././share/perl6/runtime" \
+././share/perl6/runtime/perl6.moarvm \
+"${NEWARGS[@]}"