AfflictionNetworks/narya
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Handle the conversion from mixed to uppercase of fields like serverURL

Browse Source 
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
This commit is contained in:
Michael Bayne
2002-06-06 07:18:10 +00:00
parent b9ba9b3d66
commit 89d7a1078c
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/gendobj
+3 -3
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/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 # gendobj is used to generate DObject source file definitons basded on
# abbreviated declarations. Because DObject fields all have standard # abbreviated declarations. Because DObject fields all have standard
@@ -138,7 +138,7 @@ sub print_dobj_constant
# convert mixed case to upper with underscores # convert mixed case to upper with underscores
my $fcode = $field; my $fcode = $field;
$fcode =~ s/([A-Z])/_$1/g; $fcode =~ s/([a-z])([A-Z])/$1_$2/g;
$fcode =~ tr/a-z/A-Z/; $fcode =~ tr/a-z/A-Z/;
print OUT <<EOF; print OUT <<EOF;
@@ -154,7 +154,7 @@ sub print_dobj_setters
# convert mixed case to upper with underscores # convert mixed case to upper with underscores
my $fcode = $field; my $fcode = $field;
$fcode =~ s/([A-Z])/_$1/g; $fcode =~ s/([a-z])([A-Z])/$1_$2/g;
$fcode =~ tr/a-z/A-Z/; $fcode =~ tr/a-z/A-Z/;
my $cfield = $field; my $cfield = $field;