retronetworking
/
isdn4k-utils
13
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added capability to edit .config by hand, and process those changes with 

"make subconfig". This file converts .config into scripts/autoconf.h .
This commit is contained in:
Paul Slootman 1998-08-01 20:01:24 +00:00
parent cffa47a42c
commit d7a748edb8
1 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
scripts/mk_autoconf.pl Executable file
View File

@ -0,0 +1,50 @@
#!/usr/bin/perl
# GPL Paul Slootman <paul@wurtel.demon.nl> 1998
#
# script to convert .config as generated by 'make menuconfig' into
# scripts/autoconf.h , so that one can edit .config by hand and then
# non-interactively create a configuration ready for building. Useful
# for package building (I'm thinking Debian or Red Hat here).
open(IN, "<.config") || die "Can't open .config: $!\n";
open(OUT, ">scripts/autoconf.h") || die "Can't open scripts/autoconf.h: $!\n";
while (<IN>) {
chop;
next if /^#\s*$/; # empty comment line; ignore
if (/^\s*$/) { # empty line; echo
print OUT "\n";
next;
}
if (/^# ([^\s]+) is not set/) { # unset variables
print OUT "#undef $1\n";
next;
}
if (/^#\s+([^\s].*)\s*/) { # comment
print OUT "/*\n * $1\n */\n";
print OUT "#define AUTOCONF_INCLUDED\n" if /Automatically generated by/;
next;
}
if (/(\w+)=(.*)/) { # assignment
$var = $1;
$val = $2;
if ($val eq 'y') { # boolean true value
print OUT "#define $var 1\n";
next;
}
if ($val =~ /^['"](.*)["']$/) { # string value
print OUT "#define $var \"$1\"\n";
next;
}
if ($val =~ /^(\d+)$/) { # numeric value
print OUT "#define $var ($1)\n";
next;
}
die "Unexpected input at line $.: $_\n";
}
}
close(IN);
close(OUT);
exit(0);