pa-fazil
/
android_device_qcom_common
mirror of https://github.com/fazilsheik96/android_device_qcom_common.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
display/tools/parser.pl
View File

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