1#!/usr/bin/perl -w 2 3# Expands the specialised KDE tags in Makefile.in to (hopefully) valid 4# make syntax. 5# When called without file parameters, we work recursively on all Makefile.in 6# in and below the current subdirectory. When called with file parameters, 7# only those Makefile.in are changed. 8# The currently supported tags are 9# 10# {program}_METASOURCES 11# where you have a choice of two styles 12# {program}_METASOURCES = name1.moc name2.moc ... [\] 13# {program}_METASOURCES = AUTO 14# The second style requires other tags as well. 15# 16# To install icons : 17# KDE_ICON = iconname iconname2 ... 18# KDE_ICON = AUTO 19# 20# For documentation : 21# http://developer.kde.org/documentation/other/developer-faq.html 22# 23# and more new tags TBD! 24# 25# The concept (and base code) for this program came from automoc, 26# supplied by the following 27# 28# Matthias Ettrich <ettrich@kde.org> (The originator) 29# Kalle Dalheimer <kalle@kde.org> (The original implementator) 30# Harri Porten <porten@tu-harburg.de> 31# Alex Zepeda <jazepeda@pacbell.net> 32# David Faure <faure@kde.org> 33# Stephan Kulow <coolo@kde.org> 34 35use Cwd; 36use File::Find; 37use File::Basename; 38 39# Prototype the functions 40sub initialise (); 41sub processMakefile ($); 42sub updateMakefile (); 43sub restoreMakefile (); 44 45sub removeLine ($$); 46sub appendLines ($); 47sub substituteLine ($$); 48 49sub findMocCandidates (); 50sub pruneMocCandidates ($); 51sub checkMocCandidates (); 52sub addMocRules (); 53 54sub tag_AUTOMAKE (); 55sub tag_META_INCLUDES (); 56sub tag_METASOURCES (); 57sub tag_POFILES (); 58sub tag_DOCFILES (); 59sub tag_LOCALINSTALL(); 60sub tag_IDLFILES(); 61sub tag_UIFILES(); 62sub tag_SUBDIRS(); 63sub tag_ICON(); 64sub tag_CLOSURE(); 65sub tag_DIST(); 66 67# Some global globals... 68$verbose = 0; # a debug flag 69$thisProg = "$0"; # This programs name 70$topdir = cwd(); # The current directory 71@makefiles = (); # Contains all the files we'll process 72@foreignfiles = (); 73$start = (times)[0]; # some stats for testing - comment out for release 74$version = "v0.2"; 75$errorflag = 0; 76$cppExt = "(cpp|cc|cxx|C|c\\+\\+)"; 77$hExt = "(h|H|hh|hxx|hpp|h\\+\\+)"; 78$progId = "KDE tags expanded automatically by " . basename($thisProg); 79$automkCall = "\n"; 80$printname = ""; # used to display the directory the Makefile is in 81$use_final = 1; # create code for --enable-final 82$cleantarget = "clean"; 83$dryrun = 0; 84$pathoption = 0; 85$foreign_libtool = 0; 86 87while (defined ($ARGV[0])) 88{ 89 $_ = shift; 90 if (/^--version$/) 91 { 92 print STDOUT "\n"; 93 print STDOUT basename($thisProg), " $version\n", 94 "This is really free software, unencumbered by the GPL.\n", 95 "You can do anything you like with it except sueing me.\n", 96 "Copyright 1998 Kalle Dalheimer <kalle\@kde.org>\n", 97 "Concept, design and unnecessary questions about perl\n", 98 " by Matthias Ettrich <ettrich\@kde.org>\n\n", 99 "Making it useful by Stephan Kulow <coolo\@kde.org> and\n", 100 "Harri Porten <porten\@kde.org>\n", 101 "Updated (Feb-1999), John Birch <jb.nz\@writeme.com>\n", 102 "Current Maintainer Stephan Kulow\n\n"; 103 exit 0; 104 } 105 elsif (/^--verbose$|^-v$/) 106 { 107 $verbose = 1; # Oh is there a problem...? 108 } 109 elsif (/^-p(.+)$|^--path=(.+)$/) 110 { 111 $thisProg = "$1/".basename($thisProg) if($1); 112 $thisProg = "$2/".basename($thisProg) if($2); 113 warn ("$thisProg doesn't exist\n") if (!(-f $thisProg)); 114 $pathoption=1; 115 } 116 elsif (/^--help$|^-h$/) 117 { 118 print STDOUT "Usage $thisProg [OPTION] ... [dir/Makefile.in]...\n", 119 "\n", 120 "Patches dir/Makefile.in generated by automake\n", 121 "(where dir can be an absolute or relative directory name)\n", 122 "\n", 123 " -v, --verbose verbosely list files processed\n", 124 " -h, --help print this help, then exit\n", 125 " --version print version number, then exit\n", 126 " -p, --path= use the path to am_edit if the path\n", 127 " called from is not the one to be used\n", 128 " --no-final don't patch for --enable-final\n"; 129 130 exit 0; 131 } 132 elsif (/^--no-final$/) 133 { 134 $use_final = 0; 135 $thisProg .= " --no-final"; 136 } 137 elsif (/^--foreign-libtool$/) 138 { 139 $foreign_libtool = 1; 140 $thisProg .= " --foreign-libtool"; 141 } 142 elsif (/^-n$/) 143 { 144 $dryrun = 1; 145 } 146 else 147 { 148 # user selects what input files to check 149 # add full path if relative path is given 150 $_ = cwd()."/".$_ if (! /^\//); 151 print "User wants $_\n" if ($verbose); 152 push (@makefiles, $_); 153 } 154} 155 156if ($thisProg =~ /^\// && !$pathoption ) 157{ 158 print STDERR "Illegal full pathname call performed...\n", 159 "The call to \"$thisProg\"\nwould be inserted in some Makefile.in.\n", 160 "Please use option --path.\n"; 161 exit 1; 162} 163 164# Only scan for files when the user hasn't entered data 165if (!@makefiles) 166{ 167 print STDOUT "Scanning for Makefile.in\n" if ($verbose); 168 find (\&add_makefile, cwd()); 169 #chdir('$topdir'); 170} else { 171 print STDOUT "Using input files specified by user\n" if ($verbose); 172} 173 174foreach $makefile (sort(@makefiles)) 175{ 176 processMakefile ($makefile); 177 last if ($errorflag); 178} 179 180# Just some debug statistics - comment out for release as it uses printf. 181printf STDOUT "Time %.2f CPU sec\n", (times)[0] - $start if ($verbose); 182 183exit $errorflag; # causes make to fail if erroflag is set 184 185#----------------------------------------------------------------------------- 186 187# In conjunction with the "find" call, this builds the list of input files 188sub add_makefile () 189{ 190 push (@makefiles, $File::Find::name) if (/Makefile.in$/); 191} 192 193#----------------------------------------------------------------------------- 194 195# Processes a single make file 196# The parameter contains the full path name of the Makefile.in to use 197sub processMakefile ($) 198{ 199 # some useful globals for the subroutines called here 200 local ($makefile) = @_; 201 local @headerdirs = ('.'); 202 local $haveAutomocTag = 0; 203 local $MakefileData = ""; 204 205 local $cxxsuffix = "KKK"; 206 207 local @programs = (); # lists the names of programs and libraries 208 local $program = ""; 209 210 local %realObjs = (); # lists the objects compiled into $program 211 local %sources = (); # lists the sources used for $program 212 local %finalObjs = (); # lists the objects compiled when final 213 local %realname = (); # the binary name of program variable 214 local %idlfiles = (); # lists the idl files used for $program 215 local %globalmocs = ();# list of all mocfiles (in %mocFiles format) 216 local %important = (); # list of files to be generated asap 217 local %uiFiles = (); 218 219 local $allidls = ""; 220 local $idl_output = "";# lists all idl generated files for cleantarget 221 local $ui_output = "";# lists all uic generated files for cleantarget 222 223 local %depedmocs = (); 224 225 local $metasourceTags = 0; 226 local $dep_files = ""; 227 local $dep_finals = ""; 228 local %target_adds = (); # the targets to add 229 local $kdelang = ""; 230 local @cleanfiles = (); 231 local $cleanMoc = ""; 232 local $closure_output = ""; 233 234 local %varcontent = (); 235 236 $makefileDir = dirname($makefile); 237 chdir ($makefileDir); 238 $printname = $makefile; 239 $printname =~ s/^\Q$topdir\E\///; 240 $makefile = basename($makefile); 241 242 print STDOUT "Processing makefile $printname\n" if ($verbose); 243 244 # Setup and see if we need to do this. 245 return if (!initialise()); 246 247 tag_AUTOMAKE (); # Allows a "make" to redo the Makefile.in 248 tag_META_INCLUDES (); # Supplies directories for src locations 249 250 foreach $program (@programs) { 251 $sources_changed{$program} = 0; 252 $depedmocs{$program} = ""; 253 $important{$program} = ""; 254 tag_IDLFILES(); # Sorts out idl rules 255 tag_CLOSURE(); 256 tag_UIFILES(); # Sorts out ui rules 257 tag_METASOURCES (); # Sorts out the moc rules 258 if ($sources_changed{$program}) { 259 my $lookup = "$program" . '_SOURCES\s*=\s*(.*)'; 260 substituteLine($lookup, "$program\_SOURCES=" . $sources{$program}); 261 } 262 if ($important{$program}) { 263 local %source_dict = (); 264 for $source (split(/[\034\s]+/, $sources{$program})) { 265 $source_dict{$source} = 1; 266 } 267 for $source (@cleanfiles) { 268 $source_dict{$source} = 0; 269 } 270 for $source (keys %source_dict) { 271 next if (!$source); 272 if ($source_dict{$source}) { 273 # sanity check 274 if (! -f $source) { 275 print STDERR "Error: $source is listed in a _SOURCE line in $printname, but doesn't exist yet. Put it in DISTCLEANFILES!\n"; 276 } else { 277 $target_adds{"\$(srcdir)/$source"} .= $important{$program}; 278 } 279 } 280 } 281 } 282 } 283 if ($cleanMoc) { 284 # Always add dist clean tag 285 # Add extra *.moc.cpp files created for USE_AUTOMOC because they 286 # aren't included in the normal *.moc clean rules. 287 appendLines ("$cleantarget-metasources:\n\t-rm -f $cleanMoc\n"); 288 $target_adds{"$cleantarget-am"} .= "$cleantarget-metasources "; 289 } 290 291 tag_DIST() unless ($kdeopts{"noautodist"}); 292 293 if ($idl_output) { 294 appendLines ("$cleantarget-idl:\n\t-rm -f $idl_output\n"); 295 $target_adds{"$cleantarget-am"} .= "$cleantarget-idl "; 296 } 297 298 if ($ui_output) { 299 appendLines ("$cleantarget-ui:\n\t-rm -f $ui_output\n"); 300 $target_adds{"$cleantarget-am"} .= "$cleantarget-ui "; 301 } 302 303 if ($closure_output) { 304 appendLines ("$cleantarget-closures:\n\t-rm -f $closure_output\n"); 305 $target_adds{"$cleantarget-am"} .= "$cleantarget-closures "; 306 } 307 308 if ($MakefileData =~ /\nKDE_LANG\s*=\s*(\S*)\s*\n/) { 309 $kdelang = '$(KDE_LANG)' 310 } else { 311 $kdelang = ''; 312 } 313 314 tag_POFILES (); # language rules for po directory 315 tag_DOCFILES (); # language rules for doc directories 316 tag_LOCALINSTALL(); # add $(DESTDIR) before all kde_ dirs 317 tag_ICON(); 318 tag_SUBDIRS(); 319 320 my $tmp = "force-reedit:\n"; 321 $tmp .= "\t$automkCall\n\tcd \$(top_srcdir) && perl $thisProg $printname\n\n"; 322 appendLines($tmp); 323 324 make_meta_classes(); 325 tag_COMPILE_FIRST(); 326 tag_FINAL() if (!$kdeopts{"nofinal"}); 327 328 my $final_lines = "final:\n\t\$(MAKE) "; 329 my $final_install_lines = "final-install:\n\t\$(MAKE) "; 330 my $nofinal_lines = "no-final:\n\t\$(MAKE) "; 331 my $nofinal_install_lines = "no-final-install:\n\t\$(MAKE) "; 332 333 foreach $program (@programs) { 334 335 my $lookup = "$program\_OBJECTS.*=[^\n]*"; 336 337 my $new = ""; 338 339 my @list = split(/[\034\s]+/, $realObjs{$program}); 340 341 if (!$kdeopts{"nofinal"} && @list > 1 && $finalObjs{$program}) { 342 343 $new .= "$program\_final\_OBJECTS = " . $finalObjs{$program}; 344 $new .= "\n$program\_nofinal\_OBJECTS = " . $realObjs{$program}; 345 $new .= "\n\@KDE_USE_FINAL_FALSE\@$program\_OBJECTS = \$($program\_nofinal\_OBJECTS)"; 346 $new .= "\n\@KDE_USE_FINAL_TRUE\@$program\_OBJECTS = \$($program\_final\_OBJECTS)"; 347 348 $final_lines .= "$program\_OBJECTS=\"\$($program\_final_OBJECTS)\" "; 349 $final_install_lines .= "$program\_OBJECTS=\"\$($program\_final_OBJECTS)\" "; 350 $nofinal_lines .= "$program\_OBJECTS=\"\$($program\_nofinal\_OBJECTS)\" "; 351 $nofinal_install_lines .= "$program\_OBJECTS=\"\$($program\_nofinal_OBJECTS)\" "; 352 } else { 353 $new = "$program\_OBJECTS = " . $realObjs{$program}; 354 } 355 substituteLine ($lookup, $new); 356 } 357 appendLines($final_lines . "all-am"); 358 appendLines($final_install_lines . "install-am"); 359 appendLines($nofinal_lines . "all-am"); 360 appendLines($nofinal_install_lines . "install-am"); 361 362 my $lookup = '(\@\S+\@)?DEP_FILES\s*=([^\n]*)'; 363 if ($MakefileData =~ /\n$lookup\n/o) { 364 my $condition = $1; 365 my $depfiles = $2; 366 my $workfiles; 367 368 if ($dep_finals) { 369 # Add the conditions on every line, since 370 # there may be line continuations in the list. 371 $workfiles = "$dep_files $dep_finals $depfiles"; 372 $workfiles =~ s/\034/\034$condition\@KDE_USE_FINAL_TRUE\@\t/g; 373 $lines = "$condition\@KDE_USE_FINAL_TRUE\@DEP_FILES = $workfiles\n"; 374 $workfiles = "$dep_files $depfiles"; 375 $workfiles =~ s/\034/\034$condition\@KDE_USE_FINAL_FALSE\@\t/g; 376 $lines .= "$condition\@KDE_USE_FINAL_FALSE\@DEP_FILES = $workfiles\n"; 377 } else { 378 $workfiles = "$dep_files $depfiles"; 379 $workfiles =~ s/\034/\034$condition\t/g; 380 $lines = $condition . "DEP_FILES = $workfiles\n"; 381 } 382 substituteLine($lookup, $lines); 383 } 384 385 my $cvs_lines = "cvs-clean:\n"; 386 $cvs_lines .= "\t\$(MAKE) admindir=\$(top_srcdir)/admin -f \$(top_srcdir)/admin/Makefile.common cvs-clean\n"; 387 appendLines($cvs_lines); 388 389 $cvs_lines = "kde-rpo-clean:\n"; 390 $cvs_lines .= "\t-rm -f *.rpo\n"; 391 appendLines($cvs_lines); 392 $target_adds{"clean"} .= "kde-rpo-clean "; 393 394 my %target_dels = ("install-data-am" => ""); 395 396 # some strange people like to do a install-exec, and expect that also 397 # all modules are installed. automake doesn't know this, so we need to move 398 # this here from install-data to install-exec. 399 if ($MakefileData =~ m/\nkde_module_LTLIBRARIES\s*=/) { 400# $target_adds{"install-exec-am"} .= "install-kde_moduleLTLIBRARIES "; 401# don't use $target_adds here because we need to append the dependency, not 402# prepend it. Fixes #44342 , when a module depends on a lib in the same dir 403# and libtool needs it during relinking upon install (Simon) 404 my $lookup = "install-exec-am:([^\n]*)"; 405 if($MakefileData =~ /\n$lookup\n/) { 406 substituteLine("$lookup", "install-exec-am: $1 install-kde_moduleLTLIBRARIES"); 407 } 408 $target_dels{"install-data-am"} .= "install-kde_moduleLTLIBRARIES "; 409 $target_adds{"install-data-am"} .= " "; 410 } 411 412 my $lines = ""; 413 414 foreach $add (keys %target_adds) { 415 my $lookup = quotemeta($add) . ':([^\n]*)'; 416 if ($MakefileData =~ /\n$lookup\n/) { 417 my $newlines = $1; 418 my $oldlines = $lookup; 419 if (defined $target_dels{$add}) { 420 foreach $del (split(' ', $target_dels{$add})) { 421 $newlines =~ s/\s*$del\s*/ /g; 422 } 423 } 424 substituteLine($oldlines, "$add: " . $target_adds{$add} . $newlines); 425 } else { 426 $lines .= "$add: " . $target_adds{$add} . "\n"; 427 } 428 } 429 if ($lines) { 430 appendLines($lines); 431 } 432 433 my $found = 1; 434 435 while ($found) { 436 if ($MakefileData =~ m/\n(.*)\$\(CXXFLAGS\)(.*)\n/) { 437 my $vor = $1; # "vor" means before in German 438 my $nach = $2; # "nach" means after in German 439 my $lookup = quotemeta("$1\$(CXXFLAGS)$2"); 440 my $replacement = "$1\$(KCXXFLAGS)$2"; 441 $MakefileData =~ s/$lookup/$replacement/; 442 $lookup =~ s/\\\$\\\(CXXFLAGS\\\)/\\\$\\\(KCXXFLAGS\\\)/; 443 $replacement = "$vor\$(KCXXFLAGS) \$(KDE_CXXFLAGS)$nach"; 444 substituteLine($lookup, $replacement); 445 } else { 446 $found = 0; 447 } 448 } 449 450 if($foreign_libtool == 0) { 451 $lookup = '(\n[^#].*\$\(LIBTOOL\) --mode=link) (\$\(CXXLD\).*\$\(KCXXFLAGS\))'; 452 453 if ($MakefileData =~ m/$lookup/ ) { 454 $MakefileData =~ s/$lookup/$1 --tag=CXX $2/; 455 } 456 457 $lookup = '(\n[^#].*\$\(LIBTOOL\) --mode=compile)\s+(\$\(CXX\)\s+)'; 458 if ($MakefileData =~ m/$lookup/ ) { 459 $MakefileData =~ s/$lookup/$1 --tag=CXX $2/; 460 } 461 } 462 463 $MakefileData =~ s/\$\(KCXXFLAGS\)/\$\(CXXFLAGS\)/g; 464 465 $lookup = '(.*)cp -pr \$\$/\$\$file \$\(distdir\)/\$\$file(.*)'; 466 if ($MakefileData =~ m/\n$lookup\n/) { 467 substituteLine($lookup, "$1cp -pr \$\$d/\$\$file \$(distdir)/\$\$file$2"); 468 } 469 470 # Always update the Makefile.in 471 updateMakefile (); 472 return; 473} 474 475#----------------------------------------------------------------------------- 476 477# Beware: This procedure is not complete. E.g. it also parses lines 478# containing a '=' in rules (for instance setting shell vars). For our 479# usage this us enough, though. 480sub read_variables () 481{ 482 while ($MakefileData =~ /\n\s*(\S+)\s*=([^\n]*)/g) { 483 $varcontent{$1} = $2; 484 } 485} 486 487# Check to see whether we should process this make file. 488# This is where we look for tags that we need to process. 489# A small amount of initialising on the tags is also done here. 490# And of course we open and/or create the needed make files. 491sub initialise () 492{ 493 if (! -r "Makefile.am") { 494 print STDOUT "found Makefile.in without Makefile.am\n" if ($verbose); 495 return 0; 496 } 497 498 # Checking for files to process... 499 open (FILEIN, $makefile) 500 || die "Could not open $makefileDir/$makefile: $!\n"; 501 # Read the file 502 # stat(FILEIN)[7] might look more elegant, but is slower as it 503 # requires stat'ing the file 504 seek(FILEIN, 0, 2); 505 my $fsize = tell(FILEIN); 506 seek(FILEIN, 0, 0); 507 read FILEIN, $MakefileData, $fsize; 508 close FILEIN; 509 print "DOS CRLF within $makefileDir/$makefile!\n" if($MakefileData =~ y/\r//d); 510 511 # Remove the line continuations, but keep them marked 512 # Note: we lose the trailing spaces but that's ok. 513 # Don't mangle line-leading spaces (usually tabs) 514 # since they're important. 515 $MakefileData =~ s/\\\s*\n/\034/g; 516 517 # If we've processed the file before... 518 restoreMakefile () if ($MakefileData =~ /$progId/); 519 520 foreach $dir (@foreignfiles) { 521 if (substr($makefileDir,0,length($dir)) eq $dir) { 522 return 0; 523 } 524 } 525 526 %kdeopts = (); 527 $kdeopts{"foreign"} = 0; 528 $kdeopts{"qtonly"} = 0; 529 $kdeopts{"noautodist"} = 0; 530 $kdeopts{"foreign-libtool"} = $foreign_libtool; 531 $kdeopts{"nofinal"} = !$use_final; # default 532 533 read_variables(); 534 535 if ($MakefileData =~ /\nKDE_OPTIONS\s*=\s*([^\n]*)\n/) { 536 my $kde_options_str = $1; 537 local @kde_options = split(/[\034\s]+/, $kde_options_str); 538 if (grep(/^foreign$/, @kde_options)) { 539 push(@foreignfiles, $makefileDir . "/"); 540 return 0; # don't touch me 541 } 542 for $opt (@kde_options) { 543 if (!defined $kdeopts{$opt}) { 544 print STDERR "Warning: unknown option $opt in $printname\n"; 545 } else { 546 $kdeopts{$opt} = 1; 547 } 548 } 549 } 550 551 # Look for the tags that mean we should process this file. 552 $metasourceTags = 0; 553 $metasourceTags++ while ($MakefileData =~ /\n[^=\#]*METASOURCES\s*=/g); 554 555 my $pofileTag = 0; 556 $pofileTag++ while ($MakefileData =~ /\nPOFILES\s*=/g); 557 if ($pofileTag > 1) 558 { 559 print STDERR "Error: Only one POFILES tag allowed\n"; 560 $errorflag = 1; 561 } 562 563 while ($MakefileData =~ /\n\.SUFFIXES:([^\n]+)\n/g) { 564 my $suffixes_str = $1; 565 my @list=split(' ', $suffixes_str); 566 foreach $ext (@list) { 567 if ($ext =~ /^\.$cppExt$/) { 568 $cxxsuffix = $ext; 569 $cxxsuffix =~ s/\.//g; 570 print STDOUT "will use suffix $cxxsuffix\n" if ($verbose); 571 last; 572 } 573 } 574 } 575 576 while ($MakefileData =~ /\n(\S*)_OBJECTS\s*=[\034\s]*([^\n]*)\n/g) { 577 578 my $program = $1; 579 my $objs = $2; # safe them 580 581 my $ocv = 0; 582 583 my @objlist = split(/[\034\s]+/, $objs); 584 foreach $obj (@objlist) { 585 if ($obj =~ /(\S*)\$\((\S+)\)/ ) { 586 my $pre = $1; 587 my $variable = $2; 588 if ($pre eq '' && exists($varcontent{$variable})) { 589 my @addlist = split(/[\034\s]+/, $varcontent{$variable}); 590 push(@objlist, @addlist); 591 } elsif ($variable !~ 'OBJEXT') { 592 $ocv = 1; 593 } 594 } 595 } 596 597 next if ($ocv); 598 599 $program =~ s/^am_// if ($program =~ /^am_/); 600 601 my $sourceprogram = $program; 602 $sourceprogram =~ s/\@am_/\@/ if($sourceprogram =~ /^.*\@am_.+/); 603 604 print STDOUT "found program $program\n" if ($verbose); 605 push(@programs, $program); 606 607 $realObjs{$program} = $objs; 608 609 if ($MakefileData =~ /\n$sourceprogram\_SOURCES\s*=\s*(.*)\n/) { 610 $sources{$program} = $1; 611 } 612 else { 613 $sources{$program} = ""; 614 print STDERR "found program with no _SOURCES: $program\n"; 615 } 616 617 my $realprogram = $program; 618 $realprogram =~ s/_/./g; # unmask to regexp 619 if ($MakefileData =~ /\n($realprogram)(\$\(EXEEXT\)?)?:.*\$\($program\_OBJECTS\)/) { 620 $realname{$program} = $1; 621 } else { 622 # not standard Makefile - nothing to worry about 623 $realname{$program} = ""; 624 } 625 } 626 627 my $lookup = 'DEPDIR\s*=.*'; 628 if ($MakefileData !~ /\n($lookup)\n/o) { 629 $lookup = 'bindir\s*=.*'; 630 if ($MakefileData =~ /\n($lookup)\n/) { 631 substituteLine ($lookup, "DEPDIR = .deps\n$1"); 632 } 633 } 634 635 my @marks = ('MAINTAINERCLEANFILES', 'CLEANFILES', 'DISTCLEANFILES'); 636 foreach $mark (@marks) { 637 while ($MakefileData =~ /\n($mark)\s*=\s*([^\n]*)/g) { 638 my $clean_str = $2; 639 foreach $file (split('[\034\s]+', $clean_str)) { 640 $file =~ s/\.\///; 641 push(@cleanfiles, $file); 642 } 643 } 644 } 645 646 my $localTag = 0; 647 $localTag++ if ($MakefileData =~ /\ninstall-\S+-local:/); 648 649 return (!$errorflag); 650} 651 652#----------------------------------------------------------------------------- 653 654# Gets the list of user defined directories - relative to $srcdir - where 655# header files could be located. 656sub tag_META_INCLUDES () 657{ 658 my $lookup = '[^=\n]*META_INCLUDES\s*=\s*(.*)'; 659 return 1 if ($MakefileData !~ /($lookup)\n/o); 660 print STDOUT "META_INCLUDE processing <$1>\n" if ($verbose); 661 662 my $headerStr = $2; 663 removeLine ($lookup, $1); 664 665 my @headerlist = split(/[\034\s]+/, $headerStr); 666 667 foreach $dir (@headerlist) 668 { 669 $dir =~ s#\$\(srcdir\)#.#; 670 if (! -d $dir) 671 { 672 print STDERR "Warning: $dir can't be found. ", 673 "Must be a relative path to \$(srcdir)\n"; 674 } 675 else 676 { 677 push (@headerdirs, $dir); 678 } 679 } 680 681 return 0; 682} 683 684#----------------------------------------------------------------------------- 685 686sub tag_FINAL() 687{ 688 my @final_names = (); 689 690 foreach $program (@programs) { 691 692 if ($sources{$program} =~ /\(/) { 693 print STDOUT "found ( in $program\_SOURCES. skipping\n" if ($verbose); 694 next; 695 } 696 697 my $mocs = ""; # Moc files (in this program) 698 my $moc_cpp_added = 0; # If we added some .moc.cpp files, due to 699 # no other .cpp file including the .moc one. 700 701 my @progsources = split(/[\034\s]+/, $sources{$program}); 702 my %shash = (); 703 @shash{@progsources} = 1; # we are only interested in the existence 704 my %sourcelist = (); 705 706 foreach $source (@progsources) { 707 my $suffix = $source; 708 $suffix =~ s/^.*\.([^\.]+)$/$1/; 709 710 $sourcelist{$suffix} .= "$source "; 711 } 712 foreach my $mocFile (keys (%globalmocs)) 713 { 714 my ($dir, $hFile, $cppFile) = split ("\035", $globalmocs{$mocFile}, 3); 715 if (defined ($cppFile)) { 716 $mocs .= " $mocFile.moc" if exists $shash{$cppFile}; 717 } else { 718 $sourcelist{$cxxsuffix} .= "$mocFile.moc.$cxxsuffix "; 719 $moc_cpp_added = 1; 720 } 721 } 722 foreach $suffix (keys %sourcelist) { 723 724 # See if this file contains c++ code. (i.e., just check the file's suffix against c++ extensions) 725 my $suffix_is_cxx = 0; 726 if($suffix =~ /($cppExt)$/) { 727 $cxxsuffix = $1; 728 $suffix_is_cxx = 1; 729 } 730 731 my $mocfiles_in = ($suffix eq $cxxsuffix) && $moc_cpp_added; 732 733 my @sourcelist = split(/[\034\s]+/, $sourcelist{$suffix}); 734 735 if ((@sourcelist == 1 && !$mocfiles_in) || $suffix_is_cxx != 1 ) { 736 737 # we support IDL on our own 738 if ($suffix eq "skel" || $suffix =~ /^stub/ 739 || $suffix =~ /^signals/ # obsolete, remove in KDE-4 740 || $suffix eq "h" || $suffix eq "ui" ) { 741 next; 742 } 743 744 foreach $file (@sourcelist) { 745 $file =~ s/\Q$suffix\E$//; 746 747 $finalObjs{$program} .= $file; 748 if ($program =~ /_la$/) { 749 $finalObjs{$program} .= "lo "; 750 } else { 751 $finalObjs{$program} .= "o "; 752 } 753 } 754 next; # suffix 755 } 756 757 my $source_deps = ""; 758 foreach $source (@sourcelist) { 759 if (-f $source) { 760 $source_deps .= " \$(srcdir)/$source"; 761 } else { 762 $source_deps .= " $source"; 763 } 764 } 765 766 $handling = "$program.all_$suffix.$suffix: \$(srcdir)/Makefile.in" . $source_deps . " " . join(' ', $mocs) . "\n"; 767 $handling .= "\t\@echo 'creating $program.all_$suffix.$suffix ...'; \\\n"; 768 $handling .= "\trm -f $program.all_$suffix.files $program.all_$suffix.final; \\\n"; 769 $handling .= "\techo \"#define KDE_USE_FINAL 1\" >> $program.all_$suffix.final; \\\n"; 770 $handling .= "\tfor file in " . $sourcelist{$suffix} . "; do \\\n"; 771 $handling .= "\t echo \"#include \\\"\$\$file\\\"\" >> $program.all_$suffix.files; \\\n"; 772 $handling .= "\t test ! -f \$\(srcdir\)/\$\$file || egrep '^#pragma +implementation' \$\(srcdir\)/\$\$file >> $program.all_$suffix.final; \\\n"; 773 $handling .= "\tdone; \\\n"; 774 $handling .= "\tcat $program.all_$suffix.final $program.all_$suffix.files > $program.all_$suffix.$suffix; \\\n"; 775 $handling .= "\trm -f $program.all_$suffix.final $program.all_$suffix.files\n"; 776 777 appendLines($handling); 778 779 push(@final_names, "$program.all_$suffix.$suffix"); 780 my $finalObj = "$program.all_$suffix."; 781 if ($program =~ /_la$/) { 782 $finalObj .= "lo"; 783 } else { 784 $finalObj .= "o"; 785 } 786 $finalObjs{$program} .= $finalObj . " "; 787 } 788 } 789 790 if (!$kdeopts{"nofinal"} && @final_names >= 1) { 791 # add clean-final target 792 my $lines = "$cleantarget-final:\n"; 793 $lines .= "\t-rm -f " . join(' ', @final_names) . "\n" if (@final_names); 794 appendLines($lines); 795 $target_adds{"$cleantarget-am"} .= "$cleantarget-final "; 796 797 foreach $finalfile (@final_names) { 798 $finalfile =~ s/\.[^.]*$/.P/; 799 $dep_finals .= " \$(DEPDIR)/$finalfile"; 800 } 801 } 802} 803 804#----------------------------------------------------------------------------- 805 806sub tag_COMPILE_FIRST() 807{ 808 foreach $program (@programs) { 809 my $lookup = "$program" . '_COMPILE_FIRST\s*=\s*(.*)'; 810 if ($MakefileData =~ m/\n$lookup\n/) { 811 my $compilefirst_str = $1; 812 my @compilefirst = split(/[\034\s]+/, $compilefirst_str); 813 my @progsources = split(/[\034\s]+/, $sources{$program}); 814 my %donesources = (); 815 $handling = ""; 816 foreach $source (@progsources) { 817 my @deps = (); 818 my $sdeps = ""; 819 if (-f $source) { 820 $sdeps = "\$(srcdir)/$source"; 821 } else { 822 $sdeps = "$source"; 823 } 824 foreach $depend (@compilefirst) { 825 next if ($source eq $depend); 826 # avoid cyclic dependencies 827 next if defined($donesources{$depend}); 828 push @deps, $depend; 829 } 830 $handling .= "$sdeps: " . join(' ', @deps) . "\n" if (@deps); 831 $donesources{$source} = 1; 832 } 833 appendLines($handling) if (length($handling)); 834 } 835 } 836} 837 838#----------------------------------------------------------------------------- 839 840 841# Organises the list of headers that we'll use to produce moc files 842# from. 843sub tag_METASOURCES () 844{ 845 local @newObs = (); # here we add to create object files 846 local @deped = (); # here we add to create moc files 847 local $mocExt = ".moc"; 848 local %mocFiles = (); 849 850 my $line = ""; 851 my $postEqual = ""; 852 853 my $lookup; 854 my $found = ""; 855#print "$program: tag_METASOURCES\n"; 856 if ($metasourceTags > 1) { 857 $lookup = $program . '_METASOURCES\s*=\s*(.*)'; 858 return 1 if ($MakefileData !~ /\n($lookup)\n/); 859 $found = $1; 860 } else { 861 $lookup = $program . '_METASOURCES\s*=\s*(.*)'; 862 if ($MakefileData !~ /\n($lookup)\n/) { 863 $lookup = 'METASOURCES\s*=\s*(.*)'; 864 return 1 if ($MakefileData !~ /\n($lookup)\n/o); 865 $found = $1; 866 $metasourceTags = 0; # we can use the general target only once 867 } else { 868 $found = $1; 869 } 870 } 871 print STDOUT "METASOURCE processing <$found>)\n" if ($verbose); 872 873 $postEqual = $found; 874 $postEqual =~ s/[^=]*=//; 875 876 removeLine ($lookup, $found); 877 878 # Always find the header files that could be used to "moc" 879 return 1 if (findMocCandidates ()); 880 881 if ($postEqual =~ /AUTO\s*(\S*)|USE_AUTOMOC\s*(\S*)/) 882 { 883 print STDERR "$printname: the argument for AUTO|USE_AUTOMOC is obsolete" if ($+); 884 $mocExt = ".moc.$cxxsuffix"; 885 $haveAutomocTag = 1; 886 } 887 else 888 { 889 # Not automoc so read the list of files supplied which 890 # should be .moc files. 891 892 $postEqual =~ tr/\034/ /; 893 894 # prune out extra headers - This also checks to make sure that 895 # the list is valid. 896 pruneMocCandidates ($postEqual); 897 } 898 899 checkMocCandidates (); 900 901 if (@newObs) { 902 my $ext = ($program =~ /_la$/) ? ".moc.lo " : ".moc.o "; 903 $realObjs{$program} .= "\034" . join ($ext, @newObs) . $ext; 904 $depedmocs{$program} = join (".moc.$cxxsuffix " , @newObs) . ".moc.$cxxsuffix"; 905 foreach $file (@newObs) { 906 $dep_files .= " \$(DEPDIR)/$file.moc.P" if($dep_files !~/$file.moc.P/); 907 } 908 } 909 if (@deped) { 910 $depedmocs{$program} .= " "; 911 $depedmocs{$program} .= join('.moc ', @deped) . ".moc"; 912 $depedmocs{$program} .= " "; 913 } 914 addMocRules (); 915 @globalmocs{keys %mocFiles}=values %mocFiles; 916} 917 918#----------------------------------------------------------------------------- 919 920# Returns 0 if the line was processed - 1 otherwise. 921# Errors are logged in the global $errorflags 922sub tag_AUTOMAKE () 923{ 924 my $lookup = '.*cd \$\(top_srcdir\)\s+&&[\034\s]+\$\(AUTOMAKE\)(.*)'; 925 return 1 if ($MakefileData !~ /\n($lookup)\n/); 926 print STDOUT "AUTOMAKE processing <$1>\n" if ($verbose); 927 928 my $newLine = $1."\n\tcd \$(top_srcdir) && perl $thisProg $printname"; 929 substituteLine ($lookup, $newLine); 930 $automkCall = $1; 931 return 0; 932} 933 934#----------------------------------------------------------------------------- 935 936sub handle_TOPLEVEL() 937{ 938 my $pofiles = ""; 939 my @restfiles = (); 940 opendir (THISDIR, "."); 941 foreach $entry (readdir(THISDIR)) { 942 next if (-d $entry); 943 944 next if ($entry eq "CVS" || $entry =~ /^\./ || $entry =~ /^Makefile/ || $entry =~ /~$/ || $entry =~ /^\#.*\#$/ || $entry =~ /.gmo$/); 945 946 if ($entry =~ /\.po$/) { 947 next; 948 } 949 push(@restfiles, $entry); 950 } 951 closedir (THISDIR); 952 953 if (@restfiles) { 954 $target_adds{"install-data-am"} .= "install-nls-files "; 955 $lines = "install-nls-files:\n"; 956 $lines .= "\t\$(mkinstalldirs) \$(DESTDIR)\$(kde_locale)/$kdelang\n"; 957 for $file (@restfiles) { 958 $lines .= "\t\$(INSTALL_DATA) \$\(srcdir\)/$file \$(DESTDIR)\$(kde_locale)/$kdelang/$file\n"; 959 } 960 $target_adds{"uninstall"} .= "uninstall-nls-files "; 961 $lines .= "uninstall-nls-files:\n"; 962 for $file (@restfiles) { 963 $lines .= "\t-rm -f \$(DESTDIR)\$(kde_locale)/$kdelang/$file\n"; 964 } 965 appendLines($lines); 966 } 967 968 return 0; 969} 970 971#----------------------------------------------------------------------------- 972 973sub tag_SUBDIRS () 974{ 975 if ($MakefileData !~ /\nSUBDIRS\s*=\s*\$\(AUTODIRS\)\s*\n/) { 976 return 1; 977 } 978 979 my $subdirs = "."; 980 981 opendir (THISDIR, "."); 982 foreach $entry (readdir(THISDIR)) { 983 next if ($entry eq "CVS" || $entry =~ /^\./); 984 if (-d $entry && -f $entry . "/Makefile.am") { 985 $subdirs .= " $entry"; 986 next; 987 } 988 } 989 closedir (THISDIR); 990 991 my $lines = "SUBDIRS =$subdirs\n"; 992 substituteLine('SUBDIRS\s*=.*', $lines); 993 return 0; 994} 995 996sub tag_IDLFILES () 997{ 998 my @psources = split(/[\034\s]+/, $sources{$program}); 999 my $dep_lines = ""; 1000 my @cppFiles = (); 1001 1002 foreach $source (@psources) { 1003 1004 my $skel = ($source =~ m/\.skel$/); 1005 my $stub = ($source =~ m/\.stub$/); 1006 my $signals = ($source =~ m/\.signals$/); # obsolete, remove in KDE-4 1007 1008 if ($stub || $skel || $signals) { 1009 1010 my $qs = quotemeta($source); 1011 $sources{$program} =~ s/$qs//; 1012 $sources_changed{$program} = 1; 1013 1014 print STDOUT "adding IDL file $source\n" if ($verbose); 1015 1016 $source =~ s/\.(stub|skel|signals)$//; 1017 1018 my $sourcename; 1019 1020 if ($skel) { 1021 $sourcename = "$source\_skel"; 1022 } elsif ($stub) { 1023 $sourcename = "$source\_stub"; 1024 } else { 1025 $sourcename = "$source\_signals"; 1026 } 1027 1028 my $sourcedir = ''; 1029 if (-f "$makefileDir/$source.h") { 1030 $sourcedir = '$(srcdir)/'; 1031 } else { 1032 if ($MakefileData =~ /\n$source\_DIR\s*=\s*(\S+)\n/) { 1033 $sourcedir = $1; 1034 $sourcedir .= "/" if ($sourcedir !~ /\/$/); 1035 } 1036 } 1037 1038 if ($allidls !~ /$source\_kidl/) { 1039 1040 $dep_lines .= "$source.kidl: $sourcedir$source.h \$(DCOP_DEPENDENCIES)\n"; 1041 $dep_lines .= "\t\$(DCOPIDL) $sourcedir$source.h > $source.kidl || ( rm -f $source.kidl ; false )\n"; 1042 1043 $allidls .= $source . "_kidl "; 1044 } 1045 1046 if ($allidls !~ /$sourcename/) { 1047 1048 $dep_lines_tmp = ""; 1049 1050 if ($skel) { 1051 $dep_lines .= "$sourcename.$cxxsuffix: $source.kidl\n"; 1052 $dep_lines .= "\t\$(DCOPIDL2CPP) --c++-suffix $cxxsuffix --no-signals --no-stub $source.kidl\n"; 1053 } elsif ($stub) { 1054 $dep_lines_tmp = "\t\$(DCOPIDL2CPP) --c++-suffix $cxxsuffix --no-signals --no-skel $source.kidl\n"; 1055 } else { # signals - obsolete, remove in KDE 4 1056 $dep_lines_tmp = "\t\$(DCOPIDL2CPP) --c++-suffix $cxxsuffix --no-stub --no-skel $source.kidl\n"; 1057 } 1058 1059 if ($stub || $signals) { 1060 $target_adds{"$sourcename.$cxxsuffix"} .= "$sourcename.h "; 1061 $dep_lines .= "$sourcename.h: $source.kidl\n"; 1062 $dep_lines .= $dep_lines_tmp; 1063 } 1064 1065 $allidls .= $sourcename . " "; 1066 } 1067 1068 $idlfiles{$program} .= $sourcename . " "; 1069 1070 if ($program =~ /_la$/) { 1071 $realObjs{$program} .= " $sourcename.lo"; 1072 } else { 1073 $realObjs{$program} .= " $sourcename.\$(OBJEXT)"; 1074 } 1075 $sources{$program} .= " $sourcename.$cxxsuffix"; 1076 $sources_changed{$program} = 1; 1077 $important{$program} .= "$sourcename.h " if (!$skel); 1078 $idl_output .= "\\\n\t$sourcename.$cxxsuffix $sourcename.h $source.kidl "; 1079 push(@cleanfiles, "$sourcename.$cxxsuffix"); 1080 push(@cleanfiles, "$sourcename.h"); 1081 push(@cleanfiles, "$sourcename.kidl"); 1082 $dep_files .= " \$(DEPDIR)/$sourcename.P" if ($dep_files !~/$sourcename.P/); 1083 } 1084 } 1085 if ($dep_lines) { 1086 appendLines($dep_lines); 1087 } 1088 1089 if (0) { 1090 my $lookup = "($program)"; 1091 $lookup .= '(|\$\(EXEEXT\))'; 1092 $lookup =~ s/\_/./g; 1093 $lookup .= ":(.*..$program\_OBJECTS..*)"; 1094 # $lookup = quotemeta($lookup); 1095 if ($MakefileData =~ /\n$lookup\n/) { 1096 1097 my $line = "$1$2: "; 1098 foreach $file (split(' ', $idlfiles{$program})) { 1099 $line .= "$file.$cxxsuffix "; 1100 } 1101 $line .= $3; 1102 substituteLine($lookup, $line); 1103 } else { 1104 print STDERR "no built dependency found $lookup\n"; 1105 } 1106 } 1107} 1108 1109sub tag_UIFILES () 1110{ 1111 my @psources = split(/[\034\s]+/, $sources{$program}); 1112 my $dep_lines = ""; 1113 my @depFiles = (); 1114 1115 foreach $source (@psources) { 1116 1117 if ($source =~ m/\.ui$/) { 1118 1119 print STDERR "adding UI file $source\n" if ($verbose); 1120 1121 my $qs = quotemeta($source); 1122 $sources{$program} =~ s/$qs//; 1123 $sources_changed{$program} = 1; 1124 1125 $source =~ s/\.ui$//; 1126 1127 my $sourcedir = ''; 1128 if (-f "$makefileDir/$source.ui") { 1129 $sourcedir = '$(srcdir)/'; 1130 } 1131 1132 if (!$uiFiles{$source}) { 1133 1134 $dep_lines .= "$source.$cxxsuffix: $sourcedir$source.ui $source.h $source.moc\n"; 1135 $dep_lines .= "\trm -f $source.$cxxsuffix\n"; 1136 if (!$kdeopts{"qtonly"}) { 1137 $dep_lines .= "\techo '#include <klocale.h>' > $source.$cxxsuffix\n"; 1138 my ($mangled_source) = $source; 1139 $mangled_source =~ s/[^A-Za-z0-9]/_/g; # get rid of garbage 1140 $dep_lines .= "\t\$(UIC) -tr \${UIC_TR} -i $source.h $sourcedir$source.ui > $source.$cxxsuffix.temp ; ret=\$\$?; \\\n"; 1141 $dep_lines .= "\tsed -e \"s,\${UIC_TR}( \\\"\\\" ),QString::null,g\" $source.$cxxsuffix.temp | sed -e \"s,\${UIC_TR}( \\\"\\\"\\, \\\"\\\" ),QString::null,g\" | sed -e \"s,image\\([0-9][0-9]*\\)_data,img\\1_" . $mangled_source . ",g\" >> $source.$cxxsuffix ;\\\n"; 1142 $dep_lines .= "\trm -f $source.$cxxsuffix.temp ;\\\n"; 1143 } else { 1144 $dep_lines .= "\t\$(UIC) -i $source.h $sourcedir$source.ui > $source.$cxxsuffix; ret=\$\$?; \\\n"; 1145 } 1146 $dep_lines .= "\tif test \"\$\$ret\" = 0; then echo '#include \"$source.moc\"' >> $source.$cxxsuffix; else rm -f $source.$cxxsuffix ; exit \$\$ret ; fi\n\n"; 1147 $dep_lines .= "$source.h: $sourcedir$source.ui\n"; 1148 $dep_lines .= "\t\$(UIC) -o $source.h $sourcedir$source.ui\n\n"; 1149 $dep_lines .= "$source.moc: $source.h\n"; 1150 $dep_lines .= "\t\$(MOC) $source.h -o $source.moc\n"; 1151 1152 $uiFiles{$source} = 1; 1153 $depedmocs{$program} .= " $source.moc"; 1154 $globalmocs{$source} = "\035$source.h\035$source.cpp"; 1155 } 1156 1157 if ($program =~ /_la$/) { 1158 $realObjs{$program} .= " $source.lo"; 1159 } else { 1160 $realObjs{$program} .= " $source.\$(OBJEXT)"; 1161 } 1162 $sources{$program} .= " $source.$cxxsuffix"; 1163 $sources_changed{$program} = 1; 1164 $important{$program} .= "$source.h "; 1165 $ui_output .= "\\\n\t$source.$cxxsuffix $source.h $source.moc "; 1166 push(@cleanfiles, "$source.$cxxsuffix"); 1167 push(@cleanfiles, "source.h"); 1168 push(@cleanfiles, "$source.moc"); 1169 $dep_files .= " \$(DEPDIR)/$source.P" if($dep_files !~/$source.P/ ); 1170 } 1171 } 1172 if ($dep_lines) { 1173 appendLines($dep_lines); 1174 } 1175} 1176 1177sub tag_ICON() 1178{ 1179 my $lookup = '([^\s]*)_ICON\s*=\s*([^\n]*)'; 1180 my $install = ""; 1181 my $uninstall = ""; 1182 1183 while ($MakefileData =~ /\n$lookup/og) { 1184 my $destdir; 1185 if ($1 eq "KDE") { 1186 $destdir = "kde_icondir"; 1187 } else { 1188 $destdir = $1 . "dir"; 1189 } 1190 my $iconauto = ($2 =~ /AUTO\s*$/); 1191 my @appnames = (); 1192 if ( ! $iconauto ) { 1193 my $appicon_str = $2; 1194 my @_appnames = split(" ", $appicon_str); 1195 print STDOUT "KDE_ICON processing <@_appnames>\n" if ($verbose); 1196 foreach $appname (@_appnames) { 1197 push(@appnames, quotemeta($appname)); 1198 } 1199 } else { 1200 print STDOUT "KDE_ICON processing <AUTO>\n" if ($verbose); 1201 } 1202 1203 my @files = (); 1204 opendir (THISDIR, "."); 1205 foreach $entry (readdir(THISDIR)) { 1206 next if ($entry eq "CVS" || $entry =~ /^\./ || $entry =~ /^Makefile/ || $entry =~ /~$/ || $entry =~ /^\#.*\#$/); 1207 next if (! -f $entry); 1208 if ( $iconauto ) 1209 { 1210 push(@files, $entry) 1211 if ($entry =~ /\.xpm/ || $entry =~ /\.png/ || $entry =~ /\.mng/ || $entry =~ /\.svg/); 1212 } else { 1213 foreach $appname (@appnames) { 1214 push(@files, $entry) 1215 if ($entry =~ /-$appname\.xpm/ || $entry =~ /-$appname\.png/ || $entry =~ /-$appname\.mng/ || $entry =~ /-$appname\.svg/); 1216 } 1217 } 1218 } 1219 closedir (THISDIR); 1220 1221 my %directories = (); 1222 1223 foreach $file (@files) { 1224 my $newfile = $file; 1225 my $prefix = $file; 1226 $prefix =~ s/\.(png|xpm|mng|svg|svgz)$//; 1227 my $appname = $prefix; 1228 $appname =~ s/^[^-]+-// if ($appname =~ /-/) ; 1229 $appname =~ s/^[^-]+-// if ($appname =~ /-/) ; 1230 $appname = quotemeta($appname); 1231 $prefix =~ s/$appname$//; 1232 $prefix =~ s/-$//; 1233 1234 $prefix = 'lo16-app' if ($prefix eq 'mini'); 1235 $prefix = 'lo32-app' if ($prefix eq 'lo'); 1236 $prefix = 'hi48-app' if ($prefix eq 'large'); 1237 $prefix .= '-app' if ($prefix =~ m/^...$/); 1238 1239 my $type = $prefix; 1240 $type =~ s/^.*-([^-]+)$/$1/; 1241 $prefix =~ s/^(.*)-[^-]+$/$1/; 1242 1243 my %type_hash = 1244 ( 1245 'action' => 'actions', 1246 'app' => 'apps', 1247 'device' => 'devices', 1248 'filesys' => 'filesystems', 1249 'mime' => 'mimetypes' 1250 ); 1251 1252 if (! defined $type_hash{$type} ) { 1253 print STDERR "unknown icon type $type in $printname ($file)\n"; 1254 next; 1255 } 1256 1257 my %dir_hash = 1258 ( 1259 'los' => 'locolor/16x16', 1260 'lom' => 'locolor/32x32', 1261 'him' => 'hicolor/32x32', 1262 'hil' => 'hicolor/48x48', 1263 'lo16' => 'locolor/16x16', 1264 'lo22' => 'locolor/22x22', 1265 'lo32' => 'locolor/32x32', 1266 'hi16' => 'hicolor/16x16', 1267 'hi22' => 'hicolor/22x22', 1268 'hi32' => 'hicolor/32x32', 1269 'hi48' => 'hicolor/48x48', 1270 'hi64' => 'hicolor/64x64', 1271 'hi128' => 'hicolor/128x128', 1272 'hisc' => 'hicolor/scalable', 1273 'cr16' => 'crystalsvg/16x16', 1274 'cr22' => 'crystalsvg/22x22', 1275 'cr32' => 'crystalsvg/32x32', 1276 'cr48' => 'crystalsvg/48x48', 1277 'cr64' => 'crystalsvg/64x64', 1278 'cr128' => 'crystalsvg/128x128', 1279 'crsc' => 'crystalsvg/scalable' 1280 ); 1281 1282 $newfile =~ s@.*-($appname\.(png|xpm|mng|svgz|svg?))@$1@; 1283 1284 if (! defined $dir_hash{$prefix}) { 1285 print STDERR "unknown icon prefix $prefix in $printname\n"; 1286 next; 1287 } 1288 1289 my $dir = $dir_hash{$prefix} . "/" . $type_hash{$type}; 1290 if ($newfile =~ /-[^\.]/) { 1291 my $tmp = $newfile; 1292 $tmp =~ s/^([^-]+)-.*$/$1/; 1293 $dir = $dir . "/" . $tmp; 1294 $newfile =~ s/^[^-]+-//; 1295 } 1296 1297 if (!defined $directories{$dir}) { 1298 $install .= "\t\$(mkinstalldirs) \$(DESTDIR)\$($destdir)/$dir\n"; 1299 $directories{$dir} = 1; 1300 } 1301 1302 $install .= "\t\$(INSTALL_DATA) \$(srcdir)/$file \$(DESTDIR)\$($destdir)/$dir/$newfile\n"; 1303 $uninstall .= "\t-rm -f \$(DESTDIR)\$($destdir)/$dir/$newfile\n"; 1304 1305 } 1306 } 1307 1308 if (length($install)) { 1309 $target_adds{"install-data-am"} .= "install-kde-icons "; 1310 $target_adds{"uninstall-am"} .= "uninstall-kde-icons "; 1311 appendLines("install-kde-icons:\n" . $install . "\nuninstall-kde-icons:\n" . $uninstall); 1312 } 1313} 1314 1315sub handle_POFILES($$) 1316{ 1317 my @pofiles = split(" ", $_[0]); 1318 my $lang = $_[1]; 1319 1320 # Build rules for creating the gmo files 1321 my $tmp = ""; 1322 my $allgmofiles = ""; 1323 my $pofileLine = "POFILES ="; 1324 foreach $pofile (@pofiles) 1325 { 1326 $pofile =~ /(.*)\.[^\.]*$/; # Find name minus extension 1327 $tmp .= "$1.gmo: $pofile\n"; 1328 $tmp .= "\trm -f $1.gmo; \$(GMSGFMT) -o $1.gmo \$(srcdir)/$pofile\n"; 1329 $tmp .= "\ttest ! -f $1.gmo || touch $1.gmo\n"; 1330 $allgmofiles .= " $1.gmo"; 1331 $pofileLine .= " $1.po"; 1332 } 1333 appendLines ($tmp); 1334 my $lookup = 'POFILES\s*=([^\n]*)'; 1335 if ($MakefileData !~ /\n$lookup/o) { 1336 appendLines("$pofileLine\nGMOFILES =$allgmofiles"); 1337 } else { 1338 substituteLine ($lookup, "$pofileLine\nGMOFILES =$allgmofiles"); 1339 } 1340 1341 if ($allgmofiles) { 1342 1343 # Add the "clean" rule so that the maintainer-clean does something 1344 appendLines ("clean-nls:\n\t-rm -f $allgmofiles\n"); 1345 1346 $target_adds{"maintainer-clean"} .= "clean-nls "; 1347 1348 $lookup = 'DISTFILES\s*=\s*(.*)'; 1349 if ($MakefileData =~ /\n$lookup\n/o) { 1350 $tmp = "DISTFILES = \$(GMOFILES) \$(POFILES) $1"; 1351 substituteLine ($lookup, $tmp); 1352 } 1353 } 1354 1355 $target_adds{"install-data-am"} .= "install-nls "; 1356 1357 $tmp = "install-nls:\n"; 1358 if ($lang) { 1359 $tmp .= "\t\$(mkinstalldirs) \$(DESTDIR)\$(kde_locale)/$lang/LC_MESSAGES\n"; 1360 } 1361 $tmp .= "\t\@for base in "; 1362 foreach $pofile (@pofiles) 1363 { 1364 $pofile =~ /(.*)\.[^\.]*$/; # Find name minus extension 1365 $tmp .= "$1 "; 1366 } 1367 1368 $tmp .= "; do \\\n"; 1369 if ($lang) { 1370 $tmp .= "\t echo \$(INSTALL_DATA) \$\$base.gmo \$(DESTDIR)\$(kde_locale)/$lang/LC_MESSAGES/\$\$base.mo ;\\\n"; 1371 $tmp .= "\t if test -f \$\$base.gmo; then \$(INSTALL_DATA) \$\$base.gmo \$(DESTDIR)\$(kde_locale)/$lang/LC_MESSAGES/\$\$base.mo ;\\\n"; 1372 $tmp .= "\t elif test -f \$(srcdir)/\$\$base.gmo; then \$(INSTALL_DATA) \$(srcdir)/\$\$base.gmo \$(DESTDIR)\$(kde_locale)/$lang/LC_MESSAGES/\$\$base.mo ;\\\n"; 1373 $tmp .= "\t fi ;\\\n"; 1374 } else { 1375 $tmp .= "\t echo \$(INSTALL_DATA) \$\$base.gmo \$(DESTDIR)\$(kde_locale)/\$\$base/LC_MESSAGES/\$(PACKAGE).mo ;\\\n"; 1376 $tmp .= "\t \$(mkinstalldirs) \$(DESTDIR)\$(kde_locale)/\$\$base/LC_MESSAGES ; \\\n"; 1377 $tmp .= "\t if test -f \$\$base.gmo; then \$(INSTALL_DATA) \$\$base.gmo \$(DESTDIR)\$(kde_locale)/\$\$base/LC_MESSAGES/\$(PACKAGE).mo ;\\\n"; 1378 $tmp .= "\t elif test -f \$(srcdir)/\$\$base.gmo; then \$(INSTALL_DATA) \$(srcdir)/\$\$base.gmo \$(DESTDIR)\$(kde_locale)/\$\$base/LC_MESSAGES/\$(PACKAGE).mo ;\\\n"; 1379 $tmp .= "\t fi ;\\\n"; 1380 } 1381 $tmp .= "\tdone\n\n"; 1382 appendLines ($tmp); 1383 1384 $target_adds{"uninstall"} .= "uninstall-nls "; 1385 1386 $tmp = "uninstall-nls:\n"; 1387 foreach $pofile (@pofiles) 1388 { 1389 $pofile =~ /(.*)\.[^\.]*$/; # Find name minus extension 1390 if ($lang) { 1391 $tmp .= "\trm -f \$(DESTDIR)\$(kde_locale)/$lang/LC_MESSAGES/$1.mo\n"; 1392 } else { 1393 $tmp .= "\trm -f \$(DESTDIR)\$(kde_locale)/$1/LC_MESSAGES/\$(PACKAGE).mo\n"; 1394 } 1395 } 1396 appendLines($tmp); 1397 1398 $target_adds{"all"} .= "all-nls "; 1399 1400 $tmp = "all-nls: \$(GMOFILES)\n"; 1401 1402 appendLines($tmp); 1403 1404 $target_adds{"distdir"} .= "distdir-nls "; 1405 1406 $tmp = "distdir-nls:\$(GMOFILES)\n"; 1407 $tmp .= "\tfor file in \$(POFILES); do \\\n"; 1408 $tmp .= "\t cp \$(srcdir)/\$\$file \$(distdir); \\\n"; 1409 $tmp .= "\tdone\n"; 1410 $tmp .= "\tfor file in \$(GMOFILES); do \\\n"; 1411 $tmp .= "\t cp \$(srcdir)/\$\$file \$(distdir); \\\n"; 1412 $tmp .= "\tdone\n"; 1413 1414 appendLines ($tmp); 1415 1416 if (!$lang) { 1417 appendLines("merge:\n\t\$(MAKE) -f \$(top_srcdir)/admin/Makefile.common package-merge POFILES=\"\${POFILES}\" PACKAGE=\${PACKAGE}\n\n"); 1418 } 1419 1420} 1421 1422#----------------------------------------------------------------------------- 1423 1424# Returns 0 if the line was processed - 1 otherwise. 1425# Errors are logged in the global $errorflags 1426sub tag_POFILES () 1427{ 1428 my $lookup = 'POFILES\s*=([^\n]*)'; 1429 return 1 if ($MakefileData !~ /\n$lookup/o); 1430 print STDOUT "POFILES processing <$1>\n" if ($verbose); 1431 1432 my $tmp = $1; 1433 1434 # make sure these are all gone. 1435 if ($MakefileData =~ /\n\.po\.gmo:\n/) 1436 { 1437 print STDERR "Warning: Found old .po.gmo rules in $printname. New po rules not added\n"; 1438 return 1; 1439 } 1440 1441 # Either find the pofiles in the directory (AUTO) or use 1442 # only the specified po files. 1443 my $pofiles = ""; 1444 if ($tmp =~ /^\s*AUTO\s*$/) 1445 { 1446 opendir (THISDIR, "."); 1447 $pofiles = join(" ", grep(/\.po$/, readdir(THISDIR))); 1448 closedir (THISDIR); 1449 print STDOUT "pofiles found = $pofiles\n" if ($verbose); 1450 if (-f "charset" && -f "kdelibs.po") { 1451 handle_TOPLEVEL(); 1452 } 1453 } 1454 else 1455 { 1456 $tmp =~ s/\034/ /g; 1457 $pofiles = $tmp; 1458 } 1459 return 1 if (!$pofiles); # Nothing to do 1460 1461 handle_POFILES($pofiles, $kdelang); 1462 1463 return 0; 1464} 1465 1466sub helper_LOCALINSTALL($) 1467{ 1468 my $lookup = "\035" . $_[0] . " *:[^\035]*\035\t"; 1469 my $copy = $MakefileData; 1470 $copy =~ s/\n/\035/g; 1471 if ($copy =~ /($lookup.*)$/) { 1472 1473 $install = $1; 1474 $install =~ s/\035$_[0] *:[^\035]*\035//; 1475 my $emptyline = 0; 1476 while (! $emptyline ) { 1477 if ($install =~ /([^\035]*)\035(.*)/) { 1478 local $line = $1; 1479 $install = $2; 1480 if ($line !~ /^\s*$/ && $line !~ /^(\@.*\@)*\t/) { 1481 $emptyline = 1; 1482 } else { 1483 replaceDestDir($line); 1484 } 1485 } else { 1486 $emptyline = 1; 1487 } 1488 } 1489 } 1490 1491} 1492 1493sub tag_LOCALINSTALL () 1494{ 1495 helper_LOCALINSTALL('install-exec-local'); 1496 helper_LOCALINSTALL('install-data-local'); 1497 helper_LOCALINSTALL('uninstall-local'); 1498 1499 return 0; 1500} 1501 1502sub replaceDestDir($) { 1503 local $line = $_[0]; 1504 1505 if ( $line =~ /^\s*(\@.*\@)*\s*\$\(mkinstalldirs\)/ 1506 || $line =~ /^\s*(\@.*\@)*\s*\$\(INSTALL\S*\)/ 1507 || $line =~ /^\s*(\@.*\@)*\s*(-?rm.*) \S*$/) 1508 { 1509 $line =~ s/^(.*) ([^\s]+)\s*$/$1 \$(DESTDIR)$2/ if ($line !~ /\$\(DESTDIR\)/); 1510 } 1511 1512 if ($line ne $_[0]) { 1513 $_[0] = quotemeta $_[0]; 1514 substituteLine($_[0], $line); 1515 } 1516} 1517 1518#--------------------------------------------------------------------------- 1519sub tag_CLOSURE () { 1520 return if ($program !~ /_la$/); 1521 1522 my $lookup = quotemeta($realname{$program}) . ":.*?\n\t.*?\\((.*?)\\) .*\n"; 1523 $MakefileData =~ m/$lookup/; 1524 return if ($1 !~ /CXXLINK/); 1525 1526 if ($MakefileData !~ /\n$program\_LDFLAGS\s*=.*-no-undefined/ && 1527 $MakefileData !~ /\n$program\_LDFLAGS\s*=.*KDE_PLUGIN/ ) { 1528 print STDERR "Report: $program contains undefined in $printname\n" if ($program =~ /^lib/ && $dryrun); 1529 return; 1530 } 1531 1532 my $closure = $realname{$program} . ".closure"; 1533 my $lines = "$closure: \$($program\_OBJECTS) \$($program\_DEPENDENCIES)\n"; 1534 $lines .= "\t\@echo \"int main() {return 0;}\" > $program\_closure.$cxxsuffix\n"; 1535 $lines .= "\t\@\$\(LTCXXCOMPILE\) -c $program\_closure.$cxxsuffix\n"; 1536 $lines .= "\t\$\(CXXLINK\) $program\_closure.lo \$($program\_LDFLAGS) \$($program\_OBJECTS) \$($program\_LIBADD) \$(LIBS)\n"; 1537 $lines .= "\t\@rm -f $program\_closure.* $closure\n"; 1538 $lines .= "\t\@echo \"timestamp\" > $closure\n"; 1539 $lines .= "\n"; 1540 appendLines($lines); 1541 $lookup = $realname{$program} . ": (.*)"; 1542 if ($MakefileData =~ /\n$lookup\n/) { 1543 $lines = "\@KDE_USE_CLOSURE_TRUE@". $realname{$program} . ": $closure $1"; 1544 $lines .= "\n\@KDE_USE_CLOSURE_FALSE@" . $realname{$program} . ": $1"; 1545 substituteLine($lookup, $lines); 1546 } 1547 $closure_output .= " $closure"; 1548} 1549 1550sub tag_DIST () { 1551 my %foundfiles = (); 1552 opendir (THISDIR, "."); 1553 foreach $entry (readdir(THISDIR)) { 1554 next if ($entry eq "CVS" || $entry =~ /^\./ || $entry eq "Makefile" || $entry =~ /~$/ || $entry =~ /^\#.*\#$/); 1555 next if (! -f $entry); 1556 next if ($entry =~ /\.moc/ || $entry =~ /\.moc.$cppExt$/ || $entry =~ /\.lo$/ || $entry =~ /\.la$/ || $entry =~ /\.o/); 1557 next if ($entry =~ /\.all_$cppExt\.$cppExt$/); 1558 $foundfiles{$entry} = 1; 1559 } 1560 closedir (THISDIR); 1561 1562 # doing this for MAINTAINERCLEANFILES would be wrong 1563 my @marks = ("EXTRA_DIST", "DIST_COMMON", '\S*_SOURCES', '\S*_HEADERS', 'CLEANFILES', 'DISTCLEANFILES', '\S*_OBJECTS'); 1564 foreach $mark (@marks) { 1565 while ($MakefileData =~ /\n($mark)\s*=\s*([^\n]*)/g) { 1566 my $cleanfiles_str = $2; 1567 foreach $file (split('[\034\s]+', $cleanfiles_str)) { 1568 $file =~ s/\.\///; 1569 $foundfiles{$file} = 0 if (defined $foundfiles{$file}); 1570 } 1571 } 1572 } 1573 my @files = ("Makefile", "config.cache", "config.log", "stamp-h", 1574 "stamp-h1", "stamp-h1", "config.h", "Makefile", 1575 "config.status", "config.h", "libtool", "core" ); 1576 foreach $file (@files) { 1577 $foundfiles{$file} = 0 if (defined $foundfiles{$file}); 1578 } 1579 1580 my $KDE_DIST = ""; 1581 foreach $file (keys %foundfiles) { 1582 if ($foundfiles{$file} == 1) { 1583 $KDE_DIST .= "$file "; 1584 } 1585 } 1586 if ($KDE_DIST) { 1587 print "KDE_DIST $printname $KDE_DIST\n" if ($verbose); 1588 1589 my $lookup = "DISTFILES *=(.*)"; 1590 if ($MakefileData =~ /\n$lookup\n/o) { 1591 substituteLine($lookup, "KDE_DIST=$KDE_DIST\n\nDISTFILES=$1 \$(KDE_DIST)\n"); 1592 } 1593 } 1594} 1595 1596#----------------------------------------------------------------------------- 1597# Returns 0 if the line was processed - 1 otherwise. 1598# Errors are logged in the global $errorflags 1599sub tag_DOCFILES () 1600{ 1601 $target_adds{"all"} .= "docs-am "; 1602 1603 my $lookup = 'KDE_DOCS\s*=\s*([^\n]*)'; 1604 goto nodocs if ($MakefileData !~ /\n$lookup/o); 1605 print STDOUT "KDE_DOCS processing <$1>\n" if ($verbose); 1606 1607 my $tmp = $1; 1608 1609 # Either find the files in the directory (AUTO) or use 1610 # only the specified po files. 1611 my $files = ""; 1612 my $appname = $tmp; 1613 $appname =~ s/^(\S*)\s*.*$/$1/; 1614 if ($appname =~ /AUTO/) { 1615 $appname = basename($makefileDir); 1616 if ("$appname" eq "en") { 1617 print STDERR "Error: KDE_DOCS = AUTO relies on the directory name. Yours is 'en' - you most likely want something else, e.g. KDE_DOCS = myapp\n"; 1618 exit(1); 1619 } 1620 } 1621 1622 if ($tmp !~ / - /) 1623 { 1624 opendir (THISDIR, "."); 1625 foreach $entry (readdir(THISDIR)) { 1626 next if ($entry eq "CVS" || $entry =~ /^\./ || $entry =~ /^Makefile/ || $entry =~ /~$/ || $entry =~ /^\#.*\#$/ || $entry eq "core" || $entry eq "index.cache.bz2"); 1627 next if (! -f $entry); 1628 $files .= "$entry "; 1629 } 1630 closedir (THISDIR); 1631 print STDOUT "docfiles found = $files\n" if ($verbose); 1632 } 1633 else 1634 { 1635 $tmp =~ s/\034/ /g; 1636 $tmp =~ s/^\S*\s*-\s*//; 1637 $files = $tmp; 1638 } 1639 goto nodocs if (!$files); # Nothing to do 1640 1641 if ($files =~ /(^| )index\.docbook($| )/) { 1642 1643 my $lines = ""; 1644 my $lookup = 'MEINPROC\s*='; 1645 if ($MakefileData !~ /\n($lookup)/) { 1646 $lines = "MEINPROC=/\$(kde_bindir)/meinproc\n"; 1647 } 1648 $lookup = 'KDE_XSL_STYLESHEET\s*='; 1649 if ($MakefileData !~ /\n($lookup)/) { 1650 $lines .= "KDE_XSL_STYLESHEET=/\$(kde_datadir)/ksgmltools2/customization/kde-chunk.xsl\n"; 1651 } 1652 $lookup = '\nindex.cache.bz2:'; 1653 if ($MakefileData !~ /\n($lookup)/) { 1654 $lines .= "index.cache.bz2: \$(srcdir)/index.docbook \$(KDE_XSL_STYLESHEET) $files\n"; 1655 $lines .= "\t\@if test -n \"\$(MEINPROC)\"; then echo \$(MEINPROC) --check --cache index.cache.bz2 \$(srcdir)/index.docbook; \$(MEINPROC) --check --cache index.cache.bz2 \$(srcdir)/index.docbook || true; fi\n"; 1656 $lines .= "\n"; 1657 } 1658 1659 $lines .= "docs-am: index.cache.bz2\n"; 1660 $lines .= "\n"; 1661 $lines .= "install-docs: docs-am install-nls\n"; 1662 $lines .= "\t\$(mkinstalldirs) \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname\n"; 1663 $lines .= "\t\@if test -f index.cache.bz2; then \\\n"; 1664 $lines .= "\techo \$(INSTALL_DATA) index.cache.bz2 \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/; \\\n"; 1665 $lines .= "\t\$(INSTALL_DATA) index.cache.bz2 \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/; \\\n"; 1666 $lines .= "\telif test -f \$(srcdir)/index.cache.bz2; then \\\n"; 1667 $lines .= "\techo \$(INSTALL_DATA) \$(srcdir)/index.cache.bz2 \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/; \\\n"; 1668 $lines .= "\t\$(INSTALL_DATA) \$(srcdir)/index.cache.bz2 \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/; \\\n"; 1669 $lines .= "\tfi\n"; 1670 $lines .= "\t-rm -f \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/common\n"; 1671 $lines .= "\t\$(LN_S) \$(kde_libs_htmldir)/$kdelang/common \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/common\n"; 1672 1673 $lines .= "\n"; 1674 $lines .= "uninstall-docs:\n"; 1675 $lines .= "\t-rm -rf \$(kde_htmldir)/$kdelang/$appname\n"; 1676 $lines .= "\n"; 1677 $lines .= "clean-docs:\n"; 1678 $lines .= "\t-rm -f index.cache.bz2\n"; 1679 $lines .= "\n"; 1680 $target_adds{"install-data-am"} .= "install-docs "; 1681 $target_adds{"uninstall"} .= "uninstall-docs "; 1682 $target_adds{"clean-am"} .= "clean-docs "; 1683 appendLines ($lines); 1684 } else { 1685 appendLines("docs-am: $files\n"); 1686 } 1687 1688 $target_adds{"install-data-am"} .= "install-nls "; 1689 $target_adds{"uninstall"} .= "uninstall-nls "; 1690 1691 $tmp = "install-nls:\n"; 1692 $tmp .= "\t\$(mkinstalldirs) \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname\n"; 1693 $tmp .= "\t\@for base in $files; do \\\n"; 1694 $tmp .= "\t echo \$(INSTALL_DATA) \$\$base \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/\$\$base ;\\\n"; 1695 $tmp .= "\t \$(INSTALL_DATA) \$(srcdir)/\$\$base \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/\$\$base ;\\\n"; 1696 $tmp .= "\tdone\n"; 1697 if ($appname eq 'common') { 1698 $tmp .= "\t\@echo \"merging common and language specific dir\" ;\\\n"; 1699 $tmp .= "\tif test ! -f \$(kde_htmldir)/en/common/kde-common.css; then echo 'no english docs found in \$(kde_htmldir)/en/common/'; exit 1; fi \n"; 1700 $tmp .= "\t\@com_files=`cd \$(kde_htmldir)/en/common && echo *` ;\\\n"; 1701 $tmp .= "\tcd \$(DESTDIR)\$(kde_htmldir)/$kdelang/common ;\\\n"; 1702 $tmp .= "\tif test -n \"\$\$com_files\"; then for p in \$\$com_files ; do \\\n"; 1703 $tmp .= "\t case \" $files \" in \\\n"; 1704 $tmp .= "\t *\" \$\$p \"*) ;; \\\n"; 1705 $tmp .= "\t *) test ! -f \$\$p && echo \$(LN_S) ../../en/common/\$\$p \$(DESTDIR)\$(kde_htmldir)/$kdelang/common/\$\$p && \$(LN_S) ../../en/common/\$\$p \$\$p ;; \\\n"; 1706 $tmp .= "\t esac ; \\\n"; 1707 $tmp .= "\tdone ; fi ; true\n"; 1708 } 1709 $tmp .= "\n"; 1710 $tmp .= "uninstall-nls:\n"; 1711 $tmp .= "\tfor base in $files; do \\\n"; 1712 $tmp .= "\t rm -f \$(DESTDIR)\$(kde_htmldir)/$kdelang/$appname/\$\$base ;\\\n"; 1713 $tmp .= "\tdone\n\n"; 1714 appendLines ($tmp); 1715 1716 $target_adds{"distdir"} .= "distdir-nls "; 1717 1718 $tmp = "distdir-nls:\n"; 1719 $tmp .= "\tfor file in $files; do \\\n"; 1720 $tmp .= "\t cp \$(srcdir)/\$\$file \$(distdir); \\\n"; 1721 $tmp .= "\tdone\n"; 1722 1723 appendLines ($tmp); 1724 1725 return 0; 1726 1727 nodocs: 1728 appendLines("docs-am:\n"); 1729 return 1; 1730} 1731 1732#----------------------------------------------------------------------------- 1733# Find headers in any of the source directories specified previously, that 1734# are candidates for "moc-ing". 1735sub findMocCandidates () 1736{ 1737 foreach $dir (@headerdirs) 1738 { 1739 my @list = (); 1740 opendir (SRCDIR, "$dir"); 1741 @hFiles = grep { /.+\.$hExt$/o && !/^\./ } readdir(SRCDIR); 1742 closedir SRCDIR; 1743 foreach $hf (@hFiles) 1744 { 1745 next if ($hf =~ /^\.\#/); 1746 $hf =~ /(.*)\.[^\.]*$/; # Find name minus extension 1747 next if ($uiFiles{$1}); 1748 open (HFIN, "$dir/$hf") || die "Could not open $dir/$hf: $!\n"; 1749 my $hfsize = 0; 1750 seek(HFIN, 0, 2); 1751 $hfsize = tell(HFIN); 1752 seek(HFIN, 0, 0); 1753 read HFIN, $hfData, $hfsize; 1754 close HFIN; 1755 # push (@list, $hf) if(index($hfData, "Q_OBJECT") >= 0); ### fast but doesn't handle //Q_OBJECT 1756 # handle " { friend class blah; Q_OBJECT ", but don't match antlarr_Q_OBJECT (\b). 1757 if ( $hfData =~ /{([^}]*)\bQ_OBJECT/s ) { 1758 push (@list, $hf) unless $1 =~ m://[^\n]*Q_OBJECT[^\n]*$:s; ## reject "// Q_OBJECT" 1759 } 1760 } 1761 # The assoc array of root of headerfile and header filename 1762 foreach $hFile (@list) 1763 { 1764 $hFile =~ /(.*)\.[^\.]*$/; # Find name minus extension 1765 if ($mocFiles{$1}) 1766 { 1767 print STDERR "Warning: Multiple header files found for $1\n"; 1768 next; # Use the first one 1769 } 1770 $mocFiles{$1} = "$dir\035$hFile"; # Add relative dir 1771 } 1772 } 1773 1774 return 0; 1775} 1776 1777#----------------------------------------------------------------------------- 1778 1779# The programmer has specified a moc list. Prune out the moc candidates 1780# list that we found based on looking at the header files. This generates 1781# a warning if the programmer gets the list wrong, but this doesn't have 1782# to be fatal here. 1783sub pruneMocCandidates ($) 1784{ 1785 my %prunedMoc = (); 1786 local @mocList = split(' ', $_[0]); 1787 1788 foreach $mocname (@mocList) 1789 { 1790 $mocname =~ s/\.moc$//; 1791 if ($mocFiles{$mocname}) 1792 { 1793 $prunedMoc{$mocname} = $mocFiles{$mocname}; 1794 } 1795 else 1796 { 1797 my $print = $makefileDir; 1798 $print =~ s/^\Q$topdir\E\\//; 1799 # They specified a moc file but we can't find a header that 1800 # will generate this moc file. That's possible fatal! 1801 print STDERR "Warning: No moc-able header file for $print/$mocname\n"; 1802 } 1803 } 1804 1805 undef %mocFiles; 1806 %mocFiles = %prunedMoc; 1807} 1808 1809#----------------------------------------------------------------------------- 1810 1811# Finds the cpp files (If they exist). 1812# The cpp files get appended to the header file separated by \035 1813sub checkMocCandidates () 1814{ 1815 my @cppFiles; 1816 my $cpp2moc; # which c++ file includes which .moc files 1817 my $moc2cpp; # which moc file is included by which c++ files 1818 1819 return unless (keys %mocFiles); 1820 opendir(THISDIR, ".") || return; 1821 @cppFiles = grep { /.+\.$cppExt$/o && !/.+\.moc\.$cppExt$/o 1822 && !/.+\.all_$cppExt\.$cppExt$/o 1823 && !/^\./ } readdir(THISDIR); 1824 closedir THISDIR; 1825 return unless (@cppFiles); 1826 my $files = join (" ", @cppFiles); 1827 $cpp2moc = {}; 1828 $moc2cpp = {}; 1829 foreach $cxxf (@cppFiles) 1830 { 1831 open (CXXFIN, $cxxf) || die "Could not open $cxxf: $!\n"; 1832 seek(CXXFIN, 0, 2); 1833 my $cxxfsize = tell(CXXFIN); 1834 seek(CXXFIN, 0, 0); 1835 read CXXFIN, $cxxfData, $cxxfsize; 1836 close CXXFIN; 1837 while(($cxxfData =~ m/^[ \t]*\#include\s*[<\"](.*\.moc)[>\"]/gm)) { 1838 $cpp2moc->{$cxxf}->{$1} = 1; 1839 $moc2cpp->{$1}->{$cxxf} = 1; 1840 } 1841 } 1842 foreach my $mocFile (keys (%mocFiles)) 1843 { 1844 @cppFiles = keys %{$moc2cpp->{"$mocFile.moc"}}; 1845 if (@cppFiles == 1) { 1846 $mocFiles{$mocFile} .= "\035" . $cppFiles[0]; 1847 push(@deped, $mocFile); 1848 } elsif (@cppFiles == 0) { 1849 push (@newObs, $mocFile); # Produce new object file 1850 next if ($haveAutomocTag); # This is expected... 1851 # But this is an error we can deal with - let them know 1852 print STDERR 1853 "Warning: No c++ file that includes $mocFile.moc\n"; 1854 } else { 1855 # We can't decide which file to use, so it's fatal. Although as a 1856 # guess we could use the mocFile.cpp file if it's in the list??? 1857 print STDERR 1858 "Error: Multiple c++ files that include $mocFile.moc\n"; 1859 print STDERR "\t",join ("\t", @cppFiles),"\n"; 1860 $errorflag = 1; 1861 delete $mocFiles{$mocFile}; 1862 # Let's continue and see what happens - They have been told! 1863 } 1864 } 1865} 1866 1867#----------------------------------------------------------------------------- 1868 1869# Add the rules for generating moc source from header files 1870# For Automoc output *.moc.cpp but normally we'll output *.moc 1871# (We must compile *.moc.cpp separately. *.moc files are included 1872# in the appropriate *.cpp file by the programmer) 1873sub addMocRules () 1874{ 1875 my $cppFile; 1876 my $hFile; 1877 1878 foreach $mocFile (keys (%mocFiles)) 1879 { 1880 undef $cppFile; 1881 ($dir, $hFile, $cppFile) = split ("\035", $mocFiles{$mocFile}, 3); 1882 $dir =~ s#^\.#\$(srcdir)#; 1883 if (defined ($cppFile)) 1884 { 1885 $cppFile =~ s,\.[^.]*$,,; 1886 $target_adds{"$cppFile.o"} .= "$mocFile.moc "; 1887 $target_adds{"$cppFile.lo"} .= "$mocFile.moc "; 1888 appendLines ("$mocFile.moc: $dir/$hFile\n\t\$(MOC) $dir/$hFile -o $mocFile.moc\n"); 1889 $cleanMoc .= " $mocFile.moc"; 1890 appendLines ("mocs: $mocFile.moc"); 1891 } 1892 else 1893 { 1894 appendLines ("$mocFile$mocExt: $dir/$hFile\n\t\$(MOC) $dir/$hFile -o $mocFile$mocExt\n"); 1895 $cleanMoc .= " $mocFile$mocExt"; 1896 appendLines ("mocs: $mocFile$mocExt"); 1897 } 1898 } 1899} 1900 1901sub make_meta_classes () 1902{ 1903 return if ($kdeopts{"qtonly"}); 1904 1905 my $cppFile; 1906 my $hFile; 1907 my $moc_class_headers = ""; 1908 foreach $program (@programs) { 1909 my $mocs = ""; 1910 my @progsources = split(/[\034\s]+/, $sources{$program}); 1911 my @depmocs = split(' ', $depedmocs{$program}); 1912 my %shash = (), %mhash = (); 1913 @shash{@progsources} = 1; # we are only interested in the existence 1914 @mhash{@depmocs} = 1; 1915 1916 print STDOUT "program=$program\n" if ($verbose); 1917 print STDOUT "psources=[".join(' ', keys %shash)."]\n" if ($verbose); 1918 print STDOUT "depmocs=[".join(' ', keys %mhash)."]\n" if ($verbose); 1919 print STDOUT "globalmocs=[".join(' ', keys(%globalmocs))."]\n" if ($verbose); 1920 foreach my $mocFile (keys (%globalmocs)) 1921 { 1922 my ($dir, $hFile, $cppFile) = split ("\035", $globalmocs{$mocFile}, 3); 1923 if (defined ($cppFile)) 1924 { 1925 $mocs .= " $mocFile.moc" if exists $shash{$cppFile}; 1926 } 1927 else 1928 { 1929 # Bah. This is the case, if no C++ file includes the .moc 1930 # file. We make a .moc.cpp file for that. Unfortunately this 1931 # is not included in the %sources hash, but rather is mentioned 1932 # in %depedmocs. If the user wants to use AUTO he can't just 1933 # use an unspecific METAINCLUDES. Instead he must use 1934 # program_METAINCLUDES. Anyway, it's not working real nicely. 1935 # E.g. Its not clear what happens if user specifies two 1936 # METAINCLUDES=AUTO in the same Makefile.am. 1937 $mocs .= " $mocFile.moc.$cxxsuffix" 1938 if exists $mhash{$mocFile.".moc.$cxxsuffix"}; 1939 } 1940 } 1941 if ($mocs) { 1942 print STDOUT "==> mocs=[".$mocs."]\n" if ($verbose); 1943 } 1944 print STDOUT "\n" if $verbose; 1945 } 1946 if ($moc_class_headers) { 1947 appendLines ("$cleantarget-moc-classes:\n\t-rm -f $moc_class_headers\n"); 1948 $target_adds{"$cleantarget-am"} .= "$cleantarget-moc-classes "; 1949 } 1950} 1951 1952#----------------------------------------------------------------------------- 1953 1954sub updateMakefile () 1955{ 1956 return if ($dryrun); 1957 1958 open (FILEOUT, "> $makefile") 1959 || die "Could not create $makefile: $!\n"; 1960 1961 $MakefileData =~ s/\034/\\\n/g; # Restore continuation lines 1962 # Append our $progId line, _below_ the "generated by automake" line 1963 # because automake-1.6 relies on the first line to be his own. 1964 my $progIdLine = "\# $progId - " . 'Revision: 1.349.2.6 '."\n"; 1965 if ( !( $MakefileData =~ s/^(.*generated .*by automake.*\n)/$1$progIdLine/ ) ) { 1966 warn "automake line not found in $makefile\n"; 1967 # Fallback: first line 1968 print FILEOUT $progIdLine; 1969 }; 1970 print FILEOUT $MakefileData; 1971 close FILEOUT; 1972} 1973 1974#----------------------------------------------------------------------------- 1975 1976# The given line needs to be removed from the makefile 1977# Do this by adding the special "removed line" comment at the line start. 1978sub removeLine ($$) 1979{ 1980 my ($lookup, $old) = @_; 1981 1982 $old =~ s/\034/\\\n#>- /g; # Fix continuation lines 1983 $MakefileData =~ s/\n$lookup/\n#>\- $old/; 1984} 1985 1986#----------------------------------------------------------------------------- 1987 1988# Replaces the old line with the new line 1989# old line(s) are retained but tagged as removed. The new line(s) have the 1990# "added" tag placed before it. 1991sub substituteLine ($$) 1992{ 1993 my ($lookup, $new) = @_; 1994 1995 if ($MakefileData =~ /\n($lookup)/) { 1996 $old = $1; 1997 $old =~ s/\034/\\\n#>\- /g; # Fix continuation lines 1998 my $newCount = ($new =~ tr/\034//) + ($new =~ tr/\n//) + 1; 1999 $new =~ s/\\\n/\034/g; 2000 $MakefileData =~ s/\n$lookup/\n#>- $old\n#>\+ $newCount\n$new/; 2001 } else { 2002 print STDERR "Warning: substitution of \"$lookup\" in $printname failed\n"; 2003 } 2004} 2005 2006#----------------------------------------------------------------------------- 2007 2008# Slap new lines on the back of the file. 2009sub appendLines ($) 2010{ 2011 my ($new) = @_; 2012 my $newCount = ($new =~ tr/\034//) + ($new =~ tr/\n//) + 1; 2013 $new =~ s/\\\n/\034/g; # Fix continuation lines 2014 $MakefileData .= "\n#>\+ $newCount\n$new"; 2015} 2016 2017#----------------------------------------------------------------------------- 2018 2019# Restore the Makefile.in to the state it was before we fiddled with it 2020sub restoreMakefile () 2021{ 2022 $MakefileData =~ s/# $progId[^\n\034]*[\n\034]*//g; 2023 # Restore removed lines 2024 $MakefileData =~ s/([\n\034])#>\- /$1/g; 2025 # Remove added lines 2026 while ($MakefileData =~ /[\n\034]#>\+ ([^\n\034]*)/) 2027 { 2028 my $newCount = $1; 2029 my $removeLines = ""; 2030 while ($newCount--) { 2031 $removeLines .= "[^\n\034]*([\n\034]|)"; 2032 } 2033 $MakefileData =~ s/[\n\034]#>\+.*[\n\034]$removeLines/\n/; 2034 } 2035} 2036 2037#----------------------------------------------------------------------------- 2038