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

[svn:parrot] r34270 - trunk/languages/pipp/t/embed

From:
bernhard
Date:
December 23, 2008 01:57
Subject:
[svn:parrot] r34270 - trunk/languages/pipp/t/embed
Message ID:
20081223095740.01D82CBA12@x12.develooper.com
Author: bernhard
Date: Tue Dec 23 01:57:39 2008
New Revision: 34270

Modified:
   trunk/languages/pipp/t/embed/eval.t

Log:
[Pipp] Reenable example with function lookup.


Modified: trunk/languages/pipp/t/embed/eval.t
==============================================================================
--- trunk/languages/pipp/t/embed/eval.t	(original)
+++ trunk/languages/pipp/t/embed/eval.t	Tue Dec 23 01:57:39 2008
@@ -26,29 +26,24 @@
     plan(1)
 
     ok( 1, 'no tests implemented yet')
-    # TODO:
+
     # find sub 'eval_string'
-    #.local pmc eval_sub, no_args_sub
-    #.local int ret
-    #eval_sub = get_root_global ['pipp'], 'eval'
+    .local pmc eval_sub, no_args_sub
+    .local int ret
+    eval_sub = get_root_global ['pipp'], 'eval'
     # call it with TAP diagnostics
-    #eval_sub("# only sea, not islands\n")
+    eval_sub("# only sea, not islands\n")
 
-    #eval_sub('<?php function no_args () { echo "# no_args was called\n"; } no_args(); ?>')
+    # define a function in Pipp-land
+    eval_sub('<?php function no_args () { echo "# no_args was called\n"; } no_args(); ?>')
 
-    # define a function
-    # call it from here
-    #no_args_sub = get_hll_global 'no_args'
-    #no_args_sub()
+    no_args_sub = get_root_global ['pipp'], 'no_args'
+    no_args_sub()
 
-    #no_args_sub = get_root_global [ 'parrot' ], 'no_args'
-    #no_args_sub()
     # $P3 = get_namespace
     # say $P3
-
     # $P4 = get_hll_namespace
     # say $P4
-
     # $P5 = get_root_namespace
     # say $P5
 .end



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