diff --git a/build-appimage.sh b/build-appimage.sh new file mode 100644 index 0000000..1d19c61 --- /dev/null +++ b/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 \ No newline at end of file diff --git a/org.perl6.rakudo.appdata.xml b/org.perl6.rakudo.appdata.xml new file mode 100644 index 0000000..92f0d50 --- /dev/null +++ b/org.perl6.rakudo.appdata.xml @@ -0,0 +1,26 @@ + + + org.perl6.rakudo.desktop + perl6 + Perl 6 is a dynamic programming language for the future + Perl 6 + +

+ A programming language. words words words wordswords words words wordswords words words words +

+

+ This should a second paragraph. +

+
+ MIT + Artistic-2.0 + ​ +​ text/perl6 + + http://rt.perl.org + XXX: http://www.homepage.com/donation.html + XXX: http://www.homepage.com/faq.html + XXX: http://www.homepage.com/docs/ + XXX: http://www.homepage.com/ + XXX: upstream-contact@email.com +
diff --git a/org.perl6.rakudo.desktop b/org.perl6.rakudo.desktop new file mode 100644 index 0000000..91d33d3 --- /dev/null +++ b/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 \ No newline at end of file diff --git a/perl6 b/perl6 new file mode 100755 index 0000000..314afbd --- /dev/null +++ b/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[@]}" diff --git a/perl6.png b/perl6.png new file mode 100644 index 0000000..a239a74 Binary files /dev/null and b/perl6.png differ