[svn:parrot] r46087 - in branches/pbc_frozen_strings1: . examples/benchmarks src src/pmc t/pmc

plobsing at svn.parrot.org plobsing at svn.parrot.org
Wed Apr 28 01:02:44 UTC 2010


Author: plobsing
Date: Wed Apr 28 01:02:43 2010
New Revision: 46087
URL: https://trac.parrot.org/parrot/changeset/46087

Log:
add Parrot_freeze_strings to wrap ImageIOStrings PMC calls

also manifest_and_skip + svn prop updatess

Modified:
   branches/pbc_frozen_strings1/MANIFEST
   branches/pbc_frozen_strings1/MANIFEST.SKIP
   branches/pbc_frozen_strings1/examples/benchmarks/stress_strings.pir   (props changed)
   branches/pbc_frozen_strings1/src/pmc/imageiostrings.pmc   (contents, props changed)
   branches/pbc_frozen_strings1/src/pmc_freeze.c
   branches/pbc_frozen_strings1/t/pmc/imageiostrings.t   (props changed)

Modified: branches/pbc_frozen_strings1/MANIFEST
==============================================================================
--- branches/pbc_frozen_strings1/MANIFEST	Wed Apr 28 00:48:18 2010	(r46086)
+++ branches/pbc_frozen_strings1/MANIFEST	Wed Apr 28 01:02:43 2010	(r46087)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Mon Apr 26 12:41:21 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Wed Apr 28 01:59:45 2010 UT
 #
 # See below for documentation on the format of this file.
 #
@@ -1350,6 +1350,7 @@
 src/pmc/hashiteratorkey.pmc                                 []
 src/pmc/imageio.pmc                                         []
 src/pmc/imageiosize.pmc                                     []
+src/pmc/imageiostrings.pmc                                  []
 src/pmc/integer.pmc                                         []
 src/pmc/iterator.pmc                                        []
 src/pmc/key.pmc                                             []
@@ -1820,6 +1821,7 @@
 t/pmc/hashiteratorkey.t                                     [test]
 t/pmc/imageio.t                                             [test]
 t/pmc/imageiosize.t                                         [test]
+t/pmc/imageiostrings.t                                      [test]
 t/pmc/integer.t                                             [test]
 t/pmc/io.t                                                  [test]
 t/pmc/io_iterator.t                                         [test]

Modified: branches/pbc_frozen_strings1/MANIFEST.SKIP
==============================================================================
--- branches/pbc_frozen_strings1/MANIFEST.SKIP	Wed Apr 28 00:48:18 2010	(r46086)
+++ branches/pbc_frozen_strings1/MANIFEST.SKIP	Wed Apr 28 01:02:43 2010	(r46087)
@@ -1,6 +1,6 @@
 # ex: set ro:
 # $Id$
-# generated by tools/dev/mk_manifest_and_skip.pl Mon Apr 26 12:41:21 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Wed Apr 28 01:59:45 2010 UT
 #
 # This file should contain a transcript of the svn:ignore properties
 # of the directories in the Parrot subversion repository. (Needed for
@@ -188,37 +188,6 @@
 ^compilers/imcc/imcparser\.h/
 ^compilers/imcc/imcparser\.output$
 ^compilers/imcc/imcparser\.output/
-# generated from svn:ignore of 'compilers/json/'
-^compilers/json/JSON\.pbc$
-^compilers/json/JSON\.pbc/
-# generated from svn:ignore of 'compilers/json/JSON/'
-^compilers/json/JSON/.*\.pbc$
-^compilers/json/JSON/.*\.pbc/
-^compilers/json/JSON/.*\.pir$
-^compilers/json/JSON/.*\.pir/
-# generated from svn:ignore of 'compilers/ncigen/'
-^compilers/ncigen/Makefile$
-^compilers/ncigen/Makefile/
-^compilers/ncigen/ncigen\.pbc$
-^compilers/ncigen/ncigen\.pbc/
-# generated from svn:ignore of 'compilers/ncigen/src/'
-^compilers/ncigen/src/gen_actions\.pir$
-^compilers/ncigen/src/gen_actions\.pir/
-^compilers/ncigen/src/gen_builtins\.pir$
-^compilers/ncigen/src/gen_builtins\.pir/
-^compilers/ncigen/src/gen_grammar\.pir$
-^compilers/ncigen/src/gen_grammar\.pir/
-# generated from svn:ignore of 'compilers/nqp/'
-^compilers/nqp/nqp\.pbc$
-^compilers/nqp/nqp\.pbc/
-# generated from svn:ignore of 'compilers/nqp/bootstrap/'
-^compilers/nqp/bootstrap/gen_actions\.pir$
-^compilers/nqp/bootstrap/gen_actions\.pir/
-^compilers/nqp/bootstrap/nqp\.pbc$
-^compilers/nqp/bootstrap/nqp\.pbc/
-# generated from svn:ignore of 'compilers/nqp/src/'
-^compilers/nqp/src/Grammar_gen\.pir$
-^compilers/nqp/src/Grammar_gen\.pir/
 # generated from svn:ignore of 'compilers/pct/src/PAST/'
 ^compilers/pct/src/PAST/.*\.pbc$
 ^compilers/pct/src/PAST/.*\.pbc/
