mirror of
https://github.com/schoebel/mars
synced 2024-12-14 18:55:19 +00:00
125 lines
2.4 KiB
Perl
Executable File
125 lines
2.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use 5.010;
|
|
|
|
use Data::Dumper;
|
|
|
|
my $DEBUG = 0;
|
|
|
|
##
|
|
## Parse Kconfig from STDIN
|
|
##
|
|
|
|
my $option;
|
|
my $type;
|
|
my @default;
|
|
|
|
while (my $line = <STDIN>) {
|
|
if ($line =~ /^config\s+(\w+)\W*$/) {
|
|
$option = $1;
|
|
printf STDERR "OPTION: %s\n", $option if $DEBUG;
|
|
}
|
|
elsif ($line =~ /^\s+(tristate|bool|int|string)\s+.*$/) {
|
|
$type = $1;
|
|
printf STDERR "TYPE: %s\n", $type if $DEBUG;
|
|
}
|
|
elsif ($line =~ /^\s+default\s+(.*)$/) {
|
|
printf STDERR "DEFAULT: %s\n", $1 if $DEBUG;
|
|
push @default, {
|
|
option => $option,
|
|
type => $type,
|
|
value => $1,
|
|
} if $option;
|
|
}
|
|
elsif ($line =~ /^\s+---help---\s+$/) {
|
|
# ignore lines after this by unsetting $option
|
|
undef $option;
|
|
# Kconfig syntax allows to have directives after the help section,
|
|
# but we do not use this freedom here, for simplicity.
|
|
}
|
|
}
|
|
|
|
print STDERR Dumper(\@default) if $DEBUG;
|
|
|
|
|
|
##
|
|
## Print the header
|
|
##
|
|
|
|
print qq%
|
|
#ifndef MARS_CONFIG_H
|
|
#define MARS_CONFIG_H
|
|
|
|
/*
|
|
* Module default settings from Kconfig
|
|
*
|
|
* If the module is built as an external module, this file provides
|
|
* reasonable default settings for configuration variables CONFIG_*.
|
|
* The defaults are extracted from Kconfig. If you want to change a
|
|
* setting, please edit Kconfig directly and regenerate this file.
|
|
*
|
|
* This file was auto-generated with $0
|
|
* -- DO NOT EDIT MANUALLY --
|
|
*/
|
|
|
|
#ifndef CONFIG_MARS_HAVE_BIGMODULE
|
|
#define CONFIG_MARS_HAVE_BIGMODULE
|
|
#endif
|
|
%;
|
|
|
|
##
|
|
## Print option defaults
|
|
##
|
|
|
|
foreach my $opt (@default) {
|
|
|
|
my $optname = $opt->{option};
|
|
my $optval = $opt->{value};
|
|
|
|
if (!defined($optname) || !defined($optval)) {
|
|
printf(STDERR "SKIPPED option due to missing parameters: optname=%s optval=%s\n",
|
|
$optname||'', $optval||'');
|
|
next;
|
|
}
|
|
|
|
given ($opt->{type}) {
|
|
|
|
when ('tristate') {
|
|
# ignore tristate
|
|
}
|
|
|
|
when ('bool') {
|
|
if ($optval eq 'n') {
|
|
print qq%
|
|
/* CONFIG_$optname is unset */
|
|
%;
|
|
}
|
|
else {
|
|
print qq%
|
|
#ifndef CONFIG_$optname
|
|
#define CONFIG_$optname 1
|
|
#endif
|
|
%;
|
|
}
|
|
}
|
|
|
|
when (['int', 'string']) {
|
|
print qq%
|
|
#ifndef CONFIG_$optname
|
|
#define CONFIG_$optname $optval
|
|
#endif
|
|
%;
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
print qq%
|
|
|
|
#endif /* MARS_CONFIG_H */
|
|
%;
|