Handle the conversion from mixed to uppercase of fields like serverURL

properly (was generating SERVER_U_R_L, now generates SERVER_URL).


git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@1426 542714f4-19e9-0310-aa3c-eee0fc999fb1

bin/gendobj

@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: gendobj,v 1.12 2002/04/11 19:11:07 mdb Exp $
+# $Id: gendobj,v 1.13 2002/06/06 07:18:10 mdb Exp $
 #
 # gendobj is used to generate DObject source file definitons basded on
 # abbreviated declarations. Because DObject fields all have standard
@@ -138,7 +138,7 @@ sub print_dobj_constant
 
     # convert mixed case to upper with underscores
     my $fcode = $field;
-    $fcode =~ s/([A-Z])/_$1/g;
+    $fcode =~ s/([a-z])([A-Z])/$1_$2/g;
     $fcode =~ tr/a-z/A-Z/;
 
     print OUT <<EOF;
@@ -154,7 +154,7 @@ sub print_dobj_setters
 
     # convert mixed case to upper with underscores
     my $fcode = $field;
-    $fcode =~ s/([A-Z])/_$1/g;
+    $fcode =~ s/([a-z])([A-Z])/$1_$2/g;
     $fcode =~ tr/a-z/A-Z/;
 
     my $cfield = $field;