Skip to content

Instantly share code, notes, and snippets.

View Mouq's full-sized avatar

Alexander Moquin Mouq

5 followers · 36 following
View GitHub Profile
@Mouq
Mouq / things-TODO.pod6
Last active August 29, 2015 13:56
=begin pod
=TITLE Things Rakudo Should Be Able to Do or Ought to Have
My personal TODO list, things that other people haven't already picked up to work on
=begin item
Ecosystem stuff
=item Slang::Indent
@Mouq
Mouq / doc.diff
Last active August 29, 2015 13:56
diff --git a/type-graph.txt b/type-graph.txt
index 0c56466..077dd24 100644
--- a/type-graph.txt
+++ b/type-graph.txt
@@ -152,11 +152,6 @@ role TypedArray[::TValue] does Positional[TValue]
# Collections: Associative
role Associative[::T = Mu]
-role Baggy
-class Bag is Iterable does Associative does Baggy
@Mouq
Mouq / chinese-math.p6
Last active August 29, 2015 13:56
use v6;
# Partial solution to https://codegolf.stackexchange.com/questions/20957
enum 数 <零 一 二 三 四 五 六 七 八 九 十>;
sub infix:<加> (\第一, \第二) { 第一 + 第二 }
sub infix:<减> (\第一, \第二) { 第一 - 第二 }
sub infix:<乘以> (\第一, \第二) { 第一 * 第二 }
sub infix:<除以> (\第一, \第二) { 第一 / 第二 }
sub infix:<等于> (\第一, \第二) { 第一 == 第二 }
@Mouq
Mouq / gist:8965104
Created February 12, 2014 21:41
class RT61918 {
has $.inst is rw;
has $!priv is rw;
has $.string = 'krach';
method init {
$.inst = [ rand, rand ];
$!priv = [ rand, rand ].perl;
}
}
@Mouq
Mouq / gist:8950902
Last active August 29, 2015 13:56 — forked from anonymous/gist:8928045
say("+123.456e10" ~~ /
:my token SIGN { <[+-]> }
:my token MANTISSA { \d+ '.'? \d* | '.' \d+ }
:my token EXPONENT { <[eE]> <SIGN>? \d+ }
<SIGN>? <MANTISSA> <EXPONENT>?
/)
# ∂
@Mouq
Mouq / Makefile
Last active January 4, 2016 11:29
# Makefile code generated by Configure.pl:
all: j-all m-all m-runner-default
install: j-install m-install m-runner-default-install
clean: j-clean m-clean
test: j-test m-test
spectest: j-spectest m-spectest
coretest: j-coretest m-coretest
# Generated from tools/build/Makefile-common.in
# Copyright (C) 2006-2013, The Perl Foundation.
@Mouq
Mouq / feast.p6
Last active January 4, 2016 02:49
use v6;
use MONKEY_TYPING;
augment class Str {
method xml ($name : *@content, *%attrs) {
~ "<$name"~%attrs.kv.map({" $^a='$^b'"}).join~">\n"
~ @content.map(*~"\n").join.indent(4)
~ "</$name>"
}
}
@Mouq
Mouq / gist:8551748
Created January 22, 2014 01:06
diff --git a/src/core/interp.c b/src/core/interp.c
index 5d8f0d5..12f19af 100644
--- a/src/core/interp.c
+++ b/src/core/interp.c
@@ -3234,10 +3234,12 @@ void MVM_interp_run(MVMThreadContext *tc, void (*initial_invoke)(MVMThreadContex
cur_op += 4;
goto NEXT;
OP(getstdin):
+ printf("getstdin error before? %s\n", strerror(errno));
if (!tc->instance->stdin_handle)
@Mouq
Mouq / Moar Errors.md
Last active January 3, 2016 23:18
  • S32-exceptions/misc.rakudo.moar 495 - right exception type (X::Method::NotFound)
  • S32-exceptions/misc.rakudo.moar 532 - right exception type (X::TypeCheck::Binding)
  • S32-exceptions/misc.rakudo.moar 536 - right exception type (X::TypeCheck::Return)
  • S32-exceptions/misc.rakudo.moar 540 - right exception type (X::TypeCheck::Assignment)
  • S32-exceptions/misc.rakudo.moar 545 - right exception type (X::Assignment::RO)
  • S32-exceptions/misc.rakudo.moar 575 - right exception type (X::ControlFlow)
  • S32-exceptions/misc.rakudo.moar 589 - right exception type (X::ControlFlow::Return)
  • S32-exceptions/misc.rakudo.moar 611 - nextsame in proto
@Mouq
Mouq / gist:8259841
Created January 4, 2014 19:54
[amoquin:rakudo]$ perl Configure.pl --backends=moar --prefix=/usr/local [moar-support]
Using /usr/local/bin/nqp-m (version 2013.12.1-8-gcd0db4e / MoarVM 2013.10-280-gd4fc809).
Cleaning up ...
You can now use 'make' to build Rakudo.
After that, 'make test' will run some tests and
'make install' will install Rakudo.
[amoquin:rakudo]$ make install [moar-support]
perl tools/build/gen-cat.pl moar src/vm/moar/ModuleLoaderVMConfig.nqp src/Perl6/ModuleLoader.nqp > src/gen/m-ModuleLoader.nqp
/usr/local/bin/nqp-m --target=mbc --output=blib/Perl6/ModuleLoader.moarvm --encoding=utf8 \