develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r36128 - in branches/pdd28str_part2: include/parrot src/string src/string/charset

From:
allison
Date:
January 28, 2009 17:44
Subject:
[svn:parrot] r36128 - in branches/pdd28str_part2: include/parrot src/string src/string/charset
Message ID:
20090129014420.2AB33CB9AE@x12.develooper.com
Author: allison
Date: Wed Jan 28 17:44:19 2009
New Revision: 36128

Modified:
   branches/pdd28str_part2/include/parrot/string_funcs.h
   branches/pdd28str_part2/src/string/api.c
   branches/pdd28str_part2/src/string/charset/iso-8859-1.c

Log:
[pdd28str] Name change for 'Parrot_str_write_COW'.


Modified: branches/pdd28str_part2/include/parrot/string_funcs.h
==============================================================================
--- branches/pdd28str_part2/include/parrot/string_funcs.h	(original)
+++ branches/pdd28str_part2/include/parrot/string_funcs.h	Wed Jan 28 17:44:19 2009
@@ -21,7 +21,7 @@
 
 #define string_from_literal(i, s) string_from_cstring((i), (s), (sizeof (s)-1))
 #define Parrot_unCOW_string(i, s) PObj_COW_TEST((s)) ? \
-    Parrot_unmake_COW((i), (s)), (s) : (s)
+    Parrot_str_write_COW((i), (s)), (s) : (s)
 
 /* HEADERIZER BEGIN: src/string/api.c */
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
@@ -122,7 +122,7 @@
         FUNC_MODIFIES(*dest);
 
 PARROT_EXPORT
-void Parrot_unmake_COW(PARROT_INTERP, ARGMOD(STRING *s))
+void Parrot_str_write_COW(PARROT_INTERP, ARGMOD(STRING *s))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         FUNC_MODIFIES(*s);
@@ -584,7 +584,7 @@
        PARROT_ASSERT_ARG(interp)
 #define ASSERT_ARGS_Parrot_string_trans_encoding __attribute__unused__ int _ASSERT_ARGS_CHECK = \
        PARROT_ASSERT_ARG(interp)
-#define ASSERT_ARGS_Parrot_unmake_COW __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+#define ASSERT_ARGS_Parrot_str_write_COW __attribute__unused__ int _ASSERT_ARGS_CHECK = \
        PARROT_ASSERT_ARG(interp) \
     || PARROT_ASSERT_ARG(s)
 #define ASSERT_ARGS_string_append __attribute__unused__ int _ASSERT_ARGS_CHECK = \

