[svn:parrot] r11170 - trunk/languages/jako/examples

[bernhard]

Author: bernhard
Date: Sat Jan 14 02:59:19 2006
New Revision: 11170

Modified:
   trunk/languages/jako/examples/pmc.jako
   trunk/languages/jako/examples/queens_array.jako
Log:
jako: Do not use Perl* PMCs.


Modified: trunk/languages/jako/examples/pmc.jako
==============================================================================
--- trunk/languages/jako/examples/pmc.jako      (original)
+++ trunk/languages/jako/examples/pmc.jako      Sat Jan 14 02:59:19 2006
@@ -1,8 +1,10 @@
+# $Id$
+
 use sys;
 
 var pmc foo, bar;
-bar = new PerlUndef;
-foo = new PerlString;
+bar = new Undef;
+foo = new String;
 foo = "Hello, world!\n";
 sys::print(foo);
 

Modified: trunk/languages/jako/examples/queens_array.jako
==============================================================================
--- trunk/languages/jako/examples/queens_array.jako     (original)
+++ trunk/languages/jako/examples/queens_array.jako     Sat Jan 14 02:59:19 2006
@@ -3,7 +3,7 @@
 #
 # A program to find solutions to the 8-queens problem.
 #
-# Copyright: 2001-2005 The Perl Foundation.  All Rights Reserved.
+# Copyright: 2001-2006 The Perl Foundation.  All Rights Reserved.
 # This program is free software. It is subject to the same
 # license as the Parrot interpreter.
 #
@@ -18,7 +18,7 @@ const int NUM_FILES     = 8;
 const int NUM_RANKS     = 8;
 
 var pmc board;
-board = new PerlArray;
+board = new Array;
 
 
 #