kconfig-config2h


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/env perl

use warnings;
use strict;
use feature 'say';

foreach (<STDIN>) {
    next if m/^#/;
    say "#define $1" if m/^(\w+)=y$/;
    say "#define $1 $2" if m/^(\w+)=(.+)$/;
}