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

[svn:parrot] r34199 - in trunk: . languages/pipp/src/common languages/pipp/t/embed

From:
bernhard
Date:
December 21, 2008 06:11
Subject:
[svn:parrot] r34199 - in trunk: . languages/pipp/src/common languages/pipp/t/embed
Message ID:
20081221141115.EEB61CBA12@x12.develooper.com
Author: bernhard
Date: Sun Dec 21 06:11:14 2008
New Revision: 34199

Added:
   trunk/languages/pipp/t/embed/eval.t   (contents, props changed)
      - copied, changed from r34196, /trunk/languages/pipp/t/embed/eval_string.t
Removed:
   trunk/languages/pipp/t/embed/eval_string.t
Modified:
   trunk/MANIFEST
   trunk/languages/pipp/src/common/eval.pir
   trunk/languages/pipp/src/common/pipp.pir

Log:
[Pipp] Rename 'eval_string' to 'eval' and move the function into eval.pir.


Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	(original)
+++ trunk/MANIFEST	Sun Dec 21 06:11:14 2008
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Dec 21 12:24:07 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Dec 21 14:10:12 2008 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -2365,7 +2365,7 @@
 languages/pipp/src/pmc/phpnull.pmc                          [pipp]
 languages/pipp/src/pmc/phpresource.pmc                      [pipp]
 languages/pipp/src/pmc/phpstring.pmc                        [pipp]
-languages/pipp/t/embed/eval_string.t                        [pipp]
+languages/pipp/t/embed/eval.t                               [pipp]
 languages/pipp/t/harness                                    [pipp]
 languages/pipp/t/in_php/01_sea_only.t                       [pipp]
 languages/pipp/t/in_php/02_sanity.t                         [pipp]

Modified: trunk/languages/pipp/src/common/eval.pir
==============================================================================
--- trunk/languages/pipp/src/common/eval.pir	(original)
+++ trunk/languages/pipp/src/common/eval.pir	Sun Dec 21 06:11:14 2008
@@ -7,7 +7,7 @@
 =head1 DESCRIPTION
 
 This file implements methods and functions that evaluate code,
-such as C<include>, C<require>, and C<require>.
+such as C<include>, C<eval>, C<require>, and C<require_once>.
 The code originates from Rakudo's eval.pir.
 
 =head1 Methods
@@ -16,14 +16,17 @@
 
 =cut
 
-.namespace []
-.sub 'onload' :anon :init :load
-    $P0 = get_hll_namespace ['Any']
-    '!EXPORT'('evalfile', 'from'=>$P0)
+.namespace [ 'Pipp' ]
+
+.sub 'eval'
+
+   say '# eval() was called'
+
+   .return (1)
 .end
 
+.namespace []
 
-.namespace ['Any']
 .sub 'evalfile' :method :multi(_)
     .param pmc options         :slurpy :named
 

Modified: trunk/languages/pipp/src/common/pipp.pir
==============================================================================
--- trunk/languages/pipp/src/common/pipp.pir	(original)
+++ trunk/languages/pipp/src/common/pipp.pir	Sun Dec 21 06:11:14 2008
@@ -92,14 +92,6 @@
 
 .end
 
-# TODO: call 'pipp'
-.sub 'eval_string'
-
-   say '# eval_string() was called'
-
-   .return (1)
-.end
-
 .sub 'pipp' :main
     .param pmc argv
 

Copied: trunk/languages/pipp/t/embed/eval.t (from r34196, /trunk/languages/pipp/t/embed/eval_string.t)
==============================================================================
--- /trunk/languages/pipp/t/embed/eval_string.t	(original)
+++ trunk/languages/pipp/t/embed/eval.t	Sun Dec 21 06:11:14 2008
@@ -3,7 +3,7 @@
 
 =head1 NAME
 
-t/embed/eval_string.t - Testing the PhpNull PMC
+t/embed/eval.t - Testing the sub 'eval'.
 
 =head1 SYNOPSIS
 
@@ -11,7 +11,7 @@
 
 =head1 DESCRIPTION
 
-Tests the sub 'eval_string' used for supporting embedding Pipp in other applications.
+Tests the sub 'eval' used for supporting embedding Pipp in other applications.
 
 =cut
 
@@ -28,11 +28,11 @@
     ok( 1, 'no tests implemented yet')
     # TODO:
     # find sub 'eval_string'
-    .local pmc eval_string_sub
+    .local pmc eval_sub
     .local int ret
-    eval_string_sub = get_hll_global [ 'Pipp' ], 'eval_string'
+    eval_sub = get_hll_global [ 'Pipp' ], 'eval'
     # call it with test output
-    eval_string_sub()
+    eval_sub()
 
     # define a function
     # call it from here



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