2 # Copyright 1999, 2000, 2001 Patrik Stridvall
4 # This library is free software; you can redistribute it and/or
5 # modify it under the terms of the GNU Lesser General Public
6 # License as published by the Free Software Foundation; either
7 # version 2.1 of the License, or (at your option) any later version.
9 # This library is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 # Lesser General Public License for more details.
14 # You should have received a copy of the GNU Lesser General Public
15 # License along with this library; if not, write to the Free Software
16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 use setup
qw($current_dir $wine_dir $winapi_dir $winapi_check_dir);
25 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
30 @EXPORT_OK = qw($directory $tool $file $line $message);
32 use vars qw($directory $tool $file $line $message);
34 use output qw($output);
35 use options qw($options);
42 #sub winebuild_output($$);
47 ########################################################################
49 ########################################################################
54 ########################################################################
56 ########################################################################
61 if(!defined($where)) {
69 $context .= "<$where>";
73 $context = "<$where>";
80 $output->write("$directory: $context: can't parse output: '$current'\n");
82 $output->write("$directory: $context: can't parse output: '$current'\n");
87 ########################################################################
89 ########################################################################
100 } elsif(/^\*\*\* \[(.*?)\] Error (\d+)$/) {
102 } elsif(/^\*\*\* Error code (\d+)$/) {
104 } elsif(/^\*\*\* Warning:\s+/) { #
105 if(/^File \`(.+?)\' has modification time in the future \((.+?) > \(.+?\)\)$/) {
108 error("make_output");
110 } elsif(/^\`(.*?)\' is up to date.$/) {
112 } elsif(/^\[(.*?)\] Error (\d+) \(ignored\)$/) {
114 } elsif(/^don\'t know how to make (.*?)\. Stop$/) {
116 } elsif(/^(Entering|Leaving) directory \`(.*?)\'$/) {
117 if($1 eq "Entering") {
124 foreach my $component (split(/\//, $directory)) {
125 if($component eq "wine") {
128 push @components, $component;
131 $directory = join("/", @components);
132 } elsif(/^(.*?) is older than (.*?), please rerun (.*?)\$/) {
134 } elsif(/^Nothing to be done for \`(.*?)\'\.$/) {
136 } elsif(s/^warning:\s+//) {
137 if(/^Clock skew detected. Your build may be incomplete.$/) {
140 error("make_output");
142 } elsif(/^Stop in (.*?)\.$/) {
147 error("make_output");
152 ########################################################################
154 ########################################################################
162 if(/rc\s+(\S+)(\s+\S+)+$/) {
165 $read_files =~ s/^\s*//;
166 $read_files = [split(/\s+/, $read_files)];
171 return ($read_files, $write_files);
174 ########################################################################
176 ########################################################################
184 if(/-o\s+(\S+)\s+(\S+)$/) {
191 return ($read_files, $write_files);
194 ########################################################################
196 ########################################################################
198 sub bison_command($) {
204 ########################################################################
206 ########################################################################
214 ########################################################################
216 ########################################################################
221 if(/^(.*?): No such file or directory/) {
222 $message = "directory '$1' doesn't exist";
226 ########################################################################
228 ########################################################################
230 sub flex_command($) {
236 ########################################################################
238 ########################################################################
246 ########################################################################
248 ########################################################################
254 if(/-o\s+(\S+)\s+(\S+)$/) {
258 $write_file =~ s%^\./%%;
259 $read_file =~ s%^\./%%;
261 $write_files = [$write_file];
262 $read_files = [$read_file];
263 } elsif(/-o\s+(\S+)/) {
266 $write_file =~ s%^\./%%;
268 $write_files = [$write_file];
269 $read_files = ["<???>"];
270 } elsif(/^-shared.*?-o\s+(\S+)/) {
273 $write_file =~ s%^\./%%;
275 $write_files = [$write_file];
276 $read_files = ["<???>"];
278 error("gcc_command");
281 return ($read_files, $write_files);
284 ########################################################################
286 ########################################################################
294 if(s/^warning:\s+//) {
299 } elsif(/^((?:signed |unsigned )?(?:int|long)) format, (different type|\S+) arg \(arg (\d+)\)$/) {
302 HACCEL|HACMDRIVER|HANDLE|HBITMAP|HBRUSH|HCALL|HCURSOR|HDC|HDRVR|HDESK|HDRAWDIB
303 HGDIOBJ|HKL|HGLOBAL|HIMC|HINSTANCE|HKEY|HLOCAL|
304 HMENU|HMIDISTRM|HMIDIIN|HMIDIOUT|HMIXER|HMIXEROBJ|HMMIO|HMODULE|
305 HLINE|HPEN|HPHONE|HPHONEAPP|
306 HRASCONN|HRGN|HRSRC|HWAVEIN|HWAVEOUT|HWINSTA|HWND|
307 SC_HANDLE|WSAEVENT|handle_t|pointer)$/x)
313 } elsif(/^\(near initialization for \`(.*?)\'\)$/) {
315 } elsif(/^\`(.*?)\' defined but not used$/) {
317 } elsif(/^\`(.*?)\' is not at beginning of declaration$/) {
319 } elsif(/^\`%x\' yields only last 2 digits of year in some locales$/) {
321 } elsif(/^assignment makes integer from pointer without a cast$/) {
323 } elsif(/^assignment makes pointer from integer without a cast$/) {
325 } elsif(/^assignment from incompatible pointer type$/) {
327 } elsif(/^cast from pointer to integer of different size$/) {
329 } elsif(/^comparison between pointer and integer$/) {
331 } elsif(/^comparison between signed and unsigned$/) {
333 } elsif(/^comparison of unsigned expression < 0 is always false$/) {
335 } elsif(/^comparison of unsigned expression >= 0 is always true$/) {
337 } elsif(/^conflicting types for built-in function \`(.*?)\'$/) {
339 } elsif(/^empty body in an if-statement$/) {
341 } elsif(/^empty body in an else-statement$/) {
343 } elsif(/^implicit declaration of function \`(.*?)\'$/) {
345 } elsif(/^initialization from incompatible pointer type$/) {
347 } elsif(/^initialization makes pointer from integer without a cast$/) {
349 } elsif(/^missing initializer$/) {
351 } elsif(/^ordered comparison of pointer with integer zero$/) {
353 } elsif(/^passing arg (\d+) of (?:pointer to function|\`(\S+)\') from incompatible pointer type$/) {
356 if(defined($name) && $name =~ /^GDI_AllocObject$/) {
361 } elsif(/^passing arg (\d+) of (?:pointer to function|\`(\S+)\') makes integer from pointer without a cast$/) {
363 } elsif(/^passing arg (\d+) of (?:pointer to function|\`(\S+)\') makes pointer from integer without a cast$/) {
365 } elsif(/^return makes integer from pointer without a cast$/) {
367 } elsif(/^return makes pointer from integer without a cast$/) {
369 } elsif(/^type of \`(.*?)\' defaults to \`(.*?)\'$/) {
371 } elsif(/^unused variable \`(.*?)\'$/) {
373 } elsif(!$options->pedantic) {
381 $message = "function $function: warning: $_";
383 $message = "warning: $_";
388 } elsif(/^\`(.*?)\' undeclared \(first use in this function\)$/) {
390 } elsif(/^\(Each undeclared identifier is reported only once$/) {
392 } elsif(/^conflicting types for \`(.*?)\'$/) {
394 } elsif(/^for each function it appears in.\)$/) {
396 } elsif(/^too many arguments to function$/) {
398 } elsif(/^previous declaration of \`(.*?)\'$/) {
400 } elsif(/^parse error before `(.*?)'$/) {
402 } elsif(!$options->pedantic) {
407 } elsif(/^In function \`(.*?)\':$/) {
409 } elsif(/^At top level:$/) {
416 ########################################################################
418 ########################################################################
420 sub install_command($) {
426 ########################################################################
428 ########################################################################
436 if(/-r\s+(.*?)\s+-o\s+(\S+)$/) {
438 $read_files = [split(/\s+/, $1)];
443 return ($read_files, $write_files);
446 ########################################################################
448 ########################################################################
456 } elsif(/^In function \`(.*?)\':$/) {
458 } elsif(/^more undefined references to \`(.*?)\' follow$/) {
460 } elsif(/^the use of \`(.+?)\' is dangerous, better use \`(.+?)\'$/) {
462 } elsif(/^undefined reference to \`(.*?)\'$/) {
464 } elsif(/^warning: (.*?)\(\) possibly used unsafely; consider using (.*?)\(\)$/) {
466 } elsif(/^warning: type and size of dynamic symbol \`(.*?)\' are not defined$/) {
473 ########################################################################
475 ########################################################################
477 sub ldconfig_command($) {
483 ########################################################################
485 ########################################################################
487 sub makedep_command($) {
493 ########################################################################
495 ########################################################################
497 sub mkdir_command($) {
503 ########################################################################
505 ########################################################################
507 sub ranlib_command($) {
513 $read_files = [split(/\s+/)];
516 return ($read_files, $write_files);
519 ########################################################################
521 ########################################################################
526 return ([], [], [split(/\s+/, $_)]);
529 ########################################################################
531 ########################################################################
539 ########################################################################
541 ########################################################################
543 sub strip_command($) {
549 ########################################################################
551 ########################################################################
553 sub winebuild_command($) {
559 ########################################################################
561 ########################################################################
563 sub winebuild_output($$) {
570 ########################################################################
572 ########################################################################
583 my $rc_file = $mc_file;
584 $rc_file =~ s/\.mc$/.rc/;
586 $write_files = [$rc_file];
587 $read_files = [$mc_file];
589 error("wmc_command");
592 return ($read_files, $write_files);
595 ########################################################################
597 ########################################################################
604 ########################################################################
606 ########################################################################
617 my $o_file = $rc_file;
618 $o_file =~ s/\.rc$/.o/;
620 $write_files = [$o_file];
621 $read_files = [$rc_file];
623 error("wrc_command");
626 return ($read_files, $write_files);
629 ########################################################################
631 ########################################################################
638 ########################################################################
640 ########################################################################
647 my $read_files = ["<???>"];
648 my $write_files = ["<???>"];
649 my $remove_files = [];
653 if(s/^\[\s+-d\s+(.*?)\s+\]\s+\|\|\s+//) {
659 ($read_files, $write_files) = ar_command($_);
660 } elsif(s/^as\s+//) {
662 ($read_files, $write_files) = as_command($_);
663 } elsif(s/^bison\s+//) {
665 ($read_files, $write_files) = bison_command($_);
666 } elsif(s/^cd\s+//) {
668 ($read_files, $write_files) = cd_command($_);
669 } elsif(s/^flex\s+//) {
671 ($read_files, $write_files) = flex_command($_);
672 } elsif(s/^for\s+//) {
674 ($read_files, $write_files) = for_command($_);
675 } elsif(s/^\/usr\/bin\/install\s+//) {
677 ($read_files, $write_files) = install_command($_);
678 } elsif(s/^ld\s+//) {
680 ($read_files, $write_files) = ld_command($_);
681 } elsif(s/^\/sbin\/ldconfig\s+//) {
683 ($read_files, $write_files) = ldconfig_command();
684 } elsif(s/^gcc\s+//) {
686 ($read_files, $write_files) = gcc_command($_);
687 } elsif(s/^(?:(?:\.\.\/)+|\.\/)tools\/makedep\s+//) {
689 ($read_files, $write_files) = makedep_command($_);
690 } elsif(s/^mkdir\s+//) {
692 ($read_files, $write_files) = mkdir_command($_);
693 } elsif(s/^ranlib\s+//) {
695 ($read_files, $write_files) = ranlib_command($_);
696 } elsif(s/^rm\s+//) {
698 ($read_files, $write_files, $remove_files) = rm_command($_);
699 } elsif(s/^sed\s+//) {
701 ($read_files, $write_files) = sed_command($_);
702 } elsif(s/^strip\s+//) {
704 ($read_files, $write_files) = strip_command($_);
705 } elsif(s/^LD_LIBRARY_PATH="(?:(?:\.\.\/)*unicode)?:\$LD_LIBRARY_PATH"\s+(?:\.\.\/)*tools\/winebuild\/winebuild\s+//) {
707 ($read_files, $write_files) = winebuild_command($_);
708 } elsif(s/^LD_LIBRARY_PATH="(?:(?:\.\.\/)*unicode)?:\$LD_LIBRARY_PATH"\s+(?:\.\.\/)*tools\/wmc\/wmc\s+//) {
710 ($read_files, $write_files) = wmc_command($_);
711 } elsif(s/^LD_LIBRARY_PATH="(?:(?:\.\.\/)*unicode)?:\$LD_LIBRARY_PATH"\s+(?:\.\.\/)*tools\/wrc\/wrc\s+//) {
713 ($read_files, $write_files) = wrc_command($_);
716 return ($tool, $read_files, $write_files, $remove_files);
719 ########################################################################
721 ########################################################################
732 my ($new_tool, $read_files, $write_files, $remove_files) = command($_);
733 if(defined($new_tool)) {
739 if($directory && $directory ne ".") {
740 $progress .= "$directory: ";
743 $progress .= "$tool: ";
746 if($tool =~ /^(?:cd|make)$/) {
748 } elsif($tool eq "ld"/) {
749 foreach my $file (@{$read_files}) {
750 $output->lazy_progress("${progress}reading '$file'");
752 my $file = $$write_files[0];
753 $output->progress("$progress: writing '$file'");
754 } elsif($tool eq "rm") {
755 foreach my $file (@{$remove_files}) {
756 $output->lazy_progress("${progress}removing '$file'");
759 if($#$read_files >= 0) {
760 $progress .= "read[" . join(" ", @{$read_files}) . "]";
762 if($#$write_files >= 0) {
763 if($#$read_files >= 0) {
766 $progress .= "write[" . join(" ", @{$write_files}) . "]";
768 if($#$remove_files >= 0) {
769 if($#$read_files >= 0 || $#$write_files >= 0) {
772 $progress .= "remove[" . join(" ", @{$remove_files}) . "]";
775 $output->progress($progress);
781 my $make = $options->make;
783 if(/^Wine build complete\.$/) {
785 } elsif(/^(.*?) is newer than (.*?), please rerun (.*?)\!$/) {
787 } elsif(/^(.*?) is older than (.*?), please rerun (.*?)$/) {
789 } elsif(/^\`(.*?)\' is up to date.$/) {
792 } elsif(s/^$make(?:\[(\d+)\])?:\s*//) {
795 } elsif(!defined($tool)) {
797 } elsif($tool eq "make") {
799 } elsif($tool eq "bison" && /^conflicts:\s+\d+\s+shift\/reduce$/) {
801 } elsif($tool eq "gcc" && /^(?:In file included |\s*)from (.+?):(\d+)[,:]$/) {
803 } elsif($tool =~ /^(?:gcc|ld)$/ && s/^(.+?\.s?o)(?:\(.*?\))?:\s*//) {
806 } elsif($tool =~ /^(?:gcc|ld)$/ && s/^(.*?)ld:\s*//) {
809 } elsif($tool =~ /^(?:gcc|ld)$/ && s/^collect2:\s*//) {
811 ld_output("collect2", $_);
812 } elsif($tool eq "gcc" && s/^(.+?\.[chly]):\s*//) {
814 } elsif($tool eq "ld" && s/^(.+?\.c):(?:\d+:)?\s*//) {
816 } elsif($tool eq "winebuild" && s/^(.+?\.spec):\s*//) {
817 winebuild_output($1, $_);
818 } elsif($tool eq "wmc" && s/^(.+?\.mc):\s*//) {
820 } elsif($tool eq "wrc" && s/^(.+?\.rc):\s*//) {
822 } elsif($tool eq "cd" && s/^\/bin\/sh:\s*cd:\s*//) {