Modified: branches/pdd28str_part2/src/string/api.c
==============================================================================
--- branches/pdd28str_part2/src/string/api.c	(original)
+++ branches/pdd28str_part2/src/string/api.c	Wed Jan 28 17:44:19 2009
@@ -69,7 +69,7 @@
 
 /*
 
-=item C<void Parrot_unmake_COW>
+=item C<void Parrot_str_write_COW>
 
 If the specified Parrot string is copy-on-write then the memory is
 copied over and the copy-on-write flag is cleared.
@@ -80,9 +80,9 @@
 
 PARROT_EXPORT
 void
-Parrot_unmake_COW(PARROT_INTERP, ARGMOD(STRING *s))
+Parrot_str_write_COW(PARROT_INTERP, ARGMOD(STRING *s))
 {
-    ASSERT_ARGS(Parrot_unmake_COW)
+    ASSERT_ARGS(Parrot_str_write_COW)
 
     /* COW_FLAG | constant_FLAG | external_FLAG) */
     if (PObj_is_cowed_TESTALL(s)) {
@@ -160,7 +160,7 @@
          * is fixed correctly. */
         if (n_interpreters > 1 && PObj_is_movable_TESTALL(s) &&
                 !Parrot_in_memory_pool(interp, PObj_bufstart(s))) {
-            Parrot_unmake_COW(interp, d);
+            Parrot_str_write_COW(interp, d);
             Parrot_io_eprintf(interp, "cross-interpreter copy of "
                                      "relocatable string '%Ss' into tid %d\n",
                         d,
@@ -825,7 +825,7 @@
 string_grow(PARROT_INTERP, ARGMOD(STRING *s), UINTVAL addlen)
 {
     ASSERT_ARGS(string_grow)
-    Parrot_unmake_COW(interp, s);
+    Parrot_str_write_COW(interp, s);
 
     /* Don't check buflen, if we are here, we already checked. */
     Parrot_reallocate_string(interp,
@@ -1280,7 +1280,7 @@
     &&  length        == 1
     &&  rep->strlen   == 1) {
         if (PObj_is_cowed_TESTALL(src))
-            Parrot_unmake_COW(interp, src);
+            Parrot_str_write_COW(interp, src);
 
         ((char *)src->strstart)[offset] = ((char *)rep->strstart)[0];
 
@@ -1345,7 +1345,7 @@
 
     if (diff >= 0
     || ((INTVAL)src->bufused - (INTVAL)PObj_buflen(src)) <= diff) {
-        Parrot_unmake_COW(interp, src);
+        Parrot_str_write_COW(interp, src);
 
         if (diff != 0) {
             mem_sys_memmove((char *)src->strstart + start_byte + rep->bufused,
@@ -1573,7 +1573,7 @@
     else if ((*s)->strlen < len)
         string_grow(interp, *s, (UINTVAL)(len - (*s)->strlen));
     else if (PObj_is_cowed_TESTALL(*s))
-        Parrot_unmake_COW(interp, *s);
+        Parrot_str_write_COW(interp, *s);
 }
 
 
@@ -2296,7 +2296,7 @@
      *          not work for these
      *          so probably only sysmem should be tested
      */
-    Parrot_unmake_COW(interp, s);
+    Parrot_str_write_COW(interp, s);
 
     size   = PObj_buflen(s);
     memory = (char *)mem_sys_allocate(size);
@@ -2334,7 +2334,7 @@
     if (!PObj_sysmem_TEST(s))
         return;
 
-    Parrot_unmake_COW(interp, s);
+    Parrot_str_write_COW(interp, s);
     size = PObj_buflen(s);
 
     /* We need a handle on the fixed memory so we can get rid of it later */
@@ -2705,7 +2705,7 @@
             "Can't upcase NULL string");
     }
     else {
-        Parrot_unmake_COW(interp, s);
+        Parrot_str_write_COW(interp, s);
         CHARSET_UPCASE(interp, s);
     }
 }
@@ -2757,7 +2757,7 @@
      * * conversion to utf16, with doubling the buffer
      * * possibly one more reallocation in downcase
      */
-    Parrot_unmake_COW(interp, s);
+    Parrot_str_write_COW(interp, s);
     CHARSET_DOWNCASE(interp, s);
 }
 
@@ -2802,7 +2802,7 @@
 string_titlecase_inplace(PARROT_INTERP, ARGMOD(STRING *s))
 {
     ASSERT_ARGS(string_titlecase_inplace)
-    Parrot_unmake_COW(interp, s);
+    Parrot_str_write_COW(interp, s);
     CHARSET_TITLECASE(interp, s);
 }
 
@@ -2995,7 +2995,7 @@
         if (new_charset == src->charset)
             return src;
 
-        Parrot_unmake_COW(interp, src);
+        Parrot_str_write_COW(interp, src);
     }
 
     return new_charset->to_charset(interp, src, dest);
@@ -3047,7 +3047,7 @@
         if (new_encoding == src->encoding)
             return src;
 
-        Parrot_unmake_COW(interp, src);
+        Parrot_str_write_COW(interp, src);
     }
 
     return new_encoding->to_encoding(interp, src, dest);

Modified: branches/pdd28str_part2/src/string/charset/iso-8859-1.c
==============================================================================
--- branches/pdd28str_part2/src/string/charset/iso-8859-1.c	(original)
+++ branches/pdd28str_part2/src/string/charset/iso-8859-1.c	Wed Jan 28 17:44:19 2009
@@ -371,7 +371,7 @@
     if (!source_string->strlen)
         return;
 
-    Parrot_unmake_COW(interp, source_string);
+    Parrot_str_write_COW(interp, source_string);
     buffer = (unsigned char *)source_string->strstart;
     for (offset = 0; offset < source_string->strlen; offset++) {
         unsigned int c = buffer[offset]; /* XXX use encoding ? */
@@ -402,7 +402,7 @@
         UINTVAL offset;
         unsigned char *buffer;
 
-        Parrot_unmake_COW(interp, source_string);
+        Parrot_str_write_COW(interp, source_string);
         buffer = (unsigned char *)source_string->strstart;
         for (offset = 0; offset < source_string->strlen; offset++) {
             unsigned int c = buffer[offset];
@@ -437,7 +437,7 @@
     if (!source_string->strlen)
         return;
 
-    Parrot_unmake_COW(interp, source_string);
+    Parrot_str_write_COW(interp, source_string);
     buffer = (unsigned char *)source_string->strstart;
     c = buffer[0];
     if (c >= 0xe0 && c != 0xf7)
@@ -475,7 +475,7 @@
         unsigned char *buffer;
         unsigned int c;
 
-        Parrot_unmake_COW(interp, source_string);
+        Parrot_str_write_COW(interp, source_string);
         buffer = (unsigned char *)source_string->strstart;
         c = buffer[0];
         if (c >= 0xe0 && c != 0xf7)
@@ -505,7 +505,7 @@
         unsigned char *buffer;
         unsigned int c;
 
-        Parrot_unmake_COW(interp, source_string);
+        Parrot_str_write_COW(interp, source_string);
         buffer = (unsigned char *)source_string->strstart;
         c = buffer[0];
         if (c >= 0xc0 && c != 0xd7 && c <= 0xde)



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About