develooper Front page | perl.cvs.parrot | Postings from November 2008

[svn:parrot] r33341 - in trunk/languages/pipp: src/pct t/php

From:
bernhard
Date:
November 29, 2008 05:56
Subject:
[svn:parrot] r33341 - in trunk/languages/pipp: src/pct t/php
Message ID:
20081129135559.106A0CB9AF@x12.develooper.com
Author: bernhard
Date: Sat Nov 29 05:55:58 2008
New Revision: 33341

Modified:
   trunk/languages/pipp/src/pct/grammar.pg
   trunk/languages/pipp/t/php/type.t

Log:
[Pipp] tRue and fALSe are case insensitive
Jimmy++


Modified: trunk/languages/pipp/src/pct/grammar.pg
==============================================================================
--- trunk/languages/pipp/src/pct/grammar.pg	(original)
+++ trunk/languages/pipp/src/pct/grammar.pg	Sat Nov 29 05:55:58 2008
@@ -266,12 +266,12 @@
 }
 
 token TRUE {
-    'TRUE'
+    [:i 'TRUE' ]
     {*}
 }
 
 token FALSE {
-    'FALSE'
+    [:i 'FALSE']
     {*}
 }
 

Modified: trunk/languages/pipp/t/php/type.t
==============================================================================
--- trunk/languages/pipp/t/php/type.t	(original)
+++ trunk/languages/pipp/t/php/type.t	Sat Nov 29 05:55:58 2008
@@ -29,6 +29,10 @@
 language_output_is( 'Pipp', <<'CODE', <<'OUT', 'floatval()' );
 <?php
   echo floatval(TRUE), "\n";
+  echo floatval(tRUE), "\n";
+  echo floatval(TrUE), "\n";
+  echo floatval(tRue), "\n";
+  echo floatval(true), "\n";
   echo floatval(NULL), "\n";
   echo floatval(3), "\n";
   echo floatval('3.14'), "\n";
@@ -38,6 +42,10 @@
 ?>
 CODE
 1
+1
+1
+1
+1
 0
 3
 3.14



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