FreeCalypso > hg > tcs211-l1-reconst
view g23m/system/busyb/tools/cfg_gen.pl @ 349:ed3e588600c1 default tip
README update for the successful completion of the L1 reconstruction project
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Mon, 30 Oct 2017 18:03:24 +0000 |
parents | 509db1a7b7b8 |
children |
line wrap: on
line source
my $cfg_dir=$ARGV[0]; my $cfg_string= $cfg_file ; my $guard_string; my @files; shift; foreach $define (@ARGV) { $define =~ /^(CFG_)?(.*?)_/; my $file = $2; if (! grep /$file/, @files) { push @files, $file; } } foreach $file (sort @files) { my $cfg_string = "\L$file"; my $cfg_file = "$cfg_dir/$cfg_string.cfg"; my $guard_string = "\U__${file}_CFG__"; # open the file open (CFG,">$cfg_file")||die "can't open $cfg_file \n"; # print guard pattern print CFG "#ifndef $guard_string\n"; print CFG "#define $guard_string\n"; foreach (sort @ARGV) { if (/^(CFG_)?($file)_(.*?)=(.*)/) { print CFG "#define $3 $4\n"; } } # end guard pattern print CFG "#endif /* $guard_string */ \n"; # close the file close CFG; }