File: GenerateImports.pl

package info (click to toggle)
wpewebkit 2.48.6-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 421,736 kB
  • sloc: cpp: 3,671,212; javascript: 194,411; ansic: 165,592; python: 46,476; asm: 19,295; ruby: 18,528; perl: 16,602; xml: 4,650; yacc: 2,360; java: 1,993; sh: 1,948; lex: 1,327; pascal: 366; makefile: 87
file content (18 lines) | stat: -rw-r--r-- 416 bytes parent folder | download | duplicates (9) 
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";