The parrot packages with libparrot0 and libparrot-devel,
plus parrot-perl6 and parrot-languages are updated to 0.7.0-1
for the Cygwin distribution.
This release fixes some minor issues with the languages,
m4 was removed. pipp, tcl, forth and pheme do not work.
Parrot is a virtual machine designed to efficiently compile and
execute bytecode for interpreted languages.
Parrot is a target for the upcoming Perl 6 and a lot of other
languages.
Canonical homepage:
http://www.parrotcode.org/
The Parrot wiki is at http://www.perlfoundation.org/parrot/
Packaging Details:
----- version parrot-0.7.0-1 -----
* added parrot_exists_check to .cygport. Already installed parrot
still not supported, despite my #39742 patch
* other minor .cygport improvements: export PATH in seperate
lines to fix check
* new patches:
[perl #39742] [BUG] installed conflict
[perl #58034] [TODO] config_args
[perl #56996] [TODO] FHS runtime paths
* enhanced patch:
[perl #56554] [TODO] make install -C languages
* upstream fixed patches:
[perl #56544] [PATCH] install_files.pl
[perl #56998] [TODO] rename cygwin dll to
cygparrot$MAJOR_$MINOR_$PATCH.dll
[perl #57006] [PATCH] add cygwin opengl config quirks
[perl #57296] [TODO] make install -C languages
Patches at
http://code.google.com/p/cygwin-rurban/source/browse/trunk/release/parrot/
From: Vasily Chekalkin (via RT) <parrotbug-followup@parrotcode.org>
X-Virus-Check-By: mailtest2.pair.com
X-Spam-Check-By: mailtest2.pair.com
X-Spam-Status: No, hits=-10.6 required=4.0 tests=BAYES_00,RCVD_IN_DNSWL_HI
autolearn=ham version=3.002004
X-Spam-Flag: NO
X-Spam-Level:
X-Spam-Filtered: 052f96e22adcb440ba93d277d4a1272f
Mailing-List: contact perl6-all-help@perl.org; run by ezmlm
Precedence: bulk
List-Post: <mailto:perl6-all@perl.org>
List-Help: <mailto:perl6-all-help@perl.org>
List-Unsubscribe: <mailto:perl6-all-unsubscribe@perl.org>
List-Subscribe: <mailto:perl6-all-subscribe@perl.org>
List-Id: <perl6-all.perl.org>
Delivered-To: mailing list perl6-all@perl.org
Delivered-To: perl6-all-poster@perl.org
X-Mailing-List: contact perl6-internals-help@perl.org; run by ezmlm
X-Mailing-List-Name: perl6-internals
List-Id: <perl6-internals.perl.org>
Delivered-To: mailing list perl6-internals@perl.org
Delivered-To: moderator for perl6-internals@perl.org
Delivered-To: perl6-internals@perl.org
Resent-Date: Sun, 24 Aug 2008 03:59:17 -0700
Resent-From: rt-bacek=bacek.com@netlabs.develooper.com
Resent-Message-Id: <200808241059.m7OAxHbZ021527@x17.develooper.com>
X-Authentication-Warning: x17.develooper.com: rt set sender to
rt-bacek=bacek.com@rt.perl.org using -f
X-RT-NewTicket: yes
To: bugs-bitbucket@netlabs.develooper.com
Resent-To: perl6-internals@perl.org
Mail-Followup-To: perl6-internals@perl.org
Reply-To: perl6-internals@perl.org
Date: Sun, 24 Aug 2008 03:59:15 -0700
Subject: [perl #58308] [PATCH] Implementation fo string_str_rindex and rindex op.
In-Reply-To: <48B13ECC.3030503@bacek.com>
References: <RT-Ticket-58308@perl.org> <48B13ECC.3030503@bacek.com>
Message-ID: <rt-3.6.HEAD-29762-1219575555-146.58308-72-0@perl.org>
X-RT-Loop-Prevention: perl
RT-Ticket: perl #58308
Managed-by: RT 3.6.HEAD (http://www.bestpractical.com/rt/)
RT-Originator: bacek@bacek.com
MIME-Version: 1.0
X-RT-Original-Encoding: utf-8
Content-type: multipart/mixed; boundary="----------=_1219575555-29762-237"
X-Old-Spam-Check-By: la.mx.develooper.com
X-Old-Spam-Status: No, hits=-3.6 required=8.0
tests=BAYES_00,RCVD_IN_DNSWL_LOW
------------=_1219575555-29762-237
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset="utf-8"
# New Ticket Created by Vasily Chekalkin
# Please include the string: [perl #58308]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=58308 >
Hello.
There is almost copy-pasted version of rindex.
--
Bacek.
------------=_1219575555-29762-237
Content-Type: text/x-patch; name="op_rindex.diff"
Content-Disposition: inline; filename="op_rindex.diff"
Content-Transfer-Encoding: 7bit
RT-Attachment: 58308/462842/214130
commit e23d65f77c2e0963d5647a9ccf585c6484c8323b
Author: Vasily Chekalkin <bacek@icebolt.(none)>
Date: Sun Aug 24 20:40:35 2008 +1000
Implement op rindex
diff --git a/src/ops/ops.num b/src/ops/ops.num
index 24e25fb..18329c8 100644
--- a/src/ops/ops.num
+++ b/src/ops/ops.num
@@ -1224,3 +1224,16 @@ stm_commit_ic 1193
stm_wait_ic 1194
stm_abort 1195
stm_depth_i 1196
+rindex_i_s_s 1197
+rindex_i_sc_s 1198
+rindex_i_s_sc 1199
+rindex_i_sc_sc 1200
+rindex_i_s_s_i 1201
+rindex_i_sc_s_i 1202
+rindex_i_s_sc_i 1203
+rindex_i_sc_sc_i 1204
+rindex_i_s_s_ic 1205
+rindex_i_sc_s_ic 1206
+rindex_i_s_sc_ic 1207
+rindex_i_sc_sc_ic 1208
+
diff --git a/src/ops/string.ops b/src/ops/string.ops
index 066186b..bf483cb 100644
--- a/src/ops/string.ops
+++ b/src/ops/string.ops
@@ -273,6 +273,29 @@ inline op index(out INT, in STR, in STR, in INT)
:base_core {
}
+=item B<rindex>(out INT, in STR, in STR)
+
+=item B<rindex>(out INT, in STR, in STR, in INT)
+
+The B<rindex> function searches for a substring within target string, but
+without the wildcard-like behavior of a full regular-expression pattern match.
+It returns the position of the last occurrence of substring $3
+in target string $2 at or after zero-based position $4.
+If $4 is omitted, B<index> starts searching from the beginning of the string.
+The return value is based at "0".
+If the string is null, or the substring is not found or is null,
+B<index> returns "-1".
+
+=cut
+
+inline op rindex(out INT, in STR, in STR) :base_core {
+ $1 = ($2 && $3) ? string_str_rindex(interp, $2, $3, 0) : -1;
+}
+
+inline op rindex(out INT, in STR, in STR, in INT) :base_core {
+ $1 = ($2 && $3) ? string_str_rindex(interp, $2, $3, $4) : -1;
+}
+
=item B<sprintf>(out STR, in STR, invar PMC)
=item B<sprintf>(out PMC, invar PMC, invar PMC)
------------=_1219575555-29762-237
Content-Type: text/x-patch; name="rakudo_str_rindex.diff"
Content-Disposition: inline; filename="rakudo_str_rindex.diff"
Content-Transfer-Encoding: 7bit
RT-Attachment: 58308/462842/214132
commit bbd7144bee1648f4516d61a98b48177b1370fe78
Author: Vasily Chekalkin <bacek@icebolt.(none)>
Date: Sun Aug 24 20:51:41 2008 +1000
Implement rindex
diff --git a/languages/perl6/src/builtins/any-str.pir
b/languages/perl6/src/builtins/any-str.pir
index 77bb24c..84a62c6 100644
--- a/languages/perl6/src/builtins/any-str.pir
+++ b/languages/perl6/src/builtins/any-str.pir
@@ -21,7 +21,7 @@ the size of that file down and to emphasize their generic,
.namespace []
.sub 'onload' :anon :init :load
$P0 = get_hll_namespace ['Any']
- '!EXPORT'('chars index substr', 'from'=>$P0)
+ '!EXPORT'('chars index rindex substr', 'from'=>$P0)
.end
@@ -75,6 +75,44 @@ the size of that file down and to emphasize their generic,
.return ($P0)
.end
+=item rindex()
+
+=cut
+
+.namespace ['Any']
+.sub 'rindex' :method :multi(_)
+ .param string substring
+ .param int pos :optional
+ .param int has_pos :opt_flag
+ .local pmc retv
+
+ if has_pos goto have_pos
+ pos = 0
+ have_pos:
+
+ .local string s
+ s = self
+
+ check_substring:
+ if substring goto substring_search
+ $I0 = length s
+ if pos < $I0 goto done
+ pos = $I0
+ goto done
+
+ substring_search:
+ pos = rindex s, substring, pos
+ if pos < 0 goto fail
+
+ done:
+ $P0 = new 'Int'
+ $P0 = pos
+ .return ($P0)
+
+ fail:
+ $P0 = new 'Failure'
+ .return ($P0)
+.end
=item substr()
=cut
------------=_1219575555-29762-237--
From: Moritz Lenz (via RT) <perl6-bugs-followup@perl.org>
X-Virus-Check-By: mailtest2.pair.com
X-Spam-Check-By: mailtest2.pair.com
X-Spam-Status: No, hits=-10.6 required=4.0 tests=BAYES_00,RCVD_IN_DNSWL_HI
autolearn=ham version=3.002004
X-Spam-Flag: NO
X-Spam-Level:
X-Spam-Filtered: 052f96e22adcb440ba93d277d4a1272f
Mailing-List: contact perl6-all-help@perl.org; run by ezmlm
Precedence: bulk
List-Post: <mailto:perl6-all@perl.org>
List-Help: <mailto:perl6-all-help@perl.org>
List-Unsubscribe: <mailto:perl6-all-unsubscribe@perl.org>
List-Subscribe: <mailto:perl6-all-subscribe@perl.org>
List-Id: <perl6-all.perl.org>
Delivered-To: mailing list perl6-all@perl.org
Delivered-To: perl6-all-poster@perl.org
X-Mailing-List: contact perl6-compiler-help@perl.org; run by ezmlm
X-Mailing-List-Name: perl6-compiler
List-Id: <perl6-compiler.perl.org>
Delivered-To: mailing list perl6-compiler@perl.org
Delivered-To: moderator for perl6-compiler@perl.org
Delivered-To: perl6-compiler@perl.org
Resent-Date: Sun, 24 Aug 2008 05:14:29 -0700
Resent-From: rt-moritz=casella.verplant.org@netlabs.develooper.com
Resent-Message-Id: <200808241214.m7OCET3B029985@x17.develooper.com>
X-Authentication-Warning: x17.develooper.com: rt set sender to
rt-moritz=casella.verplant.org@rt.perl.org using -f
X-RT-NewTicket: yes
To: bugs-bitbucket@netlabs.develooper.com
Resent-To: perl6-compiler@perl.org
Mail-Followup-To: perl6-compiler@perl.org
Reply-To: perl6-compiler@perl.org
Date: Sun, 24 Aug 2008 05:14:26 -0700
Subject: [perl #58312] [BUG] Match object oddities
In-Reply-To: <48B15098.8040501@casella.verplant.org>
References: <RT-Ticket-58312@perl.org> <48B15098.8040501@casella.verplant.org>
Message-ID: <rt-3.6.HEAD-29762-1219580066-1386.58312-82-0@perl.org>
X-RT-Loop-Prevention: perl
RT-Ticket: perl #58312
Managed-by: RT 3.6.HEAD (http://www.bestpractical.com/rt/)
RT-Originator: moritz@casella.verplant.org
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset="utf-8"
X-RT-Original-Encoding: utf-8
X-Old-Spam-Check-By: la.mx.develooper.com
X-Old-Spam-Status: No, hits=-3.6 required=8.0
tests=BAYES_00,RCVD_IN_DNSWL_LOW
# New Ticket Created by Moritz Lenz
# Please include the string: [perl #58312]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=58312 >
Rakudo r30499:
my $str = 'foo <TMPL_VAR NAME=STUFF> <dsadf ';
if ( $str ~~ /'<'/ ) {
say $/.WHAT;
}
Null PMC access in get_string()
current instr.: 'print' pc 13098 (src/gen_builtins.pir:8311)
called from Sub 'say' pc 13120 (src/gen_builtins.pir:8321)
my $str = 'foo <TMPL_VAR NAME=STUFF> <dsadf ';
my @tokens;
if ( $str ~~ /'<'/ ) {
push @tokens, $/;
}
Null PMC access in type()
current instr.: '_block24' pc 282 (EVAL_14:107)
called from Sub '_block11' pc 70 (EVAL_14:29)
--
Moritz Lenz
http://moritz.faui2k3.org/ | http://perl-6.de/
|