File: GenerateImports.pl

package info (click to toggle)
wpewebkit 2.50.4-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 438,288 kB
  • sloc: cpp: 3,777,429; javascript: 197,888; ansic: 156,951; python: 49,118; asm: 21,987; ruby: 18,540; perl: 16,722; xml: 4,623; yacc: 2,360; sh: 2,096; java: 2,019; lex: 1,327; pascal: 366; makefile: 92
file content (18 lines) | stat: -rw-r--r-- 416 bytes parent folder | download | duplicates (10) 
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";