This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ git diff | |
diff --git a/src/core/Baggy.pm b/src/core/Baggy.pm | |
index 060b74f..56110d5 100644 | |
--- a/src/core/Baggy.pm | |
+++ b/src/core/Baggy.pm | |
@@ -99,7 +99,7 @@ my role Baggy does QuantHash { | |
proto method grab(|) { * } | |
multi method grab(Baggy:D:) { | |
- my \grabbed := ROLLPICKGRAB1(self,%!elems.values); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/src/io/fileops.c b/src/io/fileops.c | |
index 309d1be..873ca8c 100644 | |
--- a/src/io/fileops.c | |
+++ b/src/io/fileops.c | |
@@ -440,3 +440,14 @@ void MVM_file_symlink(MVMThreadContext *tc, MVMString *oldpath, MVMString *newpa | |
MVM_free(oldpath_s); | |
MVM_free(newpath_s); | |
} | |
+ | |
+MVMString * MVM_file_readlink(MVMThreadContext *tc, MVMString *path) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
LizyPro-2:rakudo.parrot liz$ make test | |
/usr/local/bin/perl t/harness t/00-parrot t/01-sanity t/04-nativecall | |
t/01-sanity/03-op-logic.t ............ ok | |
t/01-sanity/02-op-math.t ............. ok | |
t/01-sanity/01-literals.t ............ ok | |
t/01-sanity/05-var.t ................. ok | |
t/01-sanity/04-op-cmp.t .............. ok | |
t/01-sanity/07-op-string.t ........... ok | |
t/00-parrot/09-pir.t ................. ok | |
t/01-sanity/06-op-inplace.t .......... ok |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
LizyPro-2:rakudo.jvm liz$ make test | |
/usr/local/bin/perl t/harness --jvm t/01-sanity | |
t/01-sanity/01-literals.t ............ ok | |
t/01-sanity/02-op-math.t ............. ok | |
t/01-sanity/03-op-logic.t ............ ok | |
t/01-sanity/04-op-cmp.t .............. ok | |
t/01-sanity/05-var.t ................. ok | |
t/01-sanity/06-op-inplace.t .......... ok | |
t/01-sanity/07-op-string.t ........... ok | |
t/01-sanity/08-var-array.t ........... ok |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ cat `which perl6-j` | |
#!/bin/sh | |
exec java -noverify -Xms100m -Xbootclasspath/a:/Users/liz/Github/rakudo.jvm/install/languages/nqp/runtime/asm-4.1.jar:/Users/liz/Github/rakudo.jvm/install/languages/nqp/runtime/asm-tree-4.1.jar:/Users/liz/Github/rakudo.jvm/install/languages/nqp/runtime/jline-1.0.jar:/Users/liz/Github/rakudo.jvm/install/languages/nqp/runtime/jna.jar:/Users/liz/Github/rakudo.jvm/install/languages/nqp/runtime/nqp-runtime.jar:/Users/liz/Github/rakudo.jvm/install/languages/nqp/lib/nqp.jar:/Users/liz/Github/rakudo.jvm/install/languages/perl6/runtime/rakudo-runtime.jar:/Users/liz/Github/rakudo.jvm/install/languages/perl6/runtime/perl6.jar -cp $CLASSPATH:/Users/liz/Github/rakudo.jvm/install/languages/perl6/runtime:/Users/liz/Github/rakudo.jvm/install/languages/perl6/lib:/Users/liz/Github/rakudo.jvm/install/languages/nqp/lib -Dperl6.prefix=/Users/liz/Github/rakudo.jvm/install -Dperl6.execname="$0" -Djna.library.path=/Users/liz/Github/rakudo.jvm perl6 "$@" | |
$ perl6-j t/04-nativecall/01-argless.t | |
1..3 | |
jav |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/src/core/Str.pm b/src/core/Str.pm | |
index 0cb832a..57bf2cf 100644 | |
--- a/src/core/Str.pm | |
+++ b/src/core/Str.pm | |
@@ -1556,64 +1556,79 @@ sub chrs(*@c) returns Str:D { | |
@c.map({.chr}).join; | |
} | |
-sub substr(Str() \what, \from, $chars?) { | |
- my str $str = nqp::unbox_s(what); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Proof-of-concept: | |
The substr-fields() sub creates fields in a string, and allows indexed access to those fields, increasing / shrinking the fields as appropriate if they're changed. | |
The first parameter is the string on which to operate. | |
THe other parameters are from/chars pairs, just like you would use them in a substr(). In this implementation, there are no checks on validity of parameters passed: they must all be in ascending order and not overlap. | |
Comments welcome! |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/src/core/Inc.pm b/src/core/Inc.pm | |
index 3d6f07f..5b246f4 100644 | |
--- a/src/core/Inc.pm | |
+++ b/src/core/Inc.pm | |
@@ -1,4 +1,4 @@ | |
-{ | |
+sub INIT-INC-CUSTOM_LIB($inc) { | |
my @INC; | |
my %CUSTOM_LIB; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Thoughts on loading modules: | |
- @*INC is dead, longe live @?INC **** IMPLEMENTED *** | |
The places to look for loadable modules, are a *compile time* setting, so it | |
should be set at compile time. Hence it should be called @?INC. | |
- use lib is a lexical pragma *** IMPLEMENTED as "cur" atm **** | |
At the moment, use lib just sets @*INC and therefore has action at a distance | |
effects. Now that we have a lexical pragma framework (under the hood), I can | |
make "lib" truly lexical. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/src/core/List.pm b/src/core/List.pm | |
index 17bf04b..5d3cc5f 100644 | |
--- a/src/core/List.pm | |
+++ b/src/core/List.pm | |
@@ -563,15 +563,23 @@ my class List does Positional { # declared in BOOTSTRAP | |
} | |
method rotor(*@cycle, :$partial) { | |
- my $finished = 0; | |
+ |