File: generate.pl

package info (click to toggle)
0ad 0.0.23.1-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 78,292 kB
  • sloc: cpp: 245,166; ansic: 200,249; python: 13,754; sh: 6,104; perl: 4,620; makefile: 977; xml: 810; java: 533; ruby: 229; erlang: 46; pascal: 30; sql: 21; tcl: 4
file content (22 lines) | stat: -rw-r--r-- 428 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use strict;
use warnings;

my @files = qw( .cpp .rc );

my @progs = (
	{
		PROJECT_NAME	=> "ActorEditor",
		WINDOW_NAME		=> "ActorEditor",
	},
);

for my $p (@progs) {
	for my $f (@files) {
		open IN, "<", "_template$f" or die "Error opening _template$f: $!";
		open OUT, ">", "$p->{PROJECT_NAME}$f" or die "Error opening $p->{PROJECT_NAME}$f: $!";
		while (<IN>) {
			s/\$\$([A-Z_]+)\$\$/ $p->{$1} /eg;
			print OUT;
		}
	}	
}