File: GenerateImports.pl

package info (click to toggle)
webkit2gtk 2.48.5-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 429,764 kB
  • sloc: cpp: 3,697,587; javascript: 194,444; ansic: 169,997; python: 46,499; asm: 19,295; ruby: 18,528; perl: 16,602; xml: 4,650; yacc: 2,360; sh: 2,098; java: 1,993; lex: 1,327; pascal: 366; makefile: 298
file content (18 lines) | stat: -rw-r--r-- 416 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/env perl
use strict;
use warnings;

die "Usage: $0 output_file import1 import2 ... importN\n" if @ARGV < 2;

my $output_file = shift @ARGV;
my @import_files = @ARGV;

open(my $fh, '>', $output_file) or die "Cannot open $output_file: $!";

foreach my $file (@import_files) {
    print $fh "#import \"$file\"\n";
}

close($fh);

print "Generated $output_file with #import statements for provided files.\n";