43 lines
1022 B
Perl
43 lines
1022 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
my (@i2c_displays, @spi_displays);
|
||
|
|
|
||
|
|
# scan provided header file for CONFIG_U8G2_I2C and CONFIG_U8G2_SPI entries
|
||
|
|
while (<STDIN>) {
|
||
|
|
if (/^\s*#\s*define\s+CONFIG_U8G2_I2C_([^_]+)_(\S+)\s+1/) {
|
||
|
|
push(@i2c_displays, lc($1)."_i2c_".lc($2));
|
||
|
|
}
|
||
|
|
if (/^\s*#\s*define\s+CONFIG_U8G2_SPI_(\S+)\s+1/) {
|
||
|
|
push(@spi_displays, lc($1));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
if (@i2c_displays > 0 || @spi_displays > 0) {
|
||
|
|
print << 'HEADER';
|
||
|
|
|
||
|
|
#ifndef _U8G2_DISPLAYS_H
|
||
|
|
#define _U8G2_DISPLAYS_H
|
||
|
|
|
||
|
|
#define U8G2_DISPLAY_TABLE_ENTRY(function, binding)
|
||
|
|
|
||
|
|
HEADER
|
||
|
|
|
||
|
|
print("#define U8G2_DISPLAY_TABLE_I2C \\\n");
|
||
|
|
foreach my $display (@i2c_displays) {
|
||
|
|
print(" U8G2_DISPLAY_TABLE_ENTRY(u8g2_Setup_${display}_f, $display) \\\n");
|
||
|
|
}
|
||
|
|
print("\n");
|
||
|
|
|
||
|
|
print("#define U8G2_DISPLAY_TABLE_SPI \\\n");
|
||
|
|
foreach my $display (@spi_displays) {
|
||
|
|
print(" U8G2_DISPLAY_TABLE_ENTRY(u8g2_Setup_${display}_f, $display) \\\n");
|
||
|
|
}
|
||
|
|
print("\n");
|
||
|
|
|
||
|
|
print << 'FOOTER';
|
||
|
|
|
||
|
|
#endif /* _U8G2_DISPLAYS_H */
|
||
|
|
FOOTER
|
||
|
|
}
|