praat_module/expandPraatScripts.pl

   1 #!/usr/bin/perl
   2 #
   3 # Expand include files in praat script.
   4 # Writes the expanded script to STDOUT.
   5 # Concatenates all arguments.
   6 #
   7 # Use:
   8 # perl expandPraatScripts.pl <file1> ...
   9
  10 add_master_SHA();
  11
  12 foreach my $input (@ARGV)
  13 {
  14         expand($input);
  15 };
  16
  17 sub expand # (filename)
  18 {
  19         my $filename = shift;
  20         my $directory = `dirname $filename`;
  21         chomp($directory);
  22         open(FILE, "<$filename") || die "$!: $filename\n";
  23         my @CurrentScript = <FILE>;
  24         close(FILE);
  25         foreach my $line (@CurrentScript) {
  26                 if($line =~ /^([^\#]*)include\s+(\S+)/){
  27                         my ($previous, $match, $following) = ($1, $2, $');
  28                         print "$previous\n" if $previous =~ /\S/;
  29                         # Insert included file
  30                         expand("$directory/$match");
  31                         print "$following" if  $following =~ /\S/;
  32                 }
  33                 else
  34                 {
  35                         print $line;
  36                 };
  37         };
  38 };
  39
  40 # Add git SHA1 commit
  41 sub add_master_SHA
  42 {
  43         if(-d "../.git"){
  44                 open(HEAD, "<../.git/HEAD");
  45                 my $headRef = <HEAD>;
  46                 close(HEAD);
  47                 if($headRef =~ /^\s*ref\:\s+/){
  48                         $refPtr = $';
  49                         chomp($refPtr);
  50                         open(HEAD, "<../.git/$refPtr");
  51                         $headSHA = <HEAD>;
  52                         $headSHA =~ s/\s//g;
  53                 }
  54                 else {
  55                         $headSHA = $headRef;
  56                 };
  57
  58                 print "\nmaster_SHA\$ = \"$headSHA\"\n";
  59         }
  60 };