Browse files

[pge]:

*  new .SomeClass --->  new 'SomeClass'


git-svn-id: https://svn.parrot.org/parrot/trunk@19404 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 206a771 commit b3ef02fac6199fe30690d9d089d9b6a9807d9a78 @pmichaud pmichaud committed Jun 28, 2007
View
2 compilers/pge/PGE/CodeString.pir
@@ -48,7 +48,7 @@ Initializes the C<CodeString> class.
$P0 = getclass 'String'
$P1 = subclass $P0, 'PGE::CodeString'
- $P0 = new .Integer
+ $P0 = new 'Integer'
$P0 = 10
set_global "$!serno", $P0
.return ()
View
8 compilers/pge/PGE/Exp.pir
@@ -180,13 +180,13 @@ tree as a PIR code object that can be compiled.
$I0 = index expstr, 'ustack'
if $I0 < 0 goto code_body_1
code.emit(" .local pmc ustack :unique_reg")
- code.emit(" ustack = new .ResizablePMCArray")
+ code.emit(" ustack = new 'ResizablePMCArray'")
code_body_1:
## generate the gpad only if we need it
$I0 = index expstr, 'gpad'
if $I0 < 0 goto code_body_2
code.emit(" .local pmc gpad :unique_reg")
- code.emit(" gpad = new .ResizablePMCArray")
+ code.emit(" gpad = new 'ResizablePMCArray'")
code_body_2:
## set the captscope if we need it
$I0 = index expstr, 'captscope'
@@ -295,7 +295,7 @@ tree as a PIR code object that can be compiled.
captgen.emit(<<" CODE", cname, label)
$I0 = defined captscope[%0]
if $I0 goto %1_cgen
- $P0 = new .ResizablePMCArray
+ $P0 = new 'ResizablePMCArray'
captscope[%0] = $P0
bsr %1_cgen
delete captscope[%0]
@@ -413,7 +413,7 @@ tree as a PIR code object that can be compiled.
.local pmc iter, exp
code.emit(' %0: # concat', label)
$P0 = self.get_array()
- iter = new .Iterator, $P0
+ iter = new 'Iterator', $P0
exp = shift iter
$S0 = code.unique('R')
iter_loop:
View
24 compilers/pge/PGE/Match.pir
@@ -50,9 +50,9 @@ the current position of C<mob>.
newfrom_1:
$I0 = isa mob, 'PGE::Match'
if $I0 goto newfrom_mob
- target = new .String
+ target = new 'String'
assign target, mob
- from = new .Integer
+ from = new 'Integer'
from = -1
if has_grammar goto new_me
grammar = 'PGE::Match'
@@ -70,7 +70,7 @@ the current position of C<mob>.
me = new $I0
setattribute me, '$.target', target
setattribute me, '$.from', from
- pos = new .Integer
+ pos = new 'Integer'
pos = -1
setattribute me, '$.pos', pos
if has_fromd == 0 goto end
@@ -81,7 +81,7 @@ the current position of C<mob>.
err_grammar:
.local pmc ex
.local string message
- ex = new .Exception
+ ex = new 'Exception'
message = "Class '"
message .= grammar
message .= "' not found"
@@ -133,7 +133,7 @@ is set or implied.
issrcmatch = isa src, 'PGE::Match'
if issrcmatch goto target_from_src
.local pmc target
- target = new .String
+ target = new 'String'
target = src
pos = 0
iscont = 1
@@ -188,10 +188,10 @@ is set or implied.
if $I0 == 0 goto err_grammar
mob = new $I0
setattribute mob, '$.target', target
- mfrom = new .Integer
+ mfrom = new 'Integer'
mfrom = pos
setattribute mob, '$.from', mfrom
- mpos = new .Integer
+ mpos = new 'Integer'
mpos = -1
setattribute mob, '$.pos', mpos
@@ -200,7 +200,7 @@ is set or implied.
err_grammar:
.local pmc ex
.local string message
- ex = new .Exception
+ ex = new 'Exception'
message = "Class '"
message .= grammar
message .= "' not found"
@@ -347,7 +347,7 @@ then simply return the first key found.
.return ($S0)
first_key:
$P0 = self.'get_hash'()
- $P1 = new .Iterator, $P0
+ $P1 = new 'Iterator', $P0
unless $P1 goto not_found
$S0 = shift $P1
.return ($S0)
@@ -374,7 +374,7 @@ the position of the match object to C<cutvalue>.
setattribute self, '@!capt', $P0
setattribute self, '$!result', $P0
.local pmc iter
- iter = new .Iterator, self
+ iter = new 'Iterator', self
iter_loop:
unless iter goto iter_end
$S0 = shift iter
@@ -474,7 +474,7 @@ objects depending on the rule.
.local pmc capt
capt = getattribute self, '@!capt'
unless_null capt, set_1
- capt = new .ResizablePMCArray
+ capt = new 'ResizablePMCArray'
setattribute self, '@!capt', capt
set_1:
capt[key] = val
@@ -503,7 +503,7 @@ objects depending on the rule.
.local pmc capt
capt = getattribute self, '@!capt'
unless null capt goto push_1
- capt = new .ResizablePMCArray
+ capt = new 'ResizablePMCArray'
setattribute self, '@!capt', capt
push_1:
push capt, val
View
26 compilers/pge/PGE/OPTable.pir
@@ -34,12 +34,12 @@ PGE::OPTable - PGE operator precedence table and parser
.sub '__onload' :load
.local pmc base
.local pmc sctable
- $P0 = getclass "Hash"
+ $P0 = getclass 'Hash'
base = subclass $P0, 'PGE::OPTable'
addattribute base, '%!key'
addattribute base, '%!klen'
addattribute base, '&!ws'
- sctable = new .Hash
+ sctable = new 'Hash'
set_global '%!sctable', sctable
'sctable'('term:', 'syncat'=>PGE_OPTABLE_TERM, 'expect'=>0x0201)
@@ -65,7 +65,7 @@ Adds (or replaces) a syntactic category's defaults.
.local pmc sctable
sctable = get_global '%!sctable'
unless null adverbs goto with_adverbs
- adverbs = new .Hash
+ adverbs = new 'Hash'
with_adverbs:
sctable[name] = adverbs
.return (adverbs)
@@ -75,8 +75,8 @@ Adds (or replaces) a syntactic category's defaults.
.sub "init" :vtable :method
.local pmc tokentable, keytable, klentable
tokentable = self
- keytable = new .Hash
- klentable = new .Hash
+ keytable = new 'Hash'
+ klentable = new 'Hash'
setattribute self, "PGE::OPTable\x0%!key", keytable
setattribute self, "PGE::OPTable\x0%!klen", klentable
.end
@@ -100,7 +100,7 @@ Adds (or replaces) a syntactic category's defaults.
token = clone token
goto with_token
token_hash:
- token = new .Hash
+ token = new 'Hash'
with_token:
token['name'] = name
@@ -111,7 +111,7 @@ Adds (or replaces) a syntactic category's defaults.
if $I0 goto end
tokentable[name] = token
- $P0 = new .Iterator, args
+ $P0 = new 'Iterator', args
args_loop:
unless $P0 goto args_end
$P1 = shift $P0
@@ -189,7 +189,7 @@ Adds (or replaces) a syntactic category's defaults.
$P0 = keytable[key]
$I0 = does $P0, 'array'
if $I0 goto add_key_array_2
- $P1 = new .ResizablePMCArray
+ $P1 = new 'ResizablePMCArray'
push $P1, $P0
push $P1, token
keytable[key] = $P1
@@ -231,7 +231,7 @@ Adds (or replaces) a syntactic category's defaults.
klentable = getattribute self, "PGE::OPTable\x0%!klen"
unless null adverbs goto with_adverbs
- adverbs = new .Hash
+ adverbs = new 'Hash'
with_adverbs:
.local pmc action
@@ -281,9 +281,9 @@ Adds (or replaces) a syntactic category's defaults.
with_tighter:
ws = getattribute self, "PGE::OPTable\x0&!ws"
- tokenstack = new .ResizablePMCArray
- operstack = new .ResizablePMCArray
- termstack = new .ResizablePMCArray
+ tokenstack = new 'ResizablePMCArray'
+ operstack = new 'ResizablePMCArray'
+ termstack = new 'ResizablePMCArray'
newfrom = get_hll_global ["PGE::Match"], "newfrom"
$P0 = getclass 'PGE::Match'
@@ -343,7 +343,7 @@ Adds (or replaces) a syntactic category's defaults.
if oper goto oper_found
goto key_next
key_array:
- iter = new .Iterator, token
+ iter = new 'Iterator', token
key_array_1:
unless iter goto key_next
token = shift iter
View
4 compilers/pge/PGE/P5Regex.pir
@@ -37,7 +37,7 @@
analyze:
.local pmc exp, pad
exp = match['expr']
- pad = new .Hash
+ pad = new 'Hash'
pad['subpats'] = 0
exp = exp.'p5analyze'(pad)
.return exp.'compile'(adverbs :flat :named)
@@ -108,7 +108,7 @@
.param string message
$P0 = getattribute mob, '$.pos'
$P0 = pos
- $P0 = new .Exception
+ $P0 = new 'Exception'
$S0 = 'p5regex parse error: '
$S0 .= message
$S0 .= ' at offset '
View
18 compilers/pge/PGE/P6Regex.pir
@@ -26,7 +26,7 @@ or the resulting PIR code (target='PIR').
.param pmc adverbs :slurpy :named
unless null adverbs goto set_adverbs
- adverbs = new .Hash
+ adverbs = new 'Hash'
set_adverbs:
$I0 = exists adverbs['grammar']
@@ -110,7 +110,7 @@ or the resulting PIR code (target='PIR').
.local pmc exp, pad
exp = match['expr']
pad = clone adverbs
- $P0 = new .Hash
+ $P0 = new 'Hash'
pad['lexscope'] = $P0
exp = exp.'p6exp'(pad)
if null exp goto err_null
@@ -243,7 +243,7 @@ needed for compiling regexes.
optable.newtok('close:}', 'precedence'=>'<', 'nows'=>1)
.local pmc esclist
- esclist = new .Hash
+ esclist = new 'Hash'
set_global '%esclist', esclist
esclist['e'] = "\e"
esclist['f'] = "\f"
@@ -255,13 +255,13 @@ needed for compiling regexes.
# See http://www.unicode.org/Public/UNIDATA/PropList.txt for above
# Create and store closure preprocessors in %closure_pp
- $P0 = new .Hash
+ $P0 = new 'Hash'
set_hll_global ['PGE::P6Regex'], '%closure_pp', $P0
$P1 = get_hll_global ['PGE::P6Regex'], 'PIR_closure'
$P0["PIR"] = $P1
# Create an array for holding stop tokens
- $P0 = new .ResizablePMCArray
+ $P0 = new 'ResizablePMCArray'
set_hll_global ['PGE::P6Regex'], '@!stopstack', $P0
$P0 = get_global 'compile_p6regex'
@@ -1040,7 +1040,7 @@ Parse a modifier.
.param string message
$P0 = getattribute mob, '$.pos'
$P0 = pos
- $P0 = new .Exception
+ $P0 = new 'Exception'
$S0 = 'p6rule parse error: '
$S0 .= message
$S0 .= ' at offset '
@@ -1216,7 +1216,7 @@ Parse a modifier.
subpats = pad['subpats']
pad['subpats'] = 0
pad['isarray'] = 0
- $P0 = new .Hash
+ $P0 = new 'Hash'
pad['lexscope'] = $P0
exp = self[0]
exp = exp.'p6exp'(pad)
@@ -1317,8 +1317,8 @@ Parse a modifier.
.local pmc lexscope, savescope, iter
lexscope = pad['lexscope']
- savescope = new .Hash
- iter = new .Iterator, lexscope
+ savescope = new 'Hash'
+ iter = new 'Iterator', lexscope
iter_loop:
unless iter goto iter_end
$P1 = shift iter
View
18 compilers/pge/PGE/Perl6Regex.pir
@@ -26,7 +26,7 @@ or the resulting PIR code (target='PIR').
.param pmc adverbs :slurpy :named
unless null adverbs goto set_adverbs
- adverbs = new .Hash
+ adverbs = new 'Hash'
set_adverbs:
$I0 = exists adverbs['grammar']
@@ -110,7 +110,7 @@ or the resulting PIR code (target='PIR').
.local pmc exp, pad
exp = match['expr']
pad = clone adverbs
- $P0 = new .Hash
+ $P0 = new 'Hash'
pad['lexscope'] = $P0
exp = exp.'perl6exp'(pad)
if null exp goto err_null
@@ -252,7 +252,7 @@ needed for compiling regexes.
optable.newtok('close:}', 'precedence'=>'<', 'nows'=>1)
.local pmc esclist
- esclist = new .Hash
+ esclist = new 'Hash'
set_global '%esclist', esclist
esclist['e'] = "\e"
esclist['f'] = "\f"
@@ -264,13 +264,13 @@ needed for compiling regexes.
# See http://www.unicode.org/Public/UNIDATA/PropList.txt for above
# Create and store closure preprocessors in %closure_pp
- $P0 = new .Hash
+ $P0 = new 'Hash'
set_hll_global ['PGE::Perl6Regex'], '%closure_pp', $P0
$P1 = get_hll_global ['PGE::Perl6Regex'], 'PIR_closure'
$P0["PIR"] = $P1
# Create an array for holding stop tokens
- $P0 = new .ResizablePMCArray
+ $P0 = new 'ResizablePMCArray'
set_hll_global ['PGE::Perl6Regex'], '@!stopstack', $P0
$P0 = get_global 'compile_perl6regex'
@@ -1083,7 +1083,7 @@ Parse a modifier.
.param string message
$P0 = getattribute mob, '$.pos'
$P0 = pos
- $P0 = new .Exception
+ $P0 = new 'Exception'
$S0 = 'perl6regex parse error: '
$S0 .= message
$S0 .= ' at offset '
@@ -1259,7 +1259,7 @@ Parse a modifier.
subpats = pad['subpats']
pad['subpats'] = 0
pad['isarray'] = 0
- $P0 = new .Hash
+ $P0 = new 'Hash'
pad['lexscope'] = $P0
exp = self[0]
exp = exp.'perl6exp'(pad)
@@ -1360,8 +1360,8 @@ Parse a modifier.
.local pmc lexscope, savescope, iter
lexscope = pad['lexscope']
- savescope = new .Hash
- iter = new .Iterator, lexscope
+ savescope = new 'Hash'
+ iter = new 'Iterator', lexscope
iter_loop:
unless iter goto iter_end
$P1 = shift iter
View
2 compilers/pge/PGE/Regex.pir
@@ -17,7 +17,7 @@ a number of built-in rules.
.sub '__onload' :load
.local pmc base
$P0 = subclass 'PGE::Match', 'PGE::Grammar'
- $P0 = new .Hash
+ $P0 = new 'Hash'
set_global '%!cache', $P0
.return ()
.end

0 comments on commit b3ef02f

Please sign in to comment.