blob: 90ab609d76223588ad4ccb361d5c02b4c9b055d5 [file] [log] [blame]
fbrosson533407a2018-04-04 21:44:29 +00001#!/usr/bin/env perl
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +02002
Andres AG5121d4b2018-04-11 20:35:19 -05003# Generate main file, individual apps and solution files for MS Visual Studio
4# 2010
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +02005#
Manuel Pégourié-Gonnard813e5852015-01-26 15:42:27 +00006# Must be run from mbedTLS root or scripts directory.
Andrzej Kurek021dc3f2019-04-12 10:51:27 -04007# Takes "include_crypto" as an argument that can be either 0 (don't include) or
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -04008# 1 (include). On by default.
Manuel Pégourié-Gonnard684e9dc2013-09-20 15:11:44 +02009
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +020010use warnings;
11use strict;
Manuel Pégourié-Gonnard41e8b622014-05-09 12:27:49 +020012use Digest::MD5 'md5_hex';
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +020013
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +020014my $vsx_dir = "visualc/VS2010";
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +020015my $vsx_ext = "vcxproj";
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +020016my $vsx_app_tpl_file = "scripts/data_files/vs2010-app-template.$vsx_ext";
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +020017my $vsx_main_tpl_file = "scripts/data_files/vs2010-main-template.$vsx_ext";
Manuel Pégourié-Gonnard813e5852015-01-26 15:42:27 +000018my $vsx_main_file = "$vsx_dir/mbedTLS.$vsx_ext";
Manuel Pégourié-Gonnard0598faf2014-05-09 12:56:03 +020019my $vsx_sln_tpl_file = "scripts/data_files/vs2010-sln-template.sln";
Manuel Pégourié-Gonnard813e5852015-01-26 15:42:27 +000020my $vsx_sln_file = "$vsx_dir/mbedTLS.sln";
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +020021
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -040022my $include_crypto = 1;
Andrzej Kurek92f91fc2019-04-05 05:49:53 -040023if( @ARGV ) {
24 die "Invalid number of arguments" if scalar @ARGV != 1;
25 ($include_crypto) = @ARGV;
26}
27
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +020028my $programs_dir = 'programs';
Manuel Pégourié-Gonnard7f809972015-03-09 17:05:11 +000029my $header_dir = 'include/mbedtls';
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -040030my $crypto_headers_dir = 'include/psa';
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +020031my $source_dir = 'library';
Andrzej Kurek021dc3f2019-04-12 10:51:27 -040032my $crypto_dir = 'crypto';
Andrzej Kurek92f91fc2019-04-05 05:49:53 -040033
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +020034# Need windows line endings!
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -040035my $include_directories = <<EOT;
36../../include\r
37EOT
38
39if ($include_crypto) {
40 $include_directories = <<EOT;
Christoph M. Wintersteigerc14dd842018-12-06 18:59:19 +000041../../include;../../crypto/include;../../crypto/3rdparty/everest/include/;../../crypto/3rdparty/everest/include/everest;../../crypto/3rdparty/everest/include/everest/vs2010;../../crypto/3rdparty/everest/include/everest/kremlib\r
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -040042EOT
43}
44
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +020045my $vsx_hdr_tpl = <<EOT;
Manuel Pégourié-Gonnardcd8f8442014-05-08 12:53:58 +020046 <ClInclude Include="..\\..\\{NAME}" />\r
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +020047EOT
48my $vsx_src_tpl = <<EOT;
Manuel Pégourié-Gonnardcd8f8442014-05-08 12:53:58 +020049 <ClCompile Include="..\\..\\{NAME}" />\r
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +020050EOT
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +020051
Manuel Pégourié-Gonnard0598faf2014-05-09 12:56:03 +020052my $vsx_sln_app_entry_tpl = <<EOT;
53Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "{APPNAME}", "{APPNAME}.vcxproj", "{GUID}"\r
54 ProjectSection(ProjectDependencies) = postProject\r
55 {46CF2D25-6A36-4189-B59C-E4815388E554} = {46CF2D25-6A36-4189-B59C-E4815388E554}\r
56 EndProjectSection\r
57EndProject\r
58EOT
59
60my $vsx_sln_conf_entry_tpl = <<EOT;
61 {GUID}.Debug|Win32.ActiveCfg = Debug|Win32\r
62 {GUID}.Debug|Win32.Build.0 = Debug|Win32\r
63 {GUID}.Debug|x64.ActiveCfg = Debug|x64\r
64 {GUID}.Debug|x64.Build.0 = Debug|x64\r
65 {GUID}.Release|Win32.ActiveCfg = Release|Win32\r
66 {GUID}.Release|Win32.Build.0 = Release|Win32\r
67 {GUID}.Release|x64.ActiveCfg = Release|x64\r
68 {GUID}.Release|x64.Build.0 = Release|x64\r
69EOT
70
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +020071exit( main() );
72
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +020073sub check_dirs {
Manuel Pégourié-Gonnard51f14be2015-05-14 13:04:03 +020074 return -d $vsx_dir
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +020075 && -d $header_dir
76 && -d $source_dir
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -040077 && -d $programs_dir
78 && -d $crypto_dir
79 && -d "$crypto_dir/$crypto_headers_dir";
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +020080}
81
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +020082sub slurp_file {
83 my ($filename) = @_;
84
85 local $/ = undef;
86 open my $fh, '<', $filename or die "Could not read $filename\n";
87 my $content = <$fh>;
88 close $fh;
89
90 return $content;
91}
92
Manuel Pégourié-Gonnard411f73e2014-05-09 13:00:18 +020093sub content_to_file {
94 my ($content, $filename) = @_;
95
96 open my $fh, '>', $filename or die "Could not write to $filename\n";
97 print $fh $content;
98 close $fh;
99}
100
Manuel Pégourié-Gonnard41e8b622014-05-09 12:27:49 +0200101sub gen_app_guid {
102 my ($path) = @_;
103
Manuel Pégourié-Gonnard813e5852015-01-26 15:42:27 +0000104 my $guid = md5_hex( "mbedTLS:$path" );
Manuel Pégourié-Gonnard41e8b622014-05-09 12:27:49 +0200105 $guid =~ s/(.{8})(.{4})(.{4})(.{4})(.{12})/\U{$1-$2-$3-$4-$5}/;
106
107 return $guid;
108}
109
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200110sub gen_app {
111 my ($path, $template, $dir, $ext) = @_;
112
Manuel Pégourié-Gonnard41e8b622014-05-09 12:27:49 +0200113 my $guid = gen_app_guid( $path );
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200114 $path =~ s!/!\\!g;
115 (my $appname = $path) =~ s/.*\\//;
116
Andres Amaya Garciabc432b82019-01-08 20:05:18 +0000117 my $srcs = "\n <ClCompile Include=\"..\\..\\programs\\$path.c\" \/>\r";
Andres Amaya Garciac84a65d2018-10-30 21:46:21 +0000118 if( $appname eq "ssl_client2" or $appname eq "ssl_server2" or
119 $appname eq "query_compile_time_config" ) {
Andres Amaya Garciabc432b82019-01-08 20:05:18 +0000120 $srcs .= "\n <ClCompile Include=\"..\\..\\programs\\ssl\\query_config.c\" \/>\r";
Andres Amaya Garciac84a65d2018-10-30 21:46:21 +0000121 }
122
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200123 my $content = $template;
Andres Amaya Garciac84a65d2018-10-30 21:46:21 +0000124 $content =~ s/<SOURCES>/$srcs/g;
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200125 $content =~ s/<APPNAME>/$appname/g;
Manuel Pégourié-Gonnard41e8b622014-05-09 12:27:49 +0200126 $content =~ s/<GUID>/$guid/g;
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -0400127 $content =~ s/INCLUDE_DIRECTORIES\r\n/$include_directories/g;
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200128
Manuel Pégourié-Gonnard411f73e2014-05-09 13:00:18 +0200129 content_to_file( $content, "$dir/$appname.$ext" );
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200130}
131
132sub get_app_list {
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +0200133 my $app_list = `cd $programs_dir && make list`;
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200134 die "make list failed: $!\n" if $?;
135
136 return split /\s+/, $app_list;
137}
138
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +0200139sub gen_app_files {
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200140 my @app_list = @_;
141
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +0200142 my $vsx_tpl = slurp_file( $vsx_app_tpl_file );
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200143
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200144 for my $app ( @app_list ) {
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200145 gen_app( $app, $vsx_tpl, $vsx_dir, $vsx_ext );
146 }
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +0200147}
148
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200149sub gen_entry_list {
Manuel Pégourié-Gonnardcd8f8442014-05-08 12:53:58 +0200150 my ($tpl, @names) = @_;
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200151
152 my $entries;
Manuel Pégourié-Gonnardcd8f8442014-05-08 12:53:58 +0200153 for my $name (@names) {
154 (my $entry = $tpl) =~ s/{NAME}/$name/g;
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200155 $entries .= $entry;
156 }
157
158 return $entries;
159}
160
161sub gen_main_file {
162 my ($headers, $sources, $hdr_tpl, $src_tpl, $main_tpl, $main_out) = @_;
163
164 my $header_entries = gen_entry_list( $hdr_tpl, @$headers );
165 my $source_entries = gen_entry_list( $src_tpl, @$sources );
166
167 my $out = slurp_file( $main_tpl );
168 $out =~ s/SOURCE_ENTRIES\r\n/$source_entries/m;
169 $out =~ s/HEADER_ENTRIES\r\n/$header_entries/m;
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -0400170 $out =~ s/INCLUDE_DIRECTORIES\r\n/$include_directories/g;
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200171
Manuel Pégourié-Gonnard411f73e2014-05-09 13:00:18 +0200172 content_to_file( $out, $main_out );
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200173}
174
Manuel Pégourié-Gonnard0598faf2014-05-09 12:56:03 +0200175sub gen_vsx_solution {
176 my (@app_names) = @_;
177
178 my ($app_entries, $conf_entries);
179 for my $path (@app_names) {
180 my $guid = gen_app_guid( $path );
181 (my $appname = $path) =~ s!.*/!!;
182
183 my $app_entry = $vsx_sln_app_entry_tpl;
184 $app_entry =~ s/{APPNAME}/$appname/g;
185 $app_entry =~ s/{GUID}/$guid/g;
186
187 $app_entries .= $app_entry;
188
189 my $conf_entry = $vsx_sln_conf_entry_tpl;
190 $conf_entry =~ s/{GUID}/$guid/g;
191
192 $conf_entries .= $conf_entry;
193 }
194
195 my $out = slurp_file( $vsx_sln_tpl_file );
196 $out =~ s/APP_ENTRIES\r\n/$app_entries/m;
197 $out =~ s/CONF_ENTRIES\r\n/$conf_entries/m;
198
Manuel Pégourié-Gonnard411f73e2014-05-09 13:00:18 +0200199 content_to_file( $out, $vsx_sln_file );
Manuel Pégourié-Gonnard0598faf2014-05-09 12:56:03 +0200200}
201
Andres Amaya Garcia3c5f9492018-01-11 19:51:27 +0000202sub del_vsx_files {
203 unlink glob "'$vsx_dir/*.$vsx_ext'";
204 unlink $vsx_main_file;
205 unlink $vsx_sln_file;
206}
207
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +0200208sub main {
209 if( ! check_dirs() ) {
210 chdir '..' or die;
Manuel Pégourié-Gonnard813e5852015-01-26 15:42:27 +0000211 check_dirs or die "Must but run from mbedTLS root or scripts dir\n";
Manuel Pégourié-Gonnard2d34fe32014-05-07 17:51:20 +0200212 }
213
Andres Amaya Garcia3c5f9492018-01-11 19:51:27 +0000214 # Remove old files to ensure that, for example, project files from deleted
215 # apps are not kept
216 del_vsx_files();
217
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200218 my @app_list = get_app_list();
219 my @headers = <$header_dir/*.h>;
Andrzej Kurek021dc3f2019-04-12 10:51:27 -0400220
221 my @sources = ();
222 if ($include_crypto) {
223 @sources = <$crypto_dir/$source_dir/*.c>;
224 foreach my $file (<$source_dir/*.c>) {
225 my $basename = $file; $basename =~ s!.*/!!;
226 push @sources, $file unless -e "$crypto_dir/$source_dir/$basename";
227 }
Andrzej Kurekb78cf2b2019-04-26 05:54:15 -0400228 push @headers, <$crypto_dir/$crypto_headers_dir/*.h>;
Andrzej Kurek021dc3f2019-04-12 10:51:27 -0400229 } else {
230 @sources = <$source_dir/*.c>;
231 }
232
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200233 map { s!/!\\!g } @headers;
234 map { s!/!\\!g } @sources;
235
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200236 gen_app_files( @app_list );
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200237
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200238 gen_main_file( \@headers, \@sources,
Manuel Pégourié-Gonnard0aafa5c2014-05-08 11:33:30 +0200239 $vsx_hdr_tpl, $vsx_src_tpl,
240 $vsx_main_tpl_file, $vsx_main_file );
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200241
Manuel Pégourié-Gonnard0598faf2014-05-09 12:56:03 +0200242 gen_vsx_solution( @app_list );
Manuel Pégourié-Gonnardcd8f8442014-05-08 12:53:58 +0200243
Manuel Pégourié-Gonnard1b578782013-09-16 13:33:42 +0200244 return 0;
245}