buildtools/mktowscript/mktowscript.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Data::Dumper;
   5 use File::Basename;
   6
   7 my $filename=$ARGV[0];
   8 my $dname=dirname($filename);
   9
  10 sub read_file($)
  11 {
  12         my $filename = shift;
  13         open(CONFIG_MK, "$filename");
  14         my @lines = <CONFIG_MK>;
  15         close(CONFIG_MK);
  16         return @lines;
  17 }
  18
  19 sub trim($)
  20 {
  21         my $string = shift;
  22         $string =~ s/^\s+//;
  23         $string =~ s/\s+$//;
  24         return $string;
  25 }
  26
  27 sub strlist($)
  28 {
  29         my $s = shift;
  30         $s =~ s/\$\(SHLIBEXT\)/so/g;
  31         $s =~ s/\$\(heimdalsrcdir\)/..\/heimdal/g;
  32         $s =~ s/\$\(heimdalbuildsrcdir\)/..\/heimdal_build/g;
  33         $s =~ s/\$\(nsswitchsrcdir\)/..\/nsswitch/g;
  34         $s =~ s/\$\(param_OBJ_FILES\)/..\/pyparam.c/g;
  35         $s =~ s/\$\(libclisrcdir\)\///g;
  36
  37         return trim(join(' ', split(/\s+/, $s)));
  38 }
  39
  40 sub find_file($)
  41 {
  42         my $f = shift;
  43         my $orig = $f;
  44
  45         my $b = basename($f);
  46         return $b if (-e $b);
  47
  48         return $f if (-e $f);
  49         while ($f =~ /\//) {
  50                 $f =~ s/^[^\/]+\///g;
  51                 #printf(STDERR "Trying $f in $dname\n");
  52                 return $f if (-e $f);
  53         }
  54         my $f2;
  55         $f2 = `find . -name $f -type f`;
  56         return $f2 unless ($f2 eq "");
  57         $f2 = `find .. -name $f -type f`;
  58         return $f2 unless ($f2 eq "");
  59         $f2 = `find ../.. -name $f -type f`;
  60         return $f2 unless ($f2 eq "");
  61         $f2 = `find ../../.. -name $f -type f`;
  62         return $f2 unless ($f2 eq "");
  63         printf(STDERR "Failed to find $orig in $dname\n");
  64         exit(1);
  65         return '';
  66 }
  67
  68 sub find_files($)
  69 {
  70         my $list = shift;
  71         my $ret = '';
  72         foreach my $f (split(/\s+/, $list)) {
  73                 $f = find_file($f);
  74                 $f =~ s/^[.]\///;
  75                 $ret .= ' ' . $f;
  76         }
  77         return strlist($ret);
  78 }
  79
  80 sub read_config_mk($)
  81 {
  82         my $filename = shift;
  83         my @lines = read_file($filename);
  84         my $prev = "";
  85         my $linenum = 1;
  86         my $section = "GLOBAL";
  87         my $infragment;
  88         my $result;
  89         my $line = "";
  90         my $secnumber = 1;
  91
  92         $result->{"GLOBAL"}->{SECNUMBER} = $secnumber++;
  93
  94         foreach (@lines) {
  95                 $linenum++;
  96
  97                 # lines beginning with '#' are ignored
  98                 next if (/^\#.*$/);
  99
 100                 if (/^(.*)\\$/) {
 101                         $prev .= $1;
 102                         next;
 103                 } else {
 104                         $line = "$prev$_";
 105                         $prev = "";
 106                 }
 107
 108                 if ($line =~ /^\[(\w+)::([\w-]+)\]/)
 109                 {
 110                         my $type = $1;
 111                         $section = $2;
 112                         $infragment = 0;
 113
 114                         $result->{$section}->{TYPE} = $type;
 115                         $result->{$section}->{SECNUMBER} = $secnumber++;
 116                         next;
 117                 }
 118
 119                 # include
 120                 if ($line =~ /^mkinclude (.*)$/) {
 121                         my $subfile = $1;
 122                         $result->{$subfile}->{TYPE} = 'SUBCONFIG';
 123                         $result->{$subfile}->{SECNUMBER} = $secnumber++;
 124                         next;
 125                 }
 126
 127                 # empty line
 128                 if ($line =~ /^[ \t]*$/) {
 129                         next;
 130                 }
 131
 132                 # global stuff is considered part of the makefile
 133                 if ($section eq "GLOBAL") {
 134                         $infragment = 1;
 135                         next;
 136                 }
 137
 138                 # Assignment
 139                 if ($line =~ /^([a-zA-Z0-9_-]+)[\t ]*=(.*)$/) {
 140                         $result->{$section}->{$1} = $2;
 141                         next;
 142                 }
 143
 144                 # +=
 145                 if ($line =~ /^([a-zA-Z0-9_-]+)[\t ]*\+=(.*)$/) {
 146                         if (!$result->{$section}->{$1}) {
 147                                 $result->{$section}->{$1}="";
 148                         }
 149                         $result->{$section}->{$1} .= " " . $2;
 150                         next;
 151                 }
 152
 153                 if ($line =~ /\$\(eval.\$\(call.proto_header_template.*,(.*),.*/) {
 154                         $result->{$section}->{AUTOPROTO} = $1;
 155                 }
 156                 if ($line =~ /^\$\(eval/) {
 157                         # skip eval lines for now
 158                         next;
 159                 }
 160
 161                 printf(STDERR "$linenum: Bad line: $line\n");
 162         }
 163
 164         return $result;
 165 }
 166
 167
 168 my $result = read_config_mk($filename);
 169
 170 #print Dumper $result;
 171
 172 print "# AUTOGENERATED by mktowscript.pl\n# Please remove this notice if hand editing\n\n";
 173
 174 chdir($dname);
 175
 176 foreach my $s (sort {$result->{$a}->{SECNUMBER} <=> $result->{$b}->{SECNUMBER}} keys %{$result}) {
 177     next if ($s eq "GLOBAL");
 178     my $sec = $result->{$s};
 179     if ($sec->{TYPE} eq "SUBCONFIG") {
 180             my $d = dirname($s);
 181             next if ($d eq ".");
 182             printf "bld.add_subdirs('%s')\n", dirname($s);
 183     } else {
 184             printf "\nbld.SAMBA_%s('%s'", $sec->{TYPE}, $s;
 185             my $trailer="";
 186             my $got_src = 0;
 187
 188             foreach my $k (keys %{$sec}) {
 189                     #print "key=$k\n";
 190
 191                     next if ($k eq "SECNUMBER");
 192                     next if ($k eq "TYPE");
 193                     if ($k eq "INIT_FUNCTION") {
 194                             $trailer .= sprintf(",\n\tinit_function='%s'", trim($sec->{$k}));
 195                             next;
 196                     }
 197                     if ($k eq "INIT_FUNCTION_SENTINEL") {
 198                             $trailer .= sprintf(",\n\tinit_function_sentinal='%s'", trim($sec->{$k}));
 199                             next;
 200                     }
 201                     if ($k eq "_PY_FILES" ||
 202                         $k eq "EPYDOC_OPTIONS" ||
 203                         $k eq "COV_TARGET" ||
 204                         $k eq "GCOV" ||
 205                         $k eq "PC_FILES" ||
 206                         $k eq "PUBLIC_HEADERS" ||
 207                         $k eq "MANPAGES" ||
 208                         $k eq "CONFIG4FILE" ||
 209                         $k eq "LMHOSTSFILE4") {
 210                             $trailer .= sprintf(",\n\t# %s='%s'", $k, trim($sec->{$k}));
 211                             next;
 212                     }
 213                     if ($k eq "SUBSYSTEM") {
 214                             $trailer .= sprintf(",\n\tsubsystem='%s'", trim($sec->{$k}));
 215                             next;
 216                     }
 217                     if ($k eq "PRIVATE_DEPENDENCIES") {
 218                             $trailer .= sprintf(",\n\tdeps='%s'", strlist($sec->{$k}));
 219                             next;
 220                     }
 221                     if ($k eq "PUBLIC_DEPENDENCIES") {
 222                             $trailer .= sprintf(",\n\tpublic_deps='%s'", strlist($sec->{$k}));
 223                             next;
 224                     }
 225                     if ($k eq "ALIASES") {
 226                             $trailer .= sprintf(",\n\taliases='%s'", strlist($sec->{$k}));
 227                             next;
 228                     }
 229                     if ($k eq "CFLAGS") {
 230                             $trailer .= sprintf(",\n\tcflags='%s'", strlist($sec->{$k}));
 231                             next;
 232                     }
 233                     if ($k eq "LDFLAGS") {
 234                             $trailer .= sprintf(",\n\tldflags='%s'", strlist($sec->{$k}));
 235                             next;
 236                     }
 237                     if ($k eq "INSTALLDIR") {
 238                             $trailer .= sprintf(",\n\tinstalldir='%s'", strlist($sec->{$k}));
 239                             next;
 240                     }
 241                     if ($k eq "ENABLE") {
 242                             my $v = strlist($sec->{$k});
 243                             if ($v eq "NO") {
 244                                     $trailer .= sprintf(",\n\tenabled=False");
 245                                     next;
 246                             }
 247                             next if ($v eq "YES");
 248                             die("Unknown ENABLE value $v in $s\n");
 249                     }
 250                     if ($k eq "$s" . "_VERSION") {
 251                             $trailer .= sprintf(",\n\tvnum='%s'", strlist($sec->{$k}));
 252                             next;
 253                     }
 254                     if ($k eq "$s" . "_SOVERSION") {
 255                             next;
 256                     }
 257                     if ($k eq "LIBRARY_REALNAME") {
 258                             $trailer .= sprintf(",\n\trealname='%s'", strlist($sec->{$k}));
 259                             next;
 260                     }
 261                     if ($k eq "OUTPUT_TYPE") {
 262                             $trailer .= sprintf(",\n\toutput_type='%s'", strlist($sec->{$k}));
 263                             next;
 264                     }
 265                     if ($k eq "AUTOPROTO") {
 266                             my $list = trim(find_files(strlist($sec->{$k})));
 267                             $trailer .= sprintf(",\n\tautoproto='%s'", $list);
 268                             next;
 269                     }
 270                     if ($k eq "$s" . "_OBJ_FILES") {
 271                             my $list = trim(strlist($sec->{$k}));
 272                             $list =~ s/\.o/.c/g;
 273                             if ($list =~ /\$\(addprefix .*,(.*)\)(.*)$/) {
 274                                     $list = trim("$1 $2");
 275                                     $list = find_files($list);
 276                                     $list = "'$list'";
 277                             } elsif ($list =~ /\$\(addprefix \$\((\w+)\)(.*),(.*)\)(.*)$/) {
 278                                     my $src = trim($3);
 279                                     my $dir = "$1$2";
 280                                     $dir =~ s/\/$//;
 281                                     my $res = "bld.SUBDIR('$dir', '$src')";
 282                                     if ($4) {
 283                                             $res = "$res + '$4'";
 284                                     }
 285                                     $list = $res;
 286                             } else {
 287                                     $list = find_files($list);
 288                                     $list="'$list'";
 289                             }
 290                             $list =~ s/\$\(\w+srcdir\)\///g;
 291                             printf(",\n\t%s", $list);
 292                             $got_src = 1;
 293                             next;
 294                     }
 295                     die("Unknown keyword $k in $s\n");
 296             }
 297             die("No source list in $s\n") unless $got_src;
 298             printf("%s\n\t)\n\n", $trailer);
 299     }
 300 }
 301
 302 #print Dumper $result;