eden-emu/mbedtls
14
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Factor some output code

Browse source
This commit is contained in:
Manuel Pégourié-Gonnard 2014-05-09 13:00:18 +02:00 • committed by Paul Bakker
parent 0598faf15b
commit 411f73e7b3
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
scripts/update_vs_apps.pl
View file

@ -103,6 +103,14 @@ sub slurp_file {
return $content; return $content;
} }
sub content_to_file {
my ($content, $filename) = @_;
open my $fh, '>', $filename or die "Could not write to $filename\n";
print $fh $content;
close $fh;
}
sub gen_app_guid { sub gen_app_guid {
my ($path) = @_; my ($path) = @_;
@ -124,9 +132,7 @@ sub gen_app {
$content =~ s/<APPNAME>/$appname/g; $content =~ s/<APPNAME>/$appname/g;
$content =~ s/<GUID>/$guid/g; $content =~ s/<GUID>/$guid/g;
open my $app_fh, '>', "$dir/$appname.$ext"; content_to_file( $content, "$dir/$appname.$ext" );
print $app_fh $content;
close $app_fh;
} }
sub get_app_list { sub get_app_list {
@ -170,9 +176,7 @@ sub gen_main_file {
$out =~ s/SOURCE_ENTRIES\r\n/$source_entries/m; $out =~ s/SOURCE_ENTRIES\r\n/$source_entries/m;
$out =~ s/HEADER_ENTRIES\r\n/$header_entries/m; $out =~ s/HEADER_ENTRIES\r\n/$header_entries/m;
open my $fh, '>', $main_out or die; content_to_file( $out, $main_out );
print $fh $out;
close $fh;
} }
sub gen_vs6_workspace { sub gen_vs6_workspace {
@ -184,9 +188,7 @@ sub gen_vs6_workspace {
my $out = slurp_file( $vs6_wsp_tpl_file ); my $out = slurp_file( $vs6_wsp_tpl_file );
$out =~ s/APP_ENTRIES\r\n/$entries/m; $out =~ s/APP_ENTRIES\r\n/$entries/m;
open my $fh, '>', $vs6_wsp_file or die; content_to_file( $out, $vs6_wsp_file );
print $fh $out;
close $fh;
} }
sub gen_vsx_solution { sub gen_vsx_solution {
@ -213,9 +215,7 @@ sub gen_vsx_solution {
$out =~ s/APP_ENTRIES\r\n/$app_entries/m; $out =~ s/APP_ENTRIES\r\n/$app_entries/m;
$out =~ s/CONF_ENTRIES\r\n/$conf_entries/m; $out =~ s/CONF_ENTRIES\r\n/$conf_entries/m;
open my $fh, '>', $vsx_sln_file or die; content_to_file( $out, $vsx_sln_file );
print $fh $out;
close $fh;
} }
sub main { sub main {