[svn:parrot] r46065 - trunk/examples/japh

mikehh at svn.parrot.org mikehh at svn.parrot.org
Tue Apr 27 16:28:47 UTC 2010


Author: mikehh
Date: Tue Apr 27 16:28:46 2010
New Revision: 46065
URL: https://trac.parrot.org/parrot/changeset/46065

Log:
change in-place substr to replace

Modified:
   trunk/examples/japh/japh3.pasm

Modified: trunk/examples/japh/japh3.pasm
==============================================================================
--- trunk/examples/japh/japh3.pasm	Tue Apr 27 14:55:24 2010	(r46064)
+++ trunk/examples/japh/japh3.pasm	Tue Apr 27 16:28:46 2010	(r46065)
@@ -1,4 +1,4 @@
-# Copyright (C) 2004-2009, Parrot Foundation.
+# Copyright (C) 2004-2010, Parrot Foundation.
 # $Id$
 
 # the substr JaPH
@@ -6,10 +6,9 @@
     set S1, "Parrot "
     set S2, "another "
     set S3, "Just "
-    set S31, S0
-    substr S3, 5,  1, S2
-    substr S3, 13, 1, S1
-    substr S3, 20, 1, S0
+    replace S3, S3, 5,  1, S2
+    replace S3, S3, 13, 1, S1
+    replace S3, S3, 20, 1, S0
     print S3
     end
 


More information about the parrot-commits mailing list