From 89d7a1078cdf2e2cbc0b097c99719b5e1b870c29 Mon Sep 17 00:00:00 2001
From: Michael Bayne <mdb@threerings.net>
Date: Thu, 6 Jun 2002 07:18:10 +0000
Subject: [PATCH] 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 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/gendobj b/bin/gendobj
index 4da5006ec..e7dd7068c 100755
--- a/bin/gendobj
+++ b/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;