Author: coke
Date: Mon Jun 11 06:46:57 2007
New Revision: 18927
Added:
trunk/languages/perl6/src/pmc/perl6bool.pmc
Modified:
trunk/ (props changed)
trunk/MANIFEST
trunk/languages/perl6/config/makefiles/root.in
Log:
add placeholder Bool
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Mon Jun 11 06:46:57 2007
@@ -1691,6 +1691,7 @@
languages/perl6/src/parser/grammar_rules.pg [perl6]
languages/perl6/src/parser/quote.pir [perl6]
languages/perl6/src/parser/regex.pir [perl6]
+languages/perl6/src/pmc/perl6bool.pmc [perl6]
languages/perl6/src/pmc/perl6str.pmc [perl6]
languages/perl6/t/00-parrot/01-literals.t [perl6]
languages/perl6/t/00-parrot/02-op-math.t [perl6]
Modified: trunk/languages/perl6/config/makefiles/root.in
==============================================================================
--- trunk/languages/perl6/config/makefiles/root.in (original)
+++ trunk/languages/perl6/config/makefiles/root.in Mon Jun 11 06:46:57 2007
@@ -48,7 +48,7 @@
src/classes/Num.pir \
src/classes/Str.pir
-PMCS = perl6str
+PMCS = perl6str perl6bool
PMC_SOURCES = $(PMCDIR)/perl6str.pmc
# the default target
Added: trunk/languages/perl6/src/pmc/perl6bool.pmc
==============================================================================
--- (empty file)
+++ trunk/languages/perl6/src/pmc/perl6bool.pmc Mon Jun 11 06:46:57 2007
@@ -0,0 +1,49 @@
+/*
+Copyright (C) 2007, The Perl Foundation.
+
+=head1 NAME
+
+src/pmc/perl6bool.pmc - Perl 6 Booleans
+
+=head1 DESCRIPTION
+
+C<Perl6Bool> extends C<Boolean> to provide Perl6-specific
+boolean behavior.
+
+=head2 Methods
+
+=over 4
+
+=cut
+
+*/
+
+pmclass Perl6Bool
+ extends Boolean
+ does boolean
+ dynpmc
+ group perl6_group
+ hll Perl6
+ maps Boolean {
+
+ METHOD STRING* WHAT() {
+ return string_from_const_cstring(INTERP, "Bool", 4);
+ }
+
+}
+
+/*
+
+=back
+
+=cut
+
+*/
+
+
+/*
+ * Local variables:
+ * c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
