Use __wine_unimplemented_stub from crt0 for 16-bit spec files too.
[wine] / tools / winapi / make_parser.pm
1 #
2 # Copyright 1999, 2000, 2001 Patrik Stridvall
3 #
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.
8 #
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.
13 #
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
17 #
18
19 package make_parser;
20
21 use strict;
22
23 use setup qw($current_dir $wine_dir $winapi_dir);
24
25 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
26 require Exporter;
27
28 @ISA = qw(Exporter);
29 @EXPORT = qw();
30 @EXPORT_OK = qw($directory $tool $file $line $message);
31
32 use vars qw($directory $tool $file $line $message);
33
34 use output qw($output);
35 use options qw($options);
36
37
38 #sub command($);
39 #sub gcc_output($$);
40 #sub ld_output($$);
41 #sub make_output($$);
42 #sub winebuild_output($$);
43 #sub wmc_output($$);
44 #sub wrc_output($$);
45
46
47 ########################################################################
48 # global
49 ########################################################################
50
51 my $current;
52 my $function;
53
54 ########################################################################
55 # error
56 ########################################################################
57
58 sub error($) {
59     my $where = shift;
60
61     if(!defined($where)) {
62         $where = "";
63     }
64
65     my $context;
66     if($tool) {
67         $context = "$tool";
68         if($where) {
69             $context .= "<$where>";
70         }
71     } else {
72         if($where) {
73             $context = "<$where>";
74         } else {
75             $context = "<>";
76         }
77     }
78
79     if(defined($tool)) {
80         $output->write("$directory: $context: can't parse output: '$current'\n");
81     } else {
82         $output->write("$directory: $context: can't parse output: '$current'\n");
83     }
84     exit 1;
85 }
86
87 ########################################################################
88 # make_output
89 ########################################################################
90
91 sub make_output($$) {
92     my $level = shift;
93     local $_ = shift;
94
95     $file = "";
96     $message = "";
97
98     if(0) {
99         # Nothing
100     } elsif(/^\*\*\* \[(.*?)\] Error (\d+)$/) {
101         # Nothing
102     } elsif(/^\*\*\* Error code (\d+)$/) {
103         # Nothing
104     } elsif(/^\*\*\* Warning:\s+/) { #
105         if(/^File \`(.+?)\' has modification time in the future \((.+?) > \(.+?\)\)$/) {
106             # Nothing
107         } else {
108             error("make_output");
109         }
110     } elsif(/^\`(.*?)\' is up to date.$/) {
111         # Nothing
112     } elsif(/^\[(.*?)\] Error (\d+) \(ignored\)$/) {
113         # Nothing
114     } elsif(/^don\'t know how to make (.*?)\. Stop$/) {
115         $message = "$_";
116     } elsif(/^(Entering|Leaving) directory \`(.*?)\'$/) {
117         if($1 eq "Entering") {
118             $directory = $2;
119         } else {
120             $directory = "";
121         }
122
123         my @components;
124         foreach my $component (split(/\//, $directory)) {
125             if($component eq "wine") {
126                 @components = ();
127             } else {
128                 push @components, $component;
129             }
130         }
131         $directory = join("/", @components);
132     } elsif(/^(.*?) is older than (.*?), please rerun (.*?)\$/) {
133         # Nothing
134     } elsif(/^Nothing to be done for \`(.*?)\'\.$/) {
135         # Nothing
136     } elsif(s/^warning:\s+//) {
137         if(/^Clock skew detected.  Your build may be incomplete.$/) {
138             # Nothing
139         } else {
140             error("make_output");
141         }
142     } elsif(/^Stop in (.*?)\.$/) {
143         # Nothing
144     } elsif(/^\s*$/) {
145         # Nothing
146     } else {
147         error("make_output");
148     }
149
150 }
151
152 ########################################################################
153 # ar_command
154 ########################################################################
155
156 sub ar_command($) {
157     local $_ = shift;
158
159     my $read_files;
160     my $write_files;
161
162     if(/rc\s+(\S+)(\s+\S+)+$/) {
163         $write_files = [$1];
164         $read_files = $2;
165         $read_files =~ s/^\s*//;
166         $read_files = [split(/\s+/, $read_files)];
167     } else {
168         error("ar_command");
169     }
170
171     return ($read_files, $write_files);
172 }
173
174 ########################################################################
175 # as_command
176 ########################################################################
177
178 sub as_command($) {
179     local $_ = shift;
180
181     my $read_files;
182     my $write_files;
183
184     if(/-o\s+(\S+)\s+(\S+)$/) {
185         $write_files = [$1];
186         $read_files = [$2];
187     } else {
188         error("as_command");
189     }
190
191     return ($read_files, $write_files);
192 }
193
194 ########################################################################
195 # bision_command
196 ########################################################################
197
198 sub bison_command($) {
199     local $_ = shift;
200
201     return ([], []);
202 }
203
204 ########################################################################
205 # cd_command
206 ########################################################################
207
208 sub cd_command($) {
209     local $_ = shift;
210
211     return ([], []);
212 }
213
214 ########################################################################
215 # cd_output
216 ########################################################################
217
218 sub cd_output($) {
219     local $_ = shift;
220
221     if(/^(.*?): No such file or directory/) {
222         $message = "directory '$1' doesn't exist";
223     }
224 }
225
226 ########################################################################
227 # flex_command
228 ########################################################################
229
230 sub flex_command($) {
231     local $_ = shift;
232
233     return ([], []);
234 }
235
236 ########################################################################
237 # for_command
238 ########################################################################
239
240 sub for_command($) {
241     local $_ = shift;
242
243     return ([], []);
244 }
245
246 ########################################################################
247 # gcc_command
248 ########################################################################
249
250 sub gcc_command($) {
251     my $read_files;
252     my $write_files;
253
254     if(/-o\s+(\S+)\s+(\S+)$/) {
255         my $write_file = $1;
256         my $read_file = $2;
257
258         $write_file =~ s%^\./%%;
259         $read_file =~ s%^\./%%;
260
261         $write_files = [$write_file];
262         $read_files = [$read_file];
263     } elsif(/-o\s+(\S+)/) {
264         my $write_file = $1;
265
266         $write_file =~ s%^\./%%;
267
268         $write_files = [$write_file];
269         $read_files = ["<???>"];
270     } elsif(/^-shared.*?-o\s+(\S+)/) {
271         my $write_file = $1;
272
273         $write_file =~ s%^\./%%;
274
275         $write_files = [$write_file];
276         $read_files = ["<???>"];
277     } else {
278         error("gcc_command");
279     }
280
281     return ($read_files, $write_files);
282 }
283
284 ########################################################################
285 # gcc_output
286 ########################################################################
287
288 sub gcc_output($$) {
289     $file = shift;
290     local $_ = shift;
291
292     if(s/^(\d+):\s+//) {
293         $line = $1;
294         if(s/^warning:\s+//) {
295             my $suppress = 0;
296
297             if(0) {
298                 # Nothing
299             } elsif(/^((?:signed |unsigned )?(?:int|long)) format, (different type|\S+) arg \(arg (\d+)\)$/) {
300                 my $type = $2;
301                 if($type =~ /^(?:
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)
308                 {
309                     $suppress = 1;
310                 } else {
311                     $suppress = 0;
312                 }
313             } elsif(/^\(near initialization for \`(.*?)\'\)$/) {
314                 $suppress = 0;
315             } elsif(/^\`(.*?)\' defined but not used$/) {
316                 $suppress = 0;
317             } elsif(/^\`(.*?)\' is not at beginning of declaration$/) {
318                 $suppress = 0;
319             } elsif(/^\`%x\' yields only last 2 digits of year in some locales$/) {
320                 $suppress = 1;
321             } elsif(/^assignment makes integer from pointer without a cast$/) {
322                 $suppress = 0;
323             } elsif(/^assignment makes pointer from integer without a cast$/) {
324                 $suppress = 0;
325             } elsif(/^assignment from incompatible pointer type$/) {
326                 $suppress = 0;
327             } elsif(/^cast from pointer to integer of different size$/) {
328                 $suppress = 0;
329             } elsif(/^comparison between pointer and integer$/) {
330                 $suppress = 0;
331             } elsif(/^comparison between signed and unsigned$/) {
332                 $suppress = 0;
333             } elsif(/^comparison of unsigned expression < 0 is always false$/) {
334                 $suppress = 0;
335             } elsif(/^comparison of unsigned expression >= 0 is always true$/) {
336                 $suppress = 0;
337             } elsif(/^conflicting types for built-in function \`(.*?)\'$/) {
338                 $suppress = 0;
339             } elsif(/^empty body in an if-statement$/) {
340                 $suppress = 0;
341             } elsif(/^empty body in an else-statement$/) {
342                 $suppress = 0;
343             } elsif(/^implicit declaration of function \`(.*?)\'$/) {
344                 $suppress = 0;
345             } elsif(/^initialization from incompatible pointer type$/) {
346                 $suppress = 0;
347             } elsif(/^initialization makes pointer from integer without a cast$/) {
348                 $suppress = 0;
349             } elsif(/^missing initializer$/) {
350                 $suppress = 0;
351             } elsif(/^ordered comparison of pointer with integer zero$/) {
352                 $suppress = 0;
353             } elsif(/^passing arg (\d+) of (?:pointer to function|\`(\S+)\') from incompatible pointer type$/) {
354                 my $arg = $1;
355                 my $name = $2;
356                 if(defined($name) && $name =~ /^GDI_AllocObject$/) {
357                     $suppress = 1;
358                 } else {
359                     $suppress = 0;
360                 }
361             } elsif(/^passing arg (\d+) of (?:pointer to function|\`(\S+)\') makes integer from pointer without a cast$/) {
362                 $suppress = 0;
363             } elsif(/^passing arg (\d+) of (?:pointer to function|\`(\S+)\') makes pointer from integer without a cast$/) {
364                 $suppress = 0;
365             } elsif(/^return makes integer from pointer without a cast$/) {
366                 $suppress = 0;
367             } elsif(/^return makes pointer from integer without a cast$/) {
368                 $suppress = 0;
369             } elsif(/^type of \`(.*?)\' defaults to \`(.*?)\'$/) {
370                 $suppress = 0;
371             } elsif(/^unused variable \`(.*?)\'$/) {
372                 $suppress = 0;
373             } elsif(!$options->pedantic) {
374                 $suppress = 0;
375             } else {
376                 error("gcc_output");
377             }
378
379             if(!$suppress) {
380                 if($function) {
381                     $message = "function $function: warning: $_";
382                 } else {
383                     $message = "warning: $_";
384                 }
385             } else {
386                 $message = "";
387             }
388         } elsif(/^\`(.*?)\' undeclared \(first use in this function\)$/) {
389             $message = "$_";
390         } elsif(/^\(Each undeclared identifier is reported only once$/) {
391             $message = "$_";
392         } elsif(/^conflicting types for \`(.*?)\'$/) {
393             $message = "$_";
394         } elsif(/^for each function it appears in.\)$/) {
395             $message = "$_";
396         } elsif(/^too many arguments to function$/) {
397             $message = "$_";
398         } elsif(/^previous declaration of \`(.*?)\'$/) {
399             $message = "$_";
400         } elsif(/^parse error before `(.*?)'$/) {
401             $message = "$_";
402         } elsif(!$options->pedantic) {
403             $message = "$_";
404         } else {
405             error("gcc_output");
406         }
407     } elsif(/^In function \`(.*?)\':$/) {
408         $function = $1;
409     } elsif(/^At top level:$/) {
410         $function = "";
411     } else {
412         error("gcc_output");
413     }
414 }
415
416 ########################################################################
417 # install_command
418 ########################################################################
419
420 sub install_command($) {
421     local $_ = shift;
422
423     return ([], []);
424 }
425
426 ########################################################################
427 # ld_command
428 ########################################################################
429
430 sub ld_command($) {
431     local $_ = shift;
432
433     my $read_files;
434     my $write_files;
435
436     if(/-r\s+(.*?)\s+-o\s+(\S+)$/) {
437         $write_files = [$2];
438         $read_files = [split(/\s+/, $1)];
439     } else {
440         error("ld_command");
441     }
442
443     return ($read_files, $write_files);
444 }
445
446 ########################################################################
447 # ld_output
448 ########################################################################
449
450 sub ld_output($$) {
451     $file = shift;
452     local $_ = shift;
453
454     if(0) {
455         # Nothing
456     } elsif(/^In function \`(.*?)\':$/) {
457         $function = $1;
458     } elsif(/^more undefined references to \`(.*?)\' follow$/) {
459         # Nothing
460     } elsif(/^the use of \`(.+?)\' is dangerous, better use \`(.+?)\'$/) {
461         # Nothing
462     } elsif(/^undefined reference to \`(.*?)\'$/) {
463         # Nothing
464     } elsif(/^warning: (.*?)\(\) possibly used unsafely; consider using (.*?)\(\)$/) {
465         # Nothing
466     } elsif(/^warning: type and size of dynamic symbol \`(.*?)\' are not defined$/) {
467         $message = "$_";
468     } else {
469         $message = "$_";
470     }
471 }
472
473 ########################################################################
474 # ldconfig_command
475 ########################################################################
476
477 sub ldconfig_command($) {
478     local $_ = shift;
479
480     return ([], []);
481 }
482
483 ########################################################################
484 # makedep_command
485 ########################################################################
486
487 sub makedep_command($) {
488     local $_ = shift;
489
490     return ([], []);
491 }
492
493 ########################################################################
494 # mkdir_command
495 ########################################################################
496
497 sub mkdir_command($) {
498     local $_ = shift;
499
500     return ([], []);
501 }
502
503 ########################################################################
504 # ranlib_command
505 ########################################################################
506
507 sub ranlib_command($) {
508     local $_ = shift;
509
510     my $read_files;
511     my $write_files;
512
513     $read_files = [split(/\s+/)];
514     $write_files = [];
515
516     return ($read_files, $write_files);
517 }
518
519 ########################################################################
520 # rm_command
521 ########################################################################
522
523 sub rm_command($) {
524     local $_ = shift;
525     s/^-f\s*//;
526     return ([], [], [split(/\s+/, $_)]);
527 }
528
529 ########################################################################
530 # sed_command
531 ########################################################################
532
533 sub sed_command($) {
534     local $_ = shift;
535
536     return ([], []);
537 }
538
539 ########################################################################
540 # strip_command
541 ########################################################################
542
543 sub strip_command($) {
544     local $_ = shift;
545
546     return ([], []);
547 }
548
549 ########################################################################
550 # winebuild_command
551 ########################################################################
552
553 sub winebuild_command($) {
554     local $_ = shift;
555
556     return ([], []);
557 }
558
559 ########################################################################
560 # winebuild_output
561 ########################################################################
562
563 sub winebuild_output($$) {
564     $file = shift;
565     local $_ = shift;
566
567     $message = $_;
568 }
569
570 ########################################################################
571 # wmc_command
572 ########################################################################
573
574 sub wmc_command($) {
575     local $_ = shift;
576
577     my $read_files;
578     my $write_files;
579
580     if(/\s+(\S+)$/) {
581         my $mc_file = $1;
582
583         my $rc_file = $mc_file;
584         $rc_file =~ s/\.mc$/.rc/;
585
586         $write_files = [$rc_file];
587         $read_files = [$mc_file];
588     } else {
589         error("wmc_command");
590     }
591
592     return ($read_files, $write_files);
593 }
594
595 ########################################################################
596 # wmc_output
597 ########################################################################
598
599 sub wmc_output($$) {
600     $file = shift;
601     local $_ = shift;
602 }
603
604 ########################################################################
605 # wrc_command
606 ########################################################################
607
608 sub wrc_command($) {
609     local $_ = shift;
610
611     my $read_files;
612     my $write_files;
613
614     if(/\s+(\S+)$/) {
615         my $rc_file = $1;
616
617         my $o_file = $rc_file;
618         $o_file =~ s/\.rc$/.o/;
619
620         $write_files = [$o_file];
621         $read_files = [$rc_file];
622     } else {
623         error("wrc_command");
624     }
625
626     return ($read_files, $write_files);
627 }
628
629 ########################################################################
630 # wrc_output
631 ########################################################################
632
633 sub wrc_output($$) {
634     $file = shift;
635     local $_ = shift;
636 }
637
638 ########################################################################
639 # command
640 ########################################################################
641
642 sub command($) {
643     local $_ = shift;
644
645     my $tool;
646     my $file;
647     my $read_files = ["<???>"];
648     my $write_files = ["<???>"];
649     my $remove_files = [];
650
651     s/^\s*(.*?)\s*$/$1/;
652
653     if(s/^\[\s+-d\s+(.*?)\s+\]\s+\|\|\s+//) {
654         # Nothing
655     }
656
657     if(s/^ar\s+//) {
658         $tool = "ar";
659         ($read_files, $write_files) = ar_command($_);
660     } elsif(s/^as\s+//) {
661         $tool = "as";
662         ($read_files, $write_files) = as_command($_);
663     } elsif(s/^bison\s+//) {
664         $tool = "bison";
665         ($read_files, $write_files) = bison_command($_);
666     } elsif(s/^cd\s+//) {
667         $tool = "cd";
668         ($read_files, $write_files) = cd_command($_);
669     } elsif(s/^flex\s+//) {
670         $tool = "flex";
671         ($read_files, $write_files) = flex_command($_);
672     } elsif(s/^for\s+//) {
673         $tool = "for";
674         ($read_files, $write_files) = for_command($_);
675     } elsif(s/^\/usr\/bin\/install\s+//) {
676         $tool = "install";
677         ($read_files, $write_files) = install_command($_);
678     } elsif(s/^ld\s+//) {
679         $tool = "ld";
680         ($read_files, $write_files) = ld_command($_);
681     } elsif(s/^\/sbin\/ldconfig\s+//) {
682         $tool = "ldconfig";
683         ($read_files, $write_files) = ldconfig_command();
684     } elsif(s/^gcc\s+//) {
685         $tool = "gcc";
686         ($read_files, $write_files) = gcc_command($_);
687     } elsif(s/^(?:(?:\.\.\/)+|\.\/)tools\/makedep\s+//) {
688         $tool = "makedep";
689         ($read_files, $write_files) = makedep_command($_);
690     } elsif(s/^mkdir\s+//) {
691         $tool = "mkdir";
692         ($read_files, $write_files) = mkdir_command($_);
693     } elsif(s/^ranlib\s+//) {
694         $tool = "ranlib";
695         ($read_files, $write_files) = ranlib_command($_);
696     } elsif(s/^rm\s+//) {
697         $tool = "rm";
698         ($read_files, $write_files, $remove_files) = rm_command($_);
699     } elsif(s/^sed\s+//) {
700         $tool = "sed";
701         ($read_files, $write_files) = sed_command($_);
702     } elsif(s/^strip\s+//) {
703         $tool = "sed";
704         ($read_files, $write_files) = strip_command($_);
705     } elsif(s/^LD_LIBRARY_PATH="(?:(?:\.\.\/)*unicode)?:\$LD_LIBRARY_PATH"\s+(?:\.\.\/)*tools\/winebuild\/winebuild\s+//) {
706         $tool = "winebuild";
707         ($read_files, $write_files) = winebuild_command($_);
708     } elsif(s/^LD_LIBRARY_PATH="(?:(?:\.\.\/)*unicode)?:\$LD_LIBRARY_PATH"\s+(?:\.\.\/)*tools\/wmc\/wmc\s+//) {
709         $tool = "wmc";
710         ($read_files, $write_files) = wmc_command($_);
711     } elsif(s/^LD_LIBRARY_PATH="(?:(?:\.\.\/)*unicode)?:\$LD_LIBRARY_PATH"\s+(?:\.\.\/)*tools\/wrc\/wrc\s+//) {
712         $tool = "wrc";
713         ($read_files, $write_files) = wrc_command($_);
714     }
715
716     return ($tool, $read_files, $write_files, $remove_files);
717 }
718
719 ########################################################################
720 # line
721 ########################################################################
722
723 sub line($) {
724     local $_ = shift;
725
726     $file = "";
727     $line = "";
728     $message = "";
729
730     $current = $_;
731
732     my ($new_tool, $read_files, $write_files, $remove_files) = command($_);
733     if(defined($new_tool)) {
734         $tool = $new_tool;
735
736         $function = "";
737
738         my $progress = "";
739         if($directory && $directory ne ".") {
740             $progress .= "$directory: ";
741         }
742         if($tool) {
743             $progress .= "$tool: ";
744         }
745
746         if($tool =~ /^(?:cd|make)$/) {
747             # Nothing
748         } elsif($tool eq "ld"/) {
749             foreach my $file (@{$read_files}) {
750                 $output->lazy_progress("${progress}reading '$file'");
751             }
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'");
757             }
758         } else {
759             if($#$read_files >= 0) {
760                 $progress .= "read[" . join(" ", @{$read_files}) . "]";
761             }
762             if($#$write_files >= 0) {
763                 if($#$read_files >= 0) {
764                     $progress .= ", ";
765                 }
766                 $progress .= "write[" . join(" ", @{$write_files}) . "]";
767             }
768             if($#$remove_files >= 0) {
769                 if($#$read_files >= 0 || $#$write_files >= 0) {
770                     $progress .= ", ";
771                 }
772                 $progress .= "remove[" . join(" ", @{$remove_files}) . "]";
773             }
774
775             $output->progress($progress);
776         }
777
778         return 0;
779     }
780
781     my $make = $options->make;
782
783     if(/^Wine build complete\.$/) {
784         # Nothing
785     } elsif(/^(.*?) is newer than (.*?), please rerun (.*?)\!$/) {
786         $message = "$_";
787     } elsif(/^(.*?) is older than (.*?), please rerun (.*?)$/) {
788         $message = "$_";
789     } elsif(/^\`(.*?)\' is up to date.$/) {
790         $tool = "make";
791         make_output($1, $_);
792     } elsif(s/^$make(?:\[(\d+)\])?:\s*//) {
793         $tool = "make";
794         make_output($1, $_);
795     } elsif(!defined($tool)) {
796         error("line");
797     } elsif($tool eq "make") {
798         make_output($1, $_);
799     } elsif($tool eq "bison" && /^conflicts:\s+\d+\s+shift\/reduce$/) {
800         # Nothing
801     } elsif($tool eq "gcc" && /^(?:In file included |\s*)from (.+?):(\d+)[,:]$/) {
802         # Nothing
803     } elsif($tool =~ /^(?:gcc|ld)$/ && s/^(.+?\.s?o)(?:\(.*?\))?:\s*//) {
804         $tool = "ld";
805         ld_output($1, $_)
806     } elsif($tool =~ /^(?:gcc|ld)$/ && s/^(.*?)ld:\s*//) {
807         $tool = "ld";
808         ld_output("", $_)
809     } elsif($tool =~ /^(?:gcc|ld)$/ && s/^collect2:\s*//) {
810         $tool = "ld";
811         ld_output("collect2", $_);
812     } elsif($tool eq "gcc" && s/^(.+?\.[chly]):\s*//) {
813         gcc_output($1, $_);
814     } elsif($tool eq "ld" && s/^(.+?\.c):(?:\d+:)?\s*//) {
815         ld_output($1, $_);
816     } elsif($tool eq "winebuild" && s/^(.+?\.spec):\s*//) {
817         winebuild_output($1, $_);
818     } elsif($tool eq "wmc" && s/^(.+?\.mc):\s*//) {
819         wmc_output($1, $_);
820     } elsif($tool eq "wrc" && s/^(.+?\.rc):\s*//) {
821         wrc_output($1, $_);
822     } elsif($tool eq "cd" && s/^\/bin\/sh:\s*cd:\s*//) {
823         parse_cd_output($_);
824     } elsif(/^\s*$/) {
825         # Nothing
826     } else {
827         error("line");
828     }
829
830     $file =~ s/^\.\///;
831
832     return 1;
833 }
834
835 1;