develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35171 - in branches/rvar2/languages/perl6: config/makefiles src/classes

From:
jonathan
Date:
January 7, 2009 11:49
Subject:
[svn:parrot] r35171 - in branches/rvar2/languages/perl6: config/makefiles src/classes
Message ID:
20090107194945.D5102CB9F9@x12.develooper.com
Author: jonathan
Date: Wed Jan  7 11:49:45 2009
New Revision: 35171

Added:
   branches/rvar2/languages/perl6/src/classes/Regex.pir
Modified:
   branches/rvar2/languages/perl6/config/makefiles/root.in

Log:
[rakudo] Pop in a Regex class, so we don't epic fail on S06-multi/type-based.t.

Modified: branches/rvar2/languages/perl6/config/makefiles/root.in
==============================================================================
--- branches/rvar2/languages/perl6/config/makefiles/root.in	(original)
+++ branches/rvar2/languages/perl6/config/makefiles/root.in	Wed Jan  7 11:49:45 2009
@@ -73,6 +73,7 @@
   src/classes/Block.pir \
   src/classes/Routine.pir \
   src/classes/Sub.pir \
+  src/classes/Regex.pir \
   src/classes/Method.pir \
   src/classes/Junction.pir \
   src/classes/Failure.pir \

Added: branches/rvar2/languages/perl6/src/classes/Regex.pir
==============================================================================
--- (empty file)
+++ branches/rvar2/languages/perl6/src/classes/Regex.pir	Wed Jan  7 11:49:45 2009
@@ -0,0 +1,31 @@
+## $Id: $
+
+=head1 TITLE
+
+Regex - Perl 6 Regex class
+
+=head1 DESCRIPTION
+
+This file sets up the Perl 6 C<Regex> class, the class for regexes.
+
+=cut
+
+.namespace ['Regex']
+
+.sub 'onload' :anon :load :init
+    .local pmc p6meta
+    p6meta = get_hll_global ['Perl6Object'], '$!P6META'
+    p6meta.'new_class'('Regex', 'parent'=>'Routine')
+.end
+
+=over 4
+
+=back
+
+=cut
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About