source4/heimdal_build/asn1_deps.pl

   1 #!/usr/bin/perl
   2 # Generate make dependency rules for asn1 files
   3 # Jelmer Vernooij <jelmer@samba.org> 2005
   4 # GPL
   5
   6 use File::Basename;
   7
   8 my $file = shift;
   9 my $prefix = shift;
  10 my $options = shift;
  11 my $x_file, @x_files;
  12 my $c_file, @c_files;
  13 if (not defined ($prefix)) { $prefix = "asn1"; }
  14
  15 $dirname = dirname($file);
  16 $basename = basename($file);
  17 if (not defined $options) {
  18     $options = "";
  19 }
  20
  21 my $header = "$dirname/$prefix.h";
  22
  23 print "$header: $file bin/asn1_compile\n";
  24 print "\t\@echo \"Compiling ASN1 file $file\"\n";
  25 print "\t\@cd $dirname && ../../../bin/asn1_compile $options $basename $prefix\n\n";
  26
  27 open(IN,$file) or die("Can't open $file: $!");
  28 foreach(<IN>) {
  29         if (/^([A-Za-z0-9_-]+)[ \t]*::= /) {
  30                 my $output = $1;
  31                 $output =~ s/-/_/g;
  32                 $c_file = "$dirname/asn1_$output.c";
  33                 $x_file = "$dirname/asn1_$output.x";
  34                 print "$x_file: $header\n";
  35                 print "$c_file: $dirname/asn1_$output.x\n";
  36                 print "\t\@cp $x_file $c_file\n\n";
  37                 push @x_files, $x_file;
  38                 push @c_files, $c_file;
  39         }
  40 }
  41 close(IN);
  42 print $prefix."_clean: \n";
  43 print "\t\@echo \"Deleting ASN1 ouput files generated from $file\"";
  44 print "\n\t\@rm -f $header";
  45 foreach $c_file (@c_files) {
  46     print "\n\t\@rm -f $c_file";
  47 }
  48 foreach $x_file (@x_files) {
  49     print "\n\t\@rm -f $x_file";
  50 }
  51 print "\n\n";