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

[svn:parrot] r35192 - trunk/src/pmc

From:
infinoid
Date:
January 7, 2009 22:53
Subject:
[svn:parrot] r35192 - trunk/src/pmc
Message ID:
20090108065328.B78FACB9F9@x12.develooper.com
Author: infinoid
Date: Wed Jan  7 22:53:28 2009
New Revision: 35192

Modified:
   trunk/src/pmc/packfile.pmc
   trunk/src/pmc/packfilesegment.pmc

Log:
[pdd13] packfile.pmc's class-name is "Packfile".  Rework some of the exception
strings, to avoid confusion over the capitalization.

Modified: trunk/src/pmc/packfile.pmc
==============================================================================
--- trunk/src/pmc/packfile.pmc	(original)
+++ trunk/src/pmc/packfile.pmc	Wed Jan  7 22:53:28 2009
@@ -158,7 +158,7 @@
             return pf->header->uuid_size;
 
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_KEY_NOT_FOUND,
-                       "PackFile: No such integer key \"%s\"",
+                       "Packfile: No such integer key \"%s\"",
                        Parrot_string_cstring(interp, key));
     }
 
@@ -183,7 +183,7 @@
             return string_from_cstring(interp, (char*)pf->header->uuid_data, pf->header->uuid_size);
 
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_KEY_NOT_FOUND,
-                       "PackFile: No such string key \"%s\"",
+                       "Packfile: No such string key \"%s\"",
                        Parrot_string_cstring(interp, key));
     }
 
@@ -259,7 +259,7 @@
             return;
         }
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_KEY_NOT_FOUND,
-                       "PackFile: No such integer key \"%s\"",
+                       "Packfile: No such integer key \"%s\"",
                        Parrot_string_cstring(interp, key));
     }
 

Modified: trunk/src/pmc/packfilesegment.pmc
==============================================================================
--- trunk/src/pmc/packfilesegment.pmc	(original)
+++ trunk/src/pmc/packfilesegment.pmc	Wed Jan  7 22:53:28 2009
@@ -80,7 +80,7 @@
 */
     METHOD unpack(STRING *data) {
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_UNIMPLEMENTED,
-                                    "unpack() not implemented.");
+                                    "PackfileSegment.unpack() not implemented yet.");
     }
 
 }



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