mirror of
https://github.com/samba-team/samba.git
synced 2025-01-15 23:24:37 +03:00
14 lines
374 B
Perl
Executable File
14 lines
374 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use File::Basename;
|
|
|
|
my $file = shift;
|
|
my $dirname = dirname($file);
|
|
my $basename = basename($file);
|
|
|
|
my $header = $file; $header =~ s/\.et$/.h/;
|
|
my $source = $file; $source =~ s/\.et$/.c/;
|
|
print "$header $source: $file bin/compile_et\n";
|
|
print "\t\@echo \"Compiling error table $file\"\n";
|
|
print "\t\@cd $dirname && ../../../bin/compile_et $basename\n\n";
|