[svn:parrot] r40887 - trunk/compilers/nqp/src

tene at svn.parrot.org tene at svn.parrot.org
Mon Aug 31 07:38:59 UTC 2009


Author: tene
Date: Mon Aug 31 07:38:58 2009
New Revision: 40887
URL: https://trac.parrot.org/parrot/changeset/40887

Log:
[nqp] Initial implementation of eval.

Modified:
   trunk/compilers/nqp/src/builtins.pir

Modified: trunk/compilers/nqp/src/builtins.pir
==============================================================================
--- trunk/compilers/nqp/src/builtins.pir	Mon Aug 31 06:35:38 2009	(r40886)
+++ trunk/compilers/nqp/src/builtins.pir	Mon Aug 31 07:38:58 2009	(r40887)
@@ -129,6 +129,24 @@
     .return ()
 .end
 
+=item C<eval(lang,code)>
+
+=cut
+
+.sub 'eval'
+    .param string text
+    .param string lang
+    .local pmc c, code
+    lang = downcase lang
+    load_language lang
+    c = compreg lang
+    print 'evaling in language: '
+    say lang
+    code = c.'compile'(text)
+    $P0 = code()
+    .return ($P0)
+.end
+
 =back
 
 =cut


More information about the parrot-commits mailing list