display: tool: Fix spacing in auto generated header file

This change only fixes the spaces and comment sections
of auto generated header file.

Change-Id: Ib9cd4169640012c065fb8ecd4fad6706cf1f1d56
This commit is contained in:
Dhaval Patel 2013-10-30 15:31:42 -07:00
parent ea3e100bd4
commit 8a9e60cc51
1 changed files with 50 additions and 43 deletions

View File

@ -71,7 +71,7 @@ if(uc($ARGV[1]) eq "PANEL")
open (my $PANELH, '>panel_' . $nameinH . '.h'); open (my $PANELH, '>panel_' . $nameinH . '.h');
printheader($PANELH); printheader($PANELH);
print $PANELH "\n#ifndef _PANEL_". uc($nameinH) . "_H_\n"; print $PANELH "\n#ifndef _PANEL_". uc($nameinH) . "_H_\n";
print $PANELH "\n#define _PANEL_". uc($nameinH) . "_H_\n"; print $PANELH "#define _PANEL_". uc($nameinH) . "_H_\n";
printdtsheader($PANELDTSI, $nameinH); printdtsheader($PANELDTSI, $nameinH);
@ -84,9 +84,6 @@ if(uc($ARGV[1]) eq "PANEL")
print $PANELH "#include \"panel.h\"\n\n"; print $PANELH "#include \"panel.h\"\n\n";
printSectionHeader($PANELH, "Panel configuration");
print $PANELH "\n";
for my $property($xmldoc->findnodes('/GCDB/PanelEntry/PanelController')) for my $property($xmldoc->findnodes('/GCDB/PanelEntry/PanelController'))
{ {
(my $controllerName) = $property->textContent() =~ /"([^"]*)"/; (my $controllerName) = $property->textContent() =~ /"([^"]*)"/;
@ -161,13 +158,13 @@ if(uc($ARGV[1]) eq "PANEL")
"DSIStream", "InterleaveMode","BitClockFrequency", "DSIStream", "InterleaveMode","BitClockFrequency",
"PanelOperatingMode", "PanelWithEnableGPIO"); "PanelOperatingMode", "PanelWithEnableGPIO");
printSectionHeader($PANELH, "Panel configuration");
printDataStruct($PANELH, \@panelConfigAttrs, $property, printDataStruct($PANELH, \@panelConfigAttrs, $property,
"panel_config", lc($nameinH) . "_panel_data", "panel_config", lc($nameinH) . "_panel_data",
"qcom,mdss_dsi_" .lc($nameinH)); "qcom,mdss_dsi_" .lc($nameinH));
} }
print $PANELH "\n\n"; print $PANELH "\n\n";
printSectionHeader($PANELH, "Panel resolution");
for my $property($xmldoc->findnodes('/GCDB/PanelEntry')) for my $property($xmldoc->findnodes('/GCDB/PanelEntry'))
{ {
@ -178,16 +175,17 @@ if(uc($ARGV[1]) eq "PANEL")
"VActiveRes", "InvertDataPolarity", "InvertVsyncPolarity", "VActiveRes", "InvertDataPolarity", "InvertVsyncPolarity",
"InvertHsyncPolarity"); "InvertHsyncPolarity");
printSectionHeader($PANELH, "Panel resolution");
printStruct($PANELH, \@panelConfigAttrs, $property, printStruct($PANELH, \@panelConfigAttrs, $property,
"panel_resolution", lc($nameinH) . "_panel_res"); "panel_resolution", lc($nameinH) . "_panel_res");
print $PANELH "\n"; print $PANELH "\n";
} }
print $PANELH "\n"; print $PANELH "\n";
printSectionHeader($PANELH, "Panel Color Information" );
for my $property($xmldoc->findnodes('/GCDB/PanelEntry')) for my $property($xmldoc->findnodes('/GCDB/PanelEntry'))
{ {
printSectionHeader($PANELH, "Panel color information" );
my @panelConfigAttrs = ("ColorFormat", "ColorOrder", my @panelConfigAttrs = ("ColorFormat", "ColorOrder",
"UnderFlowColor", "BorderColor", "PixelPacking", "UnderFlowColor", "BorderColor", "PixelPacking",
"PixelAlignment"); "PixelAlignment");
@ -198,7 +196,7 @@ if(uc($ARGV[1]) eq "PANEL")
} }
print $PANELH "\n"; print $PANELH "\n";
printSectionHeader($PANELH, "Panel Command information" ); printSectionHeader($PANELH, "Panel on/off command information" );
for my $property ($xmldoc->findnodes('/GCDB/PanelEntry/OnCommand')) for my $property ($xmldoc->findnodes('/GCDB/PanelEntry/OnCommand'))
{ {
@ -286,8 +284,6 @@ if(uc($ARGV[1]) eq "PANEL")
} }
} }
printSectionHeader($PANELH, "Command mode panel information");
print $PANELH "\n";
for my $property($xmldoc->findnodes('/GCDB/PanelEntry')) for my $property($xmldoc->findnodes('/GCDB/PanelEntry'))
{ {
my @attrs = ("TECheckEnable", "TEPinSelect", "TEUsingTEPin", my @attrs = ("TECheckEnable", "TEPinSelect", "TEUsingTEPin",
@ -296,6 +292,7 @@ if(uc($ARGV[1]) eq "PANEL")
"TEvSyncStartLineDivisor", "TEPercentVariance", "TEDCSCommand", "TEvSyncStartLineDivisor", "TEPercentVariance", "TEDCSCommand",
"DisableEoTAfterHSXfer", "CmdModeIdleTime"); "DisableEoTAfterHSXfer", "CmdModeIdleTime");
printSectionHeader($PANELH, "Command mode panel information");
printStruct($PANELH, \@attrs, $property, "commandpanel_info", printStruct($PANELH, \@attrs, $property, "commandpanel_info",
lc($nameinH) . "_command_panel"); lc($nameinH) . "_command_panel");
print $PANELH "\n\n"; print $PANELH "\n\n";
@ -364,25 +361,21 @@ if(uc($ARGV[1]) eq "PANEL")
} }
printSectionHeader($PANELH, "Video mode panel information");
print $PANELH "\n";
for my $property($xmldoc->findnodes('/GCDB/PanelEntry')) for my $property($xmldoc->findnodes('/GCDB/PanelEntry'))
{ {
my @commandAttrs = ("HSyncPulse", "HFPPowerMode", "HBPPowerMode", my @commandAttrs = ("HSyncPulse", "HFPPowerMode", "HBPPowerMode",
"HSAPowerMode", "BLLPEOFPowerMode", "BLLPPowerMode", "HSAPowerMode", "BLLPEOFPowerMode", "BLLPPowerMode",
"TrafficMode", "DMADelayAfterVsync", "BLLPEOFPower"); "TrafficMode", "DMADelayAfterVsync", "BLLPEOFPower");
printSectionHeader($PANELH, "Video mode panel information");
printStruct($PANELH, \@commandAttrs, $property, printStruct($PANELH, \@commandAttrs, $property,
"videopanel_info", lc($nameinH) . "_video_panel"); "videopanel_info", lc($nameinH) . "_video_panel");
print $PANELH "\n\n"; print $PANELH "\n\n";
} }
printSectionHeader($PANELH, "Lane Configuration");
print $PANELH "\n";
for my $property($xmldoc->findnodes('/GCDB/PanelEntry')) for my $property($xmldoc->findnodes('/GCDB/PanelEntry'))
{ {
printSectionHeader($PANELH, "Lane configuration");
my @commandAttrs = ("DSILanes", "DSILaneMap", "Lane0State", my @commandAttrs = ("DSILanes", "DSILaneMap", "Lane0State",
"Lane1State", "Lane2State", "Lane3State"); "Lane1State", "Lane2State", "Lane3State");
@ -391,11 +384,10 @@ if(uc($ARGV[1]) eq "PANEL")
print $PANELH "\n\n"; print $PANELH "\n\n";
} }
print $PANELH "\n";
printSectionHeader($PANELH, "Panel Timing");
for my $property ($xmldoc->findnodes('/GCDB/PanelEntry/PanelTimings')) for my $property ($xmldoc->findnodes('/GCDB/PanelEntry/PanelTimings'))
{ {
printSectionHeader($PANELH, "Panel timing");
printTargetPhysical($PANELH, $property, lc($nameinH) . printTargetPhysical($PANELH, $property, lc($nameinH) .
"_timings","uint32_t"); "_timings","uint32_t");
print $PANELH "\n\n"; print $PANELH "\n\n";
@ -405,6 +397,7 @@ if(uc($ARGV[1]) eq "PANEL")
for my $property ($xmldoc->findnodes('/GCDB/PanelEntry/PanelRotation')) for my $property ($xmldoc->findnodes('/GCDB/PanelEntry/PanelRotation'))
{ {
printSectionHeader($PANELH, "Panel rotation");
printOnCommand($PANELH, $property, lc($nameinH) . printOnCommand($PANELH, $property, lc($nameinH) .
"_rotation", lc($nameinH) . "_rotation_cmd"); "_rotation", lc($nameinH) . "_rotation_cmd");
print $PANELH "\n\n"; print $PANELH "\n\n";
@ -421,23 +414,26 @@ if(uc($ARGV[1]) eq "PANEL")
lc($nameinH) . "_timing_info"); lc($nameinH) . "_timing_info");
print $PANELH "\n\n"; print $PANELH "\n\n";
} }
for my $tmpProperty($xmldoc->findnodes('/GCDB/PanelEntry/ResetSequence')) for my $tmpProperty($xmldoc->findnodes('/GCDB/PanelEntry/ResetSequence'))
{ {
printSectionHeader($PANELH, "Panel reset sequence");
print $PANELH "static struct panel_reset_sequence " . print $PANELH "static struct panel_reset_sequence " .
lc($nameinH) . "_reset_seq = {\n "; lc($nameinH) . "_reset_seq = {\n\t";
printResetSeqinH($PANELH, $tmpProperty); printResetSeqinH($PANELH, $tmpProperty);
print $PANELH "\n\n" print $PANELH "\n"
} }
printSectionHeader($PANELH, "Backlight Settings");
print $PANELH "\n";
for my $property($xmldoc->findnodes('/GCDB/PanelEntry')) for my $property($xmldoc->findnodes('/GCDB/PanelEntry'))
{ {
my @timingAttrs = ("BLInterfaceType", "BLMinLevel", my @timingAttrs = ("BLInterfaceType", "BLMinLevel",
"BLMaxLevel", "BLStep", "BLPMICControlType", "BLPMICModel"); "BLMaxLevel", "BLStep", "BLPMICControlType", "BLPMICModel");
printSectionHeader($PANELH, "Backlight setting");
printStruct($PANELH, \@timingAttrs, $property, "backlight", printStruct($PANELH, \@timingAttrs, $property, "backlight",
lc($nameinH) . "_backlight"); lc($nameinH) . "_backlight");
print $PANELH "\n\n"; print $PANELH "\n";
my @attrs = ("TClkPost", "TClkPre"); my @attrs = ("TClkPost", "TClkPre");
@ -726,9 +722,9 @@ sub printTargetPhysical
my $name = shift; my $name = shift;
my $datatype = shift; my $datatype = shift;
(my $element) = $property->textContent() =~ /"([^"]*)"/; (my $element) = $property->textContent() =~ /"([^"]*)"/;
print $fh "static const " . $datatype . " " . $name . "[] = {\n"; print $fh "static const " . $datatype . " " . $name . "[] = {\n\t";
$element =~ s/\t//g; $element =~ s/\t//g;
$element =~ s/^/ /mg; $element =~ s/^//mg;
print $fh $element . "\n};"; print $fh $element . "\n};";
} }
@ -746,7 +742,7 @@ sub printOnCommand
{ {
my @sep = split /,/, $line; my @sep = split /,/, $line;
print $fh "static char " . $cmdname . $i . "[] = {\n"; print $fh "static char " . $cmdname . $i . "[] = {\n";
$toPrint = ""; $toPrint = "\t";
if(scalar @sep > 7) if(scalar @sep > 7)
{ {
my $cmdlen = $sep[6]; my $cmdlen = $sep[6];
@ -757,9 +753,10 @@ sub printOnCommand
$cmdlen =~ s/\t//g; $cmdlen =~ s/\t//g;
if($cmdtype eq "0x29" || $cmdtype eq "0x39") if($cmdtype eq "0x29" || $cmdtype eq "0x39")
{ {
$toPrint .= $cmdlen . ", 0x00, " . $cmdtype . ", 0xC0,\n"; $toPrint .= $cmdlen . ", 0x00, " . $cmdtype . ", 0xC0,\n\t";
} }
my $j = 0; my $j = 0;
for(my $i = 7; $i < scalar @sep; $i++) for(my $i = 7; $i < scalar @sep; $i++)
{ {
my $tmp = $sep[$i]; my $tmp = $sep[$i];
@ -773,14 +770,23 @@ sub printOnCommand
if (($j % 4) == 0) if (($j % 4) == 0)
{ {
chop($toPrint); chop($toPrint);
$toPrint .= "\n"; $toPrint .= "\n\t";
} }
} }
if($cmdtype eq "0x29" || $cmdtype eq "0x39") if($cmdtype eq "0x29" || $cmdtype eq "0x39")
{ {
for( ; ($j % 4) ne 0 ; $j++) if ( ($j % 4) ne 0)
{ {
$toPrint .= "0xFF, "; for( ; ($j % 4) ne 0 ; $j++)
{
$toPrint .= "0xFF, ";
}
chop($toPrint);
$toPrint .= "\n";
}
else
{
chop($toPrint);
} }
} }
else else
@ -789,17 +795,17 @@ sub printOnCommand
{ {
$toPrint .= "0xFF, "; $toPrint .= "0xFF, ";
} }
$toPrint .= $cmdtype . ", 0x80"; $toPrint .= $cmdtype . ", 0x80\n";
} }
$toPrint .= " };\n" $toPrint .= "};\n"
} }
$i++; $i++;
$toPrint .= "\n\n"; $toPrint .= "\n";
print $fh $toPrint ; print $fh $toPrint ;
} }
print $fh "\n\nstatic struct mipi_dsi_cmd " . $name . "[] = {\n"; print $fh "static struct mipi_dsi_cmd " . $name . "[] = {\n";
my $bool = 0; my $bool = 0;
$toPrint = ""; $toPrint = "";
$i = 0; $i = 0;
@ -808,6 +814,8 @@ sub printOnCommand
{ {
my @sep = split /,/, $line; my @sep = split /,/, $line;
$toPrint .= "\t";
if(scalar @sep > 7) if(scalar @sep > 7)
{ {
my $cmdtype = $sep[0]; my $cmdtype = $sep[0];
@ -837,19 +845,18 @@ sub printOnCommand
} }
# calculate the correct size of command # calculate the correct size of command
$hexsize = sprintf("{ 0x%x , ", $cmdsize + 4); $hexsize = sprintf("{0x%x, ", $cmdsize + 4);
} }
else else
{ {
$hexsize = sprintf("{ 0x%x , ", 4); $hexsize = sprintf("{0x%x, ", 4);
} }
$toPrint .= $hexsize; $toPrint .= $hexsize;
$toPrint .= $cmdname . $i . ", " . $sep[4] . "},"; $toPrint .= $cmdname . $i . "," . $sep[4] . "},";
$i++; $i++;
} }
$toPrint .= "\n"; $toPrint .= "\n";
@ -857,7 +864,7 @@ sub printOnCommand
chop($toPrint); chop($toPrint);
chop($toPrint); chop($toPrint);
$toPrint .= "\n"; $toPrint .= "\n";
print $fh $toPrint . "};"; print $fh $toPrint . "};\n";
print $fh "\n#define " . uc($name) . " " . $i . "\n"; print $fh "\n#define " . uc($name) . " " . $i . "\n";
@ -892,7 +899,7 @@ sub printResetSeqinH
{ {
my $fh = shift; my $fh = shift;
my $property = shift; my $property = shift;
print $fh "{ "; print $fh "{";
for (my $i = 1; $i <=5; $i++) for (my $i = 1; $i <=5; $i++)
{ {
for my $element ($property->findnodes("PinState" . $i)) for my $element ($property->findnodes("PinState" . $i))
@ -900,7 +907,7 @@ sub printResetSeqinH
print $fh $element->textContent() . ", "; print $fh $element->textContent() . ", ";
} }
} }
print $fh "}, { "; print $fh "}, {";
for (my $i = 1; $i <=5; $i++) for (my $i = 1; $i <=5; $i++)
{ {
for my $element ($property->findnodes("PulseWidth" . $i)) for my $element ($property->findnodes("PulseWidth" . $i))
@ -1186,7 +1193,7 @@ sub printStruct
my $property = shift; my $property = shift;
my $structName = shift; my $structName = shift;
my $name = shift; my $name = shift;
print $fh "static struct " . $structName . " " . $name . " = {\n "; print $fh "static struct " . $structName . " " . $name . " = {\n\t";
my $flag = 0; my $flag = 0;
foreach (@attrs) { foreach (@attrs) {
my $node = "./" . $_; my $node = "./" . $_;
@ -1229,7 +1236,7 @@ sub printDataStruct
my $structName = shift; my $structName = shift;
my $name = shift; my $name = shift;
my $nameinDTS = shift; my $nameinDTS = shift;
print $fh "static struct " . $structName . " " . $name . " = {\n "; print $fh "static struct " . $structName . " " . $name . " = {\n\t";
my $flag = 0; my $flag = 0;
my $firsttime = 1; my $firsttime = 1;
print $fh "\"" . $nameinDTS . "\", "; print $fh "\"" . $nameinDTS . "\", ";
@ -1276,7 +1283,7 @@ sub printDataStruct
} }
if ($firsttime == 1) if ($firsttime == 1)
{ {
print $fh ",\n "; print $fh ",\n\t";
$flag = 0; $flag = 0;
} }
$firsttime = 0; $firsttime = 0;