[svn:parrot] r36031 - trunk/examples/pir

Author: julianalbo
Date: Mon Jan 26 06:23:23 2009
New Revision: 36031

Modified:
   trunk/examples/pir/interlangs.bas

Log:
[pirric] add pipp to the interlang.bas example

Modified: trunk/examples/pir/interlangs.bas
==============================================================================
--- trunk/examples/pir/interlangs.bas	(original)
+++ trunk/examples/pir/interlangs.bas	Mon Jan 26 06:23:23 2009
@@ -5,13 +5,14 @@
 120 REM + interlangs.bas                                                     +
 130 REM + A test of parrot HLL languages interoperability                    +
 140 REM + from pirric basic interpreter                                      +
-150 REM + First build perl6 and ecmascript                                   +
+150 REM + First build perl6, ecmascript and pipp                             +
 160 REM + Then do:                                                           +
 170 REM + ../../parrot -L /yourparrotdir/languages/perl6                     +
 180 REM +              -L /yourparrotdir/languages/ecamscript                +
-190 REM +               pirric.pir perl6-js.bas                              +
-200 REM +--------------------------------------------------------------------+
-210 REM
+190 REM +              -L /yourparrotdir/languages/pipp                      +
+200 REM +               pirric.pir perl6-js.bas                              +
+210 REM +--------------------------------------------------------------------+
+220 REM
 1000 REM Load languages
 1010 GOSUB 2000
 1020 REM Compile code
@@ -28,31 +29,20 @@
 1320 myfunc= js.myecmascriptfunc
 1330 REM Call the perl6 sub passing the ecmascript function as second argument
 1340 PRINT perl6sub("pirric", myfunc)
+1400 REM Call the perl6 sub passing the pipp function as second argument
+1410 mypippfunc= pipp.phpfunc
+1420 PRINT perl6sub("pirric", mypippfunc)
 1600 REM First the ecmascript function PRINT his message,
 1610 REM then the parrot sub returns a string,
 1620 REM that is printed by pirric.
 1630 REM The output must be:
 1640 REM
-1650 REM Hello from ecmascript
+1650 REM Hello from ecmascript, perl6->pirric
 1660 REM Hello from a perl6 sub, pirric
 1670 REM
+1680 REM Followed by the same with pipp
 1900 REM That's all folks!
 1910 EXIT
-3000 REM
-3010 REM Compile code
-3020 REM
-3100 REM Perl6 code that return an anonymous sub
-3110 ON ERROR GOTO 3900
-3120 perl6block=perl6compiler.compile("sub ($a, $b){$b(); 'Hello from a perl6 sub, ' ~ $a; };")
-3200 REM ecmascript code that defines a function
-3210 ON ERROR GOTO 3920
-3220 jsblock=ecmascriptcompiler.compile("function myecmascriptfunc() { print ('Hello from ecmascript'); }")
-3800 ON ERROR GOTO 0
-3810 RETURN
-3900 PRINT "Error compiling perl6"
-3910 EXIT 1
-3920 PRINT "Error compiling ecmascript"
-3930 EXIT 1
 2000 REM
 2010 REM Load languages
 2020 REM
@@ -62,9 +52,33 @@
 2200 ON ERROR GOTO 2920
 2210 LOAD "js.pbc", b
 2220 ecmascriptcompiler= COMPREG("JS")
+2300 ON ERROR GOTO 2940
+2310 LOAD "pipp.pbc", b
+2320 pippcompiler= COMPREG("Pipp")
 2800 ON ERROR GOTO 0
 2810 RETURN
 2900 PRINT "Can't load perl6"
 2910 EXIT 1
 2920 PRINT "Can't load ecmascript"
 2930 EXIT 1
+2940 PRINT "Can't load pipp"
+2950 EXIT 1
+3000 REM
+3010 REM Compile code
+3020 REM
+3100 REM Perl6 code that return an anonymous sub
+3110 ON ERROR GOTO 3900
+3120 perl6block=perl6compiler.compile("sub ($a, $b){$b('perl6->' ~ $a); 'Hello from a perl6 sub, ' ~ $a; };")
+3200 REM ecmascript code that defines a function
+3210 ON ERROR GOTO 3920
+3220 jsblock=ecmascriptcompiler.compile("function myecmascriptfunc(n) { print ('Hello from ecmascript,', n); }")
+3310 ON ERROR GOTO 3940
+3320 pippblock= pippcompiler.compile("<?php function phpfunc ($msg) { echo ""Hello from pipp, $msg\n""; } phpfunc(); ?>")
+3800 ON ERROR GOTO 0
+3810 RETURN
+3900 PRINT "Error compiling perl6"
+3910 EXIT 1
+3920 PRINT "Error compiling ecmascript"
+3930 EXIT 1
+3940 PRINT "Error compiling pipp"
+3950 EXIT 1