@@ -554,6 +523,9 @@
 ^runtime/parrot/include/.*\.pasm/
 ^runtime/parrot/include/.*\.pbc$
 ^runtime/parrot/include/.*\.pbc/
+# generated from svn:ignore of 'runtime/parrot/languages/'
+^runtime/parrot/languages/data_json$
+^runtime/parrot/languages/data_json/
 # generated from svn:ignore of 'runtime/parrot/library/'
 ^runtime/parrot/library/.*\.pbc$
 ^runtime/parrot/library/.*\.pbc/
@@ -781,8 +753,6 @@
 # generated from svn:ignore of 'src/gc/'
 ^src/gc/.*\.bundle$
 ^src/gc/.*\.bundle/
-^src/gc/.*\.c$
-^src/gc/.*\.c/
 ^src/gc/.*\.def$
 ^src/gc/.*\.def/
 ^src/gc/.*\.dll$
@@ -892,6 +862,13 @@
 ^t/benchmark/.*\.pasm/
 ^t/benchmark/.*\.pir$
 ^t/benchmark/.*\.pir/
+# generated from svn:ignore of 't/compilers/data_json/'
+^t/compilers/data_json/.*\.pbc$
+^t/compilers/data_json/.*\.pbc/
+^t/compilers/data_json/.*\.pir$
+^t/compilers/data_json/.*\.pir/
+^t/compilers/data_json/.*_pbcexe$
+^t/compilers/data_json/.*_pbcexe/
 # generated from svn:ignore of 't/compilers/imcc/'
 ^t/compilers/imcc/.*\.pbc$
 ^t/compilers/imcc/.*\.pbc/
@@ -922,13 +899,6 @@
 ^t/compilers/imcc/syn/.*\.pir/
 ^t/compilers/imcc/syn/.*_pbcexe.*$
 ^t/compilers/imcc/syn/.*_pbcexe.*/
-# generated from svn:ignore of 't/compilers/json/'
-^t/compilers/json/.*\.pbc$
-^t/compilers/json/.*\.pbc/
-^t/compilers/json/.*\.pir$
-^t/compilers/json/.*\.pir/
-^t/compilers/json/.*_pbcexe$
-^t/compilers/json/.*_pbcexe/
 # generated from svn:ignore of 't/compilers/pct/'
 ^t/compilers/pct/.*\.pbc$
 ^t/compilers/pct/.*\.pbc/

Modified: branches/pbc_frozen_strings1/src/pmc/imageiostrings.pmc
==============================================================================
--- branches/pbc_frozen_strings1/src/pmc/imageiostrings.pmc	Wed Apr 28 00:48:18 2010	(r46086)
+++ branches/pbc_frozen_strings1/src/pmc/imageiostrings.pmc	Wed Apr 28 01:02:43 2010	(r46087)
@@ -1,6 +1,6 @@
 /*
 Copyright (C) 2010, Parrot Foundation.
-$Id: imageiosize.pmc 45290 2010-03-29 23:41:28Z petdance $
+$Id$
 
 =head1 NAME
 

Modified: branches/pbc_frozen_strings1/src/pmc_freeze.c
==============================================================================
--- branches/pbc_frozen_strings1/src/pmc_freeze.c	Wed Apr 28 00:48:18 2010	(r46086)
+++ branches/pbc_frozen_strings1/src/pmc_freeze.c	Wed Apr 28 01:02:43 2010	(r46087)
@@ -90,6 +90,29 @@
 
 /*
 
+=item C<PMC *Parrot_freeze_strings(PARROT_INTERP, PMC *pmc)>
+
+Get the strings of a PMC to be frozen.
+
+Used in C<???>.
+
+=cut
+
+*/
+
+PARROT_EXPORT
+PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+PMC *
+Parrot_freeze_strings(PARROT_INTERP, PMC *pmc) {
+    PMC *visitor = Parrot_pmc_new(interp, enum_class_ImageIOStrings);
+    VTABLE_set_pmc(interp, visitor, pmc);
+    return VTABLE_get_pmc(interp, visitor);
+}
+
+
+/*
+
 =item C<PMC* Parrot_thaw(PARROT_INTERP, STRING *image)>
 
 Thaws a PMC.  Called from the C<thaw> opcode.


More information about the parrot-commits mailing list