1
0
mirror of https://github.com/samba-team/samba.git synced 2025-03-11 16:58:40 +03:00

16 lines
395 B
Perl
Raw Normal View History

#!/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 "$source: $file bin/compile_et\n";
print "\t\@echo \"Compiling error table $file\"\n";
print "\t\@cd $dirname && ../../../bin/compile_et $basename\n\n";
print "$header: $source\n";