Ginger88895
/
warzone2100
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Generate multi-line SELECT statements instead of single-line ones 

git-svn-id: svn+ssh://svn.gna.org/svn/warzone/trunk@5372 4a71c877-e1ca-e34f-864e-861f7616d084
master
Giel van Schijndel 2008-07-03 20:03:38 +00:00
parent 0cf5917686
commit 00ffe3f55d
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
build_tools/code-generators/sql_selectdef_cg.pm
View File

@ -29,6 +29,8 @@ sub printStructFields
{
my $field = shift(@fields);
printComments ${$field}{"comment"}, 1;
if (${$field}{"type"} and ${$field}{"type"} =~ /set/)
{
my $enumName = ${$field}{"enum"};
@ -39,16 +41,16 @@ sub printStructFields
{
my $value = shift(@values);
print "`$structName`.`${$field}{\"name\"}_${$value}{\"name\"}`";
print ", " if @values;
print "\t`$structName`.`${$field}{\"name\"}_${$value}{\"name\"}`";
print ",\n" if @values;
}
}
else
{
print "`$structName`.`${$field}{\"name\"}`";
print "\t`$structName`.`${$field}{\"name\"}`";
}
print ", " if @fields;
print ",\n\n" if @fields;
}
}
@ -67,12 +69,13 @@ sub printStructContent
}
elsif (/abstract/)
{
print "`${$struct}{\"name\"}`.`unique_inheritance_id`, ";
print "`${$struct}{\"name\"}`.`unique_inheritance_id`,\n\n";
}
}
printStructFields($struct, $enumMap);
print ", " unless $first;
print ",\n" unless $first;
print "\n";
}
sub printBaseStruct
@ -131,7 +134,7 @@ sub printStruct()
print "SELECT ";
printStructContent($struct, $structMap, $enumMap, 1);
print " FROM ";
print "FROM ";
printBaseStruct($struct, $structMap);
printStructJoins($struct, $structMap);