mirror of
https://github.com/samba-team/samba.git
synced 2024-12-22 13:34:15 +03:00
build: first attempt at a script to auto-convert config.mk files to wscript
This commit is contained in:
Andrew Tridgell
parent
9a1cd09a10
commit
df0a1e9368
85
buildtools/mktowscript/mklist.txt
Normal file
85
buildtools/mktowscript/mklist.txt
Normal file
@ -0,0 +1,85 @@
|
||||
source4/main.mk
|
||||
pidl/config.mk
|
||||
nsswitch/config.mk
|
||||
nsswitch/libwbclient/config.mk
|
||||
source4/lib/ldb-samba/config.mk
|
||||
source4/librpc/config.mk
|
||||
source4/utils/config.mk
|
||||
source4/utils/net/config.mk
|
||||
source4/scripting/python/config.mk
|
||||
source4/auth/config.mk
|
||||
source4/auth/gensec/config.mk
|
||||
source4/auth/kerberos/config.mk
|
||||
source4/auth/ntlm/config.mk
|
||||
source4/auth/credentials/config.mk
|
||||
source4/auth/ntlmssp/config.mk
|
||||
source4/libnet/config.mk
|
||||
source4/nbt_server/config.mk
|
||||
source4/wrepl_server/config.mk
|
||||
source4/ntvfs/config.mk
|
||||
source4/ntvfs/unixuid/config.mk
|
||||
source4/ntvfs/sysdep/config.mk
|
||||
source4/ntvfs/common/config.mk
|
||||
source4/ntvfs/posix/config.mk
|
||||
source4/selftest/config.mk
|
||||
source4/cldap_server/config.mk
|
||||
source4/smb_server/config.mk
|
||||
source4/smb_server/smb2/config.mk
|
||||
source4/smb_server/smb/config.mk
|
||||
source4/smbd/config.mk
|
||||
source4/kdc/config.mk
|
||||
source4/dsdb/config.mk
|
||||
source4/dsdb/samdb/ldb_modules/config.mk
|
||||
source4/web_server/config.mk
|
||||
source4/param/config.mk
|
||||
source4/winbind/config.mk
|
||||
source4/cluster/config.mk
|
||||
source4/client/config.mk
|
||||
source4/ntptr/config.mk
|
||||
source4/rpc_server/config.mk
|
||||
source4/libcli/config.mk
|
||||
source4/libcli/smb2/config.mk
|
||||
source4/libcli/wbclient/config.mk
|
||||
source4/libcli/security/config.mk
|
||||
source4/libcli/ldap/config.mk
|
||||
source4/ntp_signd/config.mk
|
||||
source4/torture/config.mk
|
||||
source4/torture/smb2/config.mk
|
||||
source4/torture/local/config.mk
|
||||
source4/torture/drs/config.mk
|
||||
source4/torture/winbind/config.mk
|
||||
source4/torture/libsmbclient/config.mk
|
||||
source4/torture/libnetapi/config.mk
|
||||
source4/lib/messaging/config.mk
|
||||
source4/lib/events/config.mk
|
||||
source4/lib/stream/config.mk
|
||||
source4/lib/cmdline/config.mk
|
||||
source4/lib/com/config.mk
|
||||
source4/lib/registry/config.mk
|
||||
source4/lib/wmi/config.mk
|
||||
source4/lib/socket/config.mk
|
||||
source4/lib/tls/config.mk
|
||||
source4/lib/samba3/config.mk
|
||||
source4/ldap_server/config.mk
|
||||
libgpo/config.mk
|
||||
libcli/cldap/config.mk
|
||||
libcli/samsync/config.mk
|
||||
libcli/nbt/config.mk
|
||||
libcli/auth/config.mk
|
||||
libcli/drsuapi/config.mk
|
||||
libcli/security/config.mk
|
||||
libcli/smb/config.mk
|
||||
libcli/named_pipe_auth/config.mk
|
||||
libcli/ldap/config.mk
|
||||
lib/uid_wrapper/config.mk
|
||||
lib/crypto/config.mk
|
||||
lib/socket_wrapper/config.mk
|
||||
lib/util/config.mk
|
||||
lib/util/charset/config.mk
|
||||
lib/nss_wrapper/config.mk
|
||||
lib/tsocket/config.mk
|
||||
lib/popt/config.mk
|
||||
lib/async_req/config.mk
|
||||
lib/tdr/config.mk
|
||||
lib/torture/config.mk
|
||||
lib/smbconf/config.mk
|
||||
294
buildtools/mktowscript/mktowscript.pl
Executable file
294
buildtools/mktowscript/mktowscript.pl
Executable file
@ -0,0 +1,294 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
use File::Basename;
|
||||
|
||||
my $filename=$ARGV[0];
|
||||
my $dname=dirname($filename);
|
||||
|
||||
sub read_file($)
|
||||
{
|
||||
my $filename = shift;
|
||||
open(CONFIG_MK, "$filename");
|
||||
my @lines = <CONFIG_MK>;
|
||||
close(CONFIG_MK);
|
||||
return @lines;
|
||||
}
|
||||
|
||||
sub trim($)
|
||||
{
|
||||
my $string = shift;
|
||||
$string =~ s/^\s+//;
|
||||
$string =~ s/\s+$//;
|
||||
return $string;
|
||||
}
|
||||
|
||||
sub strlist($)
|
||||
{
|
||||
my $s = shift;
|
||||
$s =~ s/\$\(SHLIBEXT\)/so/g;
|
||||
$s =~ s/\$\(heimdalsrcdir\)/..\/heimdal/g;
|
||||
$s =~ s/\$\(heimdalbuildsrcdir\)/..\/heimdal_build/g;
|
||||
$s =~ s/\$\(nsswitchsrcdir\)/..\/nsswitch/g;
|
||||
$s =~ s/\$\(param_OBJ_FILES\)/..\/pyparam.c/g;
|
||||
$s =~ s/\$\(libclisrcdir\)\///g;
|
||||
|
||||
return trim(join(' ', split(/\s+/, $s)));
|
||||
}
|
||||
|
||||
sub find_file($)
|
||||
{
|
||||
my $f = shift;
|
||||
my $orig = $f;
|
||||
|
||||
my $b = basename($f);
|
||||
return $b if (-e $b);
|
||||
|
||||
return $f if (-e $f);
|
||||
while ($f =~ /\//) {
|
||||
$f =~ s/^[^\/]+\///g;
|
||||
#printf(STDERR "Trying $f in $dname\n");
|
||||
return $f if (-e $f);
|
||||
}
|
||||
my $f2;
|
||||
$f2 = `find . -name $f -type f`;
|
||||
return $f2 unless ($f2 eq "");
|
||||
$f2 = `find .. -name $f -type f`;
|
||||
return $f2 unless ($f2 eq "");
|
||||
$f2 = `find ../.. -name $f -type f`;
|
||||
return $f2 unless ($f2 eq "");
|
||||
$f2 = `find ../../.. -name $f -type f`;
|
||||
return $f2 unless ($f2 eq "");
|
||||
printf(STDERR "Failed to find $orig in $dname\n");
|
||||
exit(1);
|
||||
return '';
|
||||
}
|
||||
|
||||
sub find_files($)
|
||||
{
|
||||
my $list = shift;
|
||||
my $ret = '';
|
||||
foreach my $f (split(/\s+/, $list)) {
|
||||
$f = find_file($f);
|
||||
$f =~ s/^[.]\///;
|
||||
$ret .= ' ' . $f;
|
||||
}
|
||||
return strlist($ret);
|
||||
}
|
||||
|
||||
sub read_config_mk($)
|
||||
{
|
||||
my $filename = shift;
|
||||
my @lines = read_file($filename);
|
||||
my $prev = "";
|
||||
my $linenum = 1;
|
||||
my $section = "GLOBAL";
|
||||
my $infragment;
|
||||
my $result;
|
||||
my $line = "";
|
||||
my $secnumber = 1;
|
||||
|
||||
$result->{"GLOBAL"}->{SECNUMBER} = $secnumber++;
|
||||
|
||||
foreach (@lines) {
|
||||
$linenum++;
|
||||
|
||||
# lines beginning with '#' are ignored
|
||||
next if (/^\#.*$/);
|
||||
|
||||
if (/^(.*)\\$/) {
|
||||
$prev .= $1;
|
||||
next;
|
||||
} else {
|
||||
$line = "$prev$_";
|
||||
$prev = "";
|
||||
}
|
||||
|
||||
if ($line =~ /^\[(\w+)::([\w-]+)\]/)
|
||||
{
|
||||
my $type = $1;
|
||||
$section = $2;
|
||||
$infragment = 0;
|
||||
|
||||
$result->{$section}->{TYPE} = $type;
|
||||
$result->{$section}->{SECNUMBER} = $secnumber++;
|
||||
next;
|
||||
}
|
||||
|
||||
# include
|
||||
if ($line =~ /^mkinclude (.*)$/) {
|
||||
my $subfile = $1;
|
||||
$result->{$subfile}->{TYPE} = 'SUBCONFIG';
|
||||
$result->{$subfile}->{SECNUMBER} = $secnumber++;
|
||||
next;
|
||||
}
|
||||
|
||||
# empty line
|
||||
if ($line =~ /^[ \t]*$/) {
|
||||
next;
|
||||
}
|
||||
|
||||
# global stuff is considered part of the makefile
|
||||
if ($section eq "GLOBAL") {
|
||||
$infragment = 1;
|
||||
next;
|
||||
}
|
||||
|
||||
# Assignment
|
||||
if ($line =~ /^([a-zA-Z0-9_-]+)[\t ]*=(.*)$/) {
|
||||
$result->{$section}->{$1} = $2;
|
||||
next;
|
||||
}
|
||||
|
||||
# +=
|
||||
if ($line =~ /^([a-zA-Z0-9_-]+)[\t ]*\+=(.*)$/) {
|
||||
if (!$result->{$section}->{$1}) {
|
||||
$result->{$section}->{$1}="";
|
||||
}
|
||||
$result->{$section}->{$1} .= " " . $2;
|
||||
next;
|
||||
}
|
||||
|
||||
if ($line =~ /^\$\(eval/) {
|
||||
# skip eval lines for now
|
||||
next;
|
||||
}
|
||||
|
||||
printf(STDERR "$linenum: Bad line: $line\n");
|
||||
}
|
||||
|
||||
return $result;
|
||||
}
|
||||
|
||||
|
||||
my $result = read_config_mk($filename);
|
||||
|
||||
#print Dumper $result;
|
||||
|
||||
print "# AUTOGENERATED by mktowscript.pl\n# Please remove this notice if hand editing\n\n";
|
||||
|
||||
chdir($dname);
|
||||
|
||||
foreach my $s (sort {$result->{$a}->{SECNUMBER} <=> $result->{$b}->{SECNUMBER}} keys %{$result}) {
|
||||
next if ($s eq "GLOBAL");
|
||||
my $sec = $result->{$s};
|
||||
if ($sec->{TYPE} eq "SUBCONFIG") {
|
||||
my $d = dirname($s);
|
||||
next if ($d eq ".");
|
||||
printf "bld.add_subdirs('%s')\n", dirname($s);
|
||||
} else {
|
||||
printf "\nbld.SAMBA_%s('%s'", $sec->{TYPE}, $s;
|
||||
my $trailer="";
|
||||
my $got_src = 0;
|
||||
|
||||
foreach my $k (keys %{$sec}) {
|
||||
#print "key=$k\n";
|
||||
|
||||
next if ($k eq "SECNUMBER");
|
||||
next if ($k eq "TYPE");
|
||||
if ($k eq "INIT_FUNCTION") {
|
||||
$trailer .= sprintf(",\n\tinit_function='%s'", trim($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "INIT_FUNCTION_SENTINEL") {
|
||||
$trailer .= sprintf(",\n\tinit_function_sentinal='%s'", trim($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "_PY_FILES" ||
|
||||
$k eq "EPYDOC_OPTIONS" ||
|
||||
$k eq "COV_TARGET" ||
|
||||
$k eq "GCOV" ||
|
||||
$k eq "PC_FILES" ||
|
||||
$k eq "PUBLIC_HEADERS" ||
|
||||
$k eq "MANPAGES" ||
|
||||
$k eq "CONFIG4FILE" ||
|
||||
$k eq "LMHOSTSFILE4") {
|
||||
$trailer .= sprintf(",\n\t# %s='%s'", $k, trim($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "SUBSYSTEM") {
|
||||
$trailer .= sprintf(",\n\tsubsystem='%s'", trim($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "PRIVATE_DEPENDENCIES") {
|
||||
$trailer .= sprintf(",\n\tdeps='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "PUBLIC_DEPENDENCIES") {
|
||||
$trailer .= sprintf(",\n\tpublic_deps='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "ALIASES") {
|
||||
$trailer .= sprintf(",\n\taliases='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "CFLAGS") {
|
||||
$trailer .= sprintf(",\n\tcflags='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "LDFLAGS") {
|
||||
$trailer .= sprintf(",\n\tldflags='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "INSTALLDIR") {
|
||||
$trailer .= sprintf(",\n\tinstalldir='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "ENABLE") {
|
||||
my $v = strlist($sec->{$k});
|
||||
if ($v eq "NO") {
|
||||
$trailer .= sprintf(",\n\tenabled=False");
|
||||
next;
|
||||
}
|
||||
next if ($v eq "YES");
|
||||
die("Unknown ENABLE value $v in $s\n");
|
||||
}
|
||||
if ($k eq "$s" . "_VERSION") {
|
||||
$trailer .= sprintf(",\n\tvnum='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "$s" . "_SOVERSION") {
|
||||
next;
|
||||
}
|
||||
if ($k eq "LIBRARY_REALNAME") {
|
||||
$trailer .= sprintf(",\n\trealname='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "OUTPUT_TYPE") {
|
||||
$trailer .= sprintf(",\n\toutput_type='%s'", strlist($sec->{$k}));
|
||||
next;
|
||||
}
|
||||
if ($k eq "$s" . "_OBJ_FILES") {
|
||||
my $list = trim(strlist($sec->{$k}));
|
||||
$list =~ s/\.o/.c/g;
|
||||
if ($list =~ /\$\(addprefix .*,(.*)\)(.*)$/) {
|
||||
$list = trim("$1 $2");
|
||||
$list = find_files($list);
|
||||
$list = "'$list'";
|
||||
} elsif ($list =~ /\$\(addprefix \$\((\w+)\)(.*),(.*)\)(.*)$/) {
|
||||
my $src = trim($3);
|
||||
my $dir = "$1$2";
|
||||
$dir =~ s/\/$//;
|
||||
my $res = "bld.SUBDIR('$dir', '$src')";
|
||||
if ($4) {
|
||||
$res = "$res + '$4'";
|
||||
}
|
||||
$list = $res;
|
||||
} else {
|
||||
$list = find_files($list);
|
||||
$list="'$list'";
|
||||
}
|
||||
$list =~ s/\$\(\w+srcdir\)\///g;
|
||||
printf(",\n\t%s", $list);
|
||||
$got_src = 1;
|
||||
next;
|
||||
}
|
||||
die("Unknown keyword $k in $s\n");
|
||||
}
|
||||
die("No source list in $s\n") unless $got_src;
|
||||
printf("%s\n\t)\n\n", $trailer);
|
||||
}
|
||||
}
|
||||
|
||||
#print Dumper $result;
|
||||
29
buildtools/mktowscript/rebuild_all.sh
Executable file
29
buildtools/mktowscript/rebuild_all.sh
Executable file
@ -0,0 +1,29 @@
|
||||
#!/bin/bash
|
||||
|
||||
cat mklist.txt |
|
||||
while read f; do
|
||||
echo "Processing $f"
|
||||
f="../../$f"
|
||||
test -f $f || {
|
||||
echo "$f doesn't exist"
|
||||
exit 1
|
||||
}
|
||||
ws="$(dirname $f)/wscript_build"
|
||||
if [ -f $ws ]; then
|
||||
if ! grep "AUTOGENERATED.by.mktowscript" $ws > /dev/null; then
|
||||
echo "Skipping manually edited file $ws"
|
||||
continue
|
||||
fi
|
||||
fi
|
||||
./mktowscript.pl $f > wscript_build.$$ || {
|
||||
echo "Failed on $f"
|
||||
rm -f wscript_build.$$
|
||||
exit 1
|
||||
}
|
||||
if cmp wscript_build.$$ $ws 2> /dev/null; then
|
||||
rm -f wscript_build.$$
|
||||
else
|
||||
mv wscript_build.$$ $ws || exit 1
|
||||
fi
|
||||
#exit 1
|
||||
done
|
||||
Loading…
Reference in New Issue
Block a user