perl.cvs.parrot http://www.nntp.perl.org/group/perl.cvs.parrot/ ... Copyright 1998-2016 perl.org Sun, 07 Feb 2016 21:58:00 +0000 ask@perl.org [svn:parrot] r36153 - trunk/languages/pod/src/parser by kjs Author: kjs<br/>Date: Thu Jan 29 10:47:17 2009<br/>New Revision: 36153<br/><br/>Modified:<br/> trunk/languages/pod/src/parser/actions.pm<br/> trunk/languages/pod/src/parser/grammar.pg<br/><br/>Log:<br/>[pod] some work on languages/pod. Small bits.<br/><br/>Modified: trunk/languages/pod/src/parser/actions.pm<br/>==============================================================================<br/>--- trunk/languages/pod/src/parser/actions.pm (original)<br/>+++ trunk/languages/pod/src/parser/actions.pm Thu Jan 29 10:47:17 2009<br/>@@ -18,10 +18,13 @@<br/> class Pod::Grammar::Actions;<br/> <br/> method TOP($/) {<br/>- make $( $/ );<br/>- # for $&lt;pod_section&gt; {<br/>- # $( $_ );<br/>- # }<br/>+ my $rootblock;<br/>+<br/>+ for $&lt;pod_section&gt; {<br/>+ $rootblock.push( $( $_ ) );<br/>+ }<br/>+<br/>+ make $rootblock;<br/> }<br/> <br/> method skipped($/) {<br/>@@ -33,6 +36,7 @@<br/> ## XXX store it where? A block?<br/> $( $_ );<br/> }<br/>+ make $( $&lt;pod_sequence&gt;[0] );<br/> }<br/> <br/> method pod_sequence($/, $key) {<br/>@@ -47,17 +51,22 @@<br/> <br/> }<br/> <br/>-## XXX refactor the block_title stuff for heading and begin_directive.<br/>+<br/>+<br/>+sub title($/, $block) {<br/>+ if $&lt;block_title&gt; {<br/>+ my $title := $( $&lt;block_title&gt;[0] );<br/>+ $block.title( $title.name() );<br/>+ }<br/>+}<br/> <br/> method heading($/) {<br/> my $heading := Pod::DocTree::Heading.new();<br/> ## set the level of the heading<br/> $heading.level($&lt;digit&gt;);<br/> <br/>- if $&lt;block_title&gt; {<br/>- my $title := $( $&lt;block_title&gt;[0] );<br/>- $heading.title( $title.name() );<br/>- }<br/>+ title($/, $heading);<br/>+<br/> make $heading;<br/> }<br/> <br/>@@ -67,13 +76,12 @@<br/> my $name := $( $&lt;block_name&gt; );<br/> $block.name( $name.name() );<br/> <br/>- if $&lt;block_title&gt; {<br/>- my $title := $( $&lt;block_title&gt;[0] );<br/>- $heading.title( $title.name() );<br/>- }<br/>+ title($/, $block);<br/>+<br/> make $block;<br/> }<br/> <br/>+<br/> method end_directive($/) {<br/> <br/> }<br/><br/>Modified: trunk/languages/pod/src/parser/grammar.pg<br/>==============================================================================<br/>--- trunk/languages/pod/src/parser/grammar.pg (original)<br/>+++ trunk/languages/pod/src/parser/grammar.pg Thu Jan 29 10:47:17 2009<br/>@@ -29,16 +29,16 @@<br/> }<br/> <br/> regex pod_sequence {<br/>- | &lt;heading&gt; #= heading<br/>- | &lt;begin_directive&gt; #= begin_directive<br/>- | &lt;end_directive&gt; #= end_directive<br/>- | &lt;for_directive&gt; #= for_directive<br/>- | &lt;back_directive&gt; #= back_directive<br/>- | &lt;item_directive&gt; #= item_directive<br/>- | &lt;over_directive&gt; #= over_directive<br/>- | &lt;encoding_directive&gt; #= encoding_directive<br/>- | &lt;literal_paragraph&gt; #= literal_paragraph<br/>- | &lt;paragraph&gt; #= paragraph<br/>+ | &lt;heading&gt; {*} #= heading<br/>+ | &lt;begin_directive&gt; {*} #= begin_directive<br/>+ | &lt;end_directive&gt; {*} #= end_directive<br/>+ | &lt;for_directive&gt; {*} #= for_directive<br/>+ | &lt;back_directive&gt; {*} #= back_directive<br/>+ | &lt;item_directive&gt; {*} #= item_directive<br/>+ | &lt;over_directive&gt; {*} #= over_directive<br/>+ | &lt;encoding_directive&gt; {*} #= encoding_directive<br/>+ | &lt;literal_paragraph&gt; {*} #= literal_paragraph<br/>+ | &lt;paragraph&gt; {*} #= paragraph<br/> }<br/> <br/> token pod_directive {<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36501.html Thu, 29 Jan 2009 10:47:26 +0000 [svn:parrot] r36152 - trunk/languages/lua/t by fperrad Author: fperrad<br/>Date: Thu Jan 29 10:06:59 2009<br/>New Revision: 36152<br/><br/>Modified:<br/> trunk/languages/lua/t/mathx.t<br/><br/>Log:<br/>[Lua] mathx<br/>now, Inf &amp; NaN work on win32<br/><br/>Modified: trunk/languages/lua/t/mathx.t<br/>==============================================================================<br/>--- trunk/languages/lua/t/mathx.t (original)<br/>+++ trunk/languages/lua/t/mathx.t Thu Jan 29 10:06:59 2009<br/>@@ -34,17 +34,13 @@<br/> /^3\.14/<br/> OUTPUT<br/> <br/>-SKIP:<br/>-{<br/>- skip &quot;skipped on win32&quot; =&gt; 2 if ( $^O eq &#39;MSWin32&#39; );<br/>-<br/> language_output_is( &#39;lua&#39;, &lt;&lt; &#39;CODE&#39;, &lt;&lt; &#39;OUTPUT&#39;, &#39;infinity&#39; );<br/> require &#39;mathx&#39;<br/> print(type(math.infinity))<br/> print(math.infinity)<br/> CODE<br/> number<br/>-inf<br/>+Inf<br/> OUTPUT<br/> <br/> language_output_is( &#39;lua&#39;, &lt;&lt; &#39;CODE&#39;, &lt;&lt; &#39;OUTPUT&#39;, &#39;nan&#39; );<br/>@@ -53,9 +49,8 @@<br/> print(math.nan)<br/> CODE<br/> number<br/>-nan<br/>+NaN<br/> OUTPUT<br/>-}<br/> <br/> language_output_like( &#39;lua&#39;, &lt;&lt; &#39;CODE&#39;, &lt;&lt; &#39;OUTPUT&#39;, &#39;function acosh&#39; );<br/> require &#39;mathx&#39;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36500.html Thu, 29 Jan 2009 10:07:22 +0000 [svn:parrot] r36151 - trunk/config/init/hints by rurban Author: rurban<br/>Date: Thu Jan 29 09:58:42 2009<br/>New Revision: 36151<br/><br/>Modified:<br/> trunk/config/init/hints/mswin32.pm<br/><br/>Log:<br/>[configure] hints/mswin32<br/>- simplified get msvcversion<br/>- no -wd warnings disable syntax on MSVC6 (version 12)<br/><br/><br/><br/>Modified: trunk/config/init/hints/mswin32.pm<br/>==============================================================================<br/>--- trunk/config/init/hints/mswin32.pm (original)<br/>+++ trunk/config/init/hints/mswin32.pm Thu Jan 29 09:58:42 2009<br/>@@ -38,6 +38,7 @@<br/> }<br/> <br/> if ($is_msvc) {<br/>+ my $msvcversion = $conf-&gt;data-&gt;get(&#39;msvcversion&#39;);<br/> <br/> # Check the output of cl.exe to see if it contains the<br/> # string &#39;Standard&#39; and remove the -O1 option if it does.<br/>@@ -46,21 +47,23 @@<br/> # The logo gets printed to STDERR; hence the redirection.<br/> my $cc_output = `$cc /? 2&gt;&amp;1` || &#39;&#39;;<br/> $ccflags =~ s/-O1 // if $cc_output =~ m/Standard/ || $cc_output =~ m{/ZI};<br/>- $ccflags =~ s/-Gf/-GF/ if $cc_output =~ m/Version (\d+)/ &amp;&amp; $1 &gt;= 13;<br/>+ unless ($msvcversion) { $cc_output =~ m/Version (\d+)/; $msvcversion = $1; }<br/>+ $ccflags =~ s/-Gf/-GF/ if $msvcversion &gt;= 13;<br/> <br/> # override perl&#39;s warnings level<br/> $ccflags =~ s/-W\d/-W4/;<br/> <br/> # if we want pbc_to_exe to work, need to let some versions of the<br/> # compiler use more memory than they normally would<br/>- $ccflags .= &quot; -Zm400 &quot; if $cc_output =~ m/Version (\d+)/ &amp;&amp; $1 == 12;<br/>+ $ccflags .= &quot; -Zm400 &quot; if $msvcversion &lt; 13;<br/> <br/> my $ccwarn = &#39;&#39;;<br/>-<br/> # disable certain very noisy warnings<br/>- $ccwarn .= &quot;-wd4127 &quot;; # conditional expression is constant<br/>- $ccwarn .= &quot;-wd4054 &quot;; # type cast from function ptr to data ptr<br/>- $ccwarn .= &quot;-wd4310 &quot;; # cast truncates constant value<br/>+ if ($msvcversion &gt;= 13) {<br/>+ $ccwarn .= &quot;-wd4127 &quot;; # conditional expression is constant<br/>+ $ccwarn .= &quot;-wd4054 &quot;; # type cast from function ptr to data ptr<br/>+ $ccwarn .= &quot;-wd4310 &quot;; # cast truncates constant value<br/>+ }<br/> <br/> $conf-&gt;data-&gt;set(<br/> share_ext =&gt; &#39;.dll&#39;,<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36499.html Thu, 29 Jan 2009 09:59:05 +0000 [svn:parrot] r36150 - in trunk/runtime/parrot/library: . PGE by coke Author: coke<br/>Date: Thu Jan 29 09:56:36 2009<br/>New Revision: 36150<br/><br/>Modified:<br/> trunk/runtime/parrot/library/JSON.pir<br/> trunk/runtime/parrot/library/PGE/Hs.pir<br/><br/>Log:<br/>avoid usage of DEPRECATED Data::Escape library.<br/><br/><br/><br/>Modified: trunk/runtime/parrot/library/JSON.pir<br/>==============================================================================<br/>--- trunk/runtime/parrot/library/JSON.pir (original)<br/>+++ trunk/runtime/parrot/library/JSON.pir Thu Jan 29 09:56:36 2009<br/>@@ -355,8 +355,6 @@<br/> .return (result)<br/> .end<br/> <br/>-.include &#39;library/Data/Escape.pir&#39;<br/>-<br/> =back<br/> <br/> =head1 TODO<br/><br/>Modified: trunk/runtime/parrot/library/PGE/Hs.pir<br/>==============================================================================<br/>--- trunk/runtime/parrot/library/PGE/Hs.pir (original)<br/>+++ trunk/runtime/parrot/library/PGE/Hs.pir Thu Jan 29 09:56:36 2009<br/>@@ -54,7 +54,6 @@<br/> <br/> .sub &quot;__onload&quot; :load<br/> .local pmc load<br/>- load_bytecode &quot;Data/Escape.pir&quot;<br/> $P0 = get_class [&#39;PGE&#39;;&#39;Match&#39;]<br/> .end<br/> <br/>@@ -162,10 +161,9 @@<br/> .local int ari, arc<br/> .local int tmpi, cond<br/> .local string tmps, key<br/>- .local pmc capt, iter, subelm, elm, escape<br/>+ .local pmc capt, iter, subelm, elm<br/> <br/> out = &quot;&quot;<br/>- escape = get_hll_global [&quot;Data::Escape&quot;], &quot;String&quot;<br/> <br/> start:<br/> out .= &quot;PGE_Match &quot;<br/>@@ -212,7 +210,7 @@<br/> unless cond goto subrules_fail<br/> elm = capt[key]<br/> out .= &#39;(&quot;&#39;<br/>- tmps = escape(key)<br/>+ tmps = escape key<br/> out .= tmps<br/> out .= &#39;&quot;, &#39;<br/> bsr dumper<br/>@@ -235,7 +233,8 @@<br/> out .= tmps<br/> ret<br/> dumper_string:<br/>- tmps = escape(elm)<br/>+ $S0 = elm<br/>+ tmps = escape $S0<br/> out .= &#39;PGE_String &quot;&#39;<br/> out .= tmps<br/> out .= &#39;&quot;&#39;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36498.html Thu, 29 Jan 2009 09:56:52 +0000 [svn:parrot] r36149 - in trunk: compilers/ncigen/config/makefiles config/gen/makefiles languages/APL/config/makefiles languages/PIR/config/makefiles languages/Zcode/config/makefiles languages/abc/config/makefiles languages/befunge/config/makefiles languag by fperrad Author: fperrad<br/>Date: Thu Jan 29 09:39:30 2009<br/>New Revision: 36149<br/><br/>Modified:<br/> trunk/compilers/ncigen/config/makefiles/ncigen.in<br/> trunk/config/gen/makefiles/docs.in<br/> trunk/config/gen/makefiles/dynoplibs.in<br/> trunk/config/gen/makefiles/dynpmc.in<br/> trunk/config/gen/makefiles/editor.in<br/> trunk/config/gen/makefiles/ext.in<br/> trunk/config/gen/makefiles/json.in<br/> trunk/config/gen/makefiles/languages.in<br/> trunk/config/gen/makefiles/nqp.in<br/> trunk/config/gen/makefiles/pct.in<br/> trunk/config/gen/makefiles/pge.in<br/> trunk/config/gen/makefiles/pirc.in<br/> trunk/config/gen/makefiles/root.in<br/> trunk/config/gen/makefiles/tge.in<br/> trunk/languages/APL/config/makefiles/root.in<br/> trunk/languages/PIR/config/makefiles/root.in<br/> trunk/languages/Zcode/config/makefiles/root.in<br/> trunk/languages/abc/config/makefiles/root.in<br/> trunk/languages/befunge/config/makefiles/root.in<br/> trunk/languages/bf/config/makefiles/root.in<br/> trunk/languages/c99/config/makefiles/cpp.in<br/> trunk/languages/c99/config/makefiles/root.in<br/> trunk/languages/cardinal/config/makefiles/root.in<br/> trunk/languages/chitchat/config/makefiles/root.in<br/> trunk/languages/cola/config/makefiles/root.in<br/> trunk/languages/ecmascript/config/makefiles/root.in<br/> trunk/languages/forth/config/makefiles/root.in<br/> trunk/languages/jako/config/makefiles/root.in<br/> trunk/languages/json/config/makefiles/root.in<br/> trunk/languages/lisp/config/makefiles/root.in<br/> trunk/languages/lolcode/config/makefiles/root.in<br/> trunk/languages/lua/config/makefiles/root.in<br/> trunk/languages/ook/config/makefiles/root.in<br/> trunk/languages/parrot_compiler/config/makefiles/root.in<br/> trunk/languages/perl6/config/makefiles/root.in<br/> trunk/languages/perl6/config/makefiles/utils.in<br/> trunk/languages/pheme/config/makefiles/root.in<br/> trunk/languages/pipp/config/makefiles/root.in<br/> trunk/languages/pod/config/makefiles/root.in<br/> trunk/languages/punie/config/makefiles/root.in<br/> trunk/languages/pynie/config/makefiles/root.in<br/> trunk/languages/regex/config/makefiles/root.in<br/> trunk/languages/scheme/config/makefiles/root.in<br/> trunk/languages/squaak/config/makefiles/root.in<br/> trunk/languages/urm/config/makefiles/root.in<br/> trunk/tools/dev/mk_language_shell.pl<br/><br/>Log:<br/>[codingstd] fix coda of Makefiles<br/><br/>Modified: trunk/compilers/ncigen/config/makefiles/ncigen.in<br/>==============================================================================<br/>--- trunk/compilers/ncigen/config/makefiles/ncigen.in (original)<br/>+++ trunk/compilers/ncigen/config/makefiles/ncigen.in Thu Jan 29 09:39:30 2009<br/>@@ -119,4 +119,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/docs.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/docs.in (original)<br/>+++ trunk/config/gen/makefiles/docs.in Thu Jan 29 09:39:30 2009<br/>@@ -48,3 +48,8 @@<br/> $(PERL) -I../lib -MParrot::Distribution -e &quot;Parrot::Distribution-&gt;new()-&gt;delete_html_docs()&quot;<br/> <br/> @TEMP_pod_build@<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/dynoplibs.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/dynoplibs.in (original)<br/>+++ trunk/config/gen/makefiles/dynoplibs.in Thu Jan 29 09:39:30 2009<br/>@@ -45,3 +45,8 @@<br/> $(RM_F) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/dynpmc.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/dynpmc.in (original)<br/>+++ trunk/config/gen/makefiles/dynpmc.in Thu Jan 29 09:39:30 2009<br/>@@ -71,3 +71,8 @@<br/> $(RM_F) Makefile $(GEN_PMC_DEFINITIONS)<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/editor.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/editor.in (original)<br/>+++ trunk/config/gen/makefiles/editor.in Thu Jan 29 09:39:30 2009<br/>@@ -67,3 +67,8 @@<br/> <br/> realclean: clean<br/> $(RM_F) Makefile<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/ext.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/ext.in (original)<br/>+++ trunk/config/gen/makefiles/ext.in Thu Jan 29 09:39:30 2009<br/>@@ -61,3 +61,7 @@<br/> #IF(win32): - cd Parrot-Embed &amp;&amp; nmake clean<br/> #UNLESS(win32): - cd Parrot-Embed &amp;&amp; $(MAKE) clean<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/json.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/json.in (original)<br/>+++ trunk/config/gen/makefiles/json.in Thu Jan 29 09:39:30 2009<br/>@@ -53,3 +53,8 @@<br/> <br/> clean : testclean<br/> $(RM_F) &quot;JSON/*.pbc&quot; &quot;JSON/*.pir&quot; JSON.pbc<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/languages.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/languages.in (original)<br/>+++ trunk/config/gen/makefiles/languages.in Thu Jan 29 09:39:30 2009<br/>@@ -544,3 +544,7 @@<br/> up-wmlscript:<br/> cd wmlscript &amp;&amp; $(GIT) pull<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/nqp.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/nqp.in (original)<br/>+++ trunk/config/gen/makefiles/nqp.in Thu Jan 29 09:39:30 2009<br/>@@ -74,3 +74,8 @@<br/> $(RM_F) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/pct.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/pct.in (original)<br/>+++ trunk/config/gen/makefiles/pct.in Thu Jan 29 09:39:30 2009<br/>@@ -73,3 +73,8 @@<br/> $(RM_F) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/pge.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/pge.in (original)<br/>+++ trunk/config/gen/makefiles/pge.in Thu Jan 29 09:39:30 2009<br/>@@ -77,3 +77,8 @@<br/> $(RM_F) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/pirc.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/pirc.in (original)<br/>+++ trunk/config/gen/makefiles/pirc.in Thu Jan 29 09:39:30 2009<br/>@@ -109,3 +109,8 @@<br/> doc/*.html<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/root.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/root.in (original)<br/>+++ trunk/config/gen/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -2259,8 +2259,7 @@<br/> malloclist: $(SRC_DIR)/core_pmcs.c<br/> $(PERL) $(BUILD_TOOLS_DIR)/headerizer.pl --macro=PARROT_MALLOC $(HEADERIZER_O_FILES)<br/> <br/>-#<br/> # Local variables:<br/>-# mode: makefile<br/>-# ex: ft=make<br/>+# mode: makefile<br/> # End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/config/gen/makefiles/tge.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/tge.in (original)<br/>+++ trunk/config/gen/makefiles/tge.in Thu Jan 29 09:39:30 2009<br/>@@ -63,3 +63,8 @@<br/> $(RM_F) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/APL/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/APL/config/makefiles/root.in (original)<br/>+++ trunk/languages/APL/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -122,4 +122,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/PIR/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/PIR/config/makefiles/root.in (original)<br/>+++ trunk/languages/PIR/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -178,3 +178,8 @@<br/> $(RM_RF) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/Zcode/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/Zcode/config/makefiles/root.in (original)<br/>+++ trunk/languages/Zcode/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -65,3 +65,8 @@<br/> <br/> maintclean: realclean<br/> $(RM_F) $(EXAMPLES) $(TEST_ZFILES)<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/abc/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/abc/config/makefiles/root.in (original)<br/>+++ trunk/languages/abc/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -124,3 +124,8 @@<br/> $(RM_RF) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/befunge/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/befunge/config/makefiles/root.in (original)<br/>+++ trunk/languages/befunge/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -50,3 +50,7 @@<br/> realclean: clean<br/> $(RM_F) Makefile<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/bf/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/bf/config/makefiles/root.in (original)<br/>+++ trunk/languages/bf/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -45,3 +45,7 @@<br/> realclean: clean<br/> $(RM_F) Makefile<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/c99/config/makefiles/cpp.in<br/>==============================================================================<br/>--- trunk/languages/c99/config/makefiles/cpp.in (original)<br/>+++ trunk/languages/c99/config/makefiles/cpp.in Thu Jan 29 09:39:30 2009<br/>@@ -121,4 +121,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/c99/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/c99/config/makefiles/root.in (original)<br/>+++ trunk/languages/c99/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -129,4 +129,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/cardinal/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/cardinal/config/makefiles/root.in (original)<br/>+++ trunk/languages/cardinal/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -175,4 +175,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/chitchat/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/chitchat/config/makefiles/root.in (original)<br/>+++ trunk/languages/chitchat/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -124,4 +124,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/cola/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/cola/config/makefiles/root.in (original)<br/>+++ trunk/languages/cola/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -130,3 +130,7 @@<br/> test: default<br/> cd .. &amp;&amp; $(PERL) t/harness --languages=cola<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/ecmascript/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/ecmascript/config/makefiles/root.in (original)<br/>+++ trunk/languages/ecmascript/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -170,3 +170,8 @@<br/> $(RM_RF) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/forth/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/forth/config/makefiles/root.in (original)<br/>+++ trunk/languages/forth/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -48,3 +48,8 @@<br/> <br/> test: all<br/> $(PERL) t/harness<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/jako/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/jako/config/makefiles/root.in (original)<br/>+++ trunk/languages/jako/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -107,7 +107,7 @@<br/> $(INTERP) examples/queens.pir<br/> $(INTERP) examples/sub.pir<br/> <br/>-<br/>-#<br/>-# End of file.<br/>-#<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/json/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/json/config/makefiles/root.in (original)<br/>+++ trunk/languages/json/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -124,3 +124,8 @@<br/> $(RM_RF) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/lisp/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/lisp/config/makefiles/root.in (original)<br/>+++ trunk/languages/lisp/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -46,3 +46,8 @@<br/> <br/> realclean: clean<br/> $(RM_F) Makefile<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/lolcode/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/lolcode/config/makefiles/root.in (original)<br/>+++ trunk/languages/lolcode/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -143,4 +143,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/lua/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/lua/config/makefiles/root.in (original)<br/>+++ trunk/languages/lua/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -323,3 +323,8 @@<br/> $(RM_F) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/ook/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/ook/config/makefiles/root.in (original)<br/>+++ trunk/languages/ook/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -53,3 +53,8 @@<br/> <br/> realclean: clean<br/> $(RM_F) Makefile<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/parrot_compiler/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/parrot_compiler/config/makefiles/root.in (original)<br/>+++ trunk/languages/parrot_compiler/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -55,3 +55,7 @@<br/> parrot_compiler.pasm : parrot_compiler.pir<br/> $(PARROT) -o parrot_compiler.pasm parrot_compiler.pir<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/perl6/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/perl6/config/makefiles/root.in (original)<br/>+++ trunk/languages/perl6/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -305,3 +305,7 @@<br/> Makefile: config/makefiles/root.in config/makefiles/utils.in<br/> cd $(BUILD_DIR) &amp;&amp; $(RECONFIGURE) --step=gen::languages --languages=perl6<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/perl6/config/makefiles/utils.in<br/>==============================================================================<br/>--- trunk/languages/perl6/config/makefiles/utils.in (original)<br/>+++ trunk/languages/perl6/config/makefiles/utils.in Thu Jan 29 09:39:30 2009<br/>@@ -98,3 +98,8 @@<br/> $(RM_RF) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/pheme/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/pheme/config/makefiles/root.in (original)<br/>+++ trunk/languages/pheme/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -67,3 +67,8 @@<br/> $(RM_F) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/pipp/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/pipp/config/makefiles/root.in (original)<br/>+++ trunk/languages/pipp/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -303,6 +303,6 @@<br/> $(RM_F) Makefile<br/> <br/> # Local variables:<br/>-# mode: makefile<br/>-# ex: ft=make<br/>+# mode: makefile<br/> # End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/pod/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/pod/config/makefiles/root.in (original)<br/>+++ trunk/languages/pod/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -116,4 +116,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/punie/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/punie/config/makefiles/root.in (original)<br/>+++ trunk/languages/punie/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -74,3 +74,8 @@<br/> $(RM_F) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/pynie/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/pynie/config/makefiles/root.in (original)<br/>+++ trunk/languages/pynie/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -97,3 +97,8 @@<br/> $(RM_RF) Makefile<br/> <br/> distclean: realclean<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/regex/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/regex/config/makefiles/root.in (original)<br/>+++ trunk/languages/regex/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -80,3 +80,7 @@<br/> <br/> distclean: realclean<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/scheme/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/scheme/config/makefiles/root.in (original)<br/>+++ trunk/languages/scheme/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -60,3 +60,8 @@<br/> # testing<br/> test:<br/> cd .. &amp;&amp; $(PERL) scheme/t/harness<br/>+<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/squaak/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/squaak/config/makefiles/root.in (original)<br/>+++ trunk/languages/squaak/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -124,4 +124,7 @@<br/> <br/> distclean: realclean<br/> <br/>-<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/languages/urm/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/urm/config/makefiles/root.in (original)<br/>+++ trunk/languages/urm/config/makefiles/root.in Thu Jan 29 09:39:30 2009<br/>@@ -62,3 +62,7 @@<br/> realclean: clean<br/> $(RM_F) Makefile<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/><br/>Modified: trunk/tools/dev/mk_language_shell.pl<br/>==============================================================================<br/>--- trunk/tools/dev/mk_language_shell.pl (original)<br/>+++ trunk/tools/dev/mk_language_shell.pl Thu Jan 29 09:39:30 2009<br/>@@ -283,6 +283,10 @@<br/> <br/> distclean: realclean<br/> <br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/> <br/> __@lclang@.pir__<br/> =head1 TITLE<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36497.html Thu, 29 Jan 2009 09:40:23 +0000 [svn:parrot] r36148 - in trunk: docs/pdds t/codingstd by fperrad Author: fperrad<br/>Date: Thu Jan 29 09:34:12 2009<br/>New Revision: 36148<br/><br/>Added:<br/> trunk/t/codingstd/make_code_coda.t (contents, props changed)<br/><br/>Changes in other areas also in this revision:<br/>Modified:<br/> trunk/docs/pdds/pdd07_codingstd.pod<br/><br/>Log:<br/>[codingstd] add check of Makefile coda<br/><br/>Added: trunk/t/codingstd/make_code_coda.t<br/>==============================================================================<br/>--- (empty file)<br/>+++ trunk/t/codingstd/make_code_coda.t Thu Jan 29 09:34:12 2009<br/>@@ -0,0 +1,76 @@<br/>+#! perl<br/>+# Copyright (C) 2009, The Perl Foundation.<br/>+# $Id: $<br/>+<br/>+use strict;<br/>+use warnings;<br/>+<br/>+use lib qw( . lib ../lib ../../lib );<br/>+use Test::More tests =&gt; 2;<br/>+use Parrot::Distribution;<br/>+use Parrot::Test::Util::Runloop;<br/>+<br/>+=head1 NAME<br/>+<br/>+t/codingstd/make_code_coda.t - checks for editor hint coda in Make source<br/>+<br/>+=head1 SYNOPSIS<br/>+<br/>+ # test all files<br/>+ % prove t/codingstd/make_code_coda.t<br/>+<br/>+ # test specific files<br/>+ % perl t/codingstd/make_code_coda.t config/gen/makefiles/pge.in<br/>+<br/>+=head1 DESCRIPTION<br/>+<br/>+Checks that all Make language source files have the proper editor hints coda,<br/>+as specified in PDD07.<br/>+<br/>+=head1 SEE ALSO<br/>+<br/>+L&lt;docs/pdds/pdd07_codingstd.pod&gt;<br/>+<br/>+=cut<br/>+<br/>+my $coda = &lt;&lt;&#39;CODA&#39;;<br/>+# Local variables:<br/>+# mode: makefile<br/>+# End:<br/>+# vim: ft=make:<br/>+CODA<br/>+<br/>+my $DIST = Parrot::Distribution-&gt;new;<br/>+my @files = @ARGV ? @ARGV : $DIST-&gt;get_make_language_files();<br/>+<br/>+Parrot::Test::Util::Runloop-&gt;testloop(<br/>+ name =&gt; &#39;every file has a coda&#39;,<br/>+ files =&gt; [@files],<br/>+ per_file =&gt; sub { shift =~ m{\Q$coda\E\n*\z} },<br/>+ diag_prefix =&gt; &#39;No coda found&#39;<br/>+);<br/>+<br/>+Parrot::Test::Util::Runloop-&gt;testloop(<br/>+ name =&gt; &#39;only one coda per file&#39;,<br/>+ files =&gt; [@files],<br/>+ per_file =&gt; \&amp;check_duplicates,<br/>+ diag_prefix =&gt; &#39;Duplicate coda found&#39;<br/>+);<br/>+<br/>+sub check_duplicates {<br/>+ my $buf = shift;<br/>+<br/>+ # append to the extra_coda array if coda-like text appears more than once<br/>+ my $vim_many = 0;<br/>+ $vim_many++ while $buf =~ m{^ [* \t]* vim[:] }gmx;<br/>+ my $emacs_many = 0;<br/>+ $emacs_many++ while $buf =~ m{^ [* \t]* Local \s variables: }gmx;<br/>+ return ($vim_many &lt;= 1 &amp;&amp; $emacs_many &lt;= 1);<br/>+}<br/>+<br/>+# Local Variables:<br/>+# mode: cperl<br/>+# cperl-indent-level: 4<br/>+# fill-column: 100<br/>+# End:<br/>+# vim: expandtab shiftwidth=4:<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36496.html Thu, 29 Jan 2009 09:34:35 +0000 [svn:parrot] r36146 - trunk/languages by fperrad Author: fperrad<br/>Date: Thu Jan 29 08:11:17 2009<br/>New Revision: 36146<br/><br/>Modified:<br/> trunk/languages/ (props changed)<br/><br/>Log:<br/>ignore language checkouts &#39;kea-cl&#39; &amp; &#39;perk&#39;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36495.html Thu, 29 Jan 2009 08:11:28 +0000 [svn:parrot] r36145 - trunk/languages/perl6/docs by pmichaud Author: pmichaud<br/>Date: Thu Jan 29 07:04:36 2009<br/>New Revision: 36145<br/><br/>Modified:<br/> trunk/languages/perl6/docs/spectest-progress.csv<br/><br/>Log:<br/>[rakudo]: spectest-progress.csv update: 298 files, 6609 passing, 0 failing<br/><br/><br/>Modified: trunk/languages/perl6/docs/spectest-progress.csv<br/>==============================================================================<br/>--- trunk/languages/perl6/docs/spectest-progress.csv (original)<br/>+++ trunk/languages/perl6/docs/spectest-progress.csv Thu Jan 29 07:04:36 2009<br/>@@ -250,3 +250,5 @@<br/> &quot;2009-01-25 00:00&quot;,35983,6383,180,292,1405,8260,11678,295<br/> &quot;2009-01-26 00:00&quot;,36017,6517,0,293,1450,8260,11682,295<br/> &quot;2009-01-27 00:00&quot;,36042,6546,0,301,1511,8358,14080,295<br/>+&quot;2009-01-28 00:00&quot;,36078,6601,1,301,1541,8444,14174,298<br/>+&quot;2009-01-29 00:00&quot;,36135,6609,0,298,1754,8661,14236,298<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36494.html Thu, 29 Jan 2009 07:04:49 +0000 [svn:parrot] r36144 - trunk/src/gc by Whiteknight Author: Whiteknight<br/>Date: Thu Jan 29 05:51:09 2009<br/>New Revision: 36144<br/><br/>Modified:<br/> trunk/src/gc/register.c<br/><br/>Log:<br/>[GC] removing old markers for the since-resolved tickets #46191 and #46181<br/><br/>Modified: trunk/src/gc/register.c<br/>==============================================================================<br/>--- trunk/src/gc/register.c (original)<br/>+++ trunk/src/gc/register.c Thu Jan 29 05:51:09 2009<br/>@@ -310,14 +310,14 @@<br/> ARGIN_NULLOK(const Parrot_Context *old))<br/> {<br/> ASSERT_ARGS(init_context)<br/>- ctx-&gt;ref_count = 0; /* RT #46191 1 - Exceptions !!! */<br/>+ ctx-&gt;ref_count = 0;<br/> ctx-&gt;gc_mark = 0;<br/> ctx-&gt;current_results = NULL;<br/> ctx-&gt;results_signature = NULL;<br/> ctx-&gt;lex_pad = PMCNULL;<br/> ctx-&gt;outer_ctx = NULL;<br/> ctx-&gt;current_cont = NULL;<br/>- ctx-&gt;current_object = NULL; /* RT #46181 who clears it? */<br/>+ ctx-&gt;current_object = NULL;<br/> ctx-&gt;current_HLL = 0;<br/> ctx-&gt;handlers = PMCNULL;<br/> <br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36493.html Thu, 29 Jan 2009 05:51:18 +0000 [svn:parrot] r36143 - trunk/languages/bf/config/makefiles by fperrad Author: fperrad<br/>Date: Thu Jan 29 03:05:49 2009<br/>New Revision: 36143<br/><br/>Modified:<br/> trunk/languages/bf/config/makefiles/root.in<br/><br/>Log:<br/>[codingstd] fix SVN Id for Makefiles<br/><br/>Modified: trunk/languages/bf/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/bf/config/makefiles/root.in (original)<br/>+++ trunk/languages/bf/config/makefiles/root.in Thu Jan 29 03:05:49 2009<br/>@@ -1,4 +1,5 @@<br/> # Copyright (C) 2002-2009, The Perl Foundation.<br/>+# $Id$<br/> <br/> RM_F = @rm_f@<br/> PERL = @perl@<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36492.html Thu, 29 Jan 2009 03:06:05 +0000 [svn:parrot] r36142 - trunk/t/codingstd by fperrad Author: fperrad<br/>Date: Thu Jan 29 03:03:43 2009<br/>New Revision: 36142<br/><br/>Modified:<br/> trunk/t/codingstd/svn_id.t<br/><br/>Log:<br/>[codingstd] add check of SVN Id for Makefile<br/><br/>Modified: trunk/t/codingstd/svn_id.t<br/>==============================================================================<br/>--- trunk/t/codingstd/svn_id.t (original)<br/>+++ trunk/t/codingstd/svn_id.t Thu Jan 29 03:03:43 2009<br/>@@ -38,7 +38,8 @@<br/> my $skip_files = $DIST-&gt;generated_files();<br/> my @c_files = $DIST-&gt;get_c_language_files();<br/> my @perl_files = $DIST-&gt;get_perl_language_files();<br/>-my @all_files = ( @c_files, @perl_files );<br/>+my @make_files = $DIST-&gt;get_make_language_files();<br/>+my @all_files = ( @c_files, @perl_files, @make_files );<br/> <br/> my @files = @ARGV ? @ARGV : @all_files;<br/> my @no_id_files;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36491.html Thu, 29 Jan 2009 03:03:53 +0000 [svn:parrot] r36141 - in trunk: compilers/ncigen/config/makefiles config/gen/makefiles languages/APL/config/makefiles languages/PIR/config/makefiles languages/Zcode/config/makefiles languages/abc/config/makefiles languages/befunge/config/makefiles languag by fperrad Author: fperrad<br/>Date: Thu Jan 29 03:01:34 2009<br/>New Revision: 36141<br/><br/>Modified:<br/> trunk/compilers/ncigen/config/makefiles/ncigen.in<br/> trunk/config/gen/makefiles/dynoplibs.in<br/> trunk/config/gen/makefiles/dynpmc.in<br/> trunk/config/gen/makefiles/editor.in<br/> trunk/config/gen/makefiles/ext.in<br/> trunk/config/gen/makefiles/json.in<br/> trunk/config/gen/makefiles/languages.in<br/> trunk/config/gen/makefiles/nqp.in<br/> trunk/config/gen/makefiles/pct.in<br/> trunk/config/gen/makefiles/pge.in<br/> trunk/config/gen/makefiles/pirc.in<br/> trunk/config/gen/makefiles/tge.in<br/> trunk/languages/APL/config/makefiles/root.in<br/> trunk/languages/PIR/config/makefiles/root.in<br/> trunk/languages/Zcode/config/makefiles/root.in<br/> trunk/languages/abc/config/makefiles/root.in<br/> trunk/languages/befunge/config/makefiles/root.in<br/> trunk/languages/bf/config/makefiles/root.in<br/> trunk/languages/c99/config/makefiles/cpp.in<br/> trunk/languages/c99/config/makefiles/root.in<br/> trunk/languages/cardinal/config/makefiles/root.in<br/> trunk/languages/chitchat/config/makefiles/root.in<br/> trunk/languages/cola/config/makefiles/root.in<br/> trunk/languages/ecmascript/config/makefiles/root.in<br/> trunk/languages/forth/config/makefiles/root.in<br/> trunk/languages/jako/config/makefiles/root.in<br/> trunk/languages/json/config/makefiles/root.in<br/> trunk/languages/lisp/config/makefiles/root.in<br/> trunk/languages/lolcode/config/makefiles/root.in<br/> trunk/languages/ook/config/makefiles/root.in<br/> trunk/languages/perl6/config/makefiles/root.in<br/> trunk/languages/perl6/config/makefiles/utils.in<br/> trunk/languages/pheme/config/makefiles/root.in<br/> trunk/languages/pipp/config/makefiles/root.in<br/> trunk/languages/pod/config/makefiles/root.in<br/> trunk/languages/punie/config/makefiles/root.in<br/> trunk/languages/pynie/config/makefiles/root.in<br/> trunk/languages/squaak/config/makefiles/root.in<br/> trunk/languages/urm/config/makefiles/root.in<br/><br/>Log:<br/>[codingstd] fix copyright for Makefiles<br/><br/>Modified: trunk/compilers/ncigen/config/makefiles/ncigen.in<br/>==============================================================================<br/>--- trunk/compilers/ncigen/config/makefiles/ncigen.in (original)<br/>+++ trunk/compilers/ncigen/config/makefiles/ncigen.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2008-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/config/gen/makefiles/dynoplibs.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/dynoplibs.in (original)<br/>+++ trunk/config/gen/makefiles/dynoplibs.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2003-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> PERL = @perl@<br/><br/>Modified: trunk/config/gen/makefiles/dynpmc.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/dynpmc.in (original)<br/>+++ trunk/config/gen/makefiles/dynpmc.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2003-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> PERL = @perl@<br/><br/>Modified: trunk/config/gen/makefiles/editor.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/editor.in (original)<br/>+++ trunk/config/gen/makefiles/editor.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2005-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> OPS_DIR = ../src/ops<br/><br/>Modified: trunk/config/gen/makefiles/ext.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/ext.in (original)<br/>+++ trunk/config/gen/makefiles/ext.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # setup of commands<br/><br/>Modified: trunk/config/gen/makefiles/json.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/json.in (original)<br/>+++ trunk/config/gen/makefiles/json.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> PERL = @perl@<br/><br/>Modified: trunk/config/gen/makefiles/languages.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/languages.in (original)<br/>+++ trunk/config/gen/makefiles/languages.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2002-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # setup of commands<br/><br/>Modified: trunk/config/gen/makefiles/nqp.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/nqp.in (original)<br/>+++ trunk/config/gen/makefiles/nqp.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2007-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Setup some commands<br/><br/>Modified: trunk/config/gen/makefiles/pct.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/pct.in (original)<br/>+++ trunk/config/gen/makefiles/pct.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Setup some commands<br/><br/>Modified: trunk/config/gen/makefiles/pge.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/pge.in (original)<br/>+++ trunk/config/gen/makefiles/pge.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2004-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Setup some commands<br/><br/>Modified: trunk/config/gen/makefiles/pirc.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/pirc.in (original)<br/>+++ trunk/config/gen/makefiles/pirc.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2007-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> .SUFFIXES : .c @o@<br/><br/>Modified: trunk/config/gen/makefiles/tge.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/tge.in (original)<br/>+++ trunk/config/gen/makefiles/tge.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2005-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> .SUFFIXES : .pir .pbc<br/><br/>Modified: trunk/languages/APL/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/APL/config/makefiles/root.in (original)<br/>+++ trunk/languages/APL/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/PIR/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/PIR/config/makefiles/root.in (original)<br/>+++ trunk/languages/PIR/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2007-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> ## arguments we want to run parrot with<br/>@@ -30,7 +31,7 @@<br/> <br/> PMC_DIR = src/pmc<br/> <br/>-all: pir.pbc <br/>+all: pir.pbc<br/> <br/> #PERL6_GROUP = $(PMC_DIR)/perl6_group$(LOAD_EXT)<br/> <br/>@@ -42,7 +43,7 @@<br/> src/pasm/gen_pasm_instr.pir \<br/> src/pasm/gen_pasm_core.pir \<br/> src/pasm/gen_pasm_io.pir \<br/>- src/pasm/gen_pasm_pmc.pir <br/>+ src/pasm/gen_pasm_pmc.pir<br/> <br/> PASMGRAMMAR = src/pasm/gen_pasm.pbc \<br/> src/pasm/gen_pasm_instr.pbc \<br/>@@ -102,7 +103,7 @@<br/> <br/> src/pasm/gen_pasm_args.pbc: src/pasm/gen_pasm_args.pir<br/> $(PARROT) --output-pbc -o src/pasm/gen_pasm_args.pbc src/pasm/gen_pasm_args.pir<br/>- <br/>+<br/> src/pasm/gen_pasm_io.pbc: src/pasm/gen_pasm_io.pir<br/> $(PARROT) --output-pbc -o src/pasm/gen_pasm_io.pbc src/pasm/gen_pasm_io.pir<br/> <br/>@@ -111,7 +112,7 @@<br/> <br/> src/pasm/gen_pasm_core.pbc: src/pasm/gen_pasm_core.pir<br/> $(PARROT) --output-pbc -o src/pasm/gen_pasm_core.pbc src/pasm/gen_pasm_core.pir<br/>- <br/>+<br/> # regenerate the Makefile<br/> Makefile: config/makefiles/root.in<br/> cd $(BUILD_DIR) &amp;&amp; $(RECONFIGURE) --step=gen::languages --languages=PIR<br/><br/>Modified: trunk/languages/Zcode/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/Zcode/config/makefiles/root.in (original)<br/>+++ trunk/languages/Zcode/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2005-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Makefile for languages/Zcode<br/>@@ -57,7 +58,7 @@<br/> clean:<br/> @echo &quot;No temp files to clean&quot;<br/> <br/>-# Deletes z files. <br/>+# Deletes z files.<br/> # Don&#39;t do this unless you have an Inform compiler!<br/> realclean: clean<br/> $(RM_F) Makefile<br/><br/>Modified: trunk/languages/abc/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/abc/config/makefiles/root.in (original)<br/>+++ trunk/languages/abc/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/befunge/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/befunge/config/makefiles/root.in (original)<br/>+++ trunk/languages/befunge/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2002-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Makefile for languages/befunge<br/><br/>Modified: trunk/languages/bf/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/bf/config/makefiles/root.in (original)<br/>+++ trunk/languages/bf/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,5 @@<br/>+# Copyright (C) 2002-2009, The Perl Foundation.<br/>+<br/> RM_F = @rm_f@<br/> PERL = @perl@<br/> PARROT=../../parrot<br/><br/>Modified: trunk/languages/c99/config/makefiles/cpp.in<br/>==============================================================================<br/>--- trunk/languages/c99/config/makefiles/cpp.in (original)<br/>+++ trunk/languages/c99/config/makefiles/cpp.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2008-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/c99/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/c99/config/makefiles/root.in (original)<br/>+++ trunk/languages/c99/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/cardinal/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/cardinal/config/makefiles/root.in (original)<br/>+++ trunk/languages/cardinal/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2008-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/chitchat/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/chitchat/config/makefiles/root.in (original)<br/>+++ trunk/languages/chitchat/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2008-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/cola/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/cola/config/makefiles/root.in (original)<br/>+++ trunk/languages/cola/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2004-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Makefile for languages/cola<br/><br/>Modified: trunk/languages/ecmascript/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/ecmascript/config/makefiles/root.in (original)<br/>+++ trunk/languages/ecmascript/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> ## arguments we want to run parrot with<br/>@@ -95,10 +96,10 @@<br/> js.pbc: $(PARROT) $(SOURCES)<br/> $(PARROT) $(PARROT_ARGS) -o js.pbc js.pir<br/> <br/>-src/gen_grammar.pir: $(PERL6GRAMMAR) src/parser/grammar.pg <br/>+src/gen_grammar.pir: $(PERL6GRAMMAR) src/parser/grammar.pg<br/> $(PARROT) $(PARROT_ARGS) $(PERL6GRAMMAR) \<br/> --output=src/gen_grammar.pir \<br/>- src/parser/grammar.pg <br/>+ src/parser/grammar.pg<br/> <br/> src/gen_actions.pir: $(NQP) $(PCT) src/parser/actions.pm<br/> $(PARROT) $(PARROT_ARGS) $(NQP) --output=src/gen_actions.pir \<br/>@@ -162,7 +163,7 @@<br/> t/*.out \<br/> t/*.rb<br/> <br/>-clean: <br/>+clean:<br/> $(RM_RF) $(CLEANUPS)<br/> <br/> realclean: clean<br/><br/>Modified: trunk/languages/forth/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/forth/config/makefiles/root.in (original)<br/>+++ trunk/languages/forth/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> PARROT = ../../parrot@exe@<br/><br/>Modified: trunk/languages/jako/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/jako/config/makefiles/root.in (original)<br/>+++ trunk/languages/jako/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,6 +1,4 @@<br/>-#<br/>-# Makefile.in<br/>-#<br/>+# Copyright (C) 2002-2009, The Perl Foundation.<br/> # $Id$<br/> #<br/> <br/><br/>Modified: trunk/languages/json/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/json/config/makefiles/root.in (original)<br/>+++ trunk/languages/json/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2008-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/lisp/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/lisp/config/makefiles/root.in (original)<br/>+++ trunk/languages/lisp/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2005-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Setup some commands<br/><br/>Modified: trunk/languages/lolcode/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/lolcode/config/makefiles/root.in (original)<br/>+++ trunk/languages/lolcode/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2008-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/ook/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/ook/config/makefiles/root.in (original)<br/>+++ trunk/languages/ook/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2003-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Makefile for languages/ook<br/><br/>Modified: trunk/languages/perl6/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/perl6/config/makefiles/root.in (original)<br/>+++ trunk/languages/perl6/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # arguments we want to run parrot with<br/>@@ -155,7 +156,7 @@<br/> <br/> spectest_checkout : t/spec<br/> <br/>-t/spec : <br/>+t/spec :<br/> svn co http:////svn.pugscode.org//pugs//t//spec t/spec<br/> <br/> spectest_update :<br/><br/>Modified: trunk/languages/perl6/config/makefiles/utils.in<br/>==============================================================================<br/>--- trunk/languages/perl6/config/makefiles/utils.in (original)<br/>+++ trunk/languages/perl6/config/makefiles/utils.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2008-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/pheme/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/pheme/config/makefiles/root.in (original)<br/>+++ trunk/languages/pheme/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # configuration settings<br/><br/>Modified: trunk/languages/pipp/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/pipp/config/makefiles/root.in (original)<br/>+++ trunk/languages/pipp/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2006-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Set up extensions<br/>@@ -294,7 +295,7 @@<br/> t/php/*.out \<br/> t/pmc/*.pir \<br/> pipp_test_run.tar.gz<br/>- <br/>+<br/> clean-hash:<br/> $(RM_F) &quot;$(HASH_OBJS)&quot;<br/> <br/><br/>Modified: trunk/languages/pod/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/pod/config/makefiles/root.in (original)<br/>+++ trunk/languages/pod/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/punie/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/punie/config/makefiles/root.in (original)<br/>+++ trunk/languages/punie/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2005-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Setup some commands<br/><br/>Modified: trunk/languages/pynie/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/pynie/config/makefiles/root.in (original)<br/>+++ trunk/languages/pynie/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2007-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/squaak/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/squaak/config/makefiles/root.in (original)<br/>+++ trunk/languages/squaak/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2008-2009, The Perl Foundation.<br/> ## $Id$<br/> <br/> ## arguments we want to run parrot with<br/><br/>Modified: trunk/languages/urm/config/makefiles/root.in<br/>==============================================================================<br/>--- trunk/languages/urm/config/makefiles/root.in (original)<br/>+++ trunk/languages/urm/config/makefiles/root.in Thu Jan 29 03:01:34 2009<br/>@@ -1,3 +1,4 @@<br/>+# Copyright (C) 2003-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> # Makefile for languages/urm<br/>@@ -34,17 +35,17 @@<br/> cd $(BUILD_DIR) &amp;&amp; $(RECONFIGURE) --step=gen::languages --languages=urm<br/> <br/> test: build<br/>- cd .. &amp;&amp; $(PERL) -I../lib urm/t/harness <br/>+ cd .. &amp;&amp; $(PERL) -I../lib urm/t/harness<br/> <br/> examples: build<br/> $(PERL) urmc -c examples/biggerzero.urm<br/> $(PERL) urmc -c examples/sub.urm<br/> $(PERL) urmc -c examples/sim.urm<br/>- $(PERL) urmc -c examples/mult.urm <br/>+ $(PERL) urmc -c examples/mult.urm<br/> $(PERL) urmc -c examples/div.urm<br/> $(PERL) urmc -c examples/distance.urm<br/> <br/>-build: <br/>+build:<br/> $(PERL) -c urmc<br/> <br/> clean:<br/>@@ -60,4 +61,4 @@<br/> <br/> realclean: clean<br/> $(RM_F) Makefile<br/>- <br/>+<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36490.html Thu, 29 Jan 2009 03:02:25 +0000 [svn:parrot] r36140 - in trunk: lib/Parrot t/codingstd by fperrad Author: fperrad<br/>Date: Thu Jan 29 02:54:07 2009<br/>New Revision: 36140<br/><br/>Modified:<br/> trunk/lib/Parrot/Distribution.pm<br/> trunk/t/codingstd/copyright.t<br/><br/>Log:<br/>[codingstd] add check of copyright for Makefile<br/><br/>Modified: trunk/lib/Parrot/Distribution.pm<br/>==============================================================================<br/>--- trunk/lib/Parrot/Distribution.pm (original)<br/>+++ trunk/lib/Parrot/Distribution.pm Thu Jan 29 02:54:07 2009<br/>@@ -321,6 +321,24 @@<br/> return shift-&gt;directory_exists_with_name(&#39;.git&#39;);<br/> }<br/> <br/>+=item C&lt;get_make_language_files()&gt;<br/>+<br/>+Returns the Make language source files within Parrot.<br/>+<br/>+=cut<br/>+<br/>+sub get_make_language_files {<br/>+ my ($self) = @_;<br/>+<br/>+ # Look through the list of distribution files<br/>+ # and return a sorted list of filenames<br/>+ my @files = sort<br/>+ map { $self-&gt;file_with_name($_) }<br/>+ grep { m|[/\\]makefiles[/\\][a-z]+\.in$| }<br/>+ $self-&gt;_dist_files;<br/>+ return @files;<br/>+}<br/>+<br/> =item C&lt;get_c_language_files()&gt;<br/> <br/> Returns the C language source files within Parrot. Namely:<br/><br/>Modified: trunk/t/codingstd/copyright.t<br/>==============================================================================<br/>--- trunk/t/codingstd/copyright.t (original)<br/>+++ trunk/t/codingstd/copyright.t Thu Jan 29 02:54:07 2009<br/>@@ -38,7 +38,8 @@<br/> my $skip_files = $DIST-&gt;generated_files();<br/> my @c_files = $DIST-&gt;get_c_language_files();<br/> my @perl_files = $DIST-&gt;get_perl_language_files();<br/>-my @all_files = ( @c_files, @perl_files );<br/>+my @make_files = $DIST-&gt;get_make_language_files();<br/>+my @all_files = ( @c_files, @perl_files, @make_files );<br/> <br/> my @files = @ARGV ? @ARGV : @all_files;<br/> my ( @no_copyright_files, @outdated_copyright_files );<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36489.html Thu, 29 Jan 2009 02:54:34 +0000 [svn:parrot] r36139 - in branches/pdd28str_part2: compilers/imcc compilers/pirc/src config/gen/crypto docs include/parrot languages/dotnet/pmc languages/lua/src/pmc languages/regex/pmc src src/dynpmc src/ops src/pmc src/string t/src tools/build tools/dev by allison Author: allison<br/>Date: Thu Jan 29 00:53:29 2009<br/>New Revision: 36139<br/><br/>Modified:<br/> branches/pdd28str_part2/compilers/imcc/imcc.y<br/> branches/pdd28str_part2/compilers/imcc/imcparser.c<br/> branches/pdd28str_part2/compilers/imcc/optimizer.c<br/> branches/pdd28str_part2/compilers/imcc/parser_util.c<br/> branches/pdd28str_part2/compilers/imcc/pbc.c<br/> branches/pdd28str_part2/compilers/pirc/src/bcgen.c<br/> branches/pdd28str_part2/compilers/pirc/src/pircompunit.c<br/> branches/pdd28str_part2/compilers/pirc/src/piremit.c<br/> branches/pdd28str_part2/config/gen/crypto/digest_pmc.in<br/> branches/pdd28str_part2/docs/embed.pod<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc<br/> branches/pdd28str_part2/languages/lua/src/pmc/lua.pmc<br/> branches/pdd28str_part2/languages/lua/src/pmc/luabytecode.pmc<br/> branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc<br/> branches/pdd28str_part2/src/dynpmc/gdbmhash.pmc<br/> branches/pdd28str_part2/src/dynpmc/rational.pmc<br/> branches/pdd28str_part2/src/extend.c<br/> branches/pdd28str_part2/src/inter_cb.c<br/> branches/pdd28str_part2/src/inter_misc.c<br/> branches/pdd28str_part2/src/key.c<br/> branches/pdd28str_part2/src/library.c<br/> branches/pdd28str_part2/src/main.c<br/> branches/pdd28str_part2/src/multidispatch.c<br/> branches/pdd28str_part2/src/oo.c<br/> branches/pdd28str_part2/src/ops/core.ops<br/> branches/pdd28str_part2/src/ops/sys.ops<br/> branches/pdd28str_part2/src/packdump.c<br/> branches/pdd28str_part2/src/parrot_debugger.c<br/> branches/pdd28str_part2/src/pmc/bigint.pmc<br/> branches/pdd28str_part2/src/pmc/complex.pmc<br/> branches/pdd28str_part2/src/pmc/env.pmc<br/> branches/pdd28str_part2/src/pmc/filehandle.pmc<br/> branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc<br/> branches/pdd28str_part2/src/pmc/os.pmc<br/> branches/pdd28str_part2/src/pmc/packfile.pmc<br/> branches/pdd28str_part2/src/pmc/packfilefixupentry.pmc<br/> branches/pdd28str_part2/src/pmc/resizablebooleanarray.pmc<br/> branches/pdd28str_part2/src/pmc/resizablestringarray.pmc<br/> branches/pdd28str_part2/src/pmc/stringhandle.pmc<br/> branches/pdd28str_part2/src/string/api.c<br/> branches/pdd28str_part2/src/sub.c<br/> branches/pdd28str_part2/t/src/extend.t<br/> branches/pdd28str_part2/tools/build/nativecall.pl<br/> branches/pdd28str_part2/tools/dev/pbc_to_exe_gen.pl<br/><br/>Log:<br/>[pdd28str] Realizing that &#39;Parrot_str_new&#39; and &#39;Parrot_str_new_from_cstring&#39; do<br/>exactly the same thing (take a C string argument and return a new Parrot<br/>STRING*), collapsing them into one function.<br/><br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/imcc.y<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/imcc.y (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/imcc.y Thu Jan 29 00:53:29 2009<br/>@@ -476,7 +476,7 @@<br/> <br/> r[1] = rhs;<br/> rhs-&gt;pmc_type = pmc_type(interp,<br/>- Parrot_str_new_from_cstring(interp, unquoted_name, name_length));<br/>+ Parrot_str_new(interp, unquoted_name, name_length));<br/> <br/> mem_sys_free(unquoted_name);<br/> mem_sys_free(const_name);<br/>@@ -1713,7 +1713,7 @@<br/> /* there&#39;d normally be a str_dup() here, but the lexer already<br/> * copied the string, so it&#39;s safe to use directly */<br/> if ((IMCC_INFO(interp)-&gt;cur_pmc_type = pmc_type(interp,<br/>- Parrot_str_new_from_cstring(interp, $1, 0))) &lt;= 0) {<br/>+ Parrot_str_new(interp, $1, 0))) &lt;= 0) {<br/> IMCC_fataly(interp, EXCEPTION_SYNTAX_ERROR,<br/> &quot;Unknown PMC type &#39;%s&#39;\n&quot;, $1);<br/> }<br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/imcparser.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/imcparser.c (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/imcparser.c Thu Jan 29 00:53:29 2009<br/>@@ -802,7 +802,7 @@<br/> <br/> r[1] = rhs;<br/> rhs-&gt;pmc_type = pmc_type(interp,<br/>- Parrot_str_new_from_cstring(interp, unquoted_name, name_length));<br/>+ Parrot_str_new(interp, unquoted_name, name_length));<br/> <br/> mem_sys_free(unquoted_name);<br/> mem_sys_free(const_name);<br/>@@ -4127,7 +4127,7 @@<br/> /* there&#39;d normally be a str_dup() here, but the lexer already<br/> * copied the string, so it&#39;s safe to use directly */<br/> if ((IMCC_INFO(interp)-&gt;cur_pmc_type = pmc_type(interp,<br/>- Parrot_str_new_from_cstring(interp, (yyvsp[(1) - (1)].s), 0))) &lt;= 0) {<br/>+ Parrot_str_new(interp, (yyvsp[(1) - (1)].s), 0))) &lt;= 0) {<br/> IMCC_fataly(interp, EXCEPTION_SYNTAX_ERROR,<br/> &quot;Unknown PMC type &#39;%s&#39;\n&quot;, (yyvsp[(1) - (1)].s));<br/> }<br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/optimizer.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/optimizer.c (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/optimizer.c Thu Jan 29 00:53:29 2009<br/>@@ -826,7 +826,7 @@<br/> break;<br/> case &#39;N&#39;:<br/> {<br/>- STRING * const s = Parrot_str_new_from_cstring(interp, r[i]-&gt;name, 0);<br/>+ STRING * const s = Parrot_str_new(interp, r[i]-&gt;name, 0);<br/> REG_NUM(interp, i) = string_to_num(interp, s);<br/> }<br/> break;<br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/parser_util.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/parser_util.c (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/parser_util.c Thu Jan 29 00:53:29 2009<br/>@@ -152,7 +152,7 @@<br/> SymReg *pmc;<br/> int nargs;<br/> const int pmc_num = pmc_type(interp,<br/>- Parrot_str_new_from_cstring(interp, *type == &#39;.&#39; ? type + 1 : type, 0));<br/>+ Parrot_str_new(interp, *type == &#39;.&#39; ? type + 1 : type, 0));<br/> <br/> snprintf(fmt, sizeof (fmt), &quot;%d&quot;, pmc_num);<br/> pmc = mk_const(interp, fmt, &#39;I&#39;);<br/>@@ -698,7 +698,7 @@<br/> sub_data-&gt;seg = new_cs;<br/> sub_data-&gt;start_offs = 0;<br/> sub_data-&gt;end_offs = new_cs-&gt;base.size;<br/>- sub_data-&gt;name = Parrot_str_new_from_cstring(interp, name, 0);<br/>+ sub_data-&gt;name = Parrot_str_new(interp, name, 0);<br/> <br/> *error_message = NULL;<br/> }<br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/pbc.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/pbc.c (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/pbc.c Thu Jan 29 00:53:29 2009<br/>@@ -1060,7 +1060,7 @@<br/> {<br/> ASSERT_ARGS(add_const_num)<br/> const int k = add_const_table(interp);<br/>- STRING * const s = Parrot_str_new_from_cstring(interp, buf, 0);<br/>+ STRING * const s = Parrot_str_new(interp, buf, 0);<br/> <br/> interp-&gt;code-&gt;const_table-&gt;constants[k]-&gt;type = PFC_NUMBER;<br/> interp-&gt;code-&gt;const_table-&gt;constants[k]-&gt;u.number = string_to_num(interp, s);<br/>@@ -1323,7 +1323,7 @@<br/> /* Do we have to create an instance of a specific type for this sub? */<br/> if (unit-&gt;instance_of) {<br/> /* Look it up as a class and as a PMC type. */<br/>- STRING * const classname = Parrot_str_new_from_cstring(interp,<br/>+ STRING * const classname = Parrot_str_new(interp,<br/> unit-&gt;instance_of + 1, strlen(unit-&gt;instance_of) - 2);<br/> <br/> PMC * const classobj = Parrot_oo_get_class_str(interp, classname);<br/>@@ -1420,7 +1420,7 @@<br/> <br/> /* Work out the name of the vtable method. */<br/> if (unit-&gt;vtable_name) {<br/>- vtable_name = Parrot_str_new_from_cstring(interp, unit-&gt;vtable_name + 1,<br/>+ vtable_name = Parrot_str_new(interp, unit-&gt;vtable_name + 1,<br/> strlen(unit-&gt;vtable_name) - 2);<br/> UNIT_FREE_CHAR(unit-&gt;method_name);<br/> }<br/>@@ -1450,7 +1450,7 @@<br/> sub-&gt;method_name = sub-&gt;name;<br/> }<br/> else<br/>- sub-&gt;method_name = Parrot_str_new_from_cstring(interp, &quot;&quot;, 0);<br/>+ sub-&gt;method_name = Parrot_str_new(interp, &quot;&quot;, 0);<br/> <br/> <br/> if (unit-&gt;has_ns_entry_name == 1) {<br/><br/>Modified: branches/pdd28str_part2/compilers/pirc/src/bcgen.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/pirc/src/bcgen.c (original)<br/>+++ branches/pdd28str_part2/compilers/pirc/src/bcgen.c Thu Jan 29 00:53:29 2009<br/>@@ -749,7 +749,7 @@<br/> <br/> /* walk through the list of lexicals and register them */<br/> while (lexiter) {<br/>- STRING *lexname = Parrot_str_new_from_cstring(bc-&gt;interp, lexiter-&gt;name, strlen(lexiter-&gt;name));<br/>+ STRING *lexname = Parrot_str_new(bc-&gt;interp, lexiter-&gt;name, strlen(lexiter-&gt;name));<br/> <br/> /* declare the .lex as such */<br/> <br/>@@ -900,7 +900,7 @@<br/> if (instanceof) {<br/> /* Look it up as a class and as a PMC type. */<br/> STRING * const classname<br/>- = Parrot_str_new_from_cstring(bc-&gt;interp, instanceof + 1, strlen(instanceof) - 2);<br/>+ = Parrot_str_new(bc-&gt;interp, instanceof + 1, strlen(instanceof) - 2);<br/> <br/> PMC * const classobj = Parrot_oo_get_class_str(bc-&gt;interp, classname);<br/> <br/><br/>Modified: branches/pdd28str_part2/compilers/pirc/src/pircompunit.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/pirc/src/pircompunit.c (original)<br/>+++ branches/pdd28str_part2/compilers/pirc/src/pircompunit.c Thu Jan 29 00:53:29 2009<br/>@@ -199,7 +199,7 @@<br/> <br/> /* get the index number of this vtable method */<br/> vtable_index = Parrot_get_vtable_index(lexer-&gt;interp,<br/>- Parrot_str_new_from_cstring(lexer-&gt;interp, vtablename,<br/>+ Parrot_str_new(lexer-&gt;interp, vtablename,<br/> strlen(vtablename)));<br/> <br/> /* now check whether the method name actually a vtable method */<br/>@@ -894,7 +894,7 @@<br/> void<br/> load_library(lexer_state * const lexer, char const * const library) {<br/> /* see imcc.y:600 */<br/>- STRING *libname = Parrot_str_new_from_cstring(lexer-&gt;interp, library, strlen(library));<br/>+ STRING *libname = Parrot_str_new(lexer-&gt;interp, library, strlen(library));<br/> PMC *ignored_value = Parrot_load_lib(lexer-&gt;interp, libname, NULL);<br/> UNUSED(ignored_value);<br/> Parrot_register_HLL_lib(lexer-&gt;interp, libname);<br/>@@ -1442,9 +1442,9 @@<br/> char const * const name, constant * const value)<br/> {<br/> /* get a STRING representation of the c-string type */<br/>- STRING *classname = Parrot_str_new_from_cstring(lexer-&gt;interp, type, strlen(type));<br/>+ STRING *classname = Parrot_str_new(lexer-&gt;interp, type, strlen(type));<br/> /* get a STRING holding the c-string &quot;Sub&quot; */<br/>- STRING *subclassname = Parrot_str_new_from_cstring(lexer-&gt;interp, &quot;Sub&quot;, 3);<br/>+ STRING *subclassname = Parrot_str_new(lexer-&gt;interp, &quot;Sub&quot;, 3);<br/> /* get a PMC for the class passed in type */<br/> PMC *constclass = Parrot_oo_get_class_str(lexer-&gt;interp, classname);<br/> /* check whether that PMC isa &quot;Sub&quot; */<br/>@@ -1488,7 +1488,7 @@<br/> }<br/> else if (value-&gt;type == INT_VAL) {<br/> <br/>- STRING *intclassname = Parrot_str_new_from_cstring(lexer-&gt;interp, &quot;Integer&quot;, 7);<br/>+ STRING *intclassname = Parrot_str_new(lexer-&gt;interp, &quot;Integer&quot;, 7);<br/> INTVAL is_an_int = VTABLE_isa(lexer-&gt;interp, constclass, intclassname);<br/> <br/> if (is_an_int) {<br/>@@ -1523,7 +1523,7 @@<br/> <br/> }<br/> else if (value-&gt;type == NUM_VAL) {<br/>- STRING *numclassname = Parrot_str_new_from_cstring(lexer-&gt;interp, &quot;Float&quot;, 5);<br/>+ STRING *numclassname = Parrot_str_new(lexer-&gt;interp, &quot;Float&quot;, 5);<br/> INTVAL is_a_num = VTABLE_isa(lexer-&gt;interp, constclass, numclassname);<br/> <br/> if (is_a_num) {<br/>@@ -1553,7 +1553,7 @@<br/> }<br/> }<br/> else if (value-&gt;type == STRING_VAL) {<br/>- STRING *strclassname = Parrot_str_new_from_cstring(lexer-&gt;interp, &quot;String&quot;, 6);<br/>+ STRING *strclassname = Parrot_str_new(lexer-&gt;interp, &quot;String&quot;, 6);<br/> INTVAL is_a_string = VTABLE_isa(lexer-&gt;interp, constclass, strclassname);<br/> <br/> if (is_a_string) {<br/>@@ -1566,7 +1566,7 @@<br/> int index = add_pmc_const(lexer-&gt;bc, strconst);<br/> <br/> VTABLE_set_string_native(lexer-&gt;interp, strconst,<br/>- Parrot_str_new_from_cstring(lexer-&gt;interp, value-&gt;val.sval,<br/>+ Parrot_str_new(lexer-&gt;interp, value-&gt;val.sval,<br/> strlen(value-&gt;val.sval)));<br/> <br/> declare_local(lexer, PMC_TYPE, constsym);<br/>@@ -1995,7 +1995,7 @@<br/> */<br/> void<br/> set_hll(lexer_state * const lexer, char const * const hll) {<br/>- STRING * const hll_name = Parrot_str_new_from_cstring(lexer-&gt;interp, hll, strlen(hll));<br/>+ STRING * const hll_name = Parrot_str_new(lexer-&gt;interp, hll, strlen(hll));<br/> CONTEXT(lexer-&gt;interp)-&gt;current_HLL = Parrot_register_HLL(lexer-&gt;interp, hll_name);<br/> }<br/> <br/>@@ -2021,8 +2021,8 @@<br/> void<br/> set_hll_map(lexer_state * const lexer, char const * const stdtype, char const * const maptype) {<br/> Parrot_Context *ctx = CONTEXT(lexer-&gt;interp);<br/>- STRING * const built_in_name = Parrot_str_new_from_cstring(lexer-&gt;interp, stdtype, strlen(stdtype));<br/>- STRING * const language_name = Parrot_str_new_from_cstring(lexer-&gt;interp, maptype, strlen(maptype));<br/>+ STRING * const built_in_name = Parrot_str_new(lexer-&gt;interp, stdtype, strlen(stdtype));<br/>+ STRING * const language_name = Parrot_str_new(lexer-&gt;interp, maptype, strlen(maptype));<br/> int built_in_type = pmc_type(lexer-&gt;interp, built_in_name);<br/> int language_type = pmc_type(lexer-&gt;interp, language_name);<br/> <br/><br/>Modified: branches/pdd28str_part2/compilers/pirc/src/piremit.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/pirc/src/piremit.c (original)<br/>+++ branches/pdd28str_part2/compilers/pirc/src/piremit.c Thu Jan 29 00:53:29 2009<br/>@@ -787,7 +787,7 @@<br/> int index = add_pmc_const(lexer-&gt;bc, strconst);<br/> <br/> VTABLE_set_string_native(lexer-&gt;interp, strconst,<br/>- Parrot_str_new_from_cstring(lexer-&gt;interp,<br/>+ Parrot_str_new(lexer-&gt;interp,<br/> second_operand-&gt;expr.c-&gt;val.sval,<br/> strlen(second_operand-&gt;expr.c-&gt;val.sval)));<br/> <br/><br/>Modified: branches/pdd28str_part2/config/gen/crypto/digest_pmc.in<br/>==============================================================================<br/>--- branches/pdd28str_part2/config/gen/crypto/digest_pmc.in (original)<br/>+++ branches/pdd28str_part2/config/gen/crypto/digest_pmc.in Thu Jan 29 00:53:29 2009<br/>@@ -132,7 +132,7 @@<br/> STRING *retval;<br/> <br/> (void)@md_name@_Final(digest, c);<br/>- retval = Parrot_str_new_from_cstring(INTERP, (char *)digest, @md_digest@_LENGTH);<br/>+ retval = Parrot_str_new(INTERP, (char *)digest, @md_digest@_LENGTH);<br/> <br/> RETURN(STRING *retval);<br/> #else<br/><br/>Modified: branches/pdd28str_part2/docs/embed.pod<br/>==============================================================================<br/>--- branches/pdd28str_part2/docs/embed.pod (original)<br/>+++ branches/pdd28str_part2/docs/embed.pod Thu Jan 29 00:53:29 2009<br/>@@ -290,7 +290,7 @@<br/> XXX needs to be a formal Parrot_* API.<br/> Returns the C string representation of a Parrot string.<br/> <br/>-=item C&lt;STRING *Parrot_str_new_from_cstring(PARROT_INTERP, const char *string, int len)&gt;<br/>+=item C&lt;STRING *Parrot_str_new(PARROT_INTERP, const char *string, int len)&gt;<br/> <br/> XXX needs to be a formal Parrot_* API.<br/> Returns the Parrot string representation of a C string.<br/>@@ -298,7 +298,7 @@<br/> =item C&lt;string_from_literal(PARROT_INTERP, const char *string)&gt;<br/> <br/> XXX needs to be a formal Parrot_* API.<br/>-A macro for simplifying calls to C&lt;Parrot_str_new_from_cstring&gt;.<br/>+A macro for simplifying calls to C&lt;Parrot_str_new&gt;.<br/> <br/> =back<br/> <br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Thu Jan 29 00:53:29 2009<br/>@@ -19,7 +19,7 @@<br/> <br/> /* Declarations of accessors */<br/> <br/>-#define string_from_literal(i, s) Parrot_str_new_from_cstring((i), (s), (sizeof (s)-1))<br/>+#define string_from_literal(i, s) Parrot_str_new((i), (s), (sizeof (s)-1))<br/> #define Parrot_unCOW_string(i, s) PObj_COW_TEST((s)) ? \<br/> Parrot_str_write_COW((i), (s)), (s) : (s)<br/> <br/>@@ -281,7 +281,7 @@<br/> PARROT_WARN_UNUSED_RESULT<br/> PARROT_MALLOC<br/> PARROT_CANNOT_RETURN_NULL<br/>-STRING * Parrot_str_new_from_cstring(PARROT_INTERP,<br/>+STRING * Parrot_str_new(PARROT_INTERP,<br/> ARGIN_NULLOK(const char * const buffer),<br/> const UINTVAL len)<br/> __attribute__nonnull__(1);<br/>@@ -637,7 +637,7 @@<br/> #define ASSERT_ARGS_string_escape_string_delimited \<br/> __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/>-#define ASSERT_ARGS_Parrot_str_new_from_cstring __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_new __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/> #define ASSERT_ARGS_string_from_int __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/><br/>Modified: branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc (original)<br/>+++ branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc Thu Jan 29 00:53:29 2009<br/>@@ -897,7 +897,7 @@<br/> else<br/> pos_name = stream_word_u(ass-&gt;tables, row_addr + 4);<br/> if (pos_name)<br/>- param-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ param-&gt;str_name = Parrot_str_new(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> param-&gt;str_name = NULL;<br/> <br/>@@ -947,7 +947,7 @@<br/> cur_pos = 6;<br/> }<br/> if (pos_name)<br/>- field-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ field-&gt;str_name = Parrot_str_new(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> field-&gt;str_name = NULL;<br/> <br/>@@ -1011,7 +1011,7 @@<br/> cur_pos = 12;<br/> }<br/> if (pos_name)<br/>- method-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ method-&gt;str_name = Parrot_str_new(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> method-&gt;str_name = NULL;<br/> <br/>@@ -1187,12 +1187,12 @@<br/> cur_pos = 12;<br/> }<br/> if (pos_name)<br/>- type-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ type-&gt;str_name = Parrot_str_new(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> type-&gt;str_name = NULL;<br/> if (pos_namespace)<br/> {<br/>- type-&gt;str_namespace = Parrot_str_new_from_cstring(INTERP,<br/>+ type-&gt;str_namespace = Parrot_str_new(INTERP,<br/> ass-&gt;strings + pos_namespace, 0);<br/> type-&gt;str_fullname = Parrot_str_concat(INTERP, type-&gt;str_namespace,<br/> string_from_literal(INTERP, &quot;.&quot;), 0);<br/>@@ -1357,11 +1357,11 @@<br/> pos_namespace = stream_word_u(ass-&gt;tables, row_addr + cur_pos + 4);<br/> }<br/> if (pos_name)<br/>- typeref-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ typeref-&gt;str_name = Parrot_str_new(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> typeref-&gt;str_name = NULL;<br/> if (pos_namespace)<br/>- typeref-&gt;str_namespace = Parrot_str_new_from_cstring(INTERP,<br/>+ typeref-&gt;str_namespace = Parrot_str_new(INTERP,<br/> ass-&gt;strings + pos_namespace, 0);<br/> else<br/> typeref-&gt;str_namespace = NULL;<br/>@@ -1425,7 +1425,7 @@<br/> pos_name = stream_word_u(ass-&gt;tables, row_addr + cur_pos);<br/> cur_pos += 4;<br/> }<br/>- memberref-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ memberref-&gt;str_name = Parrot_str_new(INTERP, ass-&gt;strings + pos_name, 0);<br/> <br/> /* Get signature. */<br/> if (ass-&gt;blobs_ptr_size == 2)<br/>@@ -1493,7 +1493,7 @@<br/> pos_name = stream_word_u(ass-&gt;tables, row_addr + cur_pos);<br/> cur_pos += 4;<br/> }<br/>- assemblyref-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ assemblyref-&gt;str_name = Parrot_str_new(INTERP, ass-&gt;strings + pos_name, 0);<br/> <br/> /* Get culture. */<br/> if (ass-&gt;strings_ptr_size == 2)<br/>@@ -1506,7 +1506,7 @@<br/> pos_culture = stream_word_u(ass-&gt;tables, row_addr + cur_pos);<br/> cur_pos += 4;<br/> }<br/>- assemblyref-&gt;str_culture = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_culture, 0);<br/>+ assemblyref-&gt;str_culture = Parrot_str_new(INTERP, ass-&gt;strings + pos_culture, 0);<br/> <br/> /* Get hash value blob index. */<br/> if (ass-&gt;blobs_ptr_size == 2)<br/>@@ -1935,7 +1935,7 @@<br/> /* Create and return a new string (pass 0 as length; end found<br/> automatically). */<br/> <br/>- result = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + i, 0);<br/>+ result = Parrot_str_new(INTERP, ass-&gt;strings + i, 0);<br/> RETURN(STRING *result);<br/> }<br/> <br/>@@ -2039,7 +2039,7 @@<br/> &quot;Blob position and length out of range&quot;);<br/> <br/> /* Return string containing blob. */<br/>- out = Parrot_str_new_from_cstring(INTERP, ass-&gt;blobs + start, length);<br/>+ out = Parrot_str_new(INTERP, ass-&gt;blobs + start, length);<br/> if (!out)<br/> Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_INVALID_OPERATION,<br/> &quot;Unable to create blob string&quot;);<br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/lua.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/lua.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/lua.pmc Thu Jan 29 00:53:29 2009<br/>@@ -146,7 +146,7 @@<br/> if (p) {<br/> retval = pmc_new(INTERP, dynpmc_LuaString);<br/> VTABLE_set_string_native(INTERP, retval,<br/>- Parrot_str_new_from_cstring(INTERP, p, 0));<br/>+ Parrot_str_new(INTERP, p, 0));<br/> }<br/> else<br/> retval = pmc_new(INTERP, dynpmc_LuaNil);<br/>@@ -183,7 +183,7 @@<br/> string_cstring_free(s);<br/> }<br/> <br/>- retval = Parrot_str_new_from_cstring(INTERP, b, reslen);<br/>+ retval = Parrot_str_new(INTERP, b, reslen);<br/> RETURN(STRING *retval);<br/> }<br/> <br/>@@ -213,7 +213,7 @@<br/> Parrot_ex_throw_from_c_args(INTERP, NULL, 1,<br/> &quot;unable to generate a unique filename&quot;);<br/> <br/>- retval = Parrot_str_new_from_cstring(INTERP, buff, 0);<br/>+ retval = Parrot_str_new(INTERP, buff, 0);<br/> RETURN(STRING *retval);<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/luabytecode.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/luabytecode.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/luabytecode.pmc Thu Jan 29 00:53:29 2009<br/>@@ -112,11 +112,11 @@<br/> memcpy(&amp;s, fp, sizeof s);<br/> fp += sizeof s;<br/> if (s != 0) {<br/>- str = Parrot_str_new_from_cstring(interp, fp, s-1);<br/>+ str = Parrot_str_new(interp, fp, s-1);<br/> fp += s;<br/> }<br/> else<br/>- str = Parrot_str_new_from_cstring(interp, &quot;&quot;, 0);<br/>+ str = Parrot_str_new(interp, &quot;&quot;, 0);<br/> return str;<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc (original)<br/>+++ branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc Thu Jan 29 00:53:29 2009<br/>@@ -54,12 +54,12 @@<br/> static INTVAL*<br/> matchrange_locate_keyed_int(Interp* interp, PMC* self, STRING *key)<br/> {<br/>- STRING *start = Parrot_str_new_from_cstring(interp, &quot;start&quot;, 5);<br/>+ STRING *start = Parrot_str_new(interp, &quot;start&quot;, 5);<br/> STRING *end;<br/> <br/> if (0 == string_equal(interp, key, start))<br/> return &amp;RANGE_START(self);<br/>- end = Parrot_str_new_from_cstring(interp, &quot;end&quot;, 3);<br/>+ end = Parrot_str_new(interp, &quot;end&quot;, 3);<br/> if (0 == string_equal(interp, key, end))<br/> return &amp;RANGE_END(self);<br/> Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_KEY_NOT_FOUND,<br/><br/>Modified: branches/pdd28str_part2/src/dynpmc/gdbmhash.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/dynpmc/gdbmhash.pmc (original)<br/>+++ branches/pdd28str_part2/src/dynpmc/gdbmhash.pmc Thu Jan 29 00:53:29 2009<br/>@@ -235,7 +235,7 @@<br/> key_gdbm.dptr = keystr-&gt;strstart;<br/> val_gdbm = gdbm_fetch(dbf, key_gdbm);<br/> <br/>- val = Parrot_str_new_from_cstring(interp, val_gdbm.dptr, val_gdbm.dsize);<br/>+ val = Parrot_str_new(interp, val_gdbm.dptr, val_gdbm.dsize);<br/> free(val_gdbm.dptr);<br/> <br/> return val;<br/><br/>Modified: branches/pdd28str_part2/src/dynpmc/rational.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/dynpmc/rational.pmc (original)<br/>+++ branches/pdd28str_part2/src/dynpmc/rational.pmc Thu Jan 29 00:53:29 2009<br/>@@ -55,7 +55,7 @@<br/> static STRING *rat_get_string_to_base(PARROT_INTERP, PMC *self, int base) {<br/> #ifdef PARROT_HAS_GMP<br/> char * const cstr = mpq_get_str(NULL, (int) base, RT(self));<br/>- STRING * pstr = Parrot_str_new_from_cstring(interp, cstr, 0);<br/>+ STRING * pstr = Parrot_str_new(interp, cstr, 0);<br/> string_cstring_free(cstr);<br/> return pstr;<br/> #else<br/>@@ -286,9 +286,9 @@<br/> METHOD version() {<br/> STRING *version;<br/> #ifdef PARROT_HAS_GMP<br/>- version = Parrot_str_new_from_cstring(INTERP, gmp_version, 0);<br/>+ version = Parrot_str_new(INTERP, gmp_version, 0);<br/> #else<br/>- version = Parrot_str_new_from_cstring(INTERP, &quot;0.0.0&quot;, 0);<br/>+ version = Parrot_str_new(INTERP, &quot;0.0.0&quot;, 0);<br/> #endif<br/> RETURN(STRING *version);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/extend.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/extend.c (original)<br/>+++ branches/pdd28str_part2/src/extend.c Thu Jan 29 00:53:29 2009<br/>@@ -683,7 +683,7 @@<br/> ASSERT_ARGS(Parrot_PMC_set_cstring)<br/> PARROT_CALLIN_START(interp);<br/> VTABLE_set_string_native(interp, pmc,<br/>- Parrot_str_new_from_cstring(interp, value, 0));<br/>+ Parrot_str_new(interp, value, 0));<br/> PARROT_CALLIN_END(interp);<br/> }<br/> <br/>@@ -705,7 +705,7 @@<br/> ASSERT_ARGS(Parrot_PMC_set_cstring_intkey)<br/> PARROT_CALLIN_START(interp);<br/> VTABLE_set_string_keyed_int(interp, pmc, key,<br/>- Parrot_str_new_from_cstring(interp, value, 0));<br/>+ Parrot_str_new(interp, value, 0));<br/> PARROT_CALLIN_END(interp);<br/> }<br/> <br/>@@ -727,7 +727,7 @@<br/> ASSERT_ARGS(Parrot_PMC_set_cstringn)<br/> PARROT_CALLIN_START(interp);<br/> VTABLE_set_string_native(interp, pmc,<br/>- Parrot_str_new_from_cstring(interp, value, length));<br/>+ Parrot_str_new(interp, value, length));<br/> PARROT_CALLIN_END(interp);<br/> }<br/> <br/>@@ -811,7 +811,7 @@<br/> ASSERT_ARGS(Parrot_PMC_set_cstringn_intkey)<br/> PARROT_CALLIN_START(interp);<br/> VTABLE_set_string_keyed_int(interp, pmc, key,<br/>- Parrot_str_new_from_cstring(interp, value, length));<br/>+ Parrot_str_new(interp, value, length));<br/> PARROT_CALLIN_END(interp);<br/> }<br/> <br/>@@ -855,7 +855,7 @@<br/> ASSERT_ARGS(Parrot_PMC_typenum)<br/> Parrot_Int retval;<br/> PARROT_CALLIN_START(interp);<br/>- retval = pmc_type(interp, Parrot_str_new_from_cstring(interp, _class, 0));<br/>+ retval = pmc_type(interp, Parrot_str_new(interp, _class, 0));<br/> PARROT_CALLIN_END(interp);<br/> return retval;<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/inter_cb.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/inter_cb.c (original)<br/>+++ branches/pdd28str_part2/src/inter_cb.c Thu Jan 29 00:53:29 2009<br/>@@ -356,7 +356,7 @@<br/> #endif<br/> case &#39;t&#39;:<br/> pasm_sig[2] = &#39;S&#39;;<br/>- param = Parrot_str_new_from_cstring(interp, external_data, 0);<br/>+ param = Parrot_str_new(interp, external_data, 0);<br/> break;<br/> default:<br/> Parrot_ex_throw_from_c_args(interp, NULL, 1,<br/><br/>Modified: branches/pdd28str_part2/src/inter_misc.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/inter_misc.c (original)<br/>+++ branches/pdd28str_part2/src/inter_misc.c Thu Jan 29 00:53:29 2009<br/>@@ -398,7 +398,7 @@<br/> if (pos &gt; 0)<br/> pos++;<br/> <br/>- basename = Parrot_str_new_from_cstring(interp, fullname_c + pos, 0);<br/>+ basename = Parrot_str_new(interp, fullname_c + pos, 0);<br/> mem_sys_free(fullname_c);<br/> <br/> return basename;<br/><br/>Modified: branches/pdd28str_part2/src/key.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/key.c (original)<br/>+++ branches/pdd28str_part2/src/key.c Thu Jan 29 00:53:29 2009<br/>@@ -141,7 +141,7 @@<br/> key_new_cstring(PARROT_INTERP, ARGIN_NULLOK(const char *value))<br/> {<br/> ASSERT_ARGS(key_new_cstring)<br/>- return key_new_string(interp, Parrot_str_new_from_cstring(interp, value, 0));<br/>+ return key_new_string(interp, Parrot_str_new(interp, value, 0));<br/> }<br/> <br/> <br/>@@ -589,7 +589,7 @@<br/> ASSERT_ARGS(key_set_to_string)<br/> STRING * const semicolon = CONST_STRING(interp, &quot; ; &quot;);<br/> STRING * const quote = CONST_STRING(interp, &quot;&#39;&quot;);<br/>- STRING *value = Parrot_str_new_from_cstring(interp, &quot;[ &quot;, 2);<br/>+ STRING *value = Parrot_str_new(interp, &quot;[ &quot;, 2);<br/> <br/> for (; key; key = (PMC *)PMC_data(key)) {<br/> switch (PObj_get_FLAGS(key) &amp; KEY_type_FLAGS) {<br/>@@ -633,7 +633,7 @@<br/> value = Parrot_str_append(interp, value, semicolon);<br/> }<br/> <br/>- value = Parrot_str_append(interp, value, Parrot_str_new_from_cstring(interp, &quot; ]&quot;, 2));<br/>+ value = Parrot_str_append(interp, value, Parrot_str_new(interp, &quot; ]&quot;, 2));<br/> return value;<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/library.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/library.c (original)<br/>+++ branches/pdd28str_part2/src/library.c Thu Jan 29 00:53:29 2009<br/>@@ -593,7 +593,7 @@<br/> PMC * const lib_paths = VTABLE_get_pmc_keyed_int(interp, iglobals,<br/> IGLOBALS_LIB_PATHS);<br/> PMC * paths = VTABLE_get_pmc_keyed_int(interp, lib_paths, which);<br/>- STRING * const path_str = Parrot_str_new_from_cstring(interp, path, 0);<br/>+ STRING * const path_str = Parrot_str_new(interp, path, 0);<br/> VTABLE_push_string(interp, paths, path_str);<br/> }<br/> <br/>@@ -682,7 +682,7 @@<br/> enum_runtime_ft type)<br/> {<br/> ASSERT_ARGS(Parrot_locate_runtime_file)<br/>- STRING * const file = Parrot_str_new_from_cstring(interp, file_name, 0);<br/>+ STRING * const file = Parrot_str_new(interp, file_name, 0);<br/> STRING * const result = Parrot_locate_runtime_file_str(interp, file, type);<br/> /*<br/> * XXX valgrind shows e.g.<br/>@@ -757,7 +757,7 @@<br/> <br/> if (env)<br/> {<br/>- result = Parrot_str_new_from_cstring(interp, env, 0);<br/>+ result = Parrot_str_new(interp, env, 0);<br/> if (free_it)<br/> free(env);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/main.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/main.c (original)<br/>+++ branches/pdd28str_part2/src/main.c Thu Jan 29 00:53:29 2009<br/>@@ -55,7 +55,7 @@<br/> /* We parse the arguments, but first store away the name of the Parrot<br/> executable, since parsing destroys that and we want to make it<br/> available. */<br/>- Parrot_set_executable_name(interp, Parrot_str_new_from_cstring(interp, argv[0], 0));<br/>+ Parrot_set_executable_name(interp, Parrot_str_new(interp, argv[0], 0));<br/> <br/> sourcefile = parseflags(interp, &amp;argc, &amp;argv);<br/> status = imcc_run(interp, sourcefile, argc, argv);<br/><br/>Modified: branches/pdd28str_part2/src/multidispatch.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/multidispatch.c (original)<br/>+++ branches/pdd28str_part2/src/multidispatch.c Thu Jan 29 00:53:29 2009<br/>@@ -1559,7 +1559,7 @@<br/> if (name)<br/> strcpy((char *)(type_ids + num_values), name);<br/> <br/>- key = Parrot_str_new_from_cstring(interp, (char *)type_ids, id_size);<br/>+ key = Parrot_str_new(interp, (char *)type_ids, id_size);<br/> mem_sys_free(type_ids);<br/> <br/> return key;<br/>@@ -1656,7 +1656,7 @@<br/> if (name)<br/> strcpy((char *)(type_ids + num_types), name);<br/> <br/>- key = Parrot_str_new_from_cstring(interp, (char *)type_ids, id_size);<br/>+ key = Parrot_str_new(interp, (char *)type_ids, id_size);<br/> <br/> mem_sys_free(type_ids);<br/> return key;<br/><br/>Modified: branches/pdd28str_part2/src/oo.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/oo.c (original)<br/>+++ branches/pdd28str_part2/src/oo.c Thu Jan 29 00:53:29 2009<br/>@@ -133,7 +133,7 @@<br/> /* Look up the name of the vtable function from the index. */<br/> const INTVAL vtable_index = string_to_int(interp, vtable_index_str);<br/> const char * const meth_c = Parrot_vtable_slot_names[vtable_index];<br/>- STRING *vtable_name = Parrot_str_new_from_cstring(interp, meth_c, 0);<br/>+ STRING *vtable_name = Parrot_str_new(interp, meth_c, 0);<br/> <br/> /* Strip leading underscores in the vtable name */<br/> if (string_str_index(interp, vtable_name, CONST_STRING(interp, &quot;__&quot;), 0) == 0) {<br/><br/>Modified: branches/pdd28str_part2/src/ops/core.ops<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/ops/core.ops (original)<br/>+++ branches/pdd28str_part2/src/ops/core.ops Thu Jan 29 00:53:29 2009<br/>@@ -837,7 +837,7 @@<br/> <br/> inline op pop_eh() {<br/> Parrot_cx_delete_handler_local(interp,<br/>- Parrot_str_new_from_cstring(interp, &quot;exception&quot;, 9));<br/>+ Parrot_str_new(interp, &quot;exception&quot;, 9));<br/> }<br/> <br/> inline op throw(invar PMC) :flow {<br/>@@ -867,7 +867,7 @@<br/> <br/> inline op count_eh(out INT) {<br/> $1 = Parrot_cx_count_handlers_local(interp,<br/>- Parrot_str_new_from_cstring(interp, &quot;exception&quot;, 9));<br/>+ Parrot_str_new(interp, &quot;exception&quot;, 9));<br/> }<br/> <br/> inline op die(in STR) :flow {<br/><br/>Modified: branches/pdd28str_part2/src/ops/sys.ops<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/ops/sys.ops (original)<br/>+++ branches/pdd28str_part2/src/ops/sys.ops Thu Jan 29 00:53:29 2009<br/>@@ -178,7 +178,7 @@<br/> char resultbuffer[26];<br/> Parrot_gmtime_r(&amp;t, &amp;tm);<br/> Parrot_asctime_r(&amp;tm, resultbuffer);<br/>- $1 = Parrot_str_new_from_cstring(interp, resultbuffer, 25);<br/>+ $1 = Parrot_str_new(interp, resultbuffer, 25);<br/> }<br/> <br/> op localtime(out STR, in INT) {<br/>@@ -187,7 +187,7 @@<br/> char resultbuffer[26];<br/> Parrot_localtime_r(&amp;t, &amp;tm);<br/> Parrot_asctime_r(&amp;tm, resultbuffer);<br/>- $1 = Parrot_str_new_from_cstring(interp, resultbuffer, 25);<br/>+ $1 = Parrot_str_new(interp, resultbuffer, 25);<br/> }<br/> <br/> op decodetime(out PMC, in INT) {<br/><br/>Modified: branches/pdd28str_part2/src/packdump.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/packdump.c (original)<br/>+++ branches/pdd28str_part2/src/packdump.c Thu Jan 29 00:53:29 2009<br/>@@ -294,13 +294,13 @@<br/> if (sub-&gt;namespace_name) {<br/> switch (sub-&gt;namespace_name-&gt;vtable-&gt;base_type) {<br/> case enum_class_String:<br/>- namespace_description = Parrot_str_new_from_cstring(interp, &quot;&#39;&quot;, 1);<br/>+ namespace_description = Parrot_str_new(interp, &quot;&#39;&quot;, 1);<br/> namespace_description = Parrot_str_append(interp,<br/> namespace_description,<br/> PMC_str_val(sub-&gt;namespace_name));<br/> namespace_description = Parrot_str_append(interp,<br/> namespace_description,<br/>- Parrot_str_new_from_cstring(interp, &quot;&#39;&quot;, 1));<br/>+ Parrot_str_new(interp, &quot;&#39;&quot;, 1));<br/> break;<br/> case enum_class_Key:<br/> namespace_description =<br/><br/>Modified: branches/pdd28str_part2/src/parrot_debugger.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/parrot_debugger.c (original)<br/>+++ branches/pdd28str_part2/src/parrot_debugger.c Thu Jan 29 00:53:29 2009<br/>@@ -148,7 +148,7 @@<br/> <br/> interp = Parrot_new(NULL);<br/> <br/>- Parrot_set_executable_name(interp, Parrot_str_new_from_cstring(interp, argv[0], 0));<br/>+ Parrot_set_executable_name(interp, Parrot_str_new(interp, argv[0], 0));<br/> <br/> Parrot_debugger_init(interp);<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/bigint.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/bigint.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/bigint.pmc Thu Jan 29 00:53:29 2009<br/>@@ -588,7 +588,7 @@<br/> METHOD version() {<br/> STRING *version;<br/> #ifdef PARROT_HAS_GMP<br/>- version = Parrot_str_new_from_cstring(INTERP, gmp_version, 0);<br/>+ version = Parrot_str_new(INTERP, gmp_version, 0);<br/> #else<br/> version = CONST_STRING(INTERP, &quot;0.0.0&quot;);<br/> #endif<br/>@@ -793,14 +793,14 @@<br/> <br/> VTABLE STRING *get_string() {<br/> char *s = bigint_get_string(INTERP, SELF, 10);<br/>- STRING *ps = Parrot_str_new_from_cstring(INTERP, s, 0);<br/>+ STRING *ps = Parrot_str_new(INTERP, s, 0);<br/> mem_sys_free(s);<br/> return ps;<br/> }<br/> <br/> VTABLE STRING *get_string_keyed_int(INTVAL base) {<br/> char *s = bigint_get_string(INTERP, SELF, base);<br/>- STRING *ps = Parrot_str_new_from_cstring(INTERP, s, 0);<br/>+ STRING *ps = Parrot_str_new(INTERP, s, 0);<br/> mem_sys_free(s);<br/> return ps;<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/complex.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/complex.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/complex.pmc Thu Jan 29 00:53:29 2009<br/>@@ -164,7 +164,7 @@<br/> <br/> if (first_num_length) {<br/> /* there is a real part, interpret it */<br/>- S = Parrot_str_new_from_cstring(interp, first_num_offset, first_num_length);<br/>+ S = Parrot_str_new(interp, first_num_offset, first_num_length);<br/> *re = string_to_num(interp, S);<br/> }<br/> else {<br/>@@ -174,7 +174,7 @@<br/> <br/> if (second_num_length) {<br/> /* there is an imaginary part, interpret it */<br/>- S = Parrot_str_new_from_cstring(interp, second_num_offset, second_num_length);<br/>+ S = Parrot_str_new(interp, second_num_offset, second_num_length);<br/> *im = string_to_num(interp, S);<br/> }<br/> else {<br/><br/>Modified: branches/pdd28str_part2/src/pmc/env.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/env.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/env.pmc Thu Jan 29 00:53:29 2009<br/>@@ -153,7 +153,7 @@<br/> else {<br/> const char * const envp = environ[keynum];<br/> const char * const p = strchr(envp, &#39;=&#39;);<br/>- return Parrot_str_new_from_cstring(interp, envp, (UINTVAL)(p - envp));<br/>+ return Parrot_str_new(interp, envp, (UINTVAL)(p - envp));<br/> }<br/> }<br/> else {<br/>@@ -166,7 +166,7 @@<br/> string_cstring_free(keyname);<br/> <br/> if (val) {<br/>- STRING * const retval = Parrot_str_new_from_cstring(interp, val, 0);<br/>+ STRING * const retval = Parrot_str_new(interp, val, 0);<br/> <br/> if (free_it)<br/> mem_sys_free(val);<br/>@@ -204,7 +204,7 @@<br/> string_cstring_free(keyname);<br/> <br/> if (val) {<br/>- retval = Parrot_str_new_from_cstring(INTERP, val, 0);<br/>+ retval = Parrot_str_new(INTERP, val, 0);<br/> if (free_it)<br/> mem_sys_free(val);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/filehandle.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/filehandle.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/filehandle.pmc Thu Jan 29 00:53:29 2009<br/>@@ -348,7 +348,7 @@<br/> if (*r)<br/> add_history(r);<br/> <br/>- string_result = Parrot_str_new_from_cstring(INTERP, r, 0);<br/>+ string_result = Parrot_str_new(INTERP, r, 0);<br/> mem_sys_free(r);<br/> RETURN(STRING *string_result);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc Thu Jan 29 00:53:29 2009<br/>@@ -519,7 +519,7 @@<br/> GET_ATTR_resize_threshold(INTERP, SELF, resize_threshold);<br/> GET_ATTR_bit_array(INTERP, SELF, bit_array);<br/> <br/>- s = Parrot_str_new_from_cstring(INTERP, (char*)bit_array,<br/>+ s = Parrot_str_new(INTERP, (char*)bit_array,<br/> (resize_threshold / BITS_PER_CHAR));<br/> <br/> VTABLE_push_integer(INTERP, io, size);<br/><br/>Modified: branches/pdd28str_part2/src/pmc/os.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/os.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/os.pmc Thu Jan 29 00:53:29 2009<br/>@@ -87,7 +87,7 @@<br/> # endif<br/> #endif<br/> if (cwd) {<br/>- STRING * const scwd = Parrot_str_new_from_cstring(interp, cwd, strlen(cwd));<br/>+ STRING * const scwd = Parrot_str_new(interp, cwd, strlen(cwd));<br/> mem_sys_free(cwd);<br/> RETURN(STRING *scwd);<br/> }<br/>@@ -492,7 +492,7 @@<br/> array = pmc_new(interp, enum_class_ResizableStringArray);<br/> <br/> while ((dirent = readdir(dir)) != NULL) {<br/>- retval = Parrot_str_new_from_cstring(interp, dirent-&gt;d_name, 0) ;<br/>+ retval = Parrot_str_new(interp, dirent-&gt;d_name, 0) ;<br/> VTABLE_push_string(interp, array, retval);<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/packfile.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/packfile.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/packfile.pmc Thu Jan 29 00:53:29 2009<br/>@@ -176,7 +176,7 @@<br/> VTABLE STRING *get_string_keyed_str(STRING *key) {<br/> PackFile *pf = PMC_data_typed(SELF, PackFile *);<br/> if (!string_compare(interp, key, CONST_STRING(interp, &quot;uuid&quot;)))<br/>- return Parrot_str_new_from_cstring(interp, (char*)pf-&gt;header-&gt;uuid_data, pf-&gt;header-&gt;uuid_size);<br/>+ return Parrot_str_new(interp, (char*)pf-&gt;header-&gt;uuid_data, pf-&gt;header-&gt;uuid_size);<br/> <br/> Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_KEY_NOT_FOUND,<br/> &quot;Packfile: No such string key \&quot;%s\&quot;&quot;,<br/><br/>Modified: branches/pdd28str_part2/src/pmc/packfilefixupentry.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/packfilefixupentry.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/packfilefixupentry.pmc Thu Jan 29 00:53:29 2009<br/>@@ -34,7 +34,7 @@<br/> */<br/> VTABLE STRING *get_string() {<br/> PackFile_FixupEntry *pfentry = PMC_data_typed(SELF, PackFile_FixupEntry *);<br/>- return Parrot_str_new_from_cstring(interp, pfentry-&gt;name, strlen(pfentry-&gt;name));<br/>+ return Parrot_str_new(interp, pfentry-&gt;name, strlen(pfentry-&gt;name));<br/> }<br/> <br/> /*<br/><br/>Modified: branches/pdd28str_part2/src/pmc/resizablebooleanarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/resizablebooleanarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/resizablebooleanarray.pmc Thu Jan 29 00:53:29 2009<br/>@@ -435,7 +435,7 @@<br/> VTABLE_push_integer(INTERP, io, head_pos);<br/> VTABLE_push_integer(INTERP, io, tail_pos);<br/> <br/>- s = Parrot_str_new_from_cstring(INTERP, (char*)bit_array, tail_pos);<br/>+ s = Parrot_str_new(INTERP, (char*)bit_array, tail_pos);<br/> <br/> VTABLE_push_string(INTERP, io, s);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/resizablestringarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/resizablestringarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/resizablestringarray.pmc Thu Jan 29 00:53:29 2009<br/>@@ -54,7 +54,7 @@<br/> data = (STRING**)PMC_data(SELF);<br/> <br/> if (!data[key])<br/>- data[key] = Parrot_str_new_from_cstring(interp, NULL, 0);<br/>+ data[key] = Parrot_str_new(interp, NULL, 0);<br/> <br/> return data[key];<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/stringhandle.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/stringhandle.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/stringhandle.pmc Thu Jan 29 00:53:29 2009<br/>@@ -175,7 +175,7 @@<br/> &amp;&amp; string_equal(INTERP, encoding, CONST_STRING(INTERP, &quot;utf8&quot;)) == 0)<br/> new_string = string_make(INTERP, &quot;&quot;, 0, &quot;unicode&quot;, 0);<br/> else<br/>- new_string = Parrot_str_new_from_cstring(INTERP, &quot;&quot;, 0);<br/>+ new_string = Parrot_str_new(INTERP, &quot;&quot;, 0);<br/> <br/> SET_ATTR_stringhandle(INTERP, SELF, new_string);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Thu Jan 29 00:53:29 2009<br/>@@ -607,7 +607,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;STRING * Parrot_str_new_from_cstring&gt;<br/>+=item C&lt;STRING * Parrot_str_new&gt;<br/> <br/> Make a Parrot string from a specified C string.<br/> <br/>@@ -620,9 +620,9 @@<br/> PARROT_MALLOC<br/> PARROT_CANNOT_RETURN_NULL<br/> STRING *<br/>-Parrot_str_new_from_cstring(PARROT_INTERP, ARGIN_NULLOK(const char * const buffer), const UINTVAL len)<br/>+Parrot_str_new(PARROT_INTERP, ARGIN_NULLOK(const char * const buffer), const UINTVAL len)<br/> {<br/>- ASSERT_ARGS(Parrot_str_new_from_cstring)<br/>+ ASSERT_ARGS(Parrot_str_new)<br/> return string_make_direct(interp, buffer, len ? len :<br/> buffer ? strlen(buffer) : 0,<br/> PARROT_DEFAULT_ENCODING, PARROT_DEFAULT_CHARSET,<br/><br/>Modified: branches/pdd28str_part2/src/sub.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/sub.c (original)<br/>+++ branches/pdd28str_part2/src/sub.c Thu Jan 29 00:53:29 2009<br/>@@ -418,9 +418,9 @@<br/> <br/> /* is the current sub of the specified context valid? */<br/> if (PMC_IS_NULL(ctx-&gt;current_sub)) {<br/>- info-&gt;subname = Parrot_str_new_from_cstring(interp, &quot;???&quot;, 3);<br/>+ info-&gt;subname = Parrot_str_new(interp, &quot;???&quot;, 3);<br/> info-&gt;nsname = info-&gt;subname;<br/>- info-&gt;fullname = Parrot_str_new_from_cstring(interp, &quot;??? :: ???&quot;, 10);<br/>+ info-&gt;fullname = Parrot_str_new(interp, &quot;??? :: ???&quot;, 10);<br/> info-&gt;pc = -1;<br/> return 0;<br/> }<br/><br/>Modified: branches/pdd28str_part2/t/src/extend.t<br/>==============================================================================<br/>--- branches/pdd28str_part2/t/src/extend.t (original)<br/>+++ branches/pdd28str_part2/t/src/extend.t Thu Jan 29 00:53:29 2009<br/>@@ -457,7 +457,7 @@<br/> arg = pmc_new(interp, enum_class_String);<br/> <br/> Parrot_PMC_set_string_native(interp, arg,<br/>- Parrot_str_new_from_cstring(interp, &quot;hello &quot;, 0));<br/>+ Parrot_str_new(interp, &quot;hello &quot;, 0));<br/> <br/> Parrot_call_sub(interp, sub, &quot;vP&quot;, arg);<br/> Parrot_eprintf(interp, &quot;back\\n&quot;);<br/><br/>Modified: branches/pdd28str_part2/tools/build/nativecall.pl<br/>==============================================================================<br/>--- branches/pdd28str_part2/tools/build/nativecall.pl (original)<br/>+++ branches/pdd28str_part2/tools/build/nativecall.pl Thu Jan 29 00:53:29 2009<br/>@@ -53,7 +53,7 @@<br/> d =&gt; { as_proto =&gt; &quot;double&quot;, sig_char =&gt; &quot;N&quot; },<br/> t =&gt; { as_proto =&gt; &quot;char *&quot;,<br/> other_decl =&gt; &quot;STRING *final_destination;&quot;,<br/>- ret_assign =&gt; &quot;final_destination = Parrot_str_new_from_cstring(interp, return_data, 0);\n set_nci_S(interp, &amp;st, final_destination);&quot;,<br/>+ ret_assign =&gt; &quot;final_destination = Parrot_str_new(interp, return_data, 0);\n set_nci_S(interp, &amp;st, final_destination);&quot;,<br/> sig_char =&gt; &quot;S&quot; },<br/> v =&gt; { as_proto =&gt; &quot;void&quot;,<br/> return_type =&gt; &quot;void *&quot;,<br/><br/>Modified: branches/pdd28str_part2/tools/dev/pbc_to_exe_gen.pl<br/>==============================================================================<br/>--- branches/pdd28str_part2/tools/dev/pbc_to_exe_gen.pl (original)<br/>+++ branches/pdd28str_part2/tools/dev/pbc_to_exe_gen.pl Thu Jan 29 00:53:29 2009<br/>@@ -257,7 +257,7 @@<br/> if (!interp)<br/> return 1;<br/> <br/>- Parrot_set_executable_name(interp, Parrot_str_new_from_cstring(interp, argv[0], 0));<br/>+ Parrot_set_executable_name(interp, Parrot_str_new(interp, argv[0], 0));<br/> Parrot_set_flag(interp, PARROT_DESTROY_FLAG);<br/> <br/> pf = PackFile_new(interp, 0);<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36488.html Thu, 29 Jan 2009 00:55:25 +0000 [svn:parrot] r36138 - trunk/lib/Parrot/Pmc2c by cotto Author: cotto<br/>Date: Wed Jan 28 23:30:50 2009<br/>New Revision: 36138<br/><br/>Modified:<br/> trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm<br/><br/>Log:<br/>[pmc2c] make PCC method args more user-friendly<br/><br/><br/>Modified: trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm<br/>==============================================================================<br/>--- trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm (original)<br/>+++ trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm Wed Jan 28 23:30:50 2009<br/>@@ -277,10 +277,17 @@<br/> my $linear_args = [];<br/> <br/> for my $x ( split /,/, $parameters ) {<br/>+<br/>+ #change &#39;PMC * foo&#39; to &#39;PMC *foo&#39;<br/>+ $x =~ s/\*\s+/\*/ if ($x =~ /\s\*+\s/);<br/>+<br/>+ #change &#39;PMC* foo&#39; to &#39;PMC *foo&#39;<br/>+ $x =~ s/(\*+)\s+/ $1/ if ($x =~ /^\w+\*/);<br/>+<br/> my ( $type, $name, $rest ) = split /\s+/, trim($x), 3;<br/> <br/> die &quot;invalid PCC arg &#39;$x&#39;: did you forget to specify a type?\n&quot;<br/>- unless defined $name;<br/>+ unless defined $name;<br/> <br/> if ($name =~ /\**([a-zA-Z_]\w*)/) {<br/> $name = $1;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36487.html Wed, 28 Jan 2009 23:32:13 +0000 [svn:parrot] r36137 - in branches/pdd28str_part2: compilers/imcc compilers/pirc/src config/gen/crypto docs include/parrot languages/dotnet/pmc languages/lua/src/pmc languages/regex/pmc src src/dynpmc src/jit/i386 src/ops src/pmc src/string t/src tools/bui by allison Author: allison<br/>Date: Wed Jan 28 23:25:12 2009<br/>New Revision: 36137<br/><br/>Modified:<br/> branches/pdd28str_part2/compilers/imcc/imcc.y<br/> branches/pdd28str_part2/compilers/imcc/imcparser.c<br/> branches/pdd28str_part2/compilers/imcc/optimizer.c<br/> branches/pdd28str_part2/compilers/imcc/parser_util.c<br/> branches/pdd28str_part2/compilers/imcc/pbc.c<br/> branches/pdd28str_part2/compilers/pirc/src/bcgen.c<br/> branches/pdd28str_part2/compilers/pirc/src/pircompunit.c<br/> branches/pdd28str_part2/compilers/pirc/src/piremit.c<br/> branches/pdd28str_part2/config/gen/crypto/digest_pmc.in<br/> branches/pdd28str_part2/docs/embed.pod<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc<br/> branches/pdd28str_part2/languages/lua/src/pmc/lua.pmc<br/> branches/pdd28str_part2/languages/lua/src/pmc/luabytecode.pmc<br/> branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc<br/> branches/pdd28str_part2/src/dynpmc/gdbmhash.pmc<br/> branches/pdd28str_part2/src/dynpmc/rational.pmc<br/> branches/pdd28str_part2/src/extend.c<br/> branches/pdd28str_part2/src/inter_cb.c<br/> branches/pdd28str_part2/src/inter_misc.c<br/> branches/pdd28str_part2/src/jit/i386/jit_defs.c<br/> branches/pdd28str_part2/src/key.c<br/> branches/pdd28str_part2/src/library.c<br/> branches/pdd28str_part2/src/main.c<br/> branches/pdd28str_part2/src/multidispatch.c<br/> branches/pdd28str_part2/src/oo.c<br/> branches/pdd28str_part2/src/ops/core.ops<br/> branches/pdd28str_part2/src/ops/sys.ops<br/> branches/pdd28str_part2/src/packdump.c<br/> branches/pdd28str_part2/src/parrot_debugger.c<br/> branches/pdd28str_part2/src/pmc/bigint.pmc<br/> branches/pdd28str_part2/src/pmc/complex.pmc<br/> branches/pdd28str_part2/src/pmc/env.pmc<br/> branches/pdd28str_part2/src/pmc/filehandle.pmc<br/> branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc<br/> branches/pdd28str_part2/src/pmc/os.pmc<br/> branches/pdd28str_part2/src/pmc/packfile.pmc<br/> branches/pdd28str_part2/src/pmc/packfilefixupentry.pmc<br/> branches/pdd28str_part2/src/pmc/resizablebooleanarray.pmc<br/> branches/pdd28str_part2/src/pmc/resizablestringarray.pmc<br/> branches/pdd28str_part2/src/pmc/stringhandle.pmc<br/> branches/pdd28str_part2/src/string/api.c<br/> branches/pdd28str_part2/src/sub.c<br/> branches/pdd28str_part2/t/src/extend.t<br/> branches/pdd28str_part2/tools/build/nativecall.pl<br/> branches/pdd28str_part2/tools/dev/pbc_to_exe_gen.pl<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_new_from_cstring&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/imcc.y<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/imcc.y (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/imcc.y Wed Jan 28 23:25:12 2009<br/>@@ -476,7 +476,7 @@<br/> <br/> r[1] = rhs;<br/> rhs-&gt;pmc_type = pmc_type(interp,<br/>- string_from_cstring(interp, unquoted_name, name_length));<br/>+ Parrot_str_new_from_cstring(interp, unquoted_name, name_length));<br/> <br/> mem_sys_free(unquoted_name);<br/> mem_sys_free(const_name);<br/>@@ -1713,7 +1713,7 @@<br/> /* there&#39;d normally be a str_dup() here, but the lexer already<br/> * copied the string, so it&#39;s safe to use directly */<br/> if ((IMCC_INFO(interp)-&gt;cur_pmc_type = pmc_type(interp,<br/>- string_from_cstring(interp, $1, 0))) &lt;= 0) {<br/>+ Parrot_str_new_from_cstring(interp, $1, 0))) &lt;= 0) {<br/> IMCC_fataly(interp, EXCEPTION_SYNTAX_ERROR,<br/> &quot;Unknown PMC type &#39;%s&#39;\n&quot;, $1);<br/> }<br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/imcparser.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/imcparser.c (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/imcparser.c Wed Jan 28 23:25:12 2009<br/>@@ -802,7 +802,7 @@<br/> <br/> r[1] = rhs;<br/> rhs-&gt;pmc_type = pmc_type(interp,<br/>- string_from_cstring(interp, unquoted_name, name_length));<br/>+ Parrot_str_new_from_cstring(interp, unquoted_name, name_length));<br/> <br/> mem_sys_free(unquoted_name);<br/> mem_sys_free(const_name);<br/>@@ -4127,7 +4127,7 @@<br/> /* there&#39;d normally be a str_dup() here, but the lexer already<br/> * copied the string, so it&#39;s safe to use directly */<br/> if ((IMCC_INFO(interp)-&gt;cur_pmc_type = pmc_type(interp,<br/>- string_from_cstring(interp, (yyvsp[(1) - (1)].s), 0))) &lt;= 0) {<br/>+ Parrot_str_new_from_cstring(interp, (yyvsp[(1) - (1)].s), 0))) &lt;= 0) {<br/> IMCC_fataly(interp, EXCEPTION_SYNTAX_ERROR,<br/> &quot;Unknown PMC type &#39;%s&#39;\n&quot;, (yyvsp[(1) - (1)].s));<br/> }<br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/optimizer.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/optimizer.c (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/optimizer.c Wed Jan 28 23:25:12 2009<br/>@@ -826,7 +826,7 @@<br/> break;<br/> case &#39;N&#39;:<br/> {<br/>- STRING * const s = string_from_cstring(interp, r[i]-&gt;name, 0);<br/>+ STRING * const s = Parrot_str_new_from_cstring(interp, r[i]-&gt;name, 0);<br/> REG_NUM(interp, i) = string_to_num(interp, s);<br/> }<br/> break;<br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/parser_util.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/parser_util.c (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/parser_util.c Wed Jan 28 23:25:12 2009<br/>@@ -152,7 +152,7 @@<br/> SymReg *pmc;<br/> int nargs;<br/> const int pmc_num = pmc_type(interp,<br/>- string_from_cstring(interp, *type == &#39;.&#39; ? type + 1 : type, 0));<br/>+ Parrot_str_new_from_cstring(interp, *type == &#39;.&#39; ? type + 1 : type, 0));<br/> <br/> snprintf(fmt, sizeof (fmt), &quot;%d&quot;, pmc_num);<br/> pmc = mk_const(interp, fmt, &#39;I&#39;);<br/>@@ -698,7 +698,7 @@<br/> sub_data-&gt;seg = new_cs;<br/> sub_data-&gt;start_offs = 0;<br/> sub_data-&gt;end_offs = new_cs-&gt;base.size;<br/>- sub_data-&gt;name = string_from_cstring(interp, name, 0);<br/>+ sub_data-&gt;name = Parrot_str_new_from_cstring(interp, name, 0);<br/> <br/> *error_message = NULL;<br/> }<br/><br/>Modified: branches/pdd28str_part2/compilers/imcc/pbc.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/imcc/pbc.c (original)<br/>+++ branches/pdd28str_part2/compilers/imcc/pbc.c Wed Jan 28 23:25:12 2009<br/>@@ -1060,7 +1060,7 @@<br/> {<br/> ASSERT_ARGS(add_const_num)<br/> const int k = add_const_table(interp);<br/>- STRING * const s = string_from_cstring(interp, buf, 0);<br/>+ STRING * const s = Parrot_str_new_from_cstring(interp, buf, 0);<br/> <br/> interp-&gt;code-&gt;const_table-&gt;constants[k]-&gt;type = PFC_NUMBER;<br/> interp-&gt;code-&gt;const_table-&gt;constants[k]-&gt;u.number = string_to_num(interp, s);<br/>@@ -1323,7 +1323,7 @@<br/> /* Do we have to create an instance of a specific type for this sub? */<br/> if (unit-&gt;instance_of) {<br/> /* Look it up as a class and as a PMC type. */<br/>- STRING * const classname = string_from_cstring(interp,<br/>+ STRING * const classname = Parrot_str_new_from_cstring(interp,<br/> unit-&gt;instance_of + 1, strlen(unit-&gt;instance_of) - 2);<br/> <br/> PMC * const classobj = Parrot_oo_get_class_str(interp, classname);<br/>@@ -1420,7 +1420,7 @@<br/> <br/> /* Work out the name of the vtable method. */<br/> if (unit-&gt;vtable_name) {<br/>- vtable_name = string_from_cstring(interp, unit-&gt;vtable_name + 1,<br/>+ vtable_name = Parrot_str_new_from_cstring(interp, unit-&gt;vtable_name + 1,<br/> strlen(unit-&gt;vtable_name) - 2);<br/> UNIT_FREE_CHAR(unit-&gt;method_name);<br/> }<br/>@@ -1450,7 +1450,7 @@<br/> sub-&gt;method_name = sub-&gt;name;<br/> }<br/> else<br/>- sub-&gt;method_name = string_from_cstring(interp, &quot;&quot;, 0);<br/>+ sub-&gt;method_name = Parrot_str_new_from_cstring(interp, &quot;&quot;, 0);<br/> <br/> <br/> if (unit-&gt;has_ns_entry_name == 1) {<br/><br/>Modified: branches/pdd28str_part2/compilers/pirc/src/bcgen.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/pirc/src/bcgen.c (original)<br/>+++ branches/pdd28str_part2/compilers/pirc/src/bcgen.c Wed Jan 28 23:25:12 2009<br/>@@ -749,7 +749,7 @@<br/> <br/> /* walk through the list of lexicals and register them */<br/> while (lexiter) {<br/>- STRING *lexname = string_from_cstring(bc-&gt;interp, lexiter-&gt;name, strlen(lexiter-&gt;name));<br/>+ STRING *lexname = Parrot_str_new_from_cstring(bc-&gt;interp, lexiter-&gt;name, strlen(lexiter-&gt;name));<br/> <br/> /* declare the .lex as such */<br/> <br/>@@ -900,7 +900,7 @@<br/> if (instanceof) {<br/> /* Look it up as a class and as a PMC type. */<br/> STRING * const classname<br/>- = string_from_cstring(bc-&gt;interp, instanceof + 1, strlen(instanceof) - 2);<br/>+ = Parrot_str_new_from_cstring(bc-&gt;interp, instanceof + 1, strlen(instanceof) - 2);<br/> <br/> PMC * const classobj = Parrot_oo_get_class_str(bc-&gt;interp, classname);<br/> <br/><br/>Modified: branches/pdd28str_part2/compilers/pirc/src/pircompunit.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/pirc/src/pircompunit.c (original)<br/>+++ branches/pdd28str_part2/compilers/pirc/src/pircompunit.c Wed Jan 28 23:25:12 2009<br/>@@ -199,7 +199,7 @@<br/> <br/> /* get the index number of this vtable method */<br/> vtable_index = Parrot_get_vtable_index(lexer-&gt;interp,<br/>- string_from_cstring(lexer-&gt;interp, vtablename,<br/>+ Parrot_str_new_from_cstring(lexer-&gt;interp, vtablename,<br/> strlen(vtablename)));<br/> <br/> /* now check whether the method name actually a vtable method */<br/>@@ -894,7 +894,7 @@<br/> void<br/> load_library(lexer_state * const lexer, char const * const library) {<br/> /* see imcc.y:600 */<br/>- STRING *libname = string_from_cstring(lexer-&gt;interp, library, strlen(library));<br/>+ STRING *libname = Parrot_str_new_from_cstring(lexer-&gt;interp, library, strlen(library));<br/> PMC *ignored_value = Parrot_load_lib(lexer-&gt;interp, libname, NULL);<br/> UNUSED(ignored_value);<br/> Parrot_register_HLL_lib(lexer-&gt;interp, libname);<br/>@@ -1442,9 +1442,9 @@<br/> char const * const name, constant * const value)<br/> {<br/> /* get a STRING representation of the c-string type */<br/>- STRING *classname = string_from_cstring(lexer-&gt;interp, type, strlen(type));<br/>+ STRING *classname = Parrot_str_new_from_cstring(lexer-&gt;interp, type, strlen(type));<br/> /* get a STRING holding the c-string &quot;Sub&quot; */<br/>- STRING *subclassname = string_from_cstring(lexer-&gt;interp, &quot;Sub&quot;, 3);<br/>+ STRING *subclassname = Parrot_str_new_from_cstring(lexer-&gt;interp, &quot;Sub&quot;, 3);<br/> /* get a PMC for the class passed in type */<br/> PMC *constclass = Parrot_oo_get_class_str(lexer-&gt;interp, classname);<br/> /* check whether that PMC isa &quot;Sub&quot; */<br/>@@ -1488,7 +1488,7 @@<br/> }<br/> else if (value-&gt;type == INT_VAL) {<br/> <br/>- STRING *intclassname = string_from_cstring(lexer-&gt;interp, &quot;Integer&quot;, 7);<br/>+ STRING *intclassname = Parrot_str_new_from_cstring(lexer-&gt;interp, &quot;Integer&quot;, 7);<br/> INTVAL is_an_int = VTABLE_isa(lexer-&gt;interp, constclass, intclassname);<br/> <br/> if (is_an_int) {<br/>@@ -1523,7 +1523,7 @@<br/> <br/> }<br/> else if (value-&gt;type == NUM_VAL) {<br/>- STRING *numclassname = string_from_cstring(lexer-&gt;interp, &quot;Float&quot;, 5);<br/>+ STRING *numclassname = Parrot_str_new_from_cstring(lexer-&gt;interp, &quot;Float&quot;, 5);<br/> INTVAL is_a_num = VTABLE_isa(lexer-&gt;interp, constclass, numclassname);<br/> <br/> if (is_a_num) {<br/>@@ -1553,7 +1553,7 @@<br/> }<br/> }<br/> else if (value-&gt;type == STRING_VAL) {<br/>- STRING *strclassname = string_from_cstring(lexer-&gt;interp, &quot;String&quot;, 6);<br/>+ STRING *strclassname = Parrot_str_new_from_cstring(lexer-&gt;interp, &quot;String&quot;, 6);<br/> INTVAL is_a_string = VTABLE_isa(lexer-&gt;interp, constclass, strclassname);<br/> <br/> if (is_a_string) {<br/>@@ -1566,7 +1566,7 @@<br/> int index = add_pmc_const(lexer-&gt;bc, strconst);<br/> <br/> VTABLE_set_string_native(lexer-&gt;interp, strconst,<br/>- string_from_cstring(lexer-&gt;interp, value-&gt;val.sval,<br/>+ Parrot_str_new_from_cstring(lexer-&gt;interp, value-&gt;val.sval,<br/> strlen(value-&gt;val.sval)));<br/> <br/> declare_local(lexer, PMC_TYPE, constsym);<br/>@@ -1995,7 +1995,7 @@<br/> */<br/> void<br/> set_hll(lexer_state * const lexer, char const * const hll) {<br/>- STRING * const hll_name = string_from_cstring(lexer-&gt;interp, hll, strlen(hll));<br/>+ STRING * const hll_name = Parrot_str_new_from_cstring(lexer-&gt;interp, hll, strlen(hll));<br/> CONTEXT(lexer-&gt;interp)-&gt;current_HLL = Parrot_register_HLL(lexer-&gt;interp, hll_name);<br/> }<br/> <br/>@@ -2021,8 +2021,8 @@<br/> void<br/> set_hll_map(lexer_state * const lexer, char const * const stdtype, char const * const maptype) {<br/> Parrot_Context *ctx = CONTEXT(lexer-&gt;interp);<br/>- STRING * const built_in_name = string_from_cstring(lexer-&gt;interp, stdtype, strlen(stdtype));<br/>- STRING * const language_name = string_from_cstring(lexer-&gt;interp, maptype, strlen(maptype));<br/>+ STRING * const built_in_name = Parrot_str_new_from_cstring(lexer-&gt;interp, stdtype, strlen(stdtype));<br/>+ STRING * const language_name = Parrot_str_new_from_cstring(lexer-&gt;interp, maptype, strlen(maptype));<br/> int built_in_type = pmc_type(lexer-&gt;interp, built_in_name);<br/> int language_type = pmc_type(lexer-&gt;interp, language_name);<br/> <br/><br/>Modified: branches/pdd28str_part2/compilers/pirc/src/piremit.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/compilers/pirc/src/piremit.c (original)<br/>+++ branches/pdd28str_part2/compilers/pirc/src/piremit.c Wed Jan 28 23:25:12 2009<br/>@@ -787,7 +787,7 @@<br/> int index = add_pmc_const(lexer-&gt;bc, strconst);<br/> <br/> VTABLE_set_string_native(lexer-&gt;interp, strconst,<br/>- string_from_cstring(lexer-&gt;interp,<br/>+ Parrot_str_new_from_cstring(lexer-&gt;interp,<br/> second_operand-&gt;expr.c-&gt;val.sval,<br/> strlen(second_operand-&gt;expr.c-&gt;val.sval)));<br/> <br/><br/>Modified: branches/pdd28str_part2/config/gen/crypto/digest_pmc.in<br/>==============================================================================<br/>--- branches/pdd28str_part2/config/gen/crypto/digest_pmc.in (original)<br/>+++ branches/pdd28str_part2/config/gen/crypto/digest_pmc.in Wed Jan 28 23:25:12 2009<br/>@@ -132,7 +132,7 @@<br/> STRING *retval;<br/> <br/> (void)@md_name@_Final(digest, c);<br/>- retval = string_from_cstring(INTERP, (char *)digest, @md_digest@_LENGTH);<br/>+ retval = Parrot_str_new_from_cstring(INTERP, (char *)digest, @md_digest@_LENGTH);<br/> <br/> RETURN(STRING *retval);<br/> #else<br/><br/>Modified: branches/pdd28str_part2/docs/embed.pod<br/>==============================================================================<br/>--- branches/pdd28str_part2/docs/embed.pod (original)<br/>+++ branches/pdd28str_part2/docs/embed.pod Wed Jan 28 23:25:12 2009<br/>@@ -290,7 +290,7 @@<br/> XXX needs to be a formal Parrot_* API.<br/> Returns the C string representation of a Parrot string.<br/> <br/>-=item C&lt;STRING *string_from_cstring(PARROT_INTERP, const char *string, int len)&gt;<br/>+=item C&lt;STRING *Parrot_str_new_from_cstring(PARROT_INTERP, const char *string, int len)&gt;<br/> <br/> XXX needs to be a formal Parrot_* API.<br/> Returns the Parrot string representation of a C string.<br/>@@ -298,7 +298,7 @@<br/> =item C&lt;string_from_literal(PARROT_INTERP, const char *string)&gt;<br/> <br/> XXX needs to be a formal Parrot_* API.<br/>-A macro for simplifying calls to C&lt;string_from_cstring&gt;.<br/>+A macro for simplifying calls to C&lt;Parrot_str_new_from_cstring&gt;.<br/> <br/> =back<br/> <br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 23:25:12 2009<br/>@@ -19,7 +19,7 @@<br/> <br/> /* Declarations of accessors */<br/> <br/>-#define string_from_literal(i, s) string_from_cstring((i), (s), (sizeof (s)-1))<br/>+#define string_from_literal(i, s) Parrot_str_new_from_cstring((i), (s), (sizeof (s)-1))<br/> #define Parrot_unCOW_string(i, s) PObj_COW_TEST((s)) ? \<br/> Parrot_str_write_COW((i), (s)), (s) : (s)<br/> <br/>@@ -281,7 +281,7 @@<br/> PARROT_WARN_UNUSED_RESULT<br/> PARROT_MALLOC<br/> PARROT_CANNOT_RETURN_NULL<br/>-STRING * string_from_cstring(PARROT_INTERP,<br/>+STRING * Parrot_str_new_from_cstring(PARROT_INTERP,<br/> ARGIN_NULLOK(const char * const buffer),<br/> const UINTVAL len)<br/> __attribute__nonnull__(1);<br/>@@ -637,7 +637,7 @@<br/> #define ASSERT_ARGS_string_escape_string_delimited \<br/> __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/>-#define ASSERT_ARGS_string_from_cstring __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_new_from_cstring __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/> #define ASSERT_ARGS_string_from_int __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/><br/>Modified: branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc (original)<br/>+++ branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc Wed Jan 28 23:25:12 2009<br/>@@ -897,7 +897,7 @@<br/> else<br/> pos_name = stream_word_u(ass-&gt;tables, row_addr + 4);<br/> if (pos_name)<br/>- param-&gt;str_name = string_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ param-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> param-&gt;str_name = NULL;<br/> <br/>@@ -947,7 +947,7 @@<br/> cur_pos = 6;<br/> }<br/> if (pos_name)<br/>- field-&gt;str_name = string_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ field-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> field-&gt;str_name = NULL;<br/> <br/>@@ -1011,7 +1011,7 @@<br/> cur_pos = 12;<br/> }<br/> if (pos_name)<br/>- method-&gt;str_name = string_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ method-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> method-&gt;str_name = NULL;<br/> <br/>@@ -1187,12 +1187,12 @@<br/> cur_pos = 12;<br/> }<br/> if (pos_name)<br/>- type-&gt;str_name = string_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ type-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> type-&gt;str_name = NULL;<br/> if (pos_namespace)<br/> {<br/>- type-&gt;str_namespace = string_from_cstring(INTERP,<br/>+ type-&gt;str_namespace = Parrot_str_new_from_cstring(INTERP,<br/> ass-&gt;strings + pos_namespace, 0);<br/> type-&gt;str_fullname = Parrot_str_concat(INTERP, type-&gt;str_namespace,<br/> string_from_literal(INTERP, &quot;.&quot;), 0);<br/>@@ -1357,11 +1357,11 @@<br/> pos_namespace = stream_word_u(ass-&gt;tables, row_addr + cur_pos + 4);<br/> }<br/> if (pos_name)<br/>- typeref-&gt;str_name = string_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ typeref-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/> else<br/> typeref-&gt;str_name = NULL;<br/> if (pos_namespace)<br/>- typeref-&gt;str_namespace = string_from_cstring(INTERP,<br/>+ typeref-&gt;str_namespace = Parrot_str_new_from_cstring(INTERP,<br/> ass-&gt;strings + pos_namespace, 0);<br/> else<br/> typeref-&gt;str_namespace = NULL;<br/>@@ -1425,7 +1425,7 @@<br/> pos_name = stream_word_u(ass-&gt;tables, row_addr + cur_pos);<br/> cur_pos += 4;<br/> }<br/>- memberref-&gt;str_name = string_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ memberref-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/> <br/> /* Get signature. */<br/> if (ass-&gt;blobs_ptr_size == 2)<br/>@@ -1493,7 +1493,7 @@<br/> pos_name = stream_word_u(ass-&gt;tables, row_addr + cur_pos);<br/> cur_pos += 4;<br/> }<br/>- assemblyref-&gt;str_name = string_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/>+ assemblyref-&gt;str_name = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_name, 0);<br/> <br/> /* Get culture. */<br/> if (ass-&gt;strings_ptr_size == 2)<br/>@@ -1506,7 +1506,7 @@<br/> pos_culture = stream_word_u(ass-&gt;tables, row_addr + cur_pos);<br/> cur_pos += 4;<br/> }<br/>- assemblyref-&gt;str_culture = string_from_cstring(INTERP, ass-&gt;strings + pos_culture, 0);<br/>+ assemblyref-&gt;str_culture = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + pos_culture, 0);<br/> <br/> /* Get hash value blob index. */<br/> if (ass-&gt;blobs_ptr_size == 2)<br/>@@ -1935,7 +1935,7 @@<br/> /* Create and return a new string (pass 0 as length; end found<br/> automatically). */<br/> <br/>- result = string_from_cstring(INTERP, ass-&gt;strings + i, 0);<br/>+ result = Parrot_str_new_from_cstring(INTERP, ass-&gt;strings + i, 0);<br/> RETURN(STRING *result);<br/> }<br/> <br/>@@ -2039,7 +2039,7 @@<br/> &quot;Blob position and length out of range&quot;);<br/> <br/> /* Return string containing blob. */<br/>- out = string_from_cstring(INTERP, ass-&gt;blobs + start, length);<br/>+ out = Parrot_str_new_from_cstring(INTERP, ass-&gt;blobs + start, length);<br/> if (!out)<br/> Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_INVALID_OPERATION,<br/> &quot;Unable to create blob string&quot;);<br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/lua.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/lua.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/lua.pmc Wed Jan 28 23:25:12 2009<br/>@@ -146,7 +146,7 @@<br/> if (p) {<br/> retval = pmc_new(INTERP, dynpmc_LuaString);<br/> VTABLE_set_string_native(INTERP, retval,<br/>- string_from_cstring(INTERP, p, 0));<br/>+ Parrot_str_new_from_cstring(INTERP, p, 0));<br/> }<br/> else<br/> retval = pmc_new(INTERP, dynpmc_LuaNil);<br/>@@ -183,7 +183,7 @@<br/> string_cstring_free(s);<br/> }<br/> <br/>- retval = string_from_cstring(INTERP, b, reslen);<br/>+ retval = Parrot_str_new_from_cstring(INTERP, b, reslen);<br/> RETURN(STRING *retval);<br/> }<br/> <br/>@@ -213,7 +213,7 @@<br/> Parrot_ex_throw_from_c_args(INTERP, NULL, 1,<br/> &quot;unable to generate a unique filename&quot;);<br/> <br/>- retval = string_from_cstring(INTERP, buff, 0);<br/>+ retval = Parrot_str_new_from_cstring(INTERP, buff, 0);<br/> RETURN(STRING *retval);<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/luabytecode.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/luabytecode.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/luabytecode.pmc Wed Jan 28 23:25:12 2009<br/>@@ -112,11 +112,11 @@<br/> memcpy(&amp;s, fp, sizeof s);<br/> fp += sizeof s;<br/> if (s != 0) {<br/>- str = string_from_cstring(interp, fp, s-1);<br/>+ str = Parrot_str_new_from_cstring(interp, fp, s-1);<br/> fp += s;<br/> }<br/> else<br/>- str = string_from_cstring(interp, &quot;&quot;, 0);<br/>+ str = Parrot_str_new_from_cstring(interp, &quot;&quot;, 0);<br/> return str;<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc (original)<br/>+++ branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc Wed Jan 28 23:25:12 2009<br/>@@ -54,12 +54,12 @@<br/> static INTVAL*<br/> matchrange_locate_keyed_int(Interp* interp, PMC* self, STRING *key)<br/> {<br/>- STRING *start = string_from_cstring(interp, &quot;start&quot;, 5);<br/>+ STRING *start = Parrot_str_new_from_cstring(interp, &quot;start&quot;, 5);<br/> STRING *end;<br/> <br/> if (0 == string_equal(interp, key, start))<br/> return &amp;RANGE_START(self);<br/>- end = string_from_cstring(interp, &quot;end&quot;, 3);<br/>+ end = Parrot_str_new_from_cstring(interp, &quot;end&quot;, 3);<br/> if (0 == string_equal(interp, key, end))<br/> return &amp;RANGE_END(self);<br/> Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_KEY_NOT_FOUND,<br/><br/>Modified: branches/pdd28str_part2/src/dynpmc/gdbmhash.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/dynpmc/gdbmhash.pmc (original)<br/>+++ branches/pdd28str_part2/src/dynpmc/gdbmhash.pmc Wed Jan 28 23:25:12 2009<br/>@@ -235,7 +235,7 @@<br/> key_gdbm.dptr = keystr-&gt;strstart;<br/> val_gdbm = gdbm_fetch(dbf, key_gdbm);<br/> <br/>- val = string_from_cstring(interp, val_gdbm.dptr, val_gdbm.dsize);<br/>+ val = Parrot_str_new_from_cstring(interp, val_gdbm.dptr, val_gdbm.dsize);<br/> free(val_gdbm.dptr);<br/> <br/> return val;<br/><br/>Modified: branches/pdd28str_part2/src/dynpmc/rational.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/dynpmc/rational.pmc (original)<br/>+++ branches/pdd28str_part2/src/dynpmc/rational.pmc Wed Jan 28 23:25:12 2009<br/>@@ -55,7 +55,7 @@<br/> static STRING *rat_get_string_to_base(PARROT_INTERP, PMC *self, int base) {<br/> #ifdef PARROT_HAS_GMP<br/> char * const cstr = mpq_get_str(NULL, (int) base, RT(self));<br/>- STRING * pstr = string_from_cstring(interp, cstr, 0);<br/>+ STRING * pstr = Parrot_str_new_from_cstring(interp, cstr, 0);<br/> string_cstring_free(cstr);<br/> return pstr;<br/> #else<br/>@@ -286,9 +286,9 @@<br/> METHOD version() {<br/> STRING *version;<br/> #ifdef PARROT_HAS_GMP<br/>- version = string_from_cstring(INTERP, gmp_version, 0);<br/>+ version = Parrot_str_new_from_cstring(INTERP, gmp_version, 0);<br/> #else<br/>- version = string_from_cstring(INTERP, &quot;0.0.0&quot;, 0);<br/>+ version = Parrot_str_new_from_cstring(INTERP, &quot;0.0.0&quot;, 0);<br/> #endif<br/> RETURN(STRING *version);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/extend.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/extend.c (original)<br/>+++ branches/pdd28str_part2/src/extend.c Wed Jan 28 23:25:12 2009<br/>@@ -683,7 +683,7 @@<br/> ASSERT_ARGS(Parrot_PMC_set_cstring)<br/> PARROT_CALLIN_START(interp);<br/> VTABLE_set_string_native(interp, pmc,<br/>- string_from_cstring(interp, value, 0));<br/>+ Parrot_str_new_from_cstring(interp, value, 0));<br/> PARROT_CALLIN_END(interp);<br/> }<br/> <br/>@@ -705,7 +705,7 @@<br/> ASSERT_ARGS(Parrot_PMC_set_cstring_intkey)<br/> PARROT_CALLIN_START(interp);<br/> VTABLE_set_string_keyed_int(interp, pmc, key,<br/>- string_from_cstring(interp, value, 0));<br/>+ Parrot_str_new_from_cstring(interp, value, 0));<br/> PARROT_CALLIN_END(interp);<br/> }<br/> <br/>@@ -727,7 +727,7 @@<br/> ASSERT_ARGS(Parrot_PMC_set_cstringn)<br/> PARROT_CALLIN_START(interp);<br/> VTABLE_set_string_native(interp, pmc,<br/>- string_from_cstring(interp, value, length));<br/>+ Parrot_str_new_from_cstring(interp, value, length));<br/> PARROT_CALLIN_END(interp);<br/> }<br/> <br/>@@ -811,7 +811,7 @@<br/> ASSERT_ARGS(Parrot_PMC_set_cstringn_intkey)<br/> PARROT_CALLIN_START(interp);<br/> VTABLE_set_string_keyed_int(interp, pmc, key,<br/>- string_from_cstring(interp, value, length));<br/>+ Parrot_str_new_from_cstring(interp, value, length));<br/> PARROT_CALLIN_END(interp);<br/> }<br/> <br/>@@ -855,7 +855,7 @@<br/> ASSERT_ARGS(Parrot_PMC_typenum)<br/> Parrot_Int retval;<br/> PARROT_CALLIN_START(interp);<br/>- retval = pmc_type(interp, string_from_cstring(interp, _class, 0));<br/>+ retval = pmc_type(interp, Parrot_str_new_from_cstring(interp, _class, 0));<br/> PARROT_CALLIN_END(interp);<br/> return retval;<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/inter_cb.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/inter_cb.c (original)<br/>+++ branches/pdd28str_part2/src/inter_cb.c Wed Jan 28 23:25:12 2009<br/>@@ -356,7 +356,7 @@<br/> #endif<br/> case &#39;t&#39;:<br/> pasm_sig[2] = &#39;S&#39;;<br/>- param = string_from_cstring(interp, external_data, 0);<br/>+ param = Parrot_str_new_from_cstring(interp, external_data, 0);<br/> break;<br/> default:<br/> Parrot_ex_throw_from_c_args(interp, NULL, 1,<br/><br/>Modified: branches/pdd28str_part2/src/inter_misc.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/inter_misc.c (original)<br/>+++ branches/pdd28str_part2/src/inter_misc.c Wed Jan 28 23:25:12 2009<br/>@@ -398,7 +398,7 @@<br/> if (pos &gt; 0)<br/> pos++;<br/> <br/>- basename = string_from_cstring(interp, fullname_c + pos, 0);<br/>+ basename = Parrot_str_new_from_cstring(interp, fullname_c + pos, 0);<br/> mem_sys_free(fullname_c);<br/> <br/> return basename;<br/><br/>Modified: branches/pdd28str_part2/src/jit/i386/jit_defs.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/jit/i386/jit_defs.c (original)<br/>+++ branches/pdd28str_part2/src/jit/i386/jit_defs.c Wed Jan 28 23:25:12 2009<br/>@@ -2584,7 +2584,7 @@<br/> /* overrights address of st in EBP(4) */<br/> emitm_movl_r_m(interp, pc, emit_EAX, emit_EBP, 0, 1, temp_calls_offset + 4);<br/> <br/>- emitm_call_cfunc(pc, string_from_cstring);<br/>+ emitm_call_cfunc(pc, Parrot_str_new_from_cstring);<br/> <br/> emitm_movl_r_m(interp, pc, emit_EAX, emit_EBP, 0, 1, temp_calls_offset + 8);<br/> <br/><br/>Modified: branches/pdd28str_part2/src/key.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/key.c (original)<br/>+++ branches/pdd28str_part2/src/key.c Wed Jan 28 23:25:12 2009<br/>@@ -141,7 +141,7 @@<br/> key_new_cstring(PARROT_INTERP, ARGIN_NULLOK(const char *value))<br/> {<br/> ASSERT_ARGS(key_new_cstring)<br/>- return key_new_string(interp, string_from_cstring(interp, value, 0));<br/>+ return key_new_string(interp, Parrot_str_new_from_cstring(interp, value, 0));<br/> }<br/> <br/> <br/>@@ -589,7 +589,7 @@<br/> ASSERT_ARGS(key_set_to_string)<br/> STRING * const semicolon = CONST_STRING(interp, &quot; ; &quot;);<br/> STRING * const quote = CONST_STRING(interp, &quot;&#39;&quot;);<br/>- STRING *value = string_from_cstring(interp, &quot;[ &quot;, 2);<br/>+ STRING *value = Parrot_str_new_from_cstring(interp, &quot;[ &quot;, 2);<br/> <br/> for (; key; key = (PMC *)PMC_data(key)) {<br/> switch (PObj_get_FLAGS(key) &amp; KEY_type_FLAGS) {<br/>@@ -633,7 +633,7 @@<br/> value = Parrot_str_append(interp, value, semicolon);<br/> }<br/> <br/>- value = Parrot_str_append(interp, value, string_from_cstring(interp, &quot; ]&quot;, 2));<br/>+ value = Parrot_str_append(interp, value, Parrot_str_new_from_cstring(interp, &quot; ]&quot;, 2));<br/> return value;<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/library.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/library.c (original)<br/>+++ branches/pdd28str_part2/src/library.c Wed Jan 28 23:25:12 2009<br/>@@ -593,7 +593,7 @@<br/> PMC * const lib_paths = VTABLE_get_pmc_keyed_int(interp, iglobals,<br/> IGLOBALS_LIB_PATHS);<br/> PMC * paths = VTABLE_get_pmc_keyed_int(interp, lib_paths, which);<br/>- STRING * const path_str = string_from_cstring(interp, path, 0);<br/>+ STRING * const path_str = Parrot_str_new_from_cstring(interp, path, 0);<br/> VTABLE_push_string(interp, paths, path_str);<br/> }<br/> <br/>@@ -682,7 +682,7 @@<br/> enum_runtime_ft type)<br/> {<br/> ASSERT_ARGS(Parrot_locate_runtime_file)<br/>- STRING * const file = string_from_cstring(interp, file_name, 0);<br/>+ STRING * const file = Parrot_str_new_from_cstring(interp, file_name, 0);<br/> STRING * const result = Parrot_locate_runtime_file_str(interp, file, type);<br/> /*<br/> * XXX valgrind shows e.g.<br/>@@ -757,7 +757,7 @@<br/> <br/> if (env)<br/> {<br/>- result = string_from_cstring(interp, env, 0);<br/>+ result = Parrot_str_new_from_cstring(interp, env, 0);<br/> if (free_it)<br/> free(env);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/main.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/main.c (original)<br/>+++ branches/pdd28str_part2/src/main.c Wed Jan 28 23:25:12 2009<br/>@@ -55,7 +55,7 @@<br/> /* We parse the arguments, but first store away the name of the Parrot<br/> executable, since parsing destroys that and we want to make it<br/> available. */<br/>- Parrot_set_executable_name(interp, string_from_cstring(interp, argv[0], 0));<br/>+ Parrot_set_executable_name(interp, Parrot_str_new_from_cstring(interp, argv[0], 0));<br/> <br/> sourcefile = parseflags(interp, &amp;argc, &amp;argv);<br/> status = imcc_run(interp, sourcefile, argc, argv);<br/><br/>Modified: branches/pdd28str_part2/src/multidispatch.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/multidispatch.c (original)<br/>+++ branches/pdd28str_part2/src/multidispatch.c Wed Jan 28 23:25:12 2009<br/>@@ -1559,7 +1559,7 @@<br/> if (name)<br/> strcpy((char *)(type_ids + num_values), name);<br/> <br/>- key = string_from_cstring(interp, (char *)type_ids, id_size);<br/>+ key = Parrot_str_new_from_cstring(interp, (char *)type_ids, id_size);<br/> mem_sys_free(type_ids);<br/> <br/> return key;<br/>@@ -1656,7 +1656,7 @@<br/> if (name)<br/> strcpy((char *)(type_ids + num_types), name);<br/> <br/>- key = string_from_cstring(interp, (char *)type_ids, id_size);<br/>+ key = Parrot_str_new_from_cstring(interp, (char *)type_ids, id_size);<br/> <br/> mem_sys_free(type_ids);<br/> return key;<br/><br/>Modified: branches/pdd28str_part2/src/oo.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/oo.c (original)<br/>+++ branches/pdd28str_part2/src/oo.c Wed Jan 28 23:25:12 2009<br/>@@ -133,7 +133,7 @@<br/> /* Look up the name of the vtable function from the index. */<br/> const INTVAL vtable_index = string_to_int(interp, vtable_index_str);<br/> const char * const meth_c = Parrot_vtable_slot_names[vtable_index];<br/>- STRING *vtable_name = string_from_cstring(interp, meth_c, 0);<br/>+ STRING *vtable_name = Parrot_str_new_from_cstring(interp, meth_c, 0);<br/> <br/> /* Strip leading underscores in the vtable name */<br/> if (string_str_index(interp, vtable_name, CONST_STRING(interp, &quot;__&quot;), 0) == 0) {<br/><br/>Modified: branches/pdd28str_part2/src/ops/core.ops<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/ops/core.ops (original)<br/>+++ branches/pdd28str_part2/src/ops/core.ops Wed Jan 28 23:25:12 2009<br/>@@ -837,7 +837,7 @@<br/> <br/> inline op pop_eh() {<br/> Parrot_cx_delete_handler_local(interp,<br/>- string_from_cstring(interp, &quot;exception&quot;, 9));<br/>+ Parrot_str_new_from_cstring(interp, &quot;exception&quot;, 9));<br/> }<br/> <br/> inline op throw(invar PMC) :flow {<br/>@@ -867,7 +867,7 @@<br/> <br/> inline op count_eh(out INT) {<br/> $1 = Parrot_cx_count_handlers_local(interp,<br/>- string_from_cstring(interp, &quot;exception&quot;, 9));<br/>+ Parrot_str_new_from_cstring(interp, &quot;exception&quot;, 9));<br/> }<br/> <br/> inline op die(in STR) :flow {<br/><br/>Modified: branches/pdd28str_part2/src/ops/sys.ops<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/ops/sys.ops (original)<br/>+++ branches/pdd28str_part2/src/ops/sys.ops Wed Jan 28 23:25:12 2009<br/>@@ -178,7 +178,7 @@<br/> char resultbuffer[26];<br/> Parrot_gmtime_r(&amp;t, &amp;tm);<br/> Parrot_asctime_r(&amp;tm, resultbuffer);<br/>- $1 = string_from_cstring(interp, resultbuffer, 25);<br/>+ $1 = Parrot_str_new_from_cstring(interp, resultbuffer, 25);<br/> }<br/> <br/> op localtime(out STR, in INT) {<br/>@@ -187,7 +187,7 @@<br/> char resultbuffer[26];<br/> Parrot_localtime_r(&amp;t, &amp;tm);<br/> Parrot_asctime_r(&amp;tm, resultbuffer);<br/>- $1 = string_from_cstring(interp, resultbuffer, 25);<br/>+ $1 = Parrot_str_new_from_cstring(interp, resultbuffer, 25);<br/> }<br/> <br/> op decodetime(out PMC, in INT) {<br/><br/>Modified: branches/pdd28str_part2/src/packdump.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/packdump.c (original)<br/>+++ branches/pdd28str_part2/src/packdump.c Wed Jan 28 23:25:12 2009<br/>@@ -294,13 +294,13 @@<br/> if (sub-&gt;namespace_name) {<br/> switch (sub-&gt;namespace_name-&gt;vtable-&gt;base_type) {<br/> case enum_class_String:<br/>- namespace_description = string_from_cstring(interp, &quot;&#39;&quot;, 1);<br/>+ namespace_description = Parrot_str_new_from_cstring(interp, &quot;&#39;&quot;, 1);<br/> namespace_description = Parrot_str_append(interp,<br/> namespace_description,<br/> PMC_str_val(sub-&gt;namespace_name));<br/> namespace_description = Parrot_str_append(interp,<br/> namespace_description,<br/>- string_from_cstring(interp, &quot;&#39;&quot;, 1));<br/>+ Parrot_str_new_from_cstring(interp, &quot;&#39;&quot;, 1));<br/> break;<br/> case enum_class_Key:<br/> namespace_description =<br/><br/>Modified: branches/pdd28str_part2/src/parrot_debugger.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/parrot_debugger.c (original)<br/>+++ branches/pdd28str_part2/src/parrot_debugger.c Wed Jan 28 23:25:12 2009<br/>@@ -148,7 +148,7 @@<br/> <br/> interp = Parrot_new(NULL);<br/> <br/>- Parrot_set_executable_name(interp, string_from_cstring(interp, argv[0], 0));<br/>+ Parrot_set_executable_name(interp, Parrot_str_new_from_cstring(interp, argv[0], 0));<br/> <br/> Parrot_debugger_init(interp);<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/bigint.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/bigint.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/bigint.pmc Wed Jan 28 23:25:12 2009<br/>@@ -588,7 +588,7 @@<br/> METHOD version() {<br/> STRING *version;<br/> #ifdef PARROT_HAS_GMP<br/>- version = string_from_cstring(INTERP, gmp_version, 0);<br/>+ version = Parrot_str_new_from_cstring(INTERP, gmp_version, 0);<br/> #else<br/> version = CONST_STRING(INTERP, &quot;0.0.0&quot;);<br/> #endif<br/>@@ -793,14 +793,14 @@<br/> <br/> VTABLE STRING *get_string() {<br/> char *s = bigint_get_string(INTERP, SELF, 10);<br/>- STRING *ps = string_from_cstring(INTERP, s, 0);<br/>+ STRING *ps = Parrot_str_new_from_cstring(INTERP, s, 0);<br/> mem_sys_free(s);<br/> return ps;<br/> }<br/> <br/> VTABLE STRING *get_string_keyed_int(INTVAL base) {<br/> char *s = bigint_get_string(INTERP, SELF, base);<br/>- STRING *ps = string_from_cstring(INTERP, s, 0);<br/>+ STRING *ps = Parrot_str_new_from_cstring(INTERP, s, 0);<br/> mem_sys_free(s);<br/> return ps;<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/complex.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/complex.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/complex.pmc Wed Jan 28 23:25:12 2009<br/>@@ -164,7 +164,7 @@<br/> <br/> if (first_num_length) {<br/> /* there is a real part, interpret it */<br/>- S = string_from_cstring(interp, first_num_offset, first_num_length);<br/>+ S = Parrot_str_new_from_cstring(interp, first_num_offset, first_num_length);<br/> *re = string_to_num(interp, S);<br/> }<br/> else {<br/>@@ -174,7 +174,7 @@<br/> <br/> if (second_num_length) {<br/> /* there is an imaginary part, interpret it */<br/>- S = string_from_cstring(interp, second_num_offset, second_num_length);<br/>+ S = Parrot_str_new_from_cstring(interp, second_num_offset, second_num_length);<br/> *im = string_to_num(interp, S);<br/> }<br/> else {<br/><br/>Modified: branches/pdd28str_part2/src/pmc/env.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/env.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/env.pmc Wed Jan 28 23:25:12 2009<br/>@@ -153,7 +153,7 @@<br/> else {<br/> const char * const envp = environ[keynum];<br/> const char * const p = strchr(envp, &#39;=&#39;);<br/>- return string_from_cstring(interp, envp, (UINTVAL)(p - envp));<br/>+ return Parrot_str_new_from_cstring(interp, envp, (UINTVAL)(p - envp));<br/> }<br/> }<br/> else {<br/>@@ -166,7 +166,7 @@<br/> string_cstring_free(keyname);<br/> <br/> if (val) {<br/>- STRING * const retval = string_from_cstring(interp, val, 0);<br/>+ STRING * const retval = Parrot_str_new_from_cstring(interp, val, 0);<br/> <br/> if (free_it)<br/> mem_sys_free(val);<br/>@@ -204,7 +204,7 @@<br/> string_cstring_free(keyname);<br/> <br/> if (val) {<br/>- retval = string_from_cstring(INTERP, val, 0);<br/>+ retval = Parrot_str_new_from_cstring(INTERP, val, 0);<br/> if (free_it)<br/> mem_sys_free(val);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/filehandle.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/filehandle.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/filehandle.pmc Wed Jan 28 23:25:12 2009<br/>@@ -348,7 +348,7 @@<br/> if (*r)<br/> add_history(r);<br/> <br/>- string_result = string_from_cstring(INTERP, r, 0);<br/>+ string_result = Parrot_str_new_from_cstring(INTERP, r, 0);<br/> mem_sys_free(r);<br/> RETURN(STRING *string_result);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc Wed Jan 28 23:25:12 2009<br/>@@ -519,7 +519,7 @@<br/> GET_ATTR_resize_threshold(INTERP, SELF, resize_threshold);<br/> GET_ATTR_bit_array(INTERP, SELF, bit_array);<br/> <br/>- s = string_from_cstring(INTERP, (char*)bit_array,<br/>+ s = Parrot_str_new_from_cstring(INTERP, (char*)bit_array,<br/> (resize_threshold / BITS_PER_CHAR));<br/> <br/> VTABLE_push_integer(INTERP, io, size);<br/><br/>Modified: branches/pdd28str_part2/src/pmc/os.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/os.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/os.pmc Wed Jan 28 23:25:12 2009<br/>@@ -87,7 +87,7 @@<br/> # endif<br/> #endif<br/> if (cwd) {<br/>- STRING * const scwd = string_from_cstring(interp, cwd, strlen(cwd));<br/>+ STRING * const scwd = Parrot_str_new_from_cstring(interp, cwd, strlen(cwd));<br/> mem_sys_free(cwd);<br/> RETURN(STRING *scwd);<br/> }<br/>@@ -492,7 +492,7 @@<br/> array = pmc_new(interp, enum_class_ResizableStringArray);<br/> <br/> while ((dirent = readdir(dir)) != NULL) {<br/>- retval = string_from_cstring(interp, dirent-&gt;d_name, 0) ;<br/>+ retval = Parrot_str_new_from_cstring(interp, dirent-&gt;d_name, 0) ;<br/> VTABLE_push_string(interp, array, retval);<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/packfile.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/packfile.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/packfile.pmc Wed Jan 28 23:25:12 2009<br/>@@ -176,7 +176,7 @@<br/> VTABLE STRING *get_string_keyed_str(STRING *key) {<br/> PackFile *pf = PMC_data_typed(SELF, PackFile *);<br/> if (!string_compare(interp, key, CONST_STRING(interp, &quot;uuid&quot;)))<br/>- return string_from_cstring(interp, (char*)pf-&gt;header-&gt;uuid_data, pf-&gt;header-&gt;uuid_size);<br/>+ return Parrot_str_new_from_cstring(interp, (char*)pf-&gt;header-&gt;uuid_data, pf-&gt;header-&gt;uuid_size);<br/> <br/> Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_KEY_NOT_FOUND,<br/> &quot;Packfile: No such string key \&quot;%s\&quot;&quot;,<br/><br/>Modified: branches/pdd28str_part2/src/pmc/packfilefixupentry.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/packfilefixupentry.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/packfilefixupentry.pmc Wed Jan 28 23:25:12 2009<br/>@@ -34,7 +34,7 @@<br/> */<br/> VTABLE STRING *get_string() {<br/> PackFile_FixupEntry *pfentry = PMC_data_typed(SELF, PackFile_FixupEntry *);<br/>- return string_from_cstring(interp, pfentry-&gt;name, strlen(pfentry-&gt;name));<br/>+ return Parrot_str_new_from_cstring(interp, pfentry-&gt;name, strlen(pfentry-&gt;name));<br/> }<br/> <br/> /*<br/><br/>Modified: branches/pdd28str_part2/src/pmc/resizablebooleanarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/resizablebooleanarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/resizablebooleanarray.pmc Wed Jan 28 23:25:12 2009<br/>@@ -435,7 +435,7 @@<br/> VTABLE_push_integer(INTERP, io, head_pos);<br/> VTABLE_push_integer(INTERP, io, tail_pos);<br/> <br/>- s = string_from_cstring(INTERP, (char*)bit_array, tail_pos);<br/>+ s = Parrot_str_new_from_cstring(INTERP, (char*)bit_array, tail_pos);<br/> <br/> VTABLE_push_string(INTERP, io, s);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/resizablestringarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/resizablestringarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/resizablestringarray.pmc Wed Jan 28 23:25:12 2009<br/>@@ -54,7 +54,7 @@<br/> data = (STRING**)PMC_data(SELF);<br/> <br/> if (!data[key])<br/>- data[key] = string_from_cstring(interp, NULL, 0);<br/>+ data[key] = Parrot_str_new_from_cstring(interp, NULL, 0);<br/> <br/> return data[key];<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/stringhandle.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/stringhandle.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/stringhandle.pmc Wed Jan 28 23:25:12 2009<br/>@@ -175,7 +175,7 @@<br/> &amp;&amp; string_equal(INTERP, encoding, CONST_STRING(INTERP, &quot;utf8&quot;)) == 0)<br/> new_string = string_make(INTERP, &quot;&quot;, 0, &quot;unicode&quot;, 0);<br/> else<br/>- new_string = string_from_cstring(INTERP, &quot;&quot;, 0);<br/>+ new_string = Parrot_str_new_from_cstring(INTERP, &quot;&quot;, 0);<br/> <br/> SET_ATTR_stringhandle(INTERP, SELF, new_string);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 23:25:12 2009<br/>@@ -607,7 +607,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;STRING * string_from_cstring&gt;<br/>+=item C&lt;STRING * Parrot_str_new_from_cstring&gt;<br/> <br/> Make a Parrot string from a specified C string.<br/> <br/>@@ -620,9 +620,9 @@<br/> PARROT_MALLOC<br/> PARROT_CANNOT_RETURN_NULL<br/> STRING *<br/>-string_from_cstring(PARROT_INTERP, ARGIN_NULLOK(const char * const buffer), const UINTVAL len)<br/>+Parrot_str_new_from_cstring(PARROT_INTERP, ARGIN_NULLOK(const char * const buffer), const UINTVAL len)<br/> {<br/>- ASSERT_ARGS(string_from_cstring)<br/>+ ASSERT_ARGS(Parrot_str_new_from_cstring)<br/> return string_make_direct(interp, buffer, len ? len :<br/> buffer ? strlen(buffer) : 0,<br/> PARROT_DEFAULT_ENCODING, PARROT_DEFAULT_CHARSET,<br/><br/>Modified: branches/pdd28str_part2/src/sub.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/sub.c (original)<br/>+++ branches/pdd28str_part2/src/sub.c Wed Jan 28 23:25:12 2009<br/>@@ -418,9 +418,9 @@<br/> <br/> /* is the current sub of the specified context valid? */<br/> if (PMC_IS_NULL(ctx-&gt;current_sub)) {<br/>- info-&gt;subname = string_from_cstring(interp, &quot;???&quot;, 3);<br/>+ info-&gt;subname = Parrot_str_new_from_cstring(interp, &quot;???&quot;, 3);<br/> info-&gt;nsname = info-&gt;subname;<br/>- info-&gt;fullname = string_from_cstring(interp, &quot;??? :: ???&quot;, 10);<br/>+ info-&gt;fullname = Parrot_str_new_from_cstring(interp, &quot;??? :: ???&quot;, 10);<br/> info-&gt;pc = -1;<br/> return 0;<br/> }<br/><br/>Modified: branches/pdd28str_part2/t/src/extend.t<br/>==============================================================================<br/>--- branches/pdd28str_part2/t/src/extend.t (original)<br/>+++ branches/pdd28str_part2/t/src/extend.t Wed Jan 28 23:25:12 2009<br/>@@ -457,7 +457,7 @@<br/> arg = pmc_new(interp, enum_class_String);<br/> <br/> Parrot_PMC_set_string_native(interp, arg,<br/>- string_from_cstring(interp, &quot;hello &quot;, 0));<br/>+ Parrot_str_new_from_cstring(interp, &quot;hello &quot;, 0));<br/> <br/> Parrot_call_sub(interp, sub, &quot;vP&quot;, arg);<br/> Parrot_eprintf(interp, &quot;back\\n&quot;);<br/><br/>Modified: branches/pdd28str_part2/tools/build/nativecall.pl<br/>==============================================================================<br/>--- branches/pdd28str_part2/tools/build/nativecall.pl (original)<br/>+++ branches/pdd28str_part2/tools/build/nativecall.pl Wed Jan 28 23:25:12 2009<br/>@@ -53,7 +53,7 @@<br/> d =&gt; { as_proto =&gt; &quot;double&quot;, sig_char =&gt; &quot;N&quot; },<br/> t =&gt; { as_proto =&gt; &quot;char *&quot;,<br/> other_decl =&gt; &quot;STRING *final_destination;&quot;,<br/>- ret_assign =&gt; &quot;final_destination = string_from_cstring(interp, return_data, 0);\n set_nci_S(interp, &amp;st, final_destination);&quot;,<br/>+ ret_assign =&gt; &quot;final_destination = Parrot_str_new_from_cstring(interp, return_data, 0);\n set_nci_S(interp, &amp;st, final_destination);&quot;,<br/> sig_char =&gt; &quot;S&quot; },<br/> v =&gt; { as_proto =&gt; &quot;void&quot;,<br/> return_type =&gt; &quot;void *&quot;,<br/><br/>Modified: branches/pdd28str_part2/tools/dev/pbc_to_exe_gen.pl<br/>==============================================================================<br/>--- branches/pdd28str_part2/tools/dev/pbc_to_exe_gen.pl (original)<br/>+++ branches/pdd28str_part2/tools/dev/pbc_to_exe_gen.pl Wed Jan 28 23:25:12 2009<br/>@@ -257,7 +257,7 @@<br/> if (!interp)<br/> return 1;<br/> <br/>- Parrot_set_executable_name(interp, string_from_cstring(interp, argv[0], 0));<br/>+ Parrot_set_executable_name(interp, Parrot_str_new_from_cstring(interp, argv[0], 0));<br/> Parrot_set_flag(interp, PARROT_DESTROY_FLAG);<br/> <br/> pf = PackFile_new(interp, 0);<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36486.html Wed, 28 Jan 2009 23:28:51 +0000 [svn:parrot] r36136 - in branches/pdd28str_part2: include/parrot languages/lua/src/pmc languages/perl6/src/pmc languages/pipp/src/pmc lib/Parrot/Pmc2c src src/io src/ops src/pmc src/string by allison Author: allison<br/>Date: Wed Jan 28 22:16:55 2009<br/>New Revision: 36136<br/><br/>Modified:<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/languages/lua/src/pmc/luanumber.pmc<br/> branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc<br/> branches/pdd28str_part2/languages/perl6/src/pmc/perl6multisub.pmc<br/> branches/pdd28str_part2/languages/pipp/src/pmc/phparray.pmc<br/> branches/pdd28str_part2/lib/Parrot/Pmc2c/PMCEmitter.pm<br/> branches/pdd28str_part2/src/dynext.c<br/> branches/pdd28str_part2/src/io/io_string.c<br/> branches/pdd28str_part2/src/io/utf8.c<br/> branches/pdd28str_part2/src/jit_debug.c<br/> branches/pdd28str_part2/src/jit_debug_xcoff.c<br/> branches/pdd28str_part2/src/key.c<br/> branches/pdd28str_part2/src/library.c<br/> branches/pdd28str_part2/src/ops/string.ops<br/> branches/pdd28str_part2/src/packdump.c<br/> branches/pdd28str_part2/src/pmc/bigint.pmc<br/> branches/pdd28str_part2/src/pmc/class.pmc<br/> branches/pdd28str_part2/src/pmc/codestring.pmc<br/> branches/pdd28str_part2/src/pmc/filehandle.pmc<br/> branches/pdd28str_part2/src/pmc/fixedintegerarray.pmc<br/> branches/pdd28str_part2/src/pmc/fixedpmcarray.pmc<br/> branches/pdd28str_part2/src/pmc/fixedstringarray.pmc<br/> branches/pdd28str_part2/src/pmc/hash.pmc<br/> branches/pdd28str_part2/src/pmc/object.pmc<br/> branches/pdd28str_part2/src/pmc/resizablepmcarray.pmc<br/> branches/pdd28str_part2/src/pmc/scalar.pmc<br/> branches/pdd28str_part2/src/pmc/stringhandle.pmc<br/> branches/pdd28str_part2/src/spf_render.c<br/> branches/pdd28str_part2/src/string/api.c<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_append&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 22:16:55 2009<br/>@@ -130,7 +130,7 @@<br/> PARROT_EXPORT<br/> PARROT_WARN_UNUSED_RESULT<br/> PARROT_CAN_RETURN_NULL<br/>-STRING * string_append(PARROT_INTERP,<br/>+STRING * Parrot_str_append(PARROT_INTERP,<br/> ARGMOD_NULLOK(STRING *a),<br/> ARGIN_NULLOK(STRING *b))<br/> __attribute__nonnull__(1)<br/>@@ -587,7 +587,7 @@<br/> #define ASSERT_ARGS_Parrot_str_write_COW __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(s)<br/>-#define ASSERT_ARGS_string_append __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_append __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/> #define ASSERT_ARGS_string_bitwise_and __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/luanumber.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/luanumber.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/luanumber.pmc Wed Jan 28 22:16:55 2009<br/>@@ -841,13 +841,13 @@<br/> MULTI void i_concatenate(LuaNumber value) {<br/> STRING *s = SELF.get_string();<br/> STRING *v = VTABLE_get_string(INTERP, value);<br/>- SELF.set_string_native(string_append(INTERP, s, v));<br/>+ SELF.set_string_native(Parrot_str_append(INTERP, s, v));<br/> }<br/> <br/> MULTI void i_concatenate(LuaString value) {<br/> STRING *s = SELF.get_string();<br/> STRING *v = VTABLE_get_string(INTERP, value);<br/>- SELF.set_string_native(string_append(INTERP, s, v));<br/>+ SELF.set_string_native(Parrot_str_append(INTERP, s, v));<br/> }<br/> <br/> MULTI void i_concatenate(DEFAULT value) {<br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc Wed Jan 28 22:16:55 2009<br/>@@ -933,13 +933,13 @@<br/> MULTI void i_concatenate(LuaNumber value) {<br/> STRING *s = SELF.get_string();<br/> STRING *v = VTABLE_get_string(INTERP, value);<br/>- SELF.set_string_native(string_append(INTERP, s, v));<br/>+ SELF.set_string_native(Parrot_str_append(INTERP, s, v));<br/> }<br/> <br/> MULTI void i_concatenate(LuaString value) {<br/> STRING *s = SELF.get_string();<br/> STRING *v = VTABLE_get_string(INTERP, value);<br/>- SELF.set_string_native(string_append(INTERP, s, v));<br/>+ SELF.set_string_native(Parrot_str_append(INTERP, s, v));<br/> }<br/> <br/> MULTI void i_concatenate(DEFAULT value) {<br/><br/>Modified: branches/pdd28str_part2/languages/perl6/src/pmc/perl6multisub.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/perl6/src/pmc/perl6multisub.pmc (original)<br/>+++ branches/pdd28str_part2/languages/perl6/src/pmc/perl6multisub.pmc Wed Jan 28 22:16:55 2009<br/>@@ -670,8 +670,8 @@<br/> PMC *perl_meth = VTABLE_find_method(interp, sig_obj, perl_name);<br/> STRING *sig_perl = (STRING *)Parrot_run_meth_fromc_args(interp, perl_meth,<br/> sig_obj, perl_name, &quot;S&quot;);<br/>- signatures = string_append(interp, signatures, sig_perl);<br/>- signatures = string_append(interp, signatures, newline);<br/>+ signatures = Parrot_str_append(interp, signatures, sig_perl);<br/>+ signatures = Parrot_str_append(interp, signatures, newline);<br/> }<br/> Parrot_ex_throw_from_c_args(interp, next, 1,<br/> &quot;Ambiguous dispatch to multi &#39;%Ss&#39;. Ambiguous candidates had signatures:\n%Ss&quot;,<br/><br/>Modified: branches/pdd28str_part2/languages/pipp/src/pmc/phparray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/pipp/src/pmc/phparray.pmc (original)<br/>+++ branches/pdd28str_part2/languages/pipp/src/pmc/phparray.pmc Wed Jan 28 22:16:55 2009<br/>@@ -1832,16 +1832,16 @@<br/> else<br/> key_str = Parrot_sprintf_c(INTERP, &quot;\&quot;%Ss\&quot;: &quot;, bkt-&gt;key);<br/> <br/>- repr = string_append(INTERP, repr, key_str);<br/>+ repr = Parrot_str_append(INTERP, repr, key_str);<br/> val_str = VTABLE_get_string(INTERP, bkt-&gt;value);<br/>- repr = string_append(INTERP, repr, val_str);<br/>+ repr = Parrot_str_append(INTERP, repr, val_str);<br/> <br/> if (bkt-&gt;tableNext != NULL)<br/>- repr = string_append(INTERP, repr, CONST_STRING(INTERP, &quot;, &quot;));<br/>+ repr = Parrot_str_append(INTERP, repr, CONST_STRING(INTERP, &quot;, &quot;));<br/> <br/> bkt = bkt-&gt;tableNext;<br/> }<br/>- repr = string_append(INTERP, repr, CONST_STRING(INTERP, &quot;}&quot;));<br/>+ repr = Parrot_str_append(INTERP, repr, CONST_STRING(INTERP, &quot;}&quot;));<br/> return repr;<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/lib/Parrot/Pmc2c/PMCEmitter.pm<br/>==============================================================================<br/>--- branches/pdd28str_part2/lib/Parrot/Pmc2c/PMCEmitter.pm (original)<br/>+++ branches/pdd28str_part2/lib/Parrot/Pmc2c/PMCEmitter.pm Wed Jan 28 22:16:55 2009<br/>@@ -624,7 +624,7 @@<br/> vt_clone-&gt;base_type = entry;<br/> vt_clone-&gt;whoami = string_make(interp, &quot;$classname&quot;, @{[length($classname)]}, &quot;ascii&quot;,<br/> PObj_constant_FLAG|PObj_external_FLAG);<br/>- vt_clone-&gt;provides_str = string_append(interp, vt_clone-&gt;provides_str,<br/>+ vt_clone-&gt;provides_str = Parrot_str_append(interp, vt_clone-&gt;provides_str,<br/> string_make(interp, &quot; $provides&quot;, @{[length($provides) + 1]}, &quot;ascii&quot;,<br/> PObj_constant_FLAG|PObj_external_FLAG));<br/> <br/><br/>Modified: branches/pdd28str_part2/src/dynext.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/dynext.c (original)<br/>+++ branches/pdd28str_part2/src/dynext.c Wed Jan 28 22:16:55 2009<br/>@@ -305,7 +305,7 @@<br/> /* And on cygwin replace a leading &quot;lib&quot; by &quot;cyg&quot;. */<br/> #ifdef __CYGWIN__<br/> if (!STRING_IS_EMPTY(lib) &amp;&amp; memcmp(lib-&gt;strstart, &quot;lib&quot;, 3) == 0) {<br/>- path = string_append(interp, CONST_STRING(interp, &quot;cyg&quot;),<br/>+ path = Parrot_str_append(interp, CONST_STRING(interp, &quot;cyg&quot;),<br/> string_substr(interp, lib, 3, lib-&gt;strlen - 3, NULL, 0));<br/> <br/> *handle = Parrot_dlopen(path-&gt;strstart);<br/><br/>Modified: branches/pdd28str_part2/src/io/io_string.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/io/io_string.c (original)<br/>+++ branches/pdd28str_part2/src/io/io_string.c Wed Jan 28 22:16:55 2009<br/>@@ -151,7 +151,7 @@<br/> return s-&gt;strlen;<br/> }<br/> <br/>- l-&gt;self = string_append(interp, old_string, s);<br/>+ l-&gt;self = Parrot_str_append(interp, old_string, s);<br/> return string_length(interp, (STRING *)l-&gt;self);<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/io/utf8.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/io/utf8.c (original)<br/>+++ branches/pdd28str_part2/src/io/utf8.c Wed Jan 28 22:16:55 2009<br/>@@ -84,7 +84,7 @@<br/> UNUSED(read);<br/> <br/> s-&gt;strlen = iter.charpos;<br/>- s = string_append(interp, s, s2);<br/>+ s = Parrot_str_append(interp, s, s2);<br/> len += len2 + 1;<br/> <br/> /* check last char */<br/><br/>Modified: branches/pdd28str_part2/src/jit_debug.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/jit_debug.c (original)<br/>+++ branches/pdd28str_part2/src/jit_debug.c Wed Jan 28 22:16:55 2009<br/>@@ -252,7 +252,7 @@<br/> {<br/> STRING *ret;<br/> ret = string_copy(interp, file);<br/>- ret = string_append(interp, ret,<br/>+ ret = Parrot_str_append(interp, ret,<br/> string_make(interp, ext, strlen(ext), NULL,<br/> PObj_external_FLAG));<br/> return ret;<br/>@@ -297,7 +297,7 @@<br/> else if (ext &amp;&amp; STREQ(ext, &quot;.pir&quot;))<br/> string_chopn_inplace(interp, file, 3);<br/> else if (!ext) /* EVAL_n */<br/>- file = string_append(interp, file,<br/>+ file = Parrot_str_append(interp, file,<br/> string_make(interp, &quot;.&quot;, 1, NULL, PObj_external_FLAG));<br/> <br/> string_cstring_free(src);<br/><br/>Modified: branches/pdd28str_part2/src/jit_debug_xcoff.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/jit_debug_xcoff.c (original)<br/>+++ branches/pdd28str_part2/src/jit_debug_xcoff.c Wed Jan 28 22:16:55 2009<br/>@@ -224,7 +224,7 @@<br/> {<br/> STRING *ret;<br/> ret = string_copy(interp, file);<br/>- ret = string_append(interp, ret,<br/>+ ret = Parrot_str_append(interp, ret,<br/> string_make(interp, ext, strlen(ext), NULL,<br/> PObj_external_FLAG));<br/> return ret;<br/>@@ -268,7 +268,7 @@<br/> else if (ext &amp;&amp; STREQ(ext, &quot;.pir&quot;))<br/> string_chopn_inplace(interp, file, 3);<br/> else if (!ext) /* EVAL_n */<br/>- file = string_append(interp, file,<br/>+ file = Parrot_str_append(interp, file,<br/> string_make(interp, &quot;.&quot;, 1, NULL, PObj_external_FLAG));<br/> string_cstring_free(src);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/key.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/key.c (original)<br/>+++ branches/pdd28str_part2/src/key.c Wed Jan 28 22:16:55 2009<br/>@@ -594,46 +594,46 @@<br/> for (; key; key = (PMC *)PMC_data(key)) {<br/> switch (PObj_get_FLAGS(key) &amp; KEY_type_FLAGS) {<br/> case KEY_integer_FLAG:<br/>- value = string_append(interp, value,<br/>+ value = Parrot_str_append(interp, value,<br/> string_from_int(interp, PMC_int_val(key)));<br/> break;<br/> case KEY_string_FLAG:<br/>- value = string_append(interp, value, quote);<br/>- value = string_append(interp, value, PMC_str_val(key));<br/>- value = string_append(interp, value, quote);<br/>+ value = Parrot_str_append(interp, value, quote);<br/>+ value = Parrot_str_append(interp, value, PMC_str_val(key));<br/>+ value = Parrot_str_append(interp, value, quote);<br/> break;<br/> case KEY_pmc_FLAG:<br/>- value = string_append(interp, value,<br/>+ value = Parrot_str_append(interp, value,<br/> VTABLE_get_string(interp, key));<br/> break;<br/> case KEY_integer_FLAG | KEY_register_FLAG:<br/>- value = string_append(interp, value,<br/>+ value = Parrot_str_append(interp, value,<br/> string_from_int(interp,<br/> REG_INT(interp, PMC_int_val(key))));<br/> break;<br/> case KEY_string_FLAG | KEY_register_FLAG:<br/>- value = string_append(interp, value, quote);<br/>- value = string_append(interp, value,<br/>+ value = Parrot_str_append(interp, value, quote);<br/>+ value = Parrot_str_append(interp, value,<br/> REG_STR(interp, PMC_int_val(key)));<br/>- value = string_append(interp, value, quote);<br/>+ value = Parrot_str_append(interp, value, quote);<br/> break;<br/> case KEY_pmc_FLAG | KEY_register_FLAG:<br/> {<br/> PMC * const reg = REG_PMC(interp, PMC_int_val(key));<br/>- value = string_append(interp, value,<br/>+ value = Parrot_str_append(interp, value,<br/> VTABLE_get_string(interp, reg));<br/> }<br/> break;<br/> default:<br/>- value = string_append(interp, value, CONST_STRING(interp, &quot;Key type unknown&quot;));<br/>+ value = Parrot_str_append(interp, value, CONST_STRING(interp, &quot;Key type unknown&quot;));<br/> break;<br/> }<br/> <br/> if (PMC_data(key))<br/>- value = string_append(interp, value, semicolon);<br/>+ value = Parrot_str_append(interp, value, semicolon);<br/> }<br/> <br/>- value = string_append(interp, value, string_from_cstring(interp, &quot; ]&quot;, 2));<br/>+ value = Parrot_str_append(interp, value, string_from_cstring(interp, &quot; ]&quot;, 2));<br/> return value;<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/library.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/library.c (original)<br/>+++ branches/pdd28str_part2/src/library.c Wed Jan 28 22:16:55 2009<br/>@@ -367,7 +367,7 @@<br/> <br/> STRING * const nul = string_chr(interp, &#39;\0&#39;);<br/> <br/>- path = string_append(interp, path, nul);<br/>+ path = Parrot_str_append(interp, path, nul);<br/> path-&gt;bufused--;<br/> path-&gt;strlen--;<br/> <br/>@@ -401,7 +401,7 @@<br/> /* make sure the path has a trailing slash before appending the file */<br/> if (string_index(interp, path , path-&gt;strlen - 1)<br/> != string_index(interp, path_separator_string, 0))<br/>- path = string_append(interp, path , path_separator_string);<br/>+ path = Parrot_str_append(interp, path , path_separator_string);<br/> <br/> return path;<br/> }<br/>@@ -425,7 +425,7 @@<br/> {<br/> ASSERT_ARGS(path_append)<br/> l_path = path_guarantee_trailing_separator(interp, l_path);<br/>- l_path = string_append(interp, l_path, r_path);<br/>+ l_path = Parrot_str_append(interp, l_path, r_path);<br/> <br/> return l_path;<br/> }<br/>@@ -452,7 +452,7 @@<br/> <br/> join = string_copy(interp, l_path);<br/> join = path_guarantee_trailing_separator(interp, join);<br/>- join = string_append(interp, join, r_path);<br/>+ join = Parrot_str_append(interp, join, r_path);<br/> <br/> return join;<br/> }<br/>@@ -532,7 +532,7 @@<br/> /* First try substituting .pbc for the .pir extension */<br/> if (string_equal(interp, orig_ext, pir_extension) == 0) {<br/> STRING *without_ext = string_chopn(interp, test_path, 4);<br/>- test_path = string_append(interp, without_ext, bytecode_extension);<br/>+ test_path = Parrot_str_append(interp, without_ext, bytecode_extension);<br/> result = try_load_path(interp, test_path);<br/> if (result)<br/> return result;<br/>@@ -540,12 +540,12 @@<br/> /* Next try substituting .pir, then .pasm for the .pbc extension */<br/> else if (string_equal(interp, orig_ext, bytecode_extension) == 0) {<br/> STRING *without_ext = string_chopn(interp, test_path, 4);<br/>- test_path = string_append(interp, without_ext, pir_extension);<br/>+ test_path = Parrot_str_append(interp, without_ext, pir_extension);<br/> result = try_load_path(interp, test_path);<br/> if (result)<br/> return result;<br/> <br/>- test_path = string_append(interp, without_ext, pasm_extension);<br/>+ test_path = Parrot_str_append(interp, without_ext, pasm_extension);<br/> result = try_load_path(interp, test_path);<br/> if (result)<br/> return result;<br/>@@ -558,7 +558,7 @@<br/> STRING *orig_ext = string_substr(interp, test_path, -5, 5, NULL, 0);<br/> if (string_equal(interp, orig_ext, pasm_extension) == 0) {<br/> STRING *without_ext = string_chopn(interp, test_path, 5);<br/>- test_path = string_append(interp, without_ext, bytecode_extension);<br/>+ test_path = Parrot_str_append(interp, without_ext, bytecode_extension);<br/> result = try_load_path(interp, test_path);<br/> if (result)<br/> return result;<br/><br/>Modified: branches/pdd28str_part2/src/ops/string.ops<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/ops/string.ops (original)<br/>+++ branches/pdd28str_part2/src/ops/string.ops Wed Jan 28 22:16:55 2009<br/>@@ -101,7 +101,7 @@<br/> =cut<br/> <br/> inline op concat(inout STR, in STR) :base_mem {<br/>- $1 = string_append(interp, $1, $2);<br/>+ $1 = Parrot_str_append(interp, $1, $2);<br/> }<br/> <br/> inline op concat(invar PMC, invar PMC) :base_core {<br/><br/>Modified: branches/pdd28str_part2/src/packdump.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/packdump.c (original)<br/>+++ branches/pdd28str_part2/src/packdump.c Wed Jan 28 22:16:55 2009<br/>@@ -295,10 +295,10 @@<br/> switch (sub-&gt;namespace_name-&gt;vtable-&gt;base_type) {<br/> case enum_class_String:<br/> namespace_description = string_from_cstring(interp, &quot;&#39;&quot;, 1);<br/>- namespace_description = string_append(interp,<br/>+ namespace_description = Parrot_str_append(interp,<br/> namespace_description,<br/> PMC_str_val(sub-&gt;namespace_name));<br/>- namespace_description = string_append(interp,<br/>+ namespace_description = Parrot_str_append(interp,<br/> namespace_description,<br/> string_from_cstring(interp, &quot;&#39;&quot;, 1));<br/> break;<br/><br/>Modified: branches/pdd28str_part2/src/pmc/bigint.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/bigint.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/bigint.pmc Wed Jan 28 22:16:55 2009<br/>@@ -807,7 +807,7 @@<br/> <br/> VTABLE STRING *get_repr() {<br/> STRING *s = SELF.get_string();<br/>- return string_append(INTERP, s, CONST_STRING(INTERP, &quot;L&quot;));<br/>+ return Parrot_str_append(INTERP, s, CONST_STRING(INTERP, &quot;L&quot;));<br/> }<br/> /*<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/class.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/class.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/class.pmc Wed Jan 28 22:16:55 2009<br/>@@ -138,7 +138,7 @@<br/> STRING * const attrib_name = VTABLE_get_string_keyed_str(<br/> interp, cur_attrib, name_str);<br/> <br/>- STRING *full_key = string_append(interp, fq_class, attrib_name);<br/>+ STRING *full_key = Parrot_str_append(interp, fq_class, attrib_name);<br/> <br/> /* Insert into hash, along with index. */<br/> VTABLE_set_integer_keyed_str(interp, attrib_index, full_key, cur_index);<br/><br/>Modified: branches/pdd28str_part2/src/pmc/codestring.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/codestring.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/codestring.pmc Wed Jan 28 22:16:55 2009<br/>@@ -94,8 +94,8 @@<br/> <br/> while (I0 &lt; I1) {<br/> S0 = VTABLE_get_string_keyed_int(INTERP, args, I0);<br/>- repl = string_append(INTERP, repl, comma_space);<br/>- repl = string_append(INTERP, repl, S0);<br/>+ repl = Parrot_str_append(INTERP, repl, comma_space);<br/>+ repl = Parrot_str_append(INTERP, repl, S0);<br/> I0++;<br/> }<br/> }<br/>@@ -229,21 +229,21 @@<br/> for (index2 = 0; index2 &lt; elements2; index2++) {<br/> STRING *S0 = VTABLE_get_string_keyed_int(INTERP, P0, index2);<br/> (STRING *S0) = PCCINVOKE(INTERP, SELF, &quot;escape&quot;, STRING *S0);<br/>- if (prefix) out = string_append(INTERP, out, prefix);<br/>- out = string_append(INTERP, out, S0);<br/>+ if (prefix) out = Parrot_str_append(INTERP, out, prefix);<br/>+ out = Parrot_str_append(INTERP, out, S0);<br/> prefix = semi;<br/> }<br/> }<br/> else {<br/> STRING *S0 = VTABLE_get_string_keyed_int(INTERP, args, index);<br/> (STRING *S0) = PCCINVOKE(INTERP, SELF, &quot;escape&quot;, STRING *S0);<br/>- if (prefix) out = string_append(INTERP, out, prefix);<br/>- out = string_append(INTERP, out, S0);<br/>+ if (prefix) out = Parrot_str_append(INTERP, out, prefix);<br/>+ out = Parrot_str_append(INTERP, out, S0);<br/> prefix = semi;<br/> }<br/> }<br/> <br/>- out = string_append(INTERP, out, close_bracket);<br/>+ out = Parrot_str_append(INTERP, out, close_bracket);<br/> <br/> RETURN(STRING *out);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/filehandle.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/filehandle.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/filehandle.pmc Wed Jan 28 22:16:55 2009<br/>@@ -441,7 +441,7 @@<br/> do {<br/> STRING * const part = Parrot_io_reads(INTERP, SELF, 0);<br/> <br/>- result = string_append(INTERP, result, part);<br/>+ result = Parrot_str_append(INTERP, result, part);<br/> if (Parrot_io_eof(INTERP, SELF))<br/> break;<br/> } while (1);<br/><br/>Modified: branches/pdd28str_part2/src/pmc/fixedintegerarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/fixedintegerarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/fixedintegerarray.pmc Wed Jan 28 22:16:55 2009<br/>@@ -340,13 +340,13 @@<br/> <br/> for (j = 0; j &lt; n; ++j) {<br/> PMC * const val = SELF.get_pmc_keyed_int(j);<br/>- res = string_append(INTERP, res, VTABLE_get_repr(INTERP, val));<br/>+ res = Parrot_str_append(INTERP, res, VTABLE_get_repr(INTERP, val));<br/> <br/> if (j &lt; n - 1)<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/> }<br/> <br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot; ]&quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot; ]&quot;));<br/> return res;<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/fixedpmcarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/fixedpmcarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/fixedpmcarray.pmc Wed Jan 28 22:16:55 2009<br/>@@ -193,14 +193,14 @@<br/> for (i = 0; i &lt; n; ++i) {<br/> PMC * const val = SELF.get_pmc_keyed_int(i);<br/> <br/>- res = string_append(INTERP, res, VTABLE_get_repr(INTERP, val));<br/>+ res = Parrot_str_append(INTERP, res, VTABLE_get_repr(INTERP, val));<br/> if (n == 1)<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;,&quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;,&quot;));<br/> else if (i &lt; n - 1)<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/> }<br/> <br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;)&quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;)&quot;));<br/> <br/> return res;<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/fixedstringarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/fixedstringarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/fixedstringarray.pmc Wed Jan 28 22:16:55 2009<br/>@@ -490,15 +490,15 @@<br/> <br/> for (j = 0; j &lt; n; ++j) {<br/> PMC * const val = SELF.get_pmc_keyed_int(j);<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;\&quot;&quot;));<br/>- res = string_append(INTERP, res, VTABLE_get_repr(INTERP, val));<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;\&quot;&quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;\&quot;&quot;));<br/>+ res = Parrot_str_append(INTERP, res, VTABLE_get_repr(INTERP, val));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;\&quot;&quot;));<br/> <br/> if (j &lt; n - 1)<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/> }<br/> <br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot; ]&quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot; ]&quot;));<br/> return res;<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/hash.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/hash.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/hash.pmc Wed Jan 28 22:16:55 2009<br/>@@ -369,23 +369,23 @@<br/> }<br/> <br/> if (all_digit) {<br/>- res = string_append(INTERP, res, key);<br/>+ res = Parrot_str_append(INTERP, res, key);<br/> }<br/> else {<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;&#39;&quot;));<br/>- res = string_append(INTERP, res, key);<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;&#39;&quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;&#39;&quot;));<br/>+ res = Parrot_str_append(INTERP, res, key);<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;&#39;&quot;));<br/> }<br/> <br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;: &quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;: &quot;));<br/> val = SELF.get_pmc_keyed_str(key);<br/>- res = string_append(INTERP, res, VTABLE_get_string(INTERP, val));<br/>+ res = Parrot_str_append(INTERP, res, VTABLE_get_string(INTERP, val));<br/> <br/> if (j &lt; n - 1)<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/> }<br/> <br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;}&quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;}&quot;));<br/> <br/> return res;<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/pmc/object.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/object.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/object.pmc Wed Jan 28 22:16:55 2009<br/>@@ -52,7 +52,7 @@<br/> <br/> /* Build a string representing the fully qualified attribute name. */<br/> STRING *fq_name = VTABLE_get_string(interp, cur_class);<br/>- fq_name = string_append(interp, fq_name, name);<br/>+ fq_name = Parrot_str_append(interp, fq_name, name);<br/> <br/> /* Look up. */<br/> if (VTABLE_exists_keyed_str(interp, _class-&gt;attrib_index, fq_name)) {<br/>@@ -91,7 +91,7 @@<br/> /* Build a string representing the fully qualified attribute name. */<br/> parent_class = Parrot_oo_get_class(interp, key);<br/> fq_name = VTABLE_get_string(interp, parent_class);<br/>- fq_name = string_append(interp, fq_name, name);<br/>+ fq_name = Parrot_str_append(interp, fq_name, name);<br/> <br/> /* Look up. */<br/> if (VTABLE_exists_keyed_str(interp, _class-&gt;attrib_index, fq_name)) {<br/><br/>Modified: branches/pdd28str_part2/src/pmc/resizablepmcarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/resizablepmcarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/resizablepmcarray.pmc Wed Jan 28 22:16:55 2009<br/>@@ -664,13 +664,13 @@<br/> <br/> for (j = 0; j &lt; n; ++j) {<br/> PMC *val = SELF.get_pmc_keyed_int(j);<br/>- res = string_append(INTERP, res, VTABLE_get_repr(INTERP, val));<br/>+ res = Parrot_str_append(INTERP, res, VTABLE_get_repr(INTERP, val));<br/> <br/> if (j &lt; n - 1)<br/>- res = string_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/>+ res = Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot;, &quot;));<br/> }<br/> <br/>- return string_append(INTERP, res, CONST_STRING(INTERP, &quot; ]&quot;));<br/>+ return Parrot_str_append(INTERP, res, CONST_STRING(INTERP, &quot; ]&quot;));<br/> }<br/> <br/> /*<br/><br/>Modified: branches/pdd28str_part2/src/pmc/scalar.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/scalar.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/scalar.pmc Wed Jan 28 22:16:55 2009<br/>@@ -1120,12 +1120,12 @@<br/> VTABLE void i_concatenate(PMC *value) {<br/> STRING * const s = SELF.get_string();<br/> STRING * const v = VTABLE_get_string(INTERP, value);<br/>- SELF.set_string_native(string_append(INTERP, s, v));<br/>+ SELF.set_string_native(Parrot_str_append(INTERP, s, v));<br/> }<br/> <br/> VTABLE void i_concatenate_str(STRING *value) {<br/> STRING * const s = SELF.get_string();<br/>- SELF.set_string_native(string_append(INTERP, s, value));<br/>+ SELF.set_string_native(Parrot_str_append(INTERP, s, value));<br/> }<br/> <br/> /*<br/><br/>Modified: branches/pdd28str_part2/src/pmc/stringhandle.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/stringhandle.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/stringhandle.pmc Wed Jan 28 22:16:55 2009<br/>@@ -405,7 +405,7 @@<br/> Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,<br/> &quot;Cannot write to a filehandle not opened for write&quot;);<br/> <br/>- new_string = string_append(interp, old_string, to_print);<br/>+ new_string = Parrot_str_append(interp, old_string, to_print);<br/> <br/> SET_ATTR_stringhandle(INTERP, SELF, new_string);<br/> <br/><br/>Modified: branches/pdd28str_part2/src/spf_render.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/spf_render.c (original)<br/>+++ branches/pdd28str_part2/src/spf_render.c Wed Jan 28 22:16:55 2009<br/>@@ -206,8 +206,8 @@<br/> ignored = string_substr(interp, str, 1, len-1, &amp;temp, 0);<br/> UNUSED(ignored);<br/> string_chopn_inplace(interp, str, -1);<br/>- str = string_append(interp, str, fill);<br/>- str = string_append(interp, str, temp);<br/>+ str = Parrot_str_append(interp, str, fill);<br/>+ str = Parrot_str_append(interp, str, temp);<br/> }<br/> else {<br/> str = Parrot_str_concat(interp, fill, str, 0);<br/>@@ -237,7 +237,7 @@<br/> {<br/> ASSERT_ARGS(str_append_w_flags)<br/> src = handle_flags(interp, info, src, 1, prefix);<br/>- dest = string_append(interp, dest, src);<br/>+ dest = Parrot_str_append(interp, dest, src);<br/> return dest;<br/> }<br/> <br/>@@ -345,7 +345,7 @@<br/> = string_substr(interp, pat, old, len, &amp;substr, 1);<br/> UNUSED(ignored);<br/> /* XXX This shouldn&#39;t modify targ the pointer */<br/>- targ = string_append(interp, targ, substr);<br/>+ targ = Parrot_str_append(interp, targ, substr);<br/> }<br/> len = 0;<br/> old = i;<br/>@@ -713,7 +713,7 @@<br/> #endif<br/> string_cstring_free(tempstr);<br/> }<br/>- targ = string_append(interp, targ, cstr2pstr(tc));<br/>+ targ = Parrot_str_append(interp, targ, cstr2pstr(tc));<br/> }<br/> break;<br/> <br/>@@ -813,7 +813,7 @@<br/> }<br/> #endif /* WIN32 */<br/> <br/>- targ = string_append(interp, targ, cstr2pstr(tc));<br/>+ targ = Parrot_str_append(interp, targ, cstr2pstr(tc));<br/> }<br/> break;<br/> <br/>@@ -833,7 +833,7 @@<br/> string, 0, NULL);<br/> obj-&gt;index++;<br/> <br/>- targ = string_append(interp, targ, ts);<br/>+ targ = Parrot_str_append(interp, targ, ts);<br/> break;<br/> }<br/> <br/>@@ -844,7 +844,7 @@<br/> info.type, obj);<br/> STRING * const ts = handle_flags(interp, &amp;info,<br/> string, 0, NULL);<br/>- targ = string_append(interp, targ, ts);<br/>+ targ = Parrot_str_append(interp, targ, ts);<br/> }<br/> break;<br/> <br/>@@ -888,7 +888,7 @@<br/> if (len) {<br/> STRING *ignored = string_substr(interp, pat, old, len, &amp;substr, 1);<br/> UNUSED(ignored);<br/>- targ = string_append(interp, targ, substr);<br/>+ targ = Parrot_str_append(interp, targ, substr);<br/> }<br/> <br/> return targ;<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 22:16:55 2009<br/>@@ -510,8 +510,8 @@<br/> result = string_make_direct(interp, NULL, a-&gt;bufused + b-&gt;bufused,<br/> enc, cs, 0);<br/> <br/>- result = string_append(interp, result, a);<br/>- result = string_append(interp, result, b);<br/>+ result = Parrot_str_append(interp, result, a);<br/>+ result = Parrot_str_append(interp, result, b);<br/> <br/> return result;<br/> }<br/>@@ -527,7 +527,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;STRING * string_append&gt;<br/>+=item C&lt;STRING * Parrot_str_append&gt;<br/> <br/> Take in two Parrot strings and append the second to the first. NOTE THAT<br/> RETURN VALUE MAY NOT BE THE FIRST STRING, if the first string is COW&#39;d or<br/>@@ -541,9 +541,9 @@<br/> PARROT_WARN_UNUSED_RESULT<br/> PARROT_CAN_RETURN_NULL<br/> STRING *<br/>-string_append(PARROT_INTERP, ARGMOD_NULLOK(STRING *a), ARGIN_NULLOK(STRING *b))<br/>+Parrot_str_append(PARROT_INTERP, ARGMOD_NULLOK(STRING *a), ARGIN_NULLOK(STRING *b))<br/> {<br/>- ASSERT_ARGS(string_append)<br/>+ ASSERT_ARGS(Parrot_str_append)<br/> UINTVAL a_capacity;<br/> UINTVAL total_length;<br/> const CHARSET *cs;<br/>@@ -2527,7 +2527,7 @@<br/> else<br/> hex = Parrot_sprintf_c(interp, &quot;\\u%04x&quot;, c);<br/> <br/>- result = string_append(interp, result, hex);<br/>+ result = Parrot_str_append(interp, result, hex);<br/> <br/> /* adjust our insert idx */<br/> i += hex-&gt;strlen;<br/>@@ -3113,8 +3113,8 @@<br/> for (i = 1; i &lt; ar_len; ++i) {<br/> STRING * const next = VTABLE_get_string_keyed_int(interp, ar, i);<br/> <br/>- res = string_append(interp, res, j);<br/>- res = string_append(interp, res, next);<br/>+ res = Parrot_str_append(interp, res, j);<br/>+ res = Parrot_str_append(interp, res, next);<br/> }<br/> <br/> return res;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36485.html Wed, 28 Jan 2009 22:18:08 +0000 [svn:parrot] r36135 - in branches/pdd28str_part2: include/parrot languages/dotnet/pmc languages/lua/src/pmc src src/ops src/pmc src/string tools/build by allison Author: allison<br/>Date: Wed Jan 28 21:44:50 2009<br/>New Revision: 36135<br/><br/>Modified:<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc<br/> branches/pdd28str_part2/languages/lua/src/pmc/luanumber.pmc<br/> branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc<br/> branches/pdd28str_part2/src/dynext.c<br/> branches/pdd28str_part2/src/multidispatch.c<br/> branches/pdd28str_part2/src/ops/string.ops<br/> branches/pdd28str_part2/src/pmc/codestring.pmc<br/> branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc<br/> branches/pdd28str_part2/src/pmc/scalar.pmc<br/> branches/pdd28str_part2/src/spf_render.c<br/> branches/pdd28str_part2/src/string/api.c<br/> branches/pdd28str_part2/tools/build/nativecall.pl<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_concat&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 21:44:50 2009<br/>@@ -223,7 +223,7 @@<br/> <br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/>-STRING * string_concat(PARROT_INTERP,<br/>+STRING * Parrot_str_concat(PARROT_INTERP,<br/> ARGIN_NULLOK(STRING *a),<br/> ARGIN_NULLOK(STRING *b),<br/> UINTVAL Uflags)<br/>@@ -616,7 +616,7 @@<br/> #define ASSERT_ARGS_string_compute_strlen __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(s)<br/>-#define ASSERT_ARGS_string_concat __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_concat __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/> #define ASSERT_ARGS_string_copy __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/><br/>Modified: branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc (original)<br/>+++ branches/pdd28str_part2/languages/dotnet/pmc/dotnetassembly.pmc Wed Jan 28 21:44:50 2009<br/>@@ -1194,9 +1194,9 @@<br/> {<br/> type-&gt;str_namespace = string_from_cstring(INTERP,<br/> ass-&gt;strings + pos_namespace, 0);<br/>- type-&gt;str_fullname = string_concat(INTERP, type-&gt;str_namespace,<br/>+ type-&gt;str_fullname = Parrot_str_concat(INTERP, type-&gt;str_namespace,<br/> string_from_literal(INTERP, &quot;.&quot;), 0);<br/>- type-&gt;str_fullname = string_concat(INTERP, type-&gt;str_fullname,<br/>+ type-&gt;str_fullname = Parrot_str_concat(INTERP, type-&gt;str_fullname,<br/> type-&gt;str_name, 0);<br/> }<br/> else<br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/luanumber.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/luanumber.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/luanumber.pmc Wed Jan 28 21:44:50 2009<br/>@@ -795,7 +795,7 @@<br/> <br/> */<br/> MULTI PMC *concatenate(LuaNumber value, PMC *dest) {<br/>- STRING *s = string_concat(INTERP, SELF.get_string(),<br/>+ STRING *s = Parrot_str_concat(INTERP, SELF.get_string(),<br/> VTABLE_get_string(INTERP, value), 0);<br/> <br/> dest = pmc_new(INTERP, dynpmc_LuaNumber);<br/>@@ -805,7 +805,7 @@<br/> }<br/> <br/> MULTI PMC *concatenate(LuaString value, PMC *dest) {<br/>- STRING *s = string_concat(INTERP, SELF.get_string(),<br/>+ STRING *s = Parrot_str_concat(INTERP, SELF.get_string(),<br/> VTABLE_get_string(INTERP, value), 0);<br/> <br/> dest = pmc_new(INTERP, dynpmc_LuaNumber);<br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc Wed Jan 28 21:44:50 2009<br/>@@ -890,7 +890,7 @@<br/> <br/> */<br/> MULTI PMC* concatenate(LuaNumber value, PMC *dest) {<br/>- STRING *s = string_concat(INTERP,<br/>+ STRING *s = Parrot_str_concat(INTERP,<br/> SELF.get_string(), VTABLE_get_string(INTERP, value), 0);<br/> <br/> dest = pmc_new(INTERP, dynpmc_LuaString);<br/>@@ -899,7 +899,7 @@<br/> }<br/> <br/> MULTI PMC* concatenate(LuaString value, PMC *dest) {<br/>- STRING *s = string_concat(INTERP,<br/>+ STRING *s = Parrot_str_concat(INTERP,<br/> SELF.get_string(), VTABLE_get_string(INTERP, value), 0);<br/> <br/> dest = pmc_new(INTERP, dynpmc_LuaString);<br/><br/>Modified: branches/pdd28str_part2/src/dynext.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/dynext.c (original)<br/>+++ branches/pdd28str_part2/src/dynext.c Wed Jan 28 21:44:50 2009<br/>@@ -249,7 +249,7 @@<br/> <br/> for (i = 0; i &lt; n; ++i) {<br/> ext = VTABLE_get_string_keyed_int(interp, share_ext, i);<br/>- full_name = string_concat(interp, wo_ext, ext, 0);<br/>+ full_name = Parrot_str_concat(interp, wo_ext, ext, 0);<br/> path = Parrot_locate_runtime_file_str(interp, full_name,<br/> PARROT_RUNTIME_FT_DYNEXT);<br/> if (path) {<br/><br/>Modified: branches/pdd28str_part2/src/multidispatch.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/multidispatch.c (original)<br/>+++ branches/pdd28str_part2/src/multidispatch.c Wed Jan 28 21:44:50 2009<br/>@@ -386,7 +386,7 @@<br/> <br/> /* Check if we have an invocant, and add it to the front of the arguments */<br/> if (!PMC_IS_NULL(obj)) {<br/>- string_sig = string_concat(interp, CONST_STRING(interp, &quot;Pi&quot;), string_sig, 0);<br/>+ string_sig = Parrot_str_concat(interp, CONST_STRING(interp, &quot;Pi&quot;), string_sig, 0);<br/> VTABLE_set_string_native(interp, call_object, string_sig);<br/> VTABLE_unshift_pmc(interp, call_object, obj);<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/ops/string.ops<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/ops/string.ops (original)<br/>+++ branches/pdd28str_part2/src/ops/string.ops Wed Jan 28 21:44:50 2009<br/>@@ -113,7 +113,7 @@<br/> }<br/> <br/> inline op concat(out STR, in STR, in STR) :base_mem {<br/>- $1 = string_concat(interp, $2, $3, 1);<br/>+ $1 = Parrot_str_concat(interp, $2, $3, 1);<br/> }<br/> <br/> inline op concat(invar PMC, invar PMC, in STR) :base_core {<br/><br/>Modified: branches/pdd28str_part2/src/pmc/codestring.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/codestring.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/codestring.pmc Wed Jan 28 21:44:50 2009<br/>@@ -114,9 +114,9 @@<br/> <br/> /* Add a newline if necessary */<br/> if (&#39;\n&#39; != string_index(INTERP, fmt, string_length(interp, fmt) - 1))<br/>- fmt = string_concat(INTERP, fmt, newline, 0);<br/>+ fmt = Parrot_str_concat(INTERP, fmt, newline, 0);<br/> <br/>- S1 = string_concat(INTERP, SELF.get_string(), fmt, 0);<br/>+ S1 = Parrot_str_concat(INTERP, SELF.get_string(), fmt, 0);<br/> VTABLE_set_string_native(INTERP, SELF, S1);<br/> <br/> RETURN(PMC *SELF);<br/>@@ -150,7 +150,7 @@<br/> }<br/> else {<br/> STRING *result = string_copy(INTERP, format);<br/>- result = string_concat(INTERP, result, counter_as_string, 1);<br/>+ result = Parrot_str_concat(INTERP, result, counter_as_string, 1);<br/> RETURN(STRING *result);<br/> }<br/> }<br/>@@ -175,8 +175,8 @@<br/> INTVAL is_unicode = 0;<br/> UNUSED(SELF);<br/> <br/>- escaped_str = string_concat(INTERP, quote, escaped_str, 1);<br/>- escaped_str = string_concat(INTERP, escaped_str, quote, 1);<br/>+ escaped_str = Parrot_str_concat(INTERP, quote, escaped_str, 1);<br/>+ escaped_str = Parrot_str_concat(INTERP, escaped_str, quote, 1);<br/> x_pos = string_str_index(INTERP, escaped_str, x, 0);<br/> <br/> if (x_pos != -1) {<br/>@@ -192,7 +192,7 @@<br/> <br/> if (is_unicode) {<br/> STRING *unicode = CONST_STRING(INTERP, &quot;unicode:&quot;);<br/>- escaped_str = string_concat(INTERP, unicode, escaped_str, 1);<br/>+ escaped_str = Parrot_str_concat(INTERP, unicode, escaped_str, 1);<br/> }<br/> <br/> RETURN(STRING *escaped_str);<br/><br/>Modified: branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/fixedbooleanarray.pmc Wed Jan 28 21:44:50 2009<br/>@@ -241,9 +241,9 @@<br/> <br/> for (i = 0; i &lt; elems; i++) {<br/> if (SELF.get_integer_keyed_int((INTVAL)i))<br/>- str = string_concat(INTERP, str, one, 0);<br/>+ str = Parrot_str_concat(INTERP, str, one, 0);<br/> else<br/>- str = string_concat(INTERP, str, zero, 0);<br/>+ str = Parrot_str_concat(INTERP, str, zero, 0);<br/> }<br/> <br/> return str;<br/><br/>Modified: branches/pdd28str_part2/src/pmc/scalar.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/scalar.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/scalar.pmc Wed Jan 28 21:44:50 2009<br/>@@ -1098,7 +1098,7 @@<br/> */<br/> <br/> VTABLE PMC *concatenate(PMC *value, PMC *dest) {<br/>- STRING * const s = string_concat(INTERP, SELF.get_string(),<br/>+ STRING * const s = Parrot_str_concat(INTERP, SELF.get_string(),<br/> VTABLE_get_string(INTERP, value), 0);<br/> <br/> dest = pmc_new(INTERP, VTABLE_type(INTERP, SELF));<br/>@@ -1108,7 +1108,7 @@<br/> }<br/> <br/> VTABLE PMC *concatenate_str(STRING *value, PMC *dest) {<br/>- STRING * const s = string_concat(INTERP,<br/>+ STRING * const s = Parrot_str_concat(INTERP,<br/> SELF.get_string(), value, 0);<br/> <br/> dest = pmc_new(INTERP, VTABLE_type(INTERP, SELF));<br/><br/>Modified: branches/pdd28str_part2/src/spf_render.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/spf_render.c (original)<br/>+++ branches/pdd28str_part2/src/spf_render.c Wed Jan 28 21:44:50 2009<br/>@@ -142,19 +142,19 @@<br/> if (!len || string_ord(interp, str, 0) != &#39;-&#39;) {<br/> if (info-&gt;flags &amp; FLAG_PLUS) {<br/> STRING * const cs = CONST_STRING(interp, &quot;+&quot;);<br/>- str = string_concat(interp, cs, str, 0);<br/>+ str = Parrot_str_concat(interp, cs, str, 0);<br/> len++;<br/> }<br/> else if (info-&gt;flags &amp; FLAG_SPACE) {<br/> STRING * const cs = CONST_STRING(interp, &quot; &quot;);<br/>- str = string_concat(interp, cs, str, 0);<br/>+ str = Parrot_str_concat(interp, cs, str, 0);<br/> len++;<br/> }<br/> }<br/> <br/> /* # 0x ... */<br/> if ((info-&gt;flags &amp; FLAG_SHARP) &amp;&amp; prefix) {<br/>- str = string_concat(interp, prefix, str, 0);<br/>+ str = Parrot_str_concat(interp, prefix, str, 0);<br/> len += string_length(interp, prefix);<br/> }<br/> /* XXX sharp + fill ??? */<br/>@@ -194,7 +194,7 @@<br/> STRING * const fill = Parrot_str_repeat(interp, filler, info-&gt;width - len);<br/> <br/> if (info-&gt;flags &amp; FLAG_MINUS) { /* left-align */<br/>- str = string_concat(interp, str, fill, 0);<br/>+ str = Parrot_str_concat(interp, str, fill, 0);<br/> }<br/> else { /* right-align */<br/> /* signed and zero padded */<br/>@@ -210,7 +210,7 @@<br/> str = string_append(interp, str, temp);<br/> }<br/> else {<br/>- str = string_concat(interp, fill, str, 0);<br/>+ str = Parrot_str_concat(interp, fill, str, 0);<br/> }<br/> }<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 21:44:50 2009<br/>@@ -478,7 +478,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;STRING * string_concat&gt;<br/>+=item C&lt;STRING * Parrot_str_concat&gt;<br/> <br/> Concatenates two Parrot strings. If necessary, converts the second<br/> string&#39;s encoding and/or type to match those of the first string. If<br/>@@ -493,10 +493,10 @@<br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/> STRING *<br/>-string_concat(PARROT_INTERP, ARGIN_NULLOK(STRING *a),<br/>+Parrot_str_concat(PARROT_INTERP, ARGIN_NULLOK(STRING *a),<br/> ARGIN_NULLOK(STRING *b), UINTVAL Uflags)<br/> {<br/>- ASSERT_ARGS(string_concat)<br/>+ ASSERT_ARGS(Parrot_str_concat)<br/> if (a != NULL &amp;&amp; a-&gt;strlen != 0) {<br/> if (b != NULL &amp;&amp; b-&gt;strlen != 0) {<br/> const ENCODING *enc;<br/>@@ -564,9 +564,9 @@<br/> saneify_string(b);<br/> <br/> /* If the destination&#39;s constant, or external then just fall back to<br/>- string_concat */<br/>+ Parrot_str_concat */<br/> if (PObj_is_cowed_TESTALL(a))<br/>- return string_concat(interp, a, b, 0);<br/>+ return Parrot_str_concat(interp, a, b, 0);<br/> <br/> cs = string_rep_compatible(interp, a, b, &amp;enc);<br/> if (cs) {<br/><br/>Modified: branches/pdd28str_part2/tools/build/nativecall.pl<br/>==============================================================================<br/>--- branches/pdd28str_part2/tools/build/nativecall.pl (original)<br/>+++ branches/pdd28str_part2/tools/build/nativecall.pl Wed Jan 28 21:44:50 2009<br/>@@ -560,7 +560,7 @@<br/> /* Try if JIT code can build that signature. If yes, we are done */<br/> <br/> jit_key_name = CONST_STRING(interp, &quot;_XJIT_&quot;);<br/>- jit_key_name = string_concat(interp, jit_key_name, signature, 0);<br/>+ jit_key_name = Parrot_str_concat(interp, jit_key_name, signature, 0);<br/> b = VTABLE_get_pmc_keyed_str(interp, HashPointer, jit_key_name);<br/> <br/> if (b &amp;&amp; b-&gt;vtable-&gt;base_type == enum_class_ManagedStruct) {<br/>@@ -591,14 +591,14 @@<br/> with a neater way to do this.<br/> */<br/> ns = string_make(interp, &quot; is an unknown signature type&quot;, 29, &quot;ascii&quot;, 0);<br/>- message = string_concat(interp, signature, ns, 0);<br/>+ message = Parrot_str_concat(interp, signature, ns, 0);<br/> <br/> #if defined(CAN_BUILD_CALL_FRAMES)<br/> ns = string_make(interp, &quot;.\\nCAN_BUILD_CALL_FRAMES is enabled, this should not happen&quot;, 58, &quot;ascii&quot;, 0);<br/> #else<br/> ns = string_make(interp, &quot;.\\nCAN_BUILD_CALL_FRAMES is disabled, add the signature to src/call_list.txt&quot;, 75, &quot;ascii&quot;, 0);<br/> #endif<br/>- message = string_concat(interp, message, ns, 0);<br/>+ message = Parrot_str_concat(interp, message, ns, 0);<br/> <br/> /*<br/> * I think there may be memory issues with this but if we get to here we are<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36484.html Wed, 28 Jan 2009 21:45:27 +0000 [svn:parrot] r36134 - in branches/pdd28str_part2: include/parrot languages/lua/src/pmc src src/io src/ops src/pmc src/string by allison Author: allison<br/>Date: Wed Jan 28 21:22:46 2009<br/>New Revision: 36134<br/><br/>Modified:<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc<br/> branches/pdd28str_part2/src/io/filehandle.c<br/> branches/pdd28str_part2/src/io/socket_unix.c<br/> branches/pdd28str_part2/src/ops/string.ops<br/> branches/pdd28str_part2/src/pmc/eval.pmc<br/> branches/pdd28str_part2/src/pmc/filehandle.pmc<br/> branches/pdd28str_part2/src/pmc/hash.pmc<br/> branches/pdd28str_part2/src/pmc/string.pmc<br/> branches/pdd28str_part2/src/pmc/undef.pmc<br/> branches/pdd28str_part2/src/pmc_freeze.c<br/> branches/pdd28str_part2/src/spf_render.c<br/> branches/pdd28str_part2/src/string/api.c<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_new_noinit&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 21:22:46 2009<br/>@@ -364,7 +364,7 @@<br/> <br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/>-STRING * string_make_empty(PARROT_INTERP,<br/>+STRING * Parrot_str_new_noinit(PARROT_INTERP,<br/> parrot_string_representation_t representation,<br/> UINTVAL capacity)<br/> __attribute__nonnull__(1);<br/>@@ -666,7 +666,7 @@<br/> #define ASSERT_ARGS_string_make_direct __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(encoding)<br/>-#define ASSERT_ARGS_string_make_empty __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_new_noinit __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/> #define ASSERT_ARGS_string_max_bytes __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(s)<br/><br/>Modified: branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc (original)<br/>+++ branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc Wed Jan 28 21:22:46 2009<br/>@@ -42,7 +42,7 @@<br/> <br/> */<br/> VTABLE void init() {<br/>- PMC_str_val(SELF) = string_make_empty(INTERP, enum_stringrep_one, 0);<br/>+ PMC_str_val(SELF) = Parrot_str_new_noinit(INTERP, enum_stringrep_one, 0);<br/> PObj_custom_mark_SET(SELF);<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/io/filehandle.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/io/filehandle.c (original)<br/>+++ branches/pdd28str_part2/src/io/filehandle.c Wed Jan 28 21:22:46 2009<br/>@@ -120,7 +120,7 @@<br/> * when we get a NULL string, we read a default len<br/> */<br/> if (*buf == NULL) {<br/>- *buf = string_make_empty(interp, enum_stringrep_one, len);<br/>+ *buf = Parrot_str_new_noinit(interp, enum_stringrep_one, len);<br/> return *buf;<br/> }<br/> else {<br/><br/>Modified: branches/pdd28str_part2/src/io/socket_unix.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/io/socket_unix.c (original)<br/>+++ branches/pdd28str_part2/src/io/socket_unix.c Wed Jan 28 21:22:46 2009<br/>@@ -362,11 +362,11 @@<br/> case ECONNRESET:<br/> /* XXX why close it on err return result is -1 anyway */<br/> close(io-&gt;fd);<br/>- *s = string_make_empty(interp, enum_stringrep_one, 0);<br/>+ *s = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);<br/> return -1;<br/> default:<br/> close(io-&gt;fd);<br/>- *s = string_make_empty(interp, enum_stringrep_one, 0);<br/>+ *s = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);<br/> return -1;<br/> }<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/ops/string.ops<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/ops/string.ops (original)<br/>+++ branches/pdd28str_part2/src/ops/string.ops Wed Jan 28 21:22:46 2009<br/>@@ -338,11 +338,11 @@<br/> =cut<br/> <br/> inline op new(out STR) :base_mem {<br/>- $1 = string_make_empty(interp, enum_stringrep_one, 0);<br/>+ $1 = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);<br/> }<br/> <br/> inline op new(out STR, in INT) :base_mem {<br/>- $1 = string_make_empty(interp, enum_stringrep_one, $2);<br/>+ $1 = Parrot_str_new_noinit(interp, enum_stringrep_one, $2);<br/> }<br/> <br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/eval.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/eval.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/eval.pmc Wed Jan 28 21:22:46 2009<br/>@@ -255,7 +255,7 @@<br/> * effect<br/> */<br/> aligned_size = size + 15;<br/>- res = string_make_empty(INTERP, enum_stringrep_one,<br/>+ res = Parrot_str_new_noinit(INTERP, enum_stringrep_one,<br/> aligned_size);<br/> res-&gt;strlen = res-&gt;bufused = size;<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/filehandle.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/filehandle.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/filehandle.pmc Wed Jan 28 21:22:46 2009<br/>@@ -432,7 +432,7 @@<br/> Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,<br/> &quot;Cannot readall without a file name or open filehandle&quot;);<br/> }<br/>- result = string_make_empty(INTERP, enum_stringrep_one, 0);<br/>+ result = Parrot_str_new_noinit(INTERP, enum_stringrep_one, 0);<br/> <br/> /* Do line buffering on the filehandle */<br/> if (!(PARROT_FILEHANDLE(SELF)-&gt;flags &amp; PIO_F_LINEBUF))<br/><br/>Modified: branches/pdd28str_part2/src/pmc/hash.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/hash.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/hash.pmc Wed Jan 28 21:22:46 2009<br/>@@ -410,7 +410,7 @@<br/> * (--leo)<br/> */<br/> if (!b)<br/>- return string_make_empty(INTERP, enum_stringrep_one, 0);<br/>+ return Parrot_str_new_noinit(INTERP, enum_stringrep_one, 0);<br/> <br/> return VTABLE_get_string(INTERP, (PMC*) b-&gt;value);<br/> }<br/>@@ -456,7 +456,7 @@<br/> * (--leo)<br/> */<br/> if (!b)<br/>- return string_make_empty(INTERP, enum_stringrep_one, 0);<br/>+ return Parrot_str_new_noinit(INTERP, enum_stringrep_one, 0);<br/> <br/> nextkey = key_next(INTERP, key);<br/> valpmc = (PMC *)b-&gt;value;<br/><br/>Modified: branches/pdd28str_part2/src/pmc/string.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/string.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/string.pmc Wed Jan 28 21:22:46 2009<br/>@@ -35,7 +35,7 @@<br/> */<br/> <br/> VTABLE void init() {<br/>- PMC_str_val(SELF) = string_make_empty(INTERP, enum_stringrep_one, 0);<br/>+ PMC_str_val(SELF) = Parrot_str_new_noinit(INTERP, enum_stringrep_one, 0);<br/> PObj_custom_mark_SET(SELF);<br/> }<br/> <br/><br/>Modified: branches/pdd28str_part2/src/pmc/undef.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/undef.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/undef.pmc Wed Jan 28 21:22:46 2009<br/>@@ -148,7 +148,7 @@<br/> */<br/> <br/> VTABLE STRING *get_string() {<br/>- return string_make_empty(INTERP, enum_stringrep_one, 0);<br/>+ return Parrot_str_new_noinit(INTERP, enum_stringrep_one, 0);<br/> }<br/> <br/> /*<br/><br/>Modified: branches/pdd28str_part2/src/pmc_freeze.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc_freeze.c (original)<br/>+++ branches/pdd28str_part2/src/pmc_freeze.c Wed Jan 28 21:22:46 2009<br/>@@ -1793,7 +1793,7 @@<br/> else<br/> len = FREEZE_BYTES_PER_ITEM;<br/> <br/>- info-&gt;image = string_make_empty(interp, enum_stringrep_one, len);<br/>+ info-&gt;image = Parrot_str_new_noinit(interp, enum_stringrep_one, len);<br/> }<br/> <br/> /*<br/><br/>Modified: branches/pdd28str_part2/src/spf_render.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/spf_render.c (original)<br/>+++ branches/pdd28str_part2/src/spf_render.c Wed Jan 28 21:22:46 2009<br/>@@ -329,7 +329,7 @@<br/> HUGEINTVAL num;<br/> <br/> /* start with a buffer; double the pattern length to avoid realloc #1 */<br/>- STRING *targ = string_make_empty(interp, enum_stringrep_one, pat_len &lt;&lt; 1);<br/>+ STRING *targ = Parrot_str_new_noinit(interp, enum_stringrep_one, pat_len &lt;&lt; 1);<br/> <br/> /* ts is used almost universally as an intermediate target;<br/> * tc is used as a temporary buffer by uint_to_string and<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 21:22:46 2009<br/>@@ -378,7 +378,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;STRING * string_make_empty&gt;<br/>+=item C&lt;STRING * Parrot_str_new_noinit&gt;<br/> <br/> Creates and returns an empty Parrot string.<br/> <br/>@@ -389,10 +389,10 @@<br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/> STRING *<br/>-string_make_empty(PARROT_INTERP,<br/>+Parrot_str_new_noinit(PARROT_INTERP,<br/> parrot_string_representation_t representation, UINTVAL capacity)<br/> {<br/>- ASSERT_ARGS(string_make_empty)<br/>+ ASSERT_ARGS(Parrot_str_new_noinit)<br/> STRING * const s = new_string_header(interp, 0);<br/> <br/> /* TODO adapt string creation functions */<br/>@@ -1190,7 +1190,7 @@<br/> <br/> /* Allow regexes to return $&#39; easily for &quot;aaa&quot; =~ /aaa/ */<br/> if (offset == (INTVAL)string_length(interp, src) || length &lt; 1)<br/>- return string_make_empty(interp, enum_stringrep_one, 0);<br/>+ return Parrot_str_new_noinit(interp, enum_stringrep_one, 0);<br/> <br/> if (offset &lt; 0)<br/> true_offset = (UINTVAL)(src-&gt;strlen + offset);<br/>@@ -1569,7 +1569,7 @@<br/> {<br/> ASSERT_ARGS(make_writable)<br/> if (!*s)<br/>- *s = string_make_empty(interp, representation, len);<br/>+ *s = Parrot_str_new_noinit(interp, representation, len);<br/> else if ((*s)-&gt;strlen &lt; len)<br/> string_grow(interp, *s, (UINTVAL)(len - (*s)-&gt;strlen));<br/> else if (PObj_is_cowed_TESTALL(*s))<br/>@@ -3075,7 +3075,7 @@<br/> return NULL;<br/> <br/> if (!src-&gt;strlen)<br/>- return string_make_empty(interp, enum_stringrep_one, 0);<br/>+ return Parrot_str_new_noinit(interp, enum_stringrep_one, 0);<br/> <br/> return CHARSET_COMPOSE(interp, src);<br/> }<br/>@@ -3105,7 +3105,7 @@<br/> int i;<br/> <br/> if (ar_len == 0)<br/>- return string_make_empty(interp, enum_stringrep_one, 0);<br/>+ return Parrot_str_new_noinit(interp, enum_stringrep_one, 0);<br/> <br/> s = VTABLE_get_string_keyed_int(interp, ar, 0);<br/> res = s ? string_copy(interp, s) : NULL;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36483.html Wed, 28 Jan 2009 21:23:23 +0000 [svn:parrot] r36133 - in branches/pdd28str_part2: include/parrot src src/string by allison Author: allison<br/>Date: Wed Jan 28 21:07:47 2009<br/>New Revision: 36133<br/><br/>Modified:<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/src/inter_create.c<br/> branches/pdd28str_part2/src/string/api.c<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_finish&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 21:07:47 2009<br/>@@ -241,7 +241,7 @@<br/> void string_cstring_free(ARGIN_NULLOK(char *p));<br/> <br/> PARROT_EXPORT<br/>-void string_deinit(PARROT_INTERP)<br/>+void Parrot_str_finish(PARROT_INTERP)<br/> __attribute__nonnull__(1);<br/> <br/> PARROT_EXPORT<br/>@@ -622,7 +622,7 @@<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(s)<br/> #define ASSERT_ARGS_string_cstring_free __attribute__unused__ int _ASSERT_ARGS_CHECK = 0<br/>-#define ASSERT_ARGS_string_deinit __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_finish __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/> #define ASSERT_ARGS_string_downcase __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/><br/>Modified: branches/pdd28str_part2/src/inter_create.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/inter_create.c (original)<br/>+++ branches/pdd28str_part2/src/inter_create.c Wed Jan 28 21:07:47 2009<br/>@@ -435,7 +435,7 @@<br/> }<br/> <br/> /* strings, charsets, encodings - only once */<br/>- string_deinit(interp);<br/>+ Parrot_str_finish(interp);<br/> <br/> if (!interp-&gt;parent_interpreter) {<br/> if (interp-&gt;thread_data)<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 21:07:47 2009<br/>@@ -331,7 +331,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;void string_deinit&gt;<br/>+=item C&lt;void Parrot_str_finish&gt;<br/> <br/> De-Initializes the Parrot string subsystem.<br/> <br/>@@ -341,9 +341,9 @@<br/> <br/> PARROT_EXPORT<br/> void<br/>-string_deinit(PARROT_INTERP)<br/>+Parrot_str_finish(PARROT_INTERP)<br/> {<br/>- ASSERT_ARGS(string_deinit)<br/>+ ASSERT_ARGS(Parrot_str_finish)<br/> /* all are shared between interpreters */<br/> if (!interp-&gt;parent_interpreter) {<br/> mem_sys_free(interp-&gt;const_cstring_table);<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36482.html Wed, 28 Jan 2009 21:08:00 +0000 [svn:parrot] r36132 - in branches/pdd28str_part2: include/parrot src src/string by allison Author: allison<br/>Date: Wed Jan 28 20:53:38 2009<br/>New Revision: 36132<br/><br/>Modified:<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/src/inter_create.c<br/> branches/pdd28str_part2/src/string/api.c<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_init&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 20:53:38 2009<br/>@@ -325,7 +325,7 @@<br/> __attribute__nonnull__(2);<br/> <br/> PARROT_EXPORT<br/>-void string_init(PARROT_INTERP)<br/>+void Parrot_str_init(PARROT_INTERP)<br/> __attribute__nonnull__(1);<br/> <br/> PARROT_EXPORT<br/>@@ -654,7 +654,7 @@<br/> #define ASSERT_ARGS_string_index __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(s)<br/>-#define ASSERT_ARGS_string_init __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_init __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/> #define ASSERT_ARGS_string_join __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/><br/>Modified: branches/pdd28str_part2/src/inter_create.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/inter_create.c (original)<br/>+++ branches/pdd28str_part2/src/inter_create.c Wed Jan 28 20:53:38 2009<br/>@@ -176,7 +176,7 @@<br/> * Set up the string subsystem<br/> * This also generates the constant string tables<br/> */<br/>- string_init(interp);<br/>+ Parrot_str_init(interp);<br/> <br/> /* Set up the MMD struct */<br/> interp-&gt;binop_mmd_funcs = NULL;<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 20:53:38 2009<br/>@@ -270,7 +270,7 @@<br/> <br/> =over 4<br/> <br/>-=item C&lt;void string_init&gt;<br/>+=item C&lt;void Parrot_str_init&gt;<br/> <br/> Initializes the Parrot string subsystem.<br/> <br/>@@ -280,9 +280,9 @@<br/> <br/> PARROT_EXPORT<br/> void<br/>-string_init(PARROT_INTERP)<br/>+Parrot_str_init(PARROT_INTERP)<br/> {<br/>- ASSERT_ARGS(string_init)<br/>+ ASSERT_ARGS(Parrot_str_init)<br/> Hash *const_cstring_hash;<br/> size_t i;<br/> const size_t n_parrot_cstrings =<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36481.html Wed, 28 Jan 2009 20:54:25 +0000 [svn:parrot] r36131 - in branches/pdd28str_part2: include/parrot src/ops src/pmc src/string by allison Author: allison<br/>Date: Wed Jan 28 20:14:19 2009<br/>New Revision: 36131<br/><br/>Modified:<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/src/ops/set.ops<br/> branches/pdd28str_part2/src/pmc/string.pmc<br/> branches/pdd28str_part2/src/string/api.c<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_set&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 20:14:19 2009<br/>@@ -434,7 +434,7 @@<br/> <br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/>-STRING * string_set(PARROT_INTERP,<br/>+STRING * Parrot_str_set(PARROT_INTERP,<br/> ARGIN_NULLOK(STRING *dest),<br/> ARGMOD(STRING *src))<br/> __attribute__nonnull__(1)<br/>@@ -692,7 +692,7 @@<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(src) \<br/> || PARROT_ASSERT_ARG(rep)<br/>-#define ASSERT_ARGS_string_set __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_set __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(src)<br/> #define ASSERT_ARGS_string_split __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/><br/>Modified: branches/pdd28str_part2/src/ops/set.ops<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/ops/set.ops (original)<br/>+++ branches/pdd28str_part2/src/ops/set.ops Wed Jan 28 20:14:19 2009<br/>@@ -246,7 +246,7 @@<br/> }<br/> <br/> inline op assign(out STR, in STR) :base_core {<br/>- $1 = string_set(interp, $1, $2);<br/>+ $1 = Parrot_str_set(interp, $1, $2);<br/> }<br/> <br/> inline op setref(invar PMC, invar PMC) :base_core {<br/><br/>Modified: branches/pdd28str_part2/src/pmc/string.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/string.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/string.pmc Wed Jan 28 20:14:19 2009<br/>@@ -235,7 +235,7 @@<br/> */<br/> <br/> VTABLE void assign_string_native(STRING *value) {<br/>- PMC_str_val(SELF) = string_set(INTERP, SELF.get_string(), value);<br/>+ PMC_str_val(SELF) = Parrot_str_set(INTERP, SELF.get_string(), value);<br/> }<br/> <br/> /*<br/>@@ -251,7 +251,7 @@<br/> <br/> VTABLE void set_string_same(PMC *value) {<br/> PMC_str_val(SELF) =<br/>- string_set(INTERP, SELF.get_string(), VTABLE_get_string(INTERP, value));<br/>+ Parrot_str_set(INTERP, SELF.get_string(), VTABLE_get_string(INTERP, value));<br/> }<br/> <br/> /*<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 20:14:19 2009<br/>@@ -206,7 +206,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;STRING * string_set&gt;<br/>+=item C&lt;STRING * Parrot_str_set&gt;<br/> <br/> Makes the contents of first Parrot string a copy of the contents of<br/> second.<br/>@@ -218,9 +218,9 @@<br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/> STRING *<br/>-string_set(PARROT_INTERP, ARGIN_NULLOK(STRING *dest), ARGMOD(STRING *src))<br/>+Parrot_str_set(PARROT_INTERP, ARGIN_NULLOK(STRING *dest), ARGMOD(STRING *src))<br/> {<br/>- ASSERT_ARGS(string_set)<br/>+ ASSERT_ARGS(Parrot_str_set)<br/> if (dest == src)<br/> return dest;<br/> if (dest) { /* &amp;&amp; dest != src */<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36480.html Wed, 28 Jan 2009 20:14:51 +0000 [svn:parrot] r36130 - in branches/pdd28str_part2: include/parrot src/string src/string/encoding by allison Author: allison<br/>Date: Wed Jan 28 19:49:28 2009<br/>New Revision: 36130<br/><br/>Modified:<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/src/string/api.c<br/> branches/pdd28str_part2/src/string/encoding/fixed_8.c<br/> branches/pdd28str_part2/src/string/encoding/utf16.c<br/> branches/pdd28str_part2/src/string/encoding/utf8.c<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_reuse_COW&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 19:49:28 2009<br/>@@ -43,7 +43,7 @@<br/> <br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/>-STRING * Parrot_reuse_COW_reference(SHIM_INTERP,<br/>+STRING * Parrot_str_reuse_COW(SHIM_INTERP,<br/> ARGMOD(STRING *s),<br/> ARGOUT(STRING *d))<br/> __attribute__nonnull__(2)<br/>@@ -563,7 +563,7 @@<br/> #define ASSERT_ARGS_Parrot_str_new_COW __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(s)<br/>-#define ASSERT_ARGS_Parrot_reuse_COW_reference __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_reuse_COW __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(s) \<br/> || PARROT_ASSERT_ARG(d)<br/> #define ASSERT_ARGS_Parrot_str_repeat __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 19:49:28 2009<br/>@@ -173,7 +173,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;STRING * Parrot_reuse_COW_reference&gt;<br/>+=item C&lt;STRING * Parrot_str_reuse_COW&gt;<br/> <br/> Creates a copy-on-write string by cloning a string header without<br/> allocating a new buffer. Doesn&#39;t allocate a new string header, instead<br/>@@ -186,9 +186,9 @@<br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/> STRING *<br/>-Parrot_reuse_COW_reference(SHIM_INTERP, ARGMOD(STRING *s), ARGOUT(STRING *d))<br/>+Parrot_str_reuse_COW(SHIM_INTERP, ARGMOD(STRING *s), ARGOUT(STRING *d))<br/> {<br/>- ASSERT_ARGS(Parrot_reuse_COW_reference)<br/>+ ASSERT_ARGS(Parrot_str_reuse_COW)<br/> <br/> if (PObj_constant_TEST(s)) {<br/> PObj_COW_SET(s);<br/>@@ -230,7 +230,7 @@<br/> mem_sys_free(PObj_bufallocstart(dest));<br/> }<br/> #endif<br/>- dest = Parrot_reuse_COW_reference(interp, src, dest);<br/>+ dest = Parrot_str_reuse_COW(interp, src, dest);<br/> }<br/> else<br/> dest = Parrot_str_new_COW(interp, src);<br/>@@ -2980,7 +2980,7 @@<br/> */<br/> if (dest) {<br/> if (new_charset == src-&gt;charset) {<br/>- dest = Parrot_reuse_COW_reference(interp, src, dest);<br/>+ dest = Parrot_str_reuse_COW(interp, src, dest);<br/> dest-&gt;charset = new_charset;<br/> /* keep encoding */<br/> return dest;<br/>@@ -3039,7 +3039,7 @@<br/> if (dest) {<br/> dest-&gt;encoding = new_encoding;<br/> if (new_encoding == src-&gt;encoding) {<br/>- dest = Parrot_reuse_COW_reference(interp, src, dest);<br/>+ dest = Parrot_str_reuse_COW(interp, src, dest);<br/> return dest;<br/> }<br/> }<br/><br/>Modified: branches/pdd28str_part2/src/string/encoding/fixed_8.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/encoding/fixed_8.c (original)<br/>+++ branches/pdd28str_part2/src/string/encoding/fixed_8.c Wed Jan 28 19:49:28 2009<br/>@@ -424,7 +424,7 @@<br/> UINTVAL offset, UINTVAL count, ARGMOD(STRING *return_string))<br/> {<br/> ASSERT_ARGS(get_bytes_inplace)<br/>- Parrot_reuse_COW_reference(interp, source_string, return_string);<br/>+ Parrot_str_reuse_COW(interp, source_string, return_string);<br/> <br/> return_string-&gt;strstart = (char *)return_string-&gt;strstart + offset ;<br/> return_string-&gt;bufused = count;<br/><br/>Modified: branches/pdd28str_part2/src/string/encoding/utf16.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/encoding/utf16.c (original)<br/>+++ branches/pdd28str_part2/src/string/encoding/utf16.c Wed Jan 28 19:49:28 2009<br/>@@ -489,7 +489,7 @@<br/> ASSERT_ARGS(get_codepoints_inplace)<br/> String_iter iter;<br/> UINTVAL start;<br/>- Parrot_reuse_COW_reference(interp, src, return_string);<br/>+ Parrot_str_reuse_COW(interp, src, return_string);<br/> iter_init(interp, src, &amp;iter);<br/> iter.set_position(interp, &amp;iter, offset);<br/> start = iter.bytepos;<br/><br/>Modified: branches/pdd28str_part2/src/string/encoding/utf8.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/encoding/utf8.c (original)<br/>+++ branches/pdd28str_part2/src/string/encoding/utf8.c Wed Jan 28 19:49:28 2009<br/>@@ -813,7 +813,7 @@<br/> String_iter iter;<br/> UINTVAL start;<br/> <br/>- Parrot_reuse_COW_reference(interp, src, return_string);<br/>+ Parrot_str_reuse_COW(interp, src, return_string);<br/> iter_init(interp, src, &amp;iter);<br/> iter.set_position(interp, &amp;iter, offset);<br/> <br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36479.html Wed, 28 Jan 2009 19:51:21 +0000 [svn:parrot] r36129 - in branches/pdd28str_part2: docs include/parrot src src/pmc src/string src/string/encoding by allison Author: allison<br/>Date: Wed Jan 28 19:02:00 2009<br/>New Revision: 36129<br/><br/>Modified:<br/> branches/pdd28str_part2/docs/debug.pod<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/src/inter_call.c<br/> branches/pdd28str_part2/src/key.c<br/> branches/pdd28str_part2/src/pic.c<br/> branches/pdd28str_part2/src/pmc/codestring.pmc<br/> branches/pdd28str_part2/src/string/api.c<br/> branches/pdd28str_part2/src/string/encoding/fixed_8.c<br/> branches/pdd28str_part2/src/string/encoding/ucs2.c<br/> branches/pdd28str_part2/src/string/encoding/utf16.c<br/> branches/pdd28str_part2/src/string/encoding/utf8.c<br/><br/>Log:<br/>[pdd28str] Renaming &#39;Parrot_str_new_COW&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/docs/debug.pod<br/>==============================================================================<br/>--- branches/pdd28str_part2/docs/debug.pod (original)<br/>+++ branches/pdd28str_part2/docs/debug.pod Wed Jan 28 19:02:00 2009<br/>@@ -177,7 +177,7 @@<br/> Backtrace - Obtained 15 stack frames (max trace depth is 32).<br/> (unknown)<br/> Parrot_confess<br/>- Parrot_make_COW_reference<br/>+ Parrot_str_new_COW<br/> Parrot_String_get_string<br/> Parrot_set_s_p<br/> (unknown)<br/>@@ -266,10 +266,10 @@<br/> #0 Parrot_confess (cond=0xb7eeda65 &quot;s&quot;, file=0xb7eeda58 &quot;src/string.c&quot;, <br/> line=129) at src/exceptions.c:767<br/> No locals.<br/>- #1 0xb7c433b1 in Parrot_make_COW_reference (interp=0x804e008, s=0x0)<br/>+ #1 0xb7c433b1 in Parrot_str_new_COW (interp=0x804e008, s=0x0)<br/> at src/string.c:129<br/> d = (STRING *) 0x81c21b8<br/>- __PRETTY_FUNCTION__ = &quot;Parrot_make_COW_reference&quot;<br/>+ __PRETTY_FUNCTION__ = &quot;Parrot_str_new_COW&quot;<br/> #2 0xb7e40db3 in Parrot_String_get_string (interp=0x804e008, pmc=0x81c8578)<br/> at src/pmc/string.c:310<br/> No locals.<br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 19:02:00 2009<br/>@@ -36,7 +36,7 @@<br/> PARROT_EXPORT<br/> PARROT_CANNOT_RETURN_NULL<br/> PARROT_WARN_UNUSED_RESULT<br/>-STRING * Parrot_make_COW_reference(PARROT_INTERP, ARGMOD(STRING *s))<br/>+STRING * Parrot_str_new_COW(PARROT_INTERP, ARGMOD(STRING *s))<br/> __attribute__nonnull__(1)<br/> __attribute__nonnull__(2)<br/> FUNC_MODIFIES(*s);<br/>@@ -560,7 +560,7 @@<br/> #define ASSERT_ARGS_const_string __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(buffer)<br/>-#define ASSERT_ARGS_Parrot_make_COW_reference __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_new_COW __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(s)<br/> #define ASSERT_ARGS_Parrot_reuse_COW_reference __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/><br/>Modified: branches/pdd28str_part2/src/inter_call.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/inter_call.c (original)<br/>+++ branches/pdd28str_part2/src/inter_call.c Wed Jan 28 19:02:00 2009<br/>@@ -712,7 +712,7 @@<br/> {<br/> /* ensure that callees don&#39;t modify constant caller strings */<br/> if (constant)<br/>- UVal_str(st-&gt;val) = Parrot_make_COW_reference(interp,<br/>+ UVal_str(st-&gt;val) = Parrot_str_new_COW(interp,<br/> st-&gt;src.ctx-&gt;constants[idx]-&gt;u.string);<br/> else<br/> UVal_str(st-&gt;val) = CTX_REG_STR(st-&gt;src.ctx, idx);<br/><br/>Modified: branches/pdd28str_part2/src/key.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/key.c (original)<br/>+++ branches/pdd28str_part2/src/key.c Wed Jan 28 19:02:00 2009<br/>@@ -423,14 +423,14 @@<br/> {<br/> STRING *s = PMC_str_val(key);<br/> if (s)<br/>- s = Parrot_make_COW_reference(interp, s);<br/>+ s = Parrot_str_new_COW(interp, s);<br/> return s;<br/> }<br/> case KEY_string_FLAG | KEY_register_FLAG:<br/> {<br/> STRING *s = REG_STR(interp, PMC_int_val(key));<br/> if (s)<br/>- s = Parrot_make_COW_reference(interp, s);<br/>+ s = Parrot_str_new_COW(interp, s);<br/> return s;<br/> }<br/> /* PMC_pmc_val(key)); */<br/><br/>Modified: branches/pdd28str_part2/src/pic.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pic.c (original)<br/>+++ branches/pdd28str_part2/src/pic.c Wed Jan 28 19:02:00 2009<br/>@@ -590,7 +590,7 @@<br/> STRING *argS = *(STRING * const *)(src_base + ((const opcode_t *)src)[i]);<br/> <br/> if (argS &amp;&amp; PObj_constant_TEST(argS))<br/>- argS = Parrot_make_COW_reference(interp, argS);<br/>+ argS = Parrot_str_new_COW(interp, argS);<br/> <br/> *(STRING **)(dest_base + ((const opcode_t*)dest)[i]) = argS;<br/> }<br/>@@ -599,7 +599,7 @@<br/> {<br/> STRING *argS = (STRING *)(src)[i];<br/> if (argS &amp;&amp; PObj_constant_TEST(argS))<br/>- argS = Parrot_make_COW_reference(interp, argS);<br/>+ argS = Parrot_str_new_COW(interp, argS);<br/> *(STRING **)(dest_base + ((const opcode_t *)dest)[i]) = argS;<br/> }<br/> break;<br/><br/>Modified: branches/pdd28str_part2/src/pmc/codestring.pmc<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/pmc/codestring.pmc (original)<br/>+++ branches/pdd28str_part2/src/pmc/codestring.pmc Wed Jan 28 19:02:00 2009<br/>@@ -69,7 +69,7 @@<br/> INTVAL replen = 0;<br/> INTVAL I0, I1;<br/> <br/>- fmt = Parrot_make_COW_reference(INTERP, fmt);<br/>+ fmt = Parrot_str_new_COW(INTERP, fmt);<br/> <br/> while (pos &gt;= 0) {<br/> pos += replen;<br/>@@ -88,7 +88,7 @@<br/> }<br/> else if (0 == string_equal(INTERP, key, comma)) {<br/> repl = VTABLE_get_string_keyed_int(INTERP, args, 0);<br/>- repl = Parrot_make_COW_reference(INTERP, repl);<br/>+ repl = Parrot_str_new_COW(INTERP, repl);<br/> I1 = VTABLE_elements(INTERP, args);<br/> I0 = 1;<br/> <br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 19:02:00 2009<br/>@@ -121,9 +121,9 @@<br/> <br/> /*<br/> <br/>-=item C&lt;STRING * Parrot_make_COW_reference&gt;<br/>+=item C&lt;STRING * Parrot_str_new_COW&gt;<br/> <br/>-Creates a copy-on-write string by cloning a string header without<br/>+Creates a copy-on-write string, cloning a string header without<br/> allocating a new buffer.<br/> <br/> =cut<br/>@@ -134,9 +134,9 @@<br/> PARROT_CANNOT_RETURN_NULL<br/> PARROT_WARN_UNUSED_RESULT<br/> STRING *<br/>-Parrot_make_COW_reference(PARROT_INTERP, ARGMOD(STRING *s))<br/>+Parrot_str_new_COW(PARROT_INTERP, ARGMOD(STRING *s))<br/> {<br/>- ASSERT_ARGS(Parrot_make_COW_reference)<br/>+ ASSERT_ARGS(Parrot_str_new_COW)<br/> STRING *d;<br/> <br/> if (PObj_constant_TEST(s)) {<br/>@@ -233,7 +233,7 @@<br/> dest = Parrot_reuse_COW_reference(interp, src, dest);<br/> }<br/> else<br/>- dest = Parrot_make_COW_reference(interp, src);<br/>+ dest = Parrot_str_new_COW(interp, src);<br/> return dest;<br/> }<br/> <br/>@@ -1022,7 +1022,7 @@<br/> string_copy(PARROT_INTERP, ARGMOD(STRING *s))<br/> {<br/> ASSERT_ARGS(string_copy)<br/>- return Parrot_make_COW_reference(interp, s);<br/>+ return Parrot_str_new_COW(interp, s);<br/> }<br/> <br/> <br/><br/>Modified: branches/pdd28str_part2/src/string/encoding/fixed_8.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/encoding/fixed_8.c (original)<br/>+++ branches/pdd28str_part2/src/string/encoding/fixed_8.c Wed Jan 28 19:02:00 2009<br/>@@ -369,7 +369,7 @@<br/> get_bytes(PARROT_INTERP, ARGIN(STRING *source_string), UINTVAL offset, UINTVAL count)<br/> {<br/> ASSERT_ARGS(get_bytes)<br/>- STRING * const return_string = Parrot_make_COW_reference(interp,<br/>+ STRING * const return_string = Parrot_str_new_COW(interp,<br/> source_string);<br/> return_string-&gt;encoding = source_string-&gt;encoding;<br/> return_string-&gt;charset = source_string-&gt;charset;<br/><br/>Modified: branches/pdd28str_part2/src/string/encoding/ucs2.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/encoding/ucs2.c (original)<br/>+++ branches/pdd28str_part2/src/string/encoding/ucs2.c Wed Jan 28 19:02:00 2009<br/>@@ -335,7 +335,7 @@<br/> get_codepoints(PARROT_INTERP, ARGIN(STRING *src), UINTVAL offset, UINTVAL count)<br/> {<br/> ASSERT_ARGS(get_codepoints)<br/>- STRING * const return_string = Parrot_make_COW_reference(interp, src);<br/>+ STRING * const return_string = Parrot_str_new_COW(interp, src);<br/> #if PARROT_HAS_ICU<br/> return_string-&gt;strstart = (char*)src-&gt;strstart + offset * sizeof (UChar);<br/> return_string-&gt;bufused = count * sizeof (UChar);<br/><br/>Modified: branches/pdd28str_part2/src/string/encoding/utf16.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/encoding/utf16.c (original)<br/>+++ branches/pdd28str_part2/src/string/encoding/utf16.c Wed Jan 28 19:02:00 2009<br/>@@ -455,7 +455,7 @@<br/> ASSERT_ARGS(get_codepoints)<br/> String_iter iter;<br/> UINTVAL start;<br/>- STRING * const return_string = Parrot_make_COW_reference(interp, src);<br/>+ STRING * const return_string = Parrot_str_new_COW(interp, src);<br/> <br/> iter_init(interp, src, &amp;iter);<br/> iter.set_position(interp, &amp;iter, offset);<br/><br/>Modified: branches/pdd28str_part2/src/string/encoding/utf8.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/encoding/utf8.c (original)<br/>+++ branches/pdd28str_part2/src/string/encoding/utf8.c Wed Jan 28 19:02:00 2009<br/>@@ -742,7 +742,7 @@<br/> {<br/> ASSERT_ARGS(get_codepoints)<br/> <br/>- STRING * const return_string = Parrot_make_COW_reference(interp, src);<br/>+ STRING * const return_string = Parrot_str_new_COW(interp, src);<br/> String_iter iter;<br/> UINTVAL start;<br/> <br/>@@ -779,7 +779,7 @@<br/> get_bytes(PARROT_INTERP, ARGMOD(STRING *src), UINTVAL offset, UINTVAL count)<br/> {<br/> ASSERT_ARGS(get_bytes)<br/>- STRING * const return_string = Parrot_make_COW_reference(interp, src);<br/>+ STRING * const return_string = Parrot_str_new_COW(interp, src);<br/> <br/> return_string-&gt;encoding = src-&gt;encoding; /* XXX */<br/> return_string-&gt;charset = src-&gt;charset;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36478.html Wed, 28 Jan 2009 19:02:37 +0000 [svn:parrot] r36128 - in branches/pdd28str_part2: include/parrot src/string src/string/charset by allison Author: allison<br/>Date: Wed Jan 28 17:44:19 2009<br/>New Revision: 36128<br/><br/>Modified:<br/> branches/pdd28str_part2/include/parrot/string_funcs.h<br/> branches/pdd28str_part2/src/string/api.c<br/> branches/pdd28str_part2/src/string/charset/iso-8859-1.c<br/><br/>Log:<br/>[pdd28str] Name change for &#39;Parrot_str_write_COW&#39;.<br/><br/><br/>Modified: branches/pdd28str_part2/include/parrot/string_funcs.h<br/>==============================================================================<br/>--- branches/pdd28str_part2/include/parrot/string_funcs.h (original)<br/>+++ branches/pdd28str_part2/include/parrot/string_funcs.h Wed Jan 28 17:44:19 2009<br/>@@ -21,7 +21,7 @@<br/> <br/> #define string_from_literal(i, s) string_from_cstring((i), (s), (sizeof (s)-1))<br/> #define Parrot_unCOW_string(i, s) PObj_COW_TEST((s)) ? \<br/>- Parrot_unmake_COW((i), (s)), (s) : (s)<br/>+ Parrot_str_write_COW((i), (s)), (s) : (s)<br/> <br/> /* HEADERIZER BEGIN: src/string/api.c */<br/> /* Don&#39;t modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */<br/>@@ -122,7 +122,7 @@<br/> FUNC_MODIFIES(*dest);<br/> <br/> PARROT_EXPORT<br/>-void Parrot_unmake_COW(PARROT_INTERP, ARGMOD(STRING *s))<br/>+void Parrot_str_write_COW(PARROT_INTERP, ARGMOD(STRING *s))<br/> __attribute__nonnull__(1)<br/> __attribute__nonnull__(2)<br/> FUNC_MODIFIES(*s);<br/>@@ -584,7 +584,7 @@<br/> PARROT_ASSERT_ARG(interp)<br/> #define ASSERT_ARGS_Parrot_string_trans_encoding __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp)<br/>-#define ASSERT_ARGS_Parrot_unmake_COW __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/>+#define ASSERT_ARGS_Parrot_str_write_COW __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/> PARROT_ASSERT_ARG(interp) \<br/> || PARROT_ASSERT_ARG(s)<br/> #define ASSERT_ARGS_string_append __attribute__unused__ int _ASSERT_ARGS_CHECK = \<br/><br/>Modified: branches/pdd28str_part2/src/string/api.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/api.c (original)<br/>+++ branches/pdd28str_part2/src/string/api.c Wed Jan 28 17:44:19 2009<br/>@@ -69,7 +69,7 @@<br/> <br/> /*<br/> <br/>-=item C&lt;void Parrot_unmake_COW&gt;<br/>+=item C&lt;void Parrot_str_write_COW&gt;<br/> <br/> If the specified Parrot string is copy-on-write then the memory is<br/> copied over and the copy-on-write flag is cleared.<br/>@@ -80,9 +80,9 @@<br/> <br/> PARROT_EXPORT<br/> void<br/>-Parrot_unmake_COW(PARROT_INTERP, ARGMOD(STRING *s))<br/>+Parrot_str_write_COW(PARROT_INTERP, ARGMOD(STRING *s))<br/> {<br/>- ASSERT_ARGS(Parrot_unmake_COW)<br/>+ ASSERT_ARGS(Parrot_str_write_COW)<br/> <br/> /* COW_FLAG | constant_FLAG | external_FLAG) */<br/> if (PObj_is_cowed_TESTALL(s)) {<br/>@@ -160,7 +160,7 @@<br/> * is fixed correctly. */<br/> if (n_interpreters &gt; 1 &amp;&amp; PObj_is_movable_TESTALL(s) &amp;&amp;<br/> !Parrot_in_memory_pool(interp, PObj_bufstart(s))) {<br/>- Parrot_unmake_COW(interp, d);<br/>+ Parrot_str_write_COW(interp, d);<br/> Parrot_io_eprintf(interp, &quot;cross-interpreter copy of &quot;<br/> &quot;relocatable string &#39;%Ss&#39; into tid %d\n&quot;,<br/> d,<br/>@@ -825,7 +825,7 @@<br/> string_grow(PARROT_INTERP, ARGMOD(STRING *s), UINTVAL addlen)<br/> {<br/> ASSERT_ARGS(string_grow)<br/>- Parrot_unmake_COW(interp, s);<br/>+ Parrot_str_write_COW(interp, s);<br/> <br/> /* Don&#39;t check buflen, if we are here, we already checked. */<br/> Parrot_reallocate_string(interp,<br/>@@ -1280,7 +1280,7 @@<br/> &amp;&amp; length == 1<br/> &amp;&amp; rep-&gt;strlen == 1) {<br/> if (PObj_is_cowed_TESTALL(src))<br/>- Parrot_unmake_COW(interp, src);<br/>+ Parrot_str_write_COW(interp, src);<br/> <br/> ((char *)src-&gt;strstart)[offset] = ((char *)rep-&gt;strstart)[0];<br/> <br/>@@ -1345,7 +1345,7 @@<br/> <br/> if (diff &gt;= 0<br/> || ((INTVAL)src-&gt;bufused - (INTVAL)PObj_buflen(src)) &lt;= diff) {<br/>- Parrot_unmake_COW(interp, src);<br/>+ Parrot_str_write_COW(interp, src);<br/> <br/> if (diff != 0) {<br/> mem_sys_memmove((char *)src-&gt;strstart + start_byte + rep-&gt;bufused,<br/>@@ -1573,7 +1573,7 @@<br/> else if ((*s)-&gt;strlen &lt; len)<br/> string_grow(interp, *s, (UINTVAL)(len - (*s)-&gt;strlen));<br/> else if (PObj_is_cowed_TESTALL(*s))<br/>- Parrot_unmake_COW(interp, *s);<br/>+ Parrot_str_write_COW(interp, *s);<br/> }<br/> <br/> <br/>@@ -2296,7 +2296,7 @@<br/> * not work for these<br/> * so probably only sysmem should be tested<br/> */<br/>- Parrot_unmake_COW(interp, s);<br/>+ Parrot_str_write_COW(interp, s);<br/> <br/> size = PObj_buflen(s);<br/> memory = (char *)mem_sys_allocate(size);<br/>@@ -2334,7 +2334,7 @@<br/> if (!PObj_sysmem_TEST(s))<br/> return;<br/> <br/>- Parrot_unmake_COW(interp, s);<br/>+ Parrot_str_write_COW(interp, s);<br/> size = PObj_buflen(s);<br/> <br/> /* We need a handle on the fixed memory so we can get rid of it later */<br/>@@ -2705,7 +2705,7 @@<br/> &quot;Can&#39;t upcase NULL string&quot;);<br/> }<br/> else {<br/>- Parrot_unmake_COW(interp, s);<br/>+ Parrot_str_write_COW(interp, s);<br/> CHARSET_UPCASE(interp, s);<br/> }<br/> }<br/>@@ -2757,7 +2757,7 @@<br/> * * conversion to utf16, with doubling the buffer<br/> * * possibly one more reallocation in downcase<br/> */<br/>- Parrot_unmake_COW(interp, s);<br/>+ Parrot_str_write_COW(interp, s);<br/> CHARSET_DOWNCASE(interp, s);<br/> }<br/> <br/>@@ -2802,7 +2802,7 @@<br/> string_titlecase_inplace(PARROT_INTERP, ARGMOD(STRING *s))<br/> {<br/> ASSERT_ARGS(string_titlecase_inplace)<br/>- Parrot_unmake_COW(interp, s);<br/>+ Parrot_str_write_COW(interp, s);<br/> CHARSET_TITLECASE(interp, s);<br/> }<br/> <br/>@@ -2995,7 +2995,7 @@<br/> if (new_charset == src-&gt;charset)<br/> return src;<br/> <br/>- Parrot_unmake_COW(interp, src);<br/>+ Parrot_str_write_COW(interp, src);<br/> }<br/> <br/> return new_charset-&gt;to_charset(interp, src, dest);<br/>@@ -3047,7 +3047,7 @@<br/> if (new_encoding == src-&gt;encoding)<br/> return src;<br/> <br/>- Parrot_unmake_COW(interp, src);<br/>+ Parrot_str_write_COW(interp, src);<br/> }<br/> <br/> return new_encoding-&gt;to_encoding(interp, src, dest);<br/><br/>Modified: branches/pdd28str_part2/src/string/charset/iso-8859-1.c<br/>==============================================================================<br/>--- branches/pdd28str_part2/src/string/charset/iso-8859-1.c (original)<br/>+++ branches/pdd28str_part2/src/string/charset/iso-8859-1.c Wed Jan 28 17:44:19 2009<br/>@@ -371,7 +371,7 @@<br/> if (!source_string-&gt;strlen)<br/> return;<br/> <br/>- Parrot_unmake_COW(interp, source_string);<br/>+ Parrot_str_write_COW(interp, source_string);<br/> buffer = (unsigned char *)source_string-&gt;strstart;<br/> for (offset = 0; offset &lt; source_string-&gt;strlen; offset++) {<br/> unsigned int c = buffer[offset]; /* XXX use encoding ? */<br/>@@ -402,7 +402,7 @@<br/> UINTVAL offset;<br/> unsigned char *buffer;<br/> <br/>- Parrot_unmake_COW(interp, source_string);<br/>+ Parrot_str_write_COW(interp, source_string);<br/> buffer = (unsigned char *)source_string-&gt;strstart;<br/> for (offset = 0; offset &lt; source_string-&gt;strlen; offset++) {<br/> unsigned int c = buffer[offset];<br/>@@ -437,7 +437,7 @@<br/> if (!source_string-&gt;strlen)<br/> return;<br/> <br/>- Parrot_unmake_COW(interp, source_string);<br/>+ Parrot_str_write_COW(interp, source_string);<br/> buffer = (unsigned char *)source_string-&gt;strstart;<br/> c = buffer[0];<br/> if (c &gt;= 0xe0 &amp;&amp; c != 0xf7)<br/>@@ -475,7 +475,7 @@<br/> unsigned char *buffer;<br/> unsigned int c;<br/> <br/>- Parrot_unmake_COW(interp, source_string);<br/>+ Parrot_str_write_COW(interp, source_string);<br/> buffer = (unsigned char *)source_string-&gt;strstart;<br/> c = buffer[0];<br/> if (c &gt;= 0xe0 &amp;&amp; c != 0xf7)<br/>@@ -505,7 +505,7 @@<br/> unsigned char *buffer;<br/> unsigned int c;<br/> <br/>- Parrot_unmake_COW(interp, source_string);<br/>+ Parrot_str_write_COW(interp, source_string);<br/> buffer = (unsigned char *)source_string-&gt;strstart;<br/> c = buffer[0];<br/> if (c &gt;= 0xc0 &amp;&amp; c != 0xd7 &amp;&amp; c &lt;= 0xde)<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36477.html Wed, 28 Jan 2009 17:44:39 +0000 [svn:parrot] r36127 - in trunk: . config/gen/makefiles runtime/parrot/library runtime/parrot/library/Data t/library by coke Author: coke<br/>Date: Wed Jan 28 17:11:27 2009<br/>New Revision: 36127<br/><br/>Removed:<br/> trunk/runtime/parrot/library/Data/Sort.pir<br/> trunk/t/library/sort.t<br/>Modified:<br/> trunk/DEPRECATED.pod<br/> trunk/MANIFEST<br/> trunk/MANIFEST.generated<br/> trunk/config/gen/makefiles/root.in<br/> trunk/runtime/parrot/library/JSON.pir<br/><br/>Log:<br/>Remove the obsolete (DEPRECATED) Data::Sort from the stdlb (TT #106)<br/> <br/><br/><br/>Modified: trunk/DEPRECATED.pod<br/>==============================================================================<br/>--- trunk/DEPRECATED.pod (original)<br/>+++ trunk/DEPRECATED.pod Wed Jan 28 17:11:27 2009<br/>@@ -152,11 +152,6 @@<br/> <br/> =over 4<br/> <br/>-=item Data::Sort [post 0.9.0]<br/>-<br/>-Sorting is already available as a method on various array-style PMCs.<br/>-See TT #106<br/>-<br/> =item Data::Escape [post 0.9.0]<br/> <br/> Replace usage with the escape opcode. See TT #107<br/><br/>Modified: trunk/MANIFEST<br/>==============================================================================<br/>--- trunk/MANIFEST (original)<br/>+++ trunk/MANIFEST Wed Jan 28 17:11:27 2009<br/>@@ -1,7 +1,7 @@<br/> # ex: set ro:<br/>-# $Id: MANIFEST 36113 2009-01-28 20:10:21Z bernhard $<br/>+# $Id$<br/> #<br/>-# generated by tools/dev/mk_manifest_and_skip.pl Wed Jan 28 20:09:00 2009 UT<br/>+# generated by tools/dev/mk_manifest_and_skip.pl Thu Jan 29 01:00:00 2009 UT<br/> #<br/> # See tools/dev/install_files.pl for documentation on the<br/> # format of this file.<br/>@@ -2602,7 +2602,6 @@<br/> runtime/parrot/library/Data/Dumper/Default.pir [library]<br/> runtime/parrot/library/Data/Escape.pir [library]<br/> runtime/parrot/library/Data/Replace.pir [library]<br/>-runtime/parrot/library/Data/Sort.pir [library]<br/> runtime/parrot/library/Digest/MD5.pir [library]<br/> runtime/parrot/library/File/Spec.pir [library]<br/> runtime/parrot/library/File/Spec/Unix.pir [library]<br/>@@ -3161,7 +3160,6 @@<br/> t/library/pg.t []<br/> t/library/protoobject.t []<br/> t/library/range.t []<br/>-t/library/sort.t []<br/> t/library/streams.t []<br/> t/library/string_utils.t []<br/> t/library/tcl_glob.t []<br/><br/>Modified: trunk/MANIFEST.generated<br/>==============================================================================<br/>--- trunk/MANIFEST.generated (original)<br/>+++ trunk/MANIFEST.generated Wed Jan 28 17:11:27 2009<br/>@@ -218,7 +218,6 @@<br/> runtime/parrot/library/Data/Dumper/Base.pbc [main]<br/> runtime/parrot/library/Data/Dumper/Default.pbc [main]<br/> runtime/parrot/library/Data/Escape.pbc [main]<br/>-runtime/parrot/library/Data/Sort.pbc [main]<br/> runtime/parrot/library/Getopt/Obj.pbc [main]<br/> runtime/parrot/library/Math/Random/mt19937ar.pbc [main]<br/> runtime/parrot/library/MIME/Base64.pbc [main]<br/><br/>Modified: trunk/config/gen/makefiles/root.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/root.in (original)<br/>+++ trunk/config/gen/makefiles/root.in Wed Jan 28 17:11:27 2009<br/>@@ -243,7 +243,6 @@<br/> $(LIBRARY_DIR)/Data/Dumper/Default.pbc \<br/> $(LIBRARY_DIR)/Data/Dumper.pbc \<br/> $(LIBRARY_DIR)/Data/Escape.pbc \<br/>- $(LIBRARY_DIR)/Data/Sort.pbc \<br/> $(LIBRARY_DIR)/Digest/MD5.pbc \<br/> $(LIBRARY_DIR)/dumper.pbc \<br/> $(LIBRARY_DIR)/yaml_dumper.pbc \<br/><br/>Modified: trunk/runtime/parrot/library/JSON.pir<br/>==============================================================================<br/>--- trunk/runtime/parrot/library/JSON.pir (original)<br/>+++ trunk/runtime/parrot/library/JSON.pir Wed Jan 28 17:11:27 2009<br/>@@ -356,7 +356,6 @@<br/> .end<br/> <br/> .include &#39;library/Data/Escape.pir&#39;<br/>-.include &#39;library/Data/Sort.pir&#39;<br/> <br/> =back<br/> <br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36476.html Wed, 28 Jan 2009 17:11:52 +0000 [svn:parrot] r36126 - trunk by coke Author: coke<br/>Date: Wed Jan 28 16:52:45 2009<br/>New Revision: 36126<br/><br/>Modified:<br/> trunk/DEPRECATED.pod<br/><br/>Log:<br/>Track the string -&gt; str rename currently in progress.<br/><br/><br/><br/>Modified: trunk/DEPRECATED.pod<br/>==============================================================================<br/>--- trunk/DEPRECATED.pod (original)<br/>+++ trunk/DEPRECATED.pod Wed Jan 28 16:52:45 2009<br/>@@ -120,7 +120,7 @@<br/> <br/> =item string_repeat [post 0.9.1]<br/> <br/>-Use Parrot_string_repeat instead (TT #210)<br/>+Use Parrot_str_repeat instead (TT #210)<br/> <br/> =item src/pic.c and src/pic_jit.c [post 0.8.1]<br/> <br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36475.html Wed, 28 Jan 2009 16:53:11 +0000 [svn:parrot] r36124 - trunk by coke Author: coke<br/>Date: Wed Jan 28 16:37:20 2009<br/>New Revision: 36124<br/><br/>Modified:<br/> trunk/DEPRECATED.pod<br/><br/>Log:<br/>Track function replacement.<br/><br/><br/><br/>Modified: trunk/DEPRECATED.pod<br/>==============================================================================<br/>--- trunk/DEPRECATED.pod (original)<br/>+++ trunk/DEPRECATED.pod Wed Jan 28 16:37:20 2009<br/>@@ -118,6 +118,10 @@<br/> <br/> See RT #60626.<br/> <br/>+=item string_repeat [post 0.9.1]<br/>+<br/>+Use Parrot_string_repeat instead (TT #210)<br/>+<br/> =item src/pic.c and src/pic_jit.c [post 0.8.1]<br/> <br/> These two files were a thin prototype implementation of Polymorphic Inline<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36474.html Wed, 28 Jan 2009 16:37:36 +0000 [svn:parrot] r36123 - branches/pdd28str_part2 by allison Author: allison<br/>Date: Wed Jan 28 16:30:57 2009<br/>New Revision: 36123<br/><br/>Added:<br/> branches/pdd28str_part2/ (props changed)<br/> - copied from r36122, /trunk/<br/><br/>Log:<br/>Creating branch for the second-round strings refactor.<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36473.html Wed, 28 Jan 2009 16:31:07 +0000 [svn:parrot] r36122 - trunk/t by jkeenan Author: jkeenan<br/>Date: Wed Jan 28 16:22:50 2009<br/>New Revision: 36122<br/><br/>Modified:<br/> trunk/t/README<br/><br/>Log:<br/>Add entries for t/ subdirs not previously mentioned. Delete entries for t/ subdirs which have been superseded.<br/><br/>Modified: trunk/t/README<br/>==============================================================================<br/>--- trunk/t/README (original)<br/>+++ trunk/t/README Wed Jan 28 16:22:50 2009<br/>@@ -3,53 +3,58 @@<br/> <br/> This directory contains the Parrot test suite.<br/> <br/>-For details on how tests are written see the documentation in &#39;../docs/tests.pod&#39;.<br/>+For details on how tests are written see the documentation<br/>+in &#39;../docs/tests.pod&#39;.<br/> For status of the testing effort, see &#39;TESTS.STATUS.pod&#39; in this directory.<br/> The script &#39;harness&#39; actually runs the test suite.<br/> <br/> Below is a list of subdirs along with a short description<br/> of what is tested in there.<br/> <br/>-benchmark: Run benchmarks<br/>+benchmark: Run benchmarks.<br/> <br/>-codingstd: Conventions and Guidelines for Parrot Source Code<br/>+codingstd: Conventions and guidelines for Parrot source code.<br/> <br/>-compilers: Mini languages distributed with Parrot<br/>+compilers: Mini languages distributed with Parrot.<br/> <br/>-configure: Perl modules of configuration subsystem<br/>+configure: Perl modules of configuration subsystem.<br/> <br/>-distro: Tests run before a distribution is released<br/>+distro: Tests run before a distribution is released.<br/> <br/>-doc: Completeness and sanity of the documentation<br/>+doc: Completeness and sanity of the documentation.<br/> <br/>-dynoplibs: Dynamic opcode libraries<br/>+dynoplibs: Dynamic opcode libraries.<br/> <br/>-dynpmc: Dynamic PMCs<br/>+dynpmc: Dynamic PMCs.<br/> <br/>-examples: Check whether the examples are still working<br/>+examples: Check whether the examples are still working.<br/> <br/>-library: Parrot modules<br/>+library: Parrot modules.<br/> <br/>-native_pbc: Parrot Byte Code<br/>+manifest: Functionality supporting the creation of MANIFEST<br/>+ and related files.<br/> <br/>-oo: Object oriented features of Parrot<br/>+native_pbc: Parrot Byte Code.<br/> <br/>-op: Try to cover all core operators<br/>+oo: Object oriented features of Parrot.<br/> <br/>-pdd15oo: New version of the object support as specified in PDD15<br/>+op: Try to cover all core operators.<br/> <br/>-perl: Test Perl 5 modules used for configuration, building and testing of Parrot.<br/>+perl: Test Perl 5 modules used for configuration, building<br/>+ and testing of Parrot.<br/> <br/>-pmc: Try to cover all builtin PMCs<br/>+pharness: Functionality supporting Parrot&#39;s test harnesses.<br/>+<br/>+pmc: Try to cover all builtin PMCs.<br/> <br/> postconfigure: Tests of configuration system which cannot be run until<br/> configuration has completed.<br/> <br/>-run: Mostly command line options of the &#39;parrot&#39; executable<br/>+run: Mostly command line options of the &#39;parrot&#39; executable.<br/> <br/> src: Tests written in C.<br/> <br/>-stm: Storage transactional memory<br/>+steps: Steps in the Parrot configuration process.<br/> <br/> stress: Stress testing. Make Parrot sweat.<br/> <br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36472.html Wed, 28 Jan 2009 16:22:58 +0000 [svn:parrot] r36121 - trunk/docs/project by cotto Author: cotto<br/>Date: Wed Jan 28 15:28:56 2009<br/>New Revision: 36121<br/><br/>Modified:<br/> trunk/docs/project/release_manager_guide.pod<br/><br/>Log:<br/>[docs] add release managers through 1.6<br/><br/><br/>Modified: trunk/docs/project/release_manager_guide.pod<br/>==============================================================================<br/>--- trunk/docs/project/release_manager_guide.pod (original)<br/>+++ trunk/docs/project/release_manager_guide.pod Wed Jan 28 15:28:56 2009<br/>@@ -413,8 +413,17 @@<br/> determined each month, and will depend on the features actually present in<br/> that release.<br/> <br/>- - February 17, 2009 - 0.9.1<br/>- - March 17, 2009 - 1.0.0<br/>+ - February 17, 2009 - 0.9.1 - kjs<br/>+ - March 17, 2009 - 1.0.0 - allison<br/>+ - April 21, 2009 - 1.1 - fperrad<br/>+ - May 19, 2009 - 1.2 - tewk<br/>+ - June 16, 2009 - 1.3 - whiteknight<br/>+ - July 21, 2009 - 1.5 - cotto<br/>+ - August 18, 2009 - 1.6 - rgrjr<br/>+ - Sept 21, 2009 - 1.7 -<br/>+ - Oct 20, 2009 - 1.8 -<br/>+ - Nov 24, 2009 - 1.9 -<br/>+ - Dec 22, 2009 - 1.10 -<br/> <br/> =cut<br/> <br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36471.html Wed, 28 Jan 2009 15:29:21 +0000 [svn:parrot] r36120 - trunk/config/auto by rurban Author: rurban<br/>Date: Wed Jan 28 14:22:10 2009<br/>New Revision: 36120<br/><br/>Modified:<br/> trunk/config/auto/opengl.pm<br/><br/>Log:<br/>workaround cygwin internal glut32 linking problem<br/><br/>Modified: trunk/config/auto/opengl.pm<br/>==============================================================================<br/>--- trunk/config/auto/opengl.pm (original)<br/>+++ trunk/config/auto/opengl.pm Wed Jan 28 14:22:10 2009<br/>@@ -167,7 +167,7 @@<br/> # Prefer Cygwin/w32api over Cygwin/X, but use X when DISPLAY is set<br/> ($^O eq &#39;cygwin&#39;) ?<br/> ($ENV{DISPLAY} ? (cygwin =&gt; &#39;-lglut -L/usr/X11R6/lib -lGLU -lGL&#39;)<br/>- : (cygwin =&gt; &#39;-lglut32 -lglu32 -lopengl32&#39;))<br/>+ : (cygwin =&gt; &#39;/usr/bin/glut32.dll -lglu32 -lopengl32&#39;))<br/> : (),<br/> win32_gcc =&gt; &#39;-lglut32 -lglu32 -lopengl32&#39;,<br/> win32_nongcc =&gt; &#39;opengl32.lib glu32.lib glut32.lib&#39;,<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36470.html Wed, 28 Jan 2009 14:22:22 +0000 [svn:parrot] r36119 - in trunk: . languages/pipp by bernhard Author: bernhard<br/>Date: Wed Jan 28 12:37:22 2009<br/>New Revision: 36119<br/><br/>Modified:<br/> trunk/MANIFEST<br/> trunk/MANIFEST.SKIP<br/> trunk/languages/pipp/pipp.pir<br/><br/>Log:<br/>[Pipp] Make pipp.pir compile again, after adding PHC support<br/><br/>Modified: trunk/MANIFEST<br/>==============================================================================<br/>--- trunk/MANIFEST (original)<br/>+++ trunk/MANIFEST Wed Jan 28 12:37:22 2009<br/>@@ -1,5 +1,5 @@<br/> # ex: set ro:<br/>-# $Id$<br/>+# $Id: MANIFEST 36113 2009-01-28 20:10:21Z bernhard $<br/> #<br/> # generated by tools/dev/mk_manifest_and_skip.pl Wed Jan 28 20:09:00 2009 UT<br/> #<br/><br/>Modified: trunk/MANIFEST.SKIP<br/>==============================================================================<br/>--- trunk/MANIFEST.SKIP (original)<br/>+++ trunk/MANIFEST.SKIP Wed Jan 28 12:37:22 2009<br/>@@ -1,5 +1,5 @@<br/> # ex: set ro:<br/>-# $Id$<br/>+# $Id: MANIFEST.SKIP 36083 2009-01-28 08:13:34Z fperrad $<br/> # generated by tools/dev/mk_manifest_and_skip.pl Wed Jan 28 08:02:55 2009 UT<br/> #<br/> # This file should contain a transcript of the svn:ignore properties<br/><br/>Modified: trunk/languages/pipp/pipp.pir<br/>==============================================================================<br/>--- trunk/languages/pipp/pipp.pir (original)<br/>+++ trunk/languages/pipp/pipp.pir Wed Jan 28 12:37:22 2009<br/>@@ -181,10 +181,6 @@<br/> goto GOT_VARIANT<br/> <br/> GOT_VARIANT:<br/>- if variant == &#39;antlr3&#39; goto VARIANT_ANTLR3<br/>- if variant == &#39;ANTLR3&#39; goto VARIANT_ANTLR3<br/>- if variant == &#39;antlr&#39; goto VARIANT_ANTLR3<br/>- if variant == &#39;ANTLR&#39; goto VARIANT_ANTLR3<br/> if variant == &#39;pct&#39; goto VARIANT_PCT<br/> if variant == &#39;PCT&#39; goto VARIANT_PCT<br/> if variant == &#39;phc&#39; goto VARIANT_PHC<br/>@@ -215,8 +211,8 @@<br/> # work with the XML generated by PHC, the PHP Compiler<br/> err_msg = &#39;Creating XML-AST with phc failed&#39;<br/> cmd = &#39;phc --dump-ast-xml=ast &#39;<br/>- concat cmd, source_fn<br/>- concat cmd, &#39;&gt; pipp_phc_ast.xml&#39;<br/>+ cmd .= php_source_fn<br/>+ cmd .= &#39;&gt; pipp_phc_ast.xml&#39;<br/> ret = spawnw cmd<br/> if ret goto ERROR<br/> <br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36469.html Wed, 28 Jan 2009 12:37:49 +0000 [svn:parrot] r36118 - trunk/languages/pipp/src/phc by bernhard Author: bernhard<br/>Date: Wed Jan 28 12:31:27 2009<br/>New Revision: 36118<br/><br/>Modified:<br/> trunk/languages/pipp/src/phc/phc_xml_to_past_xml.xsl<br/><br/>Log:<br/>[Pipp] First stab at adapting to current phc XML-dump. TT #252<br/>Courtesy of James Michael DuPont<br/><br/><br/>Modified: trunk/languages/pipp/src/phc/phc_xml_to_past_xml.xsl<br/>==============================================================================<br/>--- trunk/languages/pipp/src/phc/phc_xml_to_past_xml.xsl (original)<br/>+++ trunk/languages/pipp/src/phc/phc_xml_to_past_xml.xsl Wed Jan 28 12:31:27 2009<br/>@@ -1,9 +1,15 @@<br/> &lt;?xml version=&#39;1.0&#39;?&gt;<br/> &lt;xsl:stylesheet<br/>- xmlns:phc=&quot;http://www.phpcompiler.org/phc-1.0&quot;<br/>+ xmlns:AST=&quot;http://www.phpcompiler.org/phc-1.1&quot;<br/> xmlns:past=&quot;http://www.parrotcode.org/PAST-0.1&quot;<br/> xmlns:xsl=&quot;http://www.w3.org/1999/XSL/Transform&quot;<br/> version=&quot;1.0&quot; &gt;<br/>+<br/>+&lt;!--<br/>+<br/>+TODO: AST:source_rep<br/>+<br/>+--&gt;<br/> &lt;!--<br/> <br/> $Id$<br/>@@ -15,235 +21,235 @@<br/> &lt;xsl:output method=&#39;xml&#39; indent=&#39;yes&#39; /&gt;<br/> <br/> &lt;xsl:template match=&quot;/&quot;&gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_php_script&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_script&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_php_script&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_class_def_list&quot; /&gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_script&quot; &gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_class_def_list&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_class_def_list&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_class_def&quot; /&gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_class_def_list&quot; &gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_class_def&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_class_def&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_class_def&quot; &gt;<br/> &lt;/xsl:template&gt;<br/>-&lt;xsl:template match=&quot;phc:AST_class_def[phc:Token_class_name[phc:value=&#39;%MAIN%&#39;]]&quot;&gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_member_list&quot; /&gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_class_def[AST:CLASS_NAME[AST:value=&#39;%MAIN%&#39;]]&quot;&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_member_list&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_member_list&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_method&quot; /&gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_member_list&quot; &gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_method&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_method&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_method&quot; &gt;<br/> &lt;/xsl:template&gt;<br/>-&lt;xsl:template match=&quot;phc:AST_method[phc:AST_signature[phc:Token_method_name[phc:value=&#39;%run%&#39;]]]&quot;&gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_statement_list&quot; /&gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_method[AST:PHP_signature[AST:METHOD_NAME[AST:value=&#39;%run%&#39;]]]&quot;&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_statement_list&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_statement_list&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_statement_list&quot; &gt;<br/> &lt;past:Stmts&gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_eval_expr&quot; /&gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_if&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_eval_expr&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_if&quot; /&gt;<br/> &lt;/past:Stmts&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_eval_expr&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_method_invocation&quot; /&gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_assignment&quot; /&gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_eval_expr&quot; &gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_method_invocation&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_assignment&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_method_invocation&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_method_invocation&quot; &gt;<br/> &lt;past:Op&gt;<br/>- &lt;xsl:attribute name=&quot;name&quot; &gt;&lt;xsl:value-of select=&quot;phc:Token_method_name/phc:value&quot; /&gt;&lt;/xsl:attribute&gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_actual_parameter_list&quot; /&gt;<br/>+ &lt;xsl:attribute name=&quot;name&quot; &gt;&lt;xsl:value-of select=&quot;AST:METHOD_NAME/AST:value&quot; /&gt;&lt;/xsl:attribute&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_actual_parameter_list&quot; /&gt;<br/> &lt;/past:Op&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_actual_parameter_list&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_actual_parameter&quot; /&gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_actual_parameter_list&quot; &gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_actual_parameter&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_actual_parameter&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot; phc:AST_method_invocation<br/>- | phc:Token_string<br/>- | phc:Token_int<br/>- | phc:Token_bool<br/>- | phc:Token_null<br/>- | phc:Token_real<br/>- | phc:AST_bin_op<br/>- | phc:AST_unary_op<br/>- | phc:AST_variable <br/>- | phc:AST_constant&quot; /&gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_actual_parameter&quot; &gt;<br/>+ &lt;xsl:apply-templates select=&quot; AST:PHP_method_invocation<br/>+ | AST:STRING<br/>+ | AST:INT<br/>+ | AST:BOOL<br/>+ | AST:NULL<br/>+ | AST:REAL<br/>+ | AST:PHP_bin_op<br/>+ | AST:PHP_unary_op<br/>+ | AST:PHP_variable <br/>+ | AST:PHP_constant&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_bin_op&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_bin_op&quot; &gt;<br/> &lt;past:Op&gt;<br/> <br/> &lt;xsl:attribute name=&quot;pirop&quot; &gt;<br/> &lt;xsl:choose&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;+&#39;&quot; &gt;n_add&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;-&#39;&quot; &gt;n_sub&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;*&#39;&quot; &gt;n_mul&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;/&#39;&quot; &gt;n_div&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;%&#39;&quot; &gt;n_mod&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;+&#39;&quot; &gt;n_add&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;-&#39;&quot; &gt;n_sub&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;*&#39;&quot; &gt;n_mul&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;/&#39;&quot; &gt;n_div&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;%&#39;&quot; &gt;n_mod&lt;/xsl:when&gt;<br/> &lt;/xsl:choose&gt;<br/> &lt;/xsl:attribute&gt;<br/> <br/> &lt;xsl:attribute name=&quot;name&quot; &gt;<br/> &lt;xsl:choose&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value/@encoding = &#39;base64&#39;&quot; &gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value/@encoding = &#39;base64&#39;&quot; &gt;<br/> &lt;xsl:choose&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;PA==&#39;&quot; &gt;infix:&amp;lt;&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;PD0=&#39;&quot; &gt;infix:&amp;lt;=&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;Pj0=&#39;&quot; &gt;infix:&amp;gt;=&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;Pg==&#39;&quot; &gt;infix:&amp;gt;&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;Jg==&#39;&quot; &gt;infix:&amp;amp;&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;PA==&#39;&quot; &gt;infix:&amp;lt;&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;PD0=&#39;&quot; &gt;infix:&amp;lt;=&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;Pj0=&#39;&quot; &gt;infix:&amp;gt;=&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;Pg==&#39;&quot; &gt;infix:&amp;gt;&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;Jg==&#39;&quot; &gt;infix:&amp;amp;&lt;/xsl:when&gt;<br/> &lt;/xsl:choose&gt;<br/> &lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;&amp;amp;&amp;amp;&#39;&quot; &gt;infix:AND&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_op/phc:value = &#39;||&#39;&quot; &gt;infix:OR&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;&amp;amp;&amp;amp;&#39;&quot; &gt;infix:AND&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:OP/AST:value = &#39;||&#39;&quot; &gt;infix:OR&lt;/xsl:when&gt;<br/> &lt;xsl:otherwise&gt;<br/>- &lt;xsl:value-of select=&quot;concat(&#39;infix:&#39;, phc:Token_op/phc:value)&quot; /&gt;<br/>+ &lt;xsl:value-of select=&quot;concat(&#39;infix:&#39;, AST:OP/AST:value)&quot; /&gt;<br/> &lt;/xsl:otherwise&gt;<br/> &lt;/xsl:choose&gt;<br/> &lt;/xsl:attribute&gt;<br/> <br/>- &lt;xsl:apply-templates select=&quot; phc:Token_string<br/>- | phc:Token_int<br/>- | phc:Token_real<br/>- | phc:AST_bin_op<br/>- | phc:AST_unary_op<br/>- | phc:AST_variable<br/>- | phc:AST_constant&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot; AST:STRING<br/>+ | AST:INT<br/>+ | AST:REAL<br/>+ | AST:PHP_bin_op<br/>+ | AST:PHP_unary_op<br/>+ | AST:PHP_variable<br/>+ | AST:PHP_constant&quot; /&gt;<br/> <br/> &lt;/past:Op&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_unary_op&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_unary_op&quot; &gt;<br/> &lt;past:Op &gt;<br/> &lt;xsl:attribute name=&quot;name&quot; &gt;<br/>- &lt;xsl:value-of select=&quot;concat(&#39;prefix:&#39;, phc:Token_op/phc:value)&quot; /&gt;<br/>+ &lt;xsl:value-of select=&quot;concat(&#39;prefix:&#39;, AST:OP/AST:value)&quot; /&gt;<br/> &lt;/xsl:attribute&gt;<br/>- &lt;xsl:apply-templates select=&quot; phc:Token_int<br/>- | phc:Token_real<br/>- | phc:AST_bin_op<br/>- | phc:AST_unary_op&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot; AST:INT<br/>+ | AST:REAL<br/>+ | AST:PHP_bin_op<br/>+ | AST:PHP_unary_op&quot; /&gt;<br/> &lt;/past:Op&gt;<br/> &lt;/xsl:template&gt;<br/> <br/> &lt;!-- value assignment --&gt;<br/>-&lt;xsl:template match=&quot;phc:AST_assignment[string(phc:bool) = &#39;false&#39;]&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_assignment[string(AST:BOOL) = &#39;false&#39;]&quot; &gt;<br/> &lt;past:Op name=&#39;infix:=&#39; pasttype=&#39;bind&#39; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_variable&quot; /&gt;<br/>- &lt;xsl:apply-templates select=&quot; phc:Token_string<br/>- | phc:Token_int<br/>- | phc:AST_bin_op<br/>- | phc:AST_constant&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_variable&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot; AST:STRING<br/>+ | AST:INT<br/>+ | AST:PHP_bin_op<br/>+ | AST:PHP_constant&quot; /&gt;<br/> &lt;/past:Op&gt;<br/> &lt;/xsl:template&gt;<br/> <br/> &lt;!-- aliasing --&gt;<br/>-&lt;xsl:template match=&quot;phc:AST_assignment[string(phc:bool) = &#39;true&#39;]&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_assignment[string(AST:BOOL) = &#39;true&#39;]&quot; &gt;<br/> &lt;past:Op name=&#39;infix::=&#39; pasttype=&#39;bind&#39; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_variable&quot; /&gt;<br/>- &lt;xsl:apply-templates select=&quot; phc:Token_string<br/>- | phc:Token_int<br/>- | phc:AST_bin_op<br/>- | phc:AST_constant&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_variable&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot; AST:STRING<br/>+ | AST:INT<br/>+ | AST:PHP_bin_op<br/>+ | AST:PHP_constant&quot; /&gt;<br/> &lt;/past:Op&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_variable&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_variable&quot; &gt;<br/> &lt;past:Var scope=&quot;package&quot; &gt;<br/> &lt;xsl:attribute name=&quot;name&quot; &gt;<br/>- &lt;xsl:value-of select=&quot;concat( &#39;$&#39;, phc:Token_variable_name/phc:value )&quot; /&gt;<br/>+ &lt;xsl:value-of select=&quot;concat( &#39;$&#39;, AST:VARIABLE_NAME/AST:value )&quot; /&gt;<br/> &lt;/xsl:attribute&gt;<br/> &lt;/past:Var&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_variable[ phc:AST_expr_list/phc:Token_string | phc:AST_expr_list/phc:Token_int ]&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_variable[ AST:PHP_expr_list/AST:STRING | AST:PHP_expr_list/AST:INT ]&quot; &gt;<br/> &lt;past:Var scope=&quot;keyed&quot; viviself=&quot;Undef&quot; lvalue=&quot;1&quot; &gt;<br/> &lt;xsl:choose&gt;<br/>- &lt;xsl:when test=&quot;phc:Token_variable_name/phc:value = &#39;_GET&#39; or phc:Token_variable_name/phc:value = &#39;_POST&#39;&quot; &gt;<br/>+ &lt;xsl:when test=&quot;AST:VARIABLE_NAME/AST:value = &#39;_GET&#39; or AST:VARIABLE_NAME/AST:value = &#39;_POST&#39;&quot; &gt;<br/> &lt;past:Var scope=&quot;package&quot; &gt;<br/>- &lt;xsl:attribute name=&quot;name&quot; &gt;&lt;xsl:value-of select=&quot;concat( &#39;$&#39;, phc:Token_variable_name/phc:value )&quot; /&gt;&lt;/xsl:attribute&gt;<br/>+ &lt;xsl:attribute name=&quot;name&quot; &gt;&lt;xsl:value-of select=&quot;concat( &#39;$&#39;, AST:VARIABLE_NAME/AST:value )&quot; /&gt;&lt;/xsl:attribute&gt;<br/> &lt;/past:Var&gt;<br/> &lt;/xsl:when&gt;<br/> &lt;xsl:otherwise&gt;<br/> &lt;past:Var viviself=&quot;PhpArray&quot; scope=&quot;package&quot; lvalue=&quot;1&quot; &gt;<br/>- &lt;xsl:attribute name=&quot;name&quot; &gt;&lt;xsl:value-of select=&quot;concat( &#39;$&#39;, phc:Token_variable_name/phc:value )&quot; /&gt;&lt;/xsl:attribute&gt;<br/>+ &lt;xsl:attribute name=&quot;name&quot; &gt;&lt;xsl:value-of select=&quot;concat( &#39;$&#39;, AST:VARIABLE_NAME/AST:value )&quot; /&gt;&lt;/xsl:attribute&gt;<br/> &lt;/past:Var&gt;<br/> &lt;/xsl:otherwise&gt;<br/> &lt;/xsl:choose&gt;<br/>- &lt;xsl:apply-templates select=&quot; phc:AST_expr_list/phc:Token_string<br/>- | phc:AST_expr_list/phc:Token_int&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot; AST:PHP_expr_list/AST:STRING<br/>+ | AST:PHP_expr_list/AST:INT&quot; /&gt;<br/> &lt;/past:Var&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_constant&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_constant&quot; &gt;<br/> &lt;past:Op name=&quot;constant&quot; &gt;<br/> &lt;past:Val returns=&quot;PhpString&quot; &gt;<br/>- &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:value-of select=&quot;phc:Token_constant_name/phc:value&quot; /&gt;&lt;/xsl:attribute&gt;<br/>+ &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:value-of select=&quot;AST:CONSTANT_NAME/AST:value&quot; /&gt;&lt;/xsl:attribute&gt;<br/> &lt;/past:Val&gt;<br/> &lt;/past:Op&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:Token_string&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:STRING&quot; &gt;<br/> &lt;past:Val returns=&quot;PhpString&quot; &gt;<br/>- &lt;xsl:attribute name=&quot;encoding&quot; &gt;&lt;xsl:value-of select=&quot;phc:value/@encoding&quot; /&gt;&lt;/xsl:attribute&gt;<br/>- &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:value-of select=&quot;phc:value&quot; /&gt;&lt;/xsl:attribute&gt;<br/>+ &lt;xsl:attribute name=&quot;encoding&quot; &gt;&lt;xsl:value-of select=&quot;AST:value/@encoding&quot; /&gt;&lt;/xsl:attribute&gt;<br/>+ &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:value-of select=&quot;AST:value&quot; /&gt;&lt;/xsl:attribute&gt;<br/> &lt;/past:Val&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:Token_int&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:INT&quot; &gt;<br/> &lt;past:Val returns=&quot;PhpInteger&quot; &gt;<br/>- &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:value-of select=&quot;phc:value&quot; /&gt;&lt;/xsl:attribute&gt;<br/>+ &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:value-of select=&quot;AST:value&quot; /&gt;&lt;/xsl:attribute&gt;<br/> &lt;/past:Val&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:Token_bool&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:BOOL&quot; &gt;<br/> &lt;past:Val returns=&quot;PhpBoolean&quot; &gt;<br/> &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:choose&gt;<br/>- &lt;xsl:when test=&quot;phc:value = &#39;True&#39;&quot; &gt;1&lt;/xsl:when&gt;<br/>- &lt;xsl:when test=&quot;phc:value = &#39;False&#39;&quot; &gt;0&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:value = &#39;True&#39;&quot; &gt;1&lt;/xsl:when&gt;<br/>+ &lt;xsl:when test=&quot;AST:value = &#39;False&#39;&quot; &gt;0&lt;/xsl:when&gt;<br/> &lt;/xsl:choose&gt;&lt;/xsl:attribute&gt;<br/> &lt;/past:Val&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:Token_null&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:BOOL&quot; &gt;<br/> &lt;past:Val returns=&quot;PhpNull&quot; &gt;<br/> &lt;xsl:attribute name=&quot;value&quot; &gt;0&lt;/xsl:attribute&gt;<br/> &lt;/past:Val&gt;<br/> &lt;/xsl:template&gt;<br/> <br/> &lt;!-- looks like phc is running into a floating point issue --&gt;<br/>-&lt;xsl:template match=&quot;phc:Token_real&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:REAL&quot; &gt;<br/> &lt;past:Val returns=&#39;PhpFloat&#39; &gt;<br/>- &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:value-of select=&quot;phc:source_rep&quot; /&gt;&lt;/xsl:attribute&gt;<br/>+ &lt;xsl:attribute name=&quot;value&quot; &gt;&lt;xsl:value-of select=&quot;AST:source_rep&quot; /&gt;&lt;/xsl:attribute&gt;<br/> &lt;/past:Val&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot; phc:value<br/>- | phc:source_rep&quot; &gt;<br/>+&lt;xsl:template match=&quot; AST:value<br/>+ | AST:source_rep&quot; &gt;<br/> &lt;xsl:value-of select=&quot;.&quot; /&gt;<br/> &lt;/xsl:template&gt;<br/> <br/>-&lt;xsl:template match=&quot;phc:AST_if&quot; &gt;<br/>+&lt;xsl:template match=&quot;AST:PHP_if&quot; &gt;<br/> &lt;past:Op pasttype=&quot;if&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot; phc:Token_string<br/>- | phc:Token_int<br/>- | phc:Token_real<br/>- | phc:AST_bin_op<br/>- | phc:AST_unary_op<br/>- | phc:AST_variable<br/>- | phc:AST_constant&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot; AST:STRING<br/>+ | AST:INT<br/>+ | AST:REAL<br/>+ | AST:PHP_bin_op<br/>+ | AST:PHP_unary_op<br/>+ | AST:PHP_variable<br/>+ | AST:PHP_constant&quot; /&gt;<br/> &lt;past:Block blocktype=&quot;immediate&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_statement_list[1]&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_statement_list[1]&quot; /&gt;<br/> &lt;/past:Block&gt;<br/> &lt;past:Block blocktype=&quot;immediate&quot; &gt;<br/>- &lt;xsl:apply-templates select=&quot;phc:AST_statement_list[2]&quot; /&gt;<br/>+ &lt;xsl:apply-templates select=&quot;AST:PHP_statement_list[2]&quot; /&gt;<br/> &lt;/past:Block&gt;<br/> &lt;/past:Op&gt;<br/> &lt;/xsl:template&gt;<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36468.html Wed, 28 Jan 2009 12:33:01 +0000 [svn:parrot] r36117 - trunk by coke Author: coke<br/>Date: Wed Jan 28 12:29:15 2009<br/>New Revision: 36117<br/><br/>Modified:<br/> trunk/DEPRECATED.pod<br/><br/>Log:<br/>This was already removed.<br/><br/><br/><br/>Modified: trunk/DEPRECATED.pod<br/>==============================================================================<br/>--- trunk/DEPRECATED.pod (original)<br/>+++ trunk/DEPRECATED.pod Wed Jan 28 12:29:15 2009<br/>@@ -157,11 +157,6 @@<br/> <br/> Replace usage with the escape opcode. See TT #107<br/> <br/>-=item DWIM [post 0.9.0]<br/>-<br/>-Hasn&#39;t been kept up to date; might move to the examples/ folder, but<br/>-doesn&#39;t need to be in stdlib. See TT #120<br/>-<br/> =back<br/> <br/> =cut<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36467.html Wed, 28 Jan 2009 12:30:17 +0000 [svn:parrot] r36116 - trunk/languages/pipp by bernhard Author: bernhard<br/>Date: Wed Jan 28 12:25:44 2009<br/>New Revision: 36116<br/><br/>Modified:<br/> trunk/languages/pipp/pipp.pir<br/><br/>Log:<br/>[Pipp] Adapt to changes in command line options of phc, TT #235<br/><br/><br/>Modified: trunk/languages/pipp/pipp.pir<br/>==============================================================================<br/>--- trunk/languages/pipp/pipp.pir (original)<br/>+++ trunk/languages/pipp/pipp.pir Wed Jan 28 12:25:44 2009<br/>@@ -214,7 +214,7 @@<br/> <br/> # work with the XML generated by PHC, the PHP Compiler<br/> err_msg = &#39;Creating XML-AST with phc failed&#39;<br/>- cmd = &#39;phc --dump-ast-xml &#39;<br/>+ cmd = &#39;phc --dump-ast-xml=ast &#39;<br/> concat cmd, source_fn<br/> concat cmd, &#39;&gt; pipp_phc_ast.xml&#39;<br/> ret = spawnw cmd<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36466.html Wed, 28 Jan 2009 12:27:08 +0000 [svn:parrot] r36115 - in trunk/config: auto gen gen/makefiles by fperrad Author: fperrad<br/>Date: Wed Jan 28 12:24:16 2009<br/>New Revision: 36115<br/><br/>Modified:<br/> trunk/config/auto/perldoc.pm<br/> trunk/config/gen/makefiles.pm<br/> trunk/config/gen/makefiles/docs.in<br/><br/>Log:<br/>[configure] the generation of &#39;docs/Makefile&#39; is not longer a special case<br/><br/>Modified: trunk/config/auto/perldoc.pm<br/>==============================================================================<br/>--- trunk/config/auto/perldoc.pm (original)<br/>+++ trunk/config/auto/perldoc.pm Wed Jan 28 12:24:16 2009<br/>@@ -46,6 +46,48 @@<br/> <br/> _handle_version($conf, $version, $cmd);<br/> <br/>+ my $TEMP_pod_build = &lt;&lt;&#39;E_NOTE&#39;;<br/>+<br/>+# the following part of the Makefile was built by &#39;config/auto/perldoc.pm&#39;<br/>+<br/>+E_NOTE<br/>+<br/>+ opendir OPS, &#39;src/ops&#39; or die &quot;opendir ops: $!&quot;;<br/>+ my @ops = sort grep { !/^\./ &amp;&amp; /\.ops$/ } readdir OPS;<br/>+ closedir OPS;<br/>+<br/>+ my $TEMP_pod = join q{ } =&gt;<br/>+ map { my $t = $_; $t =~ s/\.ops$/.pod/; &quot;ops/$t&quot; } @ops;<br/>+<br/>+ my $slash = $conf-&gt;data-&gt;get(&#39;slash&#39;);<br/>+ my $new_perldoc = $conf-&gt;data-&gt;get(&#39;new_perldoc&#39;);<br/>+<br/>+ foreach my $ops (@ops) {<br/>+ my $pod = $ops;<br/>+ $pod =~ s/\.ops$/.pod/;<br/>+ if ( $new_perldoc ) {<br/>+ $TEMP_pod_build .= &lt;&lt;&quot;END&quot;<br/>+ops$slash$pod: ..${slash}src${slash}ops${slash}$ops<br/>+\t\$(PERLDOC) -ud ops${slash}$pod ..${slash}src${slash}ops${slash}$ops<br/>+\t\$(CHMOD) 0644 ops${slash}$pod<br/>+<br/>+END<br/>+ }<br/>+ else {<br/>+ $TEMP_pod_build .= &lt;&lt;&quot;END&quot;<br/>+ops$slash$pod: ..${slash}src${slash}ops${slash}$ops<br/>+\t\$(PERLDOC) -u ..${slash}ops${slash}$ops &gt; ops${slash}$pod<br/>+\t\$(CHMOD) 0644 ..${slash}ops${slash}$pod<br/>+<br/>+END<br/>+ }<br/>+ }<br/>+<br/>+ $conf-&gt;data-&gt;set(<br/>+ TEMP_pod =&gt; $TEMP_pod,<br/>+ TEMP_pod_build =&gt; $TEMP_pod_build,<br/>+ );<br/>+<br/> return 1;<br/> }<br/> <br/><br/>Modified: trunk/config/gen/makefiles.pm<br/>==============================================================================<br/>--- trunk/config/gen/makefiles.pm (original)<br/>+++ trunk/config/gen/makefiles.pm Wed Jan 28 12:24:16 2009<br/>@@ -78,7 +78,6 @@<br/> my ( $self, $conf ) = @_;<br/> <br/> $self-&gt;makefiles($conf);<br/>- $conf-&gt;append_configure_log(&#39;docs/Makefile&#39;);<br/> $self-&gt;cflags($conf);<br/> <br/> return 1;<br/>@@ -123,55 +122,7 @@<br/> my $args = $self-&gt;{makefiles}-&gt;{$target};<br/> my $source = delete $args-&gt;{SOURCE};<br/> <br/>- if ( $target ne &#39;docs/Makefile&#39; ) {<br/>- $conf-&gt;genfile($source =&gt; $target, %$args );<br/>- }<br/>- else {<br/>-<br/>- if ( $conf-&gt;data-&gt;get(&#39;has_perldoc&#39;) ) {<br/>-<br/>- # set up docs/Makefile, partly based on the .ops in the root dir<br/>-<br/>- opendir OPS, &quot;src/ops&quot; or die &quot;opendir ops: $!&quot;;<br/>- my @ops = sort grep { !/^\./ &amp;&amp; /\.ops$/ } readdir OPS;<br/>- closedir OPS;<br/>-<br/>- my $pod = join &quot; &quot; =&gt;<br/>- map { my $t = $_; $t =~ s/\.ops$/.pod/; &quot;ops/$t&quot; } @ops;<br/>-<br/>- $conf-&gt;data-&gt;set( pod =&gt; $pod );<br/>-<br/>- $conf-&gt;genfile($source =&gt; $target, %$args );<br/>-<br/>- $conf-&gt;data-&gt;set( pod =&gt; undef );<br/>-<br/>- open my $MAKEFILE, &quot;&gt;&gt;&quot;, &quot;docs/Makefile&quot;<br/>- or die &quot;open &gt;&gt; docs/Makefile: $!&quot;;<br/>-<br/>- my $slash = $conf-&gt;data-&gt;get(&#39;slash&#39;);<br/>- my $new_perldoc = $conf-&gt;data-&gt;get(&#39;new_perldoc&#39;);<br/>-<br/>- foreach my $ops (@ops) {<br/>- my $pod = $ops;<br/>- $pod =~ s/\.ops$/.pod/;<br/>- print {$MAKEFILE} &quot;ops$slash$pod: ..${slash}src${slash}ops${slash}$ops\n&quot;;<br/>- if ( $new_perldoc == 1 ) {<br/>- print {$MAKEFILE} &quot;\t\$(PERLDOC) -ud ops${slash}$pod&quot;<br/>- . &quot; ..${slash}src${slash}ops${slash}$ops\n&quot;;<br/>- print {$MAKEFILE} &quot;\t\$(CHMOD) 0644 ops${slash}$pod\n\n&quot;;<br/>- }<br/>- else {<br/>- print {$MAKEFILE} &quot;\t\$(PERLDOC) -u ..${slash}ops${slash}$ops&quot;<br/>- . &quot; &gt; ops${slash}$pod\n&quot;;<br/>- print {$MAKEFILE} &quot;\t\$(CHMOD) 0644 ..${slash}ops${slash}$pod\n\n&quot;;<br/>- }<br/>- }<br/>-<br/>- }<br/>- else {<br/>- print &quot;\nNo Perldoc, not generating a docs makefile.\n&quot;;<br/>- }<br/>- }<br/>+ $conf-&gt;genfile($source =&gt; $target, %$args );<br/> }<br/> return;<br/> }<br/><br/>Modified: trunk/config/gen/makefiles/docs.in<br/>==============================================================================<br/>--- trunk/config/gen/makefiles/docs.in (original)<br/>+++ trunk/config/gen/makefiles/docs.in Wed Jan 28 12:24:16 2009<br/>@@ -9,7 +9,7 @@<br/> PERLDOC = @perldoc@<br/> <br/> # long list of .pod files<br/>-POD = @pod@<br/>+POD = @TEMP_pod@<br/> <br/> #<br/> # Targets<br/>@@ -35,7 +35,7 @@<br/> $(MKPATH) ops<br/> <br/> packfile-c.pod: ../src/packfile.c<br/>-#IF(new_perldoc): $(PERLDOC) -ud packfile-c.pod ../src/packfile.c <br/>+#IF(new_perldoc): $(PERLDOC) -ud packfile-c.pod ../src/packfile.c<br/> #ELSE: $(PERLDOC) -u ../src/packfile.c &gt; packfile-c.pod<br/> <br/> clean:<br/>@@ -47,3 +47,4 @@<br/> html-clean:<br/> $(PERL) -I../lib -MParrot::Distribution -e &quot;Parrot::Distribution-&gt;new()-&gt;delete_html_docs()&quot;<br/> <br/>+@TEMP_pod_build@<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36465.html Wed, 28 Jan 2009 12:24:28 +0000 [svn:parrot] r36114 - in trunk/languages/pipp: . t by bernhard Author: bernhard<br/>Date: Wed Jan 28 12:23:29 2009<br/>New Revision: 36114<br/><br/>Modified:<br/> trunk/languages/pipp/pipp.pir<br/> trunk/languages/pipp/t/harness<br/><br/>Log:<br/>[Pipp] Re-add some more code for PHC support<br/><br/><br/>Modified: trunk/languages/pipp/pipp.pir<br/>==============================================================================<br/>--- trunk/languages/pipp/pipp.pir (original)<br/>+++ trunk/languages/pipp/pipp.pir Wed Jan 28 12:23:29 2009<br/>@@ -2,7 +2,7 @@<br/> <br/> =head1 NAME<br/> <br/>-pipp.pir - driver program for Pipp<br/>+pipp.pir - driver program for Pipp, PCT and PHC variants<br/> <br/> =head1 SYNOPSIS<br/> <br/>@@ -12,11 +12,26 @@<br/> <br/> ./pipp t/in_php/01_sea_only.t<br/> <br/>+ ./pipp --variant=pct t/in_php/01_sea_only.t<br/>+<br/>+ ./pipp --variant=phc t/in_php/01_sea_only.t<br/>+ ./pipp --run-nqp t.nqp<br/>+<br/> =head1 DESCRIPTION<br/> <br/> pipp.pbc is the driver for Pipp.<br/> <br/>-Parse PHP and generate PAST with the Parrot compiler toolkit.<br/>+=head1 Variants<br/>+<br/>+=head2 Pipp pct<br/>+<br/>+Parse PHP with the Parrot compiler toolkit. This is the default variant.<br/>+<br/>+=head2 Pipp phc<br/>+<br/>+Take XML from phc and transform it with XSLT to PIR setting up PAST.<br/>+Run the PAST with the help of PCT.<br/>+<br/> <br/> =head1 SEE ALSO<br/> <br/>@@ -142,14 +157,45 @@<br/> output = opt[&#39;output&#39;]<br/> <br/> # look at commandline and decide what to do<br/>- .local string cmd, err_msg<br/>+ .local string cmd, err_msg, variant<br/> .local int ret<br/> <br/> # run the NQP-code when called with --run-nqp<br/> $I0 = defined opt[&#39;run-nqp&#39;]<br/> if $I0 goto RUN_NQP<br/> <br/>- # use the Parrot Compiler Toolkit<br/>+ # check for the variant from the commandline or from the environment<br/>+ $I0 = defined opt[&#39;variant&#39;]<br/>+ unless $I0 goto GET_VARIANT_FROM_ENV<br/>+ variant = opt[&#39;variant&#39;]<br/>+ goto GOT_VARIANT<br/>+GET_VARIANT_FROM_ENV:<br/>+ .local pmc env<br/>+ env = new &#39;Env&#39;<br/>+ $I0 = exists env[&#39;PIPP_VARIANT&#39;]<br/>+ unless $I0 goto USE_DEFAULT_VARIANT<br/>+ variant = env[&#39;PIPP_VARIANT&#39;]<br/>+ goto GOT_VARIANT<br/>+USE_DEFAULT_VARIANT:<br/>+ variant = &#39;pct&#39;<br/>+ goto GOT_VARIANT<br/>+<br/>+GOT_VARIANT:<br/>+ if variant == &#39;antlr3&#39; goto VARIANT_ANTLR3<br/>+ if variant == &#39;ANTLR3&#39; goto VARIANT_ANTLR3<br/>+ if variant == &#39;antlr&#39; goto VARIANT_ANTLR3<br/>+ if variant == &#39;ANTLR&#39; goto VARIANT_ANTLR3<br/>+ if variant == &#39;pct&#39; goto VARIANT_PCT<br/>+ if variant == &#39;PCT&#39; goto VARIANT_PCT<br/>+ if variant == &#39;phc&#39; goto VARIANT_PHC<br/>+ if variant == &#39;PHC&#39; goto VARIANT_PHC<br/>+ err_msg = &quot;Unknown pipp variant: &#39;&quot;<br/>+ err_msg .= variant<br/>+ err_msg .= &quot;&#39;.&quot;<br/>+ goto ERROR<br/>+<br/>+VARIANT_PCT:<br/>+ # use the Parrot Compiler Toolkit by default<br/> .local pmc pipp_compiler<br/> pipp_compiler = compreg &#39;Pipp&#39;<br/> <br/>@@ -162,6 +208,34 @@<br/> # $P0( args )<br/> .tailcall pipp_compiler.&#39;command_line&#39;( args, &#39;target&#39; =&gt; target, &#39;output&#39; =&gt; output )<br/> <br/>+VARIANT_PHC:<br/>+ .local string phc_src_dir<br/>+ phc_src_dir = concat build_dir, &#39;/languages/pipp/src/phc&#39;<br/>+<br/>+ # work with the XML generated by PHC, the PHP Compiler<br/>+ err_msg = &#39;Creating XML-AST with phc failed&#39;<br/>+ cmd = &#39;phc --dump-ast-xml &#39;<br/>+ concat cmd, source_fn<br/>+ concat cmd, &#39;&gt; pipp_phc_ast.xml&#39;<br/>+ ret = spawnw cmd<br/>+ if ret goto ERROR<br/>+<br/>+ err_msg = &#39;Creating XML-PAST with xsltproc failed&#39;<br/>+ cmd = &#39;xsltproc &#39;<br/>+ cmd .= phc_src_dir<br/>+ cmd .= &#39;/phc_xml_to_past_xml.xsl pipp_phc_ast.xml &gt; pipp_phc_past.xml&#39;<br/>+ ret = spawnw cmd<br/>+ if ret goto ERROR<br/>+<br/>+ err_msg = &#39;Creating NQP with xsltproc failed&#39;<br/>+ cmd = &#39;xsltproc &#39;<br/>+ cmd .= phc_src_dir<br/>+ cmd .= &#39;/past_xml_to_past_nqp.xsl pipp_phc_past.xml &gt; pipp_phc_past.nqp&#39;<br/>+ ret = spawnw cmd<br/>+ if ret goto ERROR<br/>+<br/>+ .tailcall run_nqp( &#39;pipp_phc_past.nqp&#39;, target )<br/>+<br/> RUN_NQP:<br/> .tailcall run_nqp( php_source_fn, target )<br/> <br/>@@ -235,6 +309,7 @@<br/> <br/> # Pipp specific command line options<br/> push getopts, &#39;f=s&#39; # source file<br/>+ push getopts, &#39;variant=s&#39; # switch between variants<br/> push getopts, &#39;target=s&#39; # compilation target, used during development<br/> push getopts, &#39;run-nqp&#39; # run PAST set up in NQP<br/> push getopts, &#39;output|o=s&#39;<br/><br/>Modified: trunk/languages/pipp/t/harness<br/>==============================================================================<br/>--- trunk/languages/pipp/t/harness (original)<br/>+++ trunk/languages/pipp/t/harness Wed Jan 28 12:23:29 2009<br/>@@ -11,6 +11,10 @@<br/> <br/> cd languages/pipp &amp;&amp; perl t/harness <br/> <br/>+ cd languages/pipp &amp;&amp; perl t/harness --with-phc<br/>+<br/>+ cd languages/pipp &amp;&amp; perl t/harness --with-pct<br/>+<br/> cd languages/pipp &amp;&amp; perl t/harness --verbose t/hello.t <br/> <br/> =head1 DESCRIPTION<br/>@@ -22,6 +26,9 @@<br/> If I&#39;m called with no args, I run the complete suite.<br/> <br/> Otherwise I run the tests that were passed on the command line.<br/>+The options C&lt;--with-pct&gt; and C&lt;--with-phc&gt; select<br/>+the variant of Pipp. Default is the PCT variant, using the<br/>+Parrot Compiler Toolkit.<br/> <br/> =cut<br/> <br/>@@ -41,7 +48,7 @@<br/> use Parrot::Test;<br/> <br/> my ( $files_flag, $master_flag, $send_to_smolder_flag, $archive_flag, $verbose_flag );<br/>-my ( $php_flag, $pct_flag);<br/>+my ( $php_flag, $pct_flag, $phc_flag);<br/> GetOptions(<br/> &#39;files&#39; =&gt; \$files_flag,<br/> &#39;master&#39; =&gt; \$master_flag, # unused, but passed by languages/t/harness<br/>@@ -49,6 +56,7 @@<br/> &#39;archive&#39; =&gt; \$archive_flag,<br/> &#39;verbose&#39; =&gt; \$verbose_flag,<br/> &#39;with-pct&#39; =&gt; \$pct_flag,<br/>+ &#39;with-phc&#39; =&gt; \$phc_flag,<br/> &#39;with-php&#39; =&gt; \$php_flag,<br/> );<br/> <br/>@@ -73,6 +81,10 @@<br/> $ENV{PARROT_PIPP_TEST_MODULE} = &#39;Parrot::Test::Pipp::PHP&#39;;<br/> @cmd = qw{ php-cgi -q -C -n } ;<br/> }<br/>+ elsif ( $phc_flag ) {<br/>+ $ENV{PARROT_PIPP_TEST_MODULE} = &#39;Parrot::Test::Pipp::Phc&#39;;<br/>+ push @cmd, &#39;--variant=phc&#39;;<br/>+ }<br/> elsif ( $pct_flag ) {<br/> $ENV{PARROT_PIPP_TEST_MODULE} = &#39;Parrot::Test::Pipp::PCT&#39;;<br/> }<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36464.html Wed, 28 Jan 2009 12:23:43 +0000 [svn:parrot] r36113 - in trunk: . languages/pipp/lib/Parrot/Test/Pipp languages/pipp/src/phc by bernhard Author: bernhard<br/>Date: Wed Jan 28 12:10:21 2009<br/>New Revision: 36113<br/><br/>Added:<br/> trunk/languages/pipp/lib/Parrot/Test/Pipp/Phc.pm<br/> - copied unchanged from r36112, /tags/RELEASE_0_8_2/languages/pipp/lib/Parrot/Test/Pipp/Phc.pm<br/> trunk/languages/pipp/src/phc/<br/> - copied from r36112, /tags/RELEASE_0_8_2/languages/pipp/src/phc/<br/>Modified:<br/> trunk/MANIFEST<br/><br/>Log:<br/>[Pipp] Add code for the PHC variant again, as there is new interest<br/><br/><br/>Modified: trunk/MANIFEST<br/>==============================================================================<br/>--- trunk/MANIFEST (original)<br/>+++ trunk/MANIFEST Wed Jan 28 12:10:21 2009<br/>@@ -1,7 +1,7 @@<br/> # ex: set ro:<br/> # $Id$<br/> #<br/>-# generated by tools/dev/mk_manifest_and_skip.pl Wed Jan 28 08:02:55 2009 UT<br/>+# generated by tools/dev/mk_manifest_and_skip.pl Wed Jan 28 20:09:00 2009 UT<br/> #<br/> # See tools/dev/install_files.pl for documentation on the<br/> # format of this file.<br/>@@ -2030,6 +2030,7 @@<br/> languages/pipp/lib/Parrot/Test/Pipp.pm [pipp]<br/> languages/pipp/lib/Parrot/Test/Pipp/PCT.pm [pipp]<br/> languages/pipp/lib/Parrot/Test/Pipp/PHP.pm [pipp]<br/>+languages/pipp/lib/Parrot/Test/Pipp/Phc.pm [pipp]<br/> languages/pipp/past_xml.xsd [pipp]<br/> languages/pipp/pipp.pir [pipp]<br/> languages/pipp/src/build/genskel.pl [pipp]<br/>@@ -2159,6 +2160,8 @@<br/> languages/pipp/src/pct/actions.pm [pipp]<br/> languages/pipp/src/pct/grammar.pg [pipp]<br/> languages/pipp/src/pct/quote_expression.pir [pipp]<br/>+languages/pipp/src/phc/past_xml_to_past_nqp.xsl [pipp]<br/>+languages/pipp/src/phc/phc_xml_to_past_xml.xsl [pipp]<br/> languages/pipp/src/pmc/php.pmc [pipp]<br/> languages/pipp/src/pmc/php_private.h [pipp]<br/> languages/pipp/src/pmc/phparray.pmc [pipp]<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36463.html Wed, 28 Jan 2009 12:10:45 +0000 [svn:parrot] r36112 - trunk/lib/Parrot/Configure by rurban Author: rurban<br/>Date: Wed Jan 28 12:01:56 2009<br/>New Revision: 36112<br/><br/>Modified:<br/> trunk/lib/Parrot/Configure/Messages.pm<br/><br/>Log:<br/>TT #251 fix Configure copyright year, patch by Gerd Pokorra<br/><br/><br/>Modified: trunk/lib/Parrot/Configure/Messages.pm<br/>==============================================================================<br/>--- trunk/lib/Parrot/Configure/Messages.pm (original)<br/>+++ trunk/lib/Parrot/Configure/Messages.pm Wed Jan 28 12:01:56 2009<br/>@@ -1,4 +1,4 @@<br/>-# Copyright (C) 2001-2007, The Perl Foundation.<br/>+# Copyright (C) 2001-2009, The Perl Foundation.<br/> # $Id$<br/> <br/> package Parrot::Configure::Messages;<br/>@@ -17,7 +17,7 @@<br/> my $parrot_version = shift;<br/> print &lt;&lt;&quot;END&quot;;<br/> Parrot Version $parrot_version Configure 2.0<br/>-Copyright (C) 2001-2008, The Perl Foundation.<br/>+Copyright (C) 2001-2009, The Perl Foundation.<br/> <br/> Hello, I&#39;m Configure. My job is to poke and prod your system to figure out<br/> how to build Parrot. The process is completely automated, unless you passed in<br/> http://www.nntp.perl.org/group/perl.cvs.parrot/2009/01/msg36462.html Wed, 28 Jan 2009 12:02:12 +0000