Author: coke
Date: Tue Mar 25 21:32:46 2008
New Revision: 26560
Modified:
trunk/apps/p3/cgi-pir/slides.pir
trunk/compilers/past-pm/PAST/Node.pir
trunk/compilers/past-pm/POST/Node.pir
trunk/ext/Parrot-Embed/t/greet.pir
trunk/t/oo/subclass.t
trunk/tools/util/crow.pir
trunk/tools/util/pgegrep
Log:
[DEPRECATED]
use less qw(.);
Modified: trunk/apps/p3/cgi-pir/slides.pir
==============================================================================
--- trunk/apps/p3/cgi-pir/slides.pir (original)
+++ trunk/apps/p3/cgi-pir/slides.pir Tue Mar 25 21:32:46 2008
@@ -116,7 +116,7 @@
.sub test :main
.param pmc argv
null $P0
- $P1 = new .Hash
+ $P1 = new 'Hash'
$P1['f'] = '1.html'
$S0 = argv[1]
$I0 = $S0
Modified: trunk/compilers/past-pm/PAST/Node.pir
==============================================================================
--- trunk/compilers/past-pm/PAST/Node.pir (original)
+++ trunk/compilers/past-pm/PAST/Node.pir Tue Mar 25 21:32:46 2008
@@ -75,7 +75,7 @@
.param pmc adverbs :slurpy :named
.local pmc iter
- iter = new .Iterator, children
+ iter = new 'Iterator', children
children_loop:
unless iter goto children_end
$P0 = shift iter
@@ -83,7 +83,7 @@
goto children_loop
children_end:
- iter = new .Iterator, adverbs
+ iter = new 'Iterator', adverbs
adverbs_loop:
unless iter goto adverbs_end
$S0 = shift iter
@@ -134,7 +134,7 @@
res.'push'($P1)
goto iter_child_loop
iter_child_end:
- iter = new .Iterator, self
+ iter = new 'Iterator', self
iter_attr_loop:
unless iter goto iter_attr_end
$S0 = shift iter
@@ -186,7 +186,7 @@
.sub 'iterator' :method
.local pmc iter
$P0 = self.'get_array'()
- iter = new .Iterator, $P0
+ iter = new 'Iterator', $P0
iter = 0
.return (iter)
.end
Modified: trunk/compilers/past-pm/POST/Node.pir
==============================================================================
--- trunk/compilers/past-pm/POST/Node.pir (original)
+++ trunk/compilers/past-pm/POST/Node.pir Tue Mar 25 21:32:46 2008
@@ -22,7 +22,7 @@
$P0 = subclass base, 'POST::Label'
.local pmc pirtable
- pirtable = new .Hash
+ pirtable = new 'Hash'
pirtable['add'] = '%tP+'
pirtable['sub'] = '%tP+'
pirtable['mul'] = '%tP+'
@@ -375,7 +375,7 @@
compname = self.'compiler'()
name = self.'name'()
.local pmc adverbs
- adverbs = new .Hash
+ adverbs = new 'Hash'
adverbs['target'] = 'pir'
adverbs['name'] = name
adverbs['grammar'] = ''
Modified: trunk/ext/Parrot-Embed/t/greet.pir
==============================================================================
--- trunk/ext/Parrot-Embed/t/greet.pir (original)
+++ trunk/ext/Parrot-Embed/t/greet.pir Tue Mar 25 21:32:46 2008
@@ -5,7 +5,7 @@
name_str = name
.local pmc greeting
- greeting = new .String
+ greeting = new 'String'
greeting = 'Hello, '
greeting .= name_str
greeting .= '!'
Modified: trunk/t/oo/subclass.t
==============================================================================
--- trunk/t/oo/subclass.t (original)
+++ trunk/t/oo/subclass.t Tue Mar 25 21:32:46 2008
@@ -533,7 +533,7 @@
.namespace [ 'Foo' ]
.sub 'init' :method :vtable
say 'Foo init'
- $P1 = new .ResizablePMCArray
+ $P1 = new 'ResizablePMCArray'
setattribute self, 'storage', $P1
.end
Modified: trunk/tools/util/crow.pir
==============================================================================
--- trunk/tools/util/crow.pir (original)
+++ trunk/tools/util/crow.pir Tue Mar 25 21:32:46 2008
@@ -35,7 +35,7 @@
opts = get_args(args)
unless null opts goto got_opts
- opts = new .Hash
+ opts = new 'Hash'
got_opts:
.local pmc templates
@@ -111,7 +111,7 @@
.return ()
agg_undefined:
- $P0 = new .Exception
+ $P0 = new 'Exception'
$P0['_message'] = "cannot assign to Null PMC!"
throw $P0
.end
Modified: trunk/tools/util/pgegrep
==============================================================================
--- trunk/tools/util/pgegrep (original)
+++ trunk/tools/util/pgegrep Tue Mar 25 21:32:46 2008
@@ -138,13 +138,13 @@
.local int i, filecount
.local string filename
.local pmc File, OS, files, handle
- files = new .ResizableStringArray
+ files = new 'ResizableStringArray'
files = argv
filecount = files
# define with-filename if there's more than one file
.If(filecount >= 2, { opts["with-filename"] = 1 })
- File = new .File
- OS = new .OS
+ File = new 'File'
+ OS = new 'OS'
# This must be here, or else it'll get filled with junk data we use
stdin...
i = 0
.Unless(filecount, {
@@ -180,7 +180,7 @@
.If($S0 != '..', {
$S1 = filename . '/'
$S0 = $S1 . $S0
- $P1 = new .ResizableStringArray
+ $P1 = new 'ResizableStringArray'
$P1[0] = $S0
$I0 = i + 1
splice files, $P1, $I0, 0
