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

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

From:
bernhard
Date:
December 22, 2008 03:57
Subject:
[svn:parrot] r34240 - trunk/languages/pipp/t/embed
Message ID:
20081222115703.B8503CBA12@x12.develooper.com
Author: bernhard
Date: Mon Dec 22 03:57:01 2008
New Revision: 34240

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

Log:
Add examples on how to find 'no_args'.


Modified: trunk/languages/pipp/t/embed/eval.t
==============================================================================
--- trunk/languages/pipp/t/embed/eval.t	(original)
+++ trunk/languages/pipp/t/embed/eval.t	Mon Dec 22 03:57:01 2008
@@ -30,7 +30,7 @@
     # find sub 'eval_string'
     .local pmc eval_sub, no_args_sub
     .local int ret
-    eval_sub = get_hll_global [ 'Pipp' ], 'eval'
+    eval_sub = get_root_global [ 'parrot'; 'Pipp' ], 'eval'
     # call it with TAP diagnostics
     eval_sub("# only sea, not islands\n")
 
@@ -40,6 +40,17 @@
     # call it from here
     no_args_sub = get_hll_global '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
 
 # Local Variables:



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