File: GenerateImports.pl

package info (click to toggle)
webkit2gtk 2.51.90-1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 484,192 kB
  • sloc: cpp: 3,930,945; javascript: 197,713; ansic: 167,619; python: 53,160; asm: 21,857; ruby: 18,114; perl: 17,149; xml: 4,631; sh: 2,462; yacc: 2,394; java: 2,032; lex: 1,358; pascal: 372; makefile: 215
file content (18 lines) | stat: -rw-r--r-- 416 bytes parent folder | download | duplicates (7) 
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";