c1be1fc7ec057b75b6debc4d8c33ce5c79c2d930
[openssl.git] / util / pl / unix.pl
1 #!/usr/local/bin/perl
2 #
3 # unix.pl - the standard unix makefile stuff.
4 #
5
6 $o='/';
7 $cp='/bin/cp';
8 $rm='/bin/rm -f';
9
10 # C compiler stuff
11
12 if ($gcc)
13         {
14         $cc='gcc';
15         if ($debug)
16                 { $cflags="-g2 -ggdb"; }
17         else
18                 { $cflags="-O3 -fomit-frame-pointer"; }
19         }
20 else
21         {
22         $cc='cc';
23         if ($debug)
24                 { $cflags="-g"; }
25         else
26                 { $cflags="-O"; }
27         }
28 $obj='.o';
29 $ofile='-o ';
30
31 # EXE linking stuff
32 $link='${CC}';
33 $lflags='${CFLAG}';
34 $efile='-o ';
35 $exep='';
36 $ex_libs="";
37
38 # static library stuff
39 $mklib='ar r';
40 $mlflags='';
41 $ranlib=&which("ranlib") or $ranlib="true";
42 $plib='lib';
43 $libp=".a";
44 $shlibp=".a";
45 $lfile='';
46
47 $asm='as';
48 $afile='-o ';
49 $bn_asm_obj="";
50 $bn_asm_src="";
51 $des_enc_obj="";
52 $des_enc_src="";
53 $bf_enc_obj="";
54 $bf_enc_src="";
55
56 %perl1 = (
57           'md5-x86_64' => 'crypto/md5',
58           'x86_64-mont' => 'crypto/bn',
59           'x86_64-mont5' => 'crypto/bn',
60           'x86_64-gf2m' => 'crypto/bn',
61           'modexp512-x86_64' => 'crypto/bn',
62           'aes-x86_64' => 'crypto/aes',
63           'vpaes-x86_64' => 'crypto/aes',
64           'bsaes-x86_64' => 'crypto/aes',
65           'aesni-x86_64' => 'crypto/aes',
66           'aesni-sha1-x86_64' => 'crypto/aes',
67           'sha1-x86_64' => 'crypto/sha',
68           'e_padlock-x86_64' => 'engines',
69           'rc4-x86_64' => 'crypto/rc4',
70           'rc4-md5-x86_64' => 'crypto/rc4',
71           'ghash-x86_64' => 'crypto/modes',
72          );
73
74 # If I were feeling more clever, these could probably be extracted
75 # from makefiles.
76 sub platform_perlasm_compile_target
77         {
78         local($target, $source, $bname) = @_;
79
80         for $p (keys %perl1)
81                 {
82                 if ($target eq "\$(OBJ_D)/$p.o")
83                         {
84                         return << "EOF";
85 \$(TMP_D)/$p.s: $perl1{$p}/asm/$p.pl
86         \$(PERL) $perl1{$p}/asm/$p.pl \$(PERLASM_SCHEME) > \$@
87 EOF
88                         }
89                 }
90         if ($target eq '$(OBJ_D)/x86_64cpuid.o')
91                 {
92                 return << 'EOF';
93 $(TMP_D)/x86_64cpuid.s: crypto/x86_64cpuid.pl
94         $(PERL) crypto/x86_64cpuid.pl $(PERLASM_SCHEME) > $@
95 EOF
96                 }
97         elsif ($target eq '$(OBJ_D)/sha256-x86_64.o')
98                 {
99                 return << 'EOF';
100 $(TMP_D)/sha256-x86_64.s: crypto/sha/asm/sha512-x86_64.pl
101         $(PERL) crypto/sha/asm/sha512-x86_64.pl $(PERLASM_SCHEME) $@
102 EOF
103                 }
104         elsif ($target eq '$(OBJ_D)/sha512-x86_64.o')
105                 {
106                 return << 'EOF';
107 $(TMP_D)/sha512-x86_64.s: crypto/sha/asm/sha512-x86_64.pl
108         $(PERL) crypto/sha/asm/sha512-x86_64.pl $(PERLASM_SCHEME) $@
109 EOF
110                 }
111         elsif ($target eq '$(OBJ_D)/sha512-x86_64.o')
112                 {
113                 return << 'EOF';
114 $(TMP_D)/sha512-x86_64.s: crypto/sha/asm/sha512-x86_64.pl
115         $(PERL) crypto/sha/asm/sha512-x86_64.pl $(PERLASM_SCHEME) $@
116 EOF
117                 }
118
119         die $target;
120         }
121
122 sub special_compile_target
123         {
124         local($target) = @_;
125
126         if ($target eq 'crypto/bn/x86_64-gcc')
127                 {
128                 return << "EOF";
129 \$(TMP_D)/x86_64-gcc.o: crypto/bn/asm/x86_64-gcc.c
130         \$(CC) \$(CFLAGS) -c -o \$@ crypto/bn/asm/x86_64-gcc.c
131 EOF
132                 }
133         return undef;
134         }
135
136 sub do_lib_rule
137         {
138         local($obj,$target,$name,$shlib)=@_;
139         local($ret,$_,$Name);
140
141         $target =~ s/\//$o/g if $o ne '/';
142         $target="$target";
143         ($Name=$name) =~ tr/a-z/A-Z/;
144
145         $ret.="$target: \$(${Name}OBJ)\n";
146         $ret.="\t\$(RM) $target\n";
147         $ret.="\t\$(MKLIB) $target \$(${Name}OBJ)\n";
148         $ret.="\t\$(RANLIB) $target\n\n";
149         }
150
151 sub do_link_rule
152         {
153         local($target,$files,$dep_libs,$libs)=@_;
154         local($ret,$_);
155
156         $file =~ s/\//$o/g if $o ne '/';
157         $n=&bname($target);
158         $ret.="$target: $files $dep_libs\n";
159         $ret.="\t\$(LINK) ${efile}$target \$(LFLAGS) $files $libs\n\n";
160         return($ret);
161         }
162
163 sub which
164         {
165         my ($name)=@_;
166         my $path;
167         foreach $path (split /:/, $ENV{PATH})
168                 {
169                 if (-x "$path/$name")
170                         {
171                         return "$path/$name";
172                         }
173                 }
174         }
175
176 sub fixtests
177   {
178   my ($str, $tests) = @_;
179
180   foreach my $t (keys %$tests)
181     {
182     $str =~ s/(\.\/)?\$\($t\)/\$(TEST_D)\/$tests->{$t}/g;
183     }
184
185   return $str;
186   }
187
188 sub fixdeps
189   {
190   my ($str) = @_;
191
192   my @t = split(/\s+/, $str);
193   $str = '';
194   foreach my $t (@t)
195     {
196     $str .= ' ' if $str ne '';
197     if ($t =~ /^[^\/]+$/)
198       {
199       $str .= '$(TEST_D)/' . $t;
200       }
201     else
202       {
203       $str .= $t;
204       }
205     }
206
207   return $str;
208   }
209
210 sub fixrules
211   {
212   my ($str) = @_;
213
214   # Compatible with -j...
215   $str =~ s/^(\s+@?)/$1cd \$(TEST_D) && /;
216   return $str;
217
218   # Compatible with not -j.
219   my @t = split("\n", $str);
220   $str = '';
221   my $prev;
222   foreach my $t (@t)
223     {
224     $t =~ s/^\s+//;
225     if (!$prev)
226       {
227       if ($t =~ /^@/)
228         {
229         $t =~ s/^@/\@cd \$(TEST_D) && /;
230         }
231       elsif ($t !~ /^\s*#/)
232         {
233         $t = 'cd $(TEST_D) && ' . $t;
234         }
235       }
236     $str .= "\t$t\n";
237     $prev = $t =~/\\$/;
238     }
239   return $str;
240 }
241
242 sub copy_scripts
243   {
244   my ($src, @targets) = @_;
245
246   my $s = '';
247   foreach my $t (@targets)
248     {
249     # Copy first so we get file modes...
250     $s .= "\$(TEST_D)/$t: \$(SRC_D)/$src/$t\n\tcp \$(SRC_D)/$src/$t \$(TEST_D)/$t\n\tsed -e 's/\\.\\.\\/apps/..\\/\$(OUT_D)/' -e 's/\\.\\.\\/util/..\\/\$(TEST_D)/' < \$(SRC_D)/$src/$t > \$(TEST_D)/$t\n\n";
251     }
252   return $s;
253   }
254
255
256 sub get_tests
257   {
258   my ($makefile) = @_;
259
260   open(M, $makefile) || die "Can't open $makefile: $!";
261   my %targets;
262   my %deps;
263   my %tests;
264   while (my $line = <M>)
265     {
266     chomp $line;
267     while ($line =~ /^(.*)\\$/)
268       {
269       $line = $1 . <M>;
270       }
271
272     if ($line =~ /^alltests:(.*)$/)
273       {
274       my @t = split(/\s+/, $1);
275       foreach my $t (@t)
276         {
277         $targets{$t} = '';
278         }
279       }
280
281     if (($line =~ /^(\S+):(.*)$/ && exists $targets{$1})
282         || $line =~ /^(test_ss .*):(.*)/)
283       {
284       my $t = $1;
285       $deps{$t} = $2;
286       $deps{$t} =~ s/#.*$//;
287       for (;;)
288         {
289         $line = <M>;
290         chomp $line;
291         last if $line eq '';
292         $targets{$t} .= "$line\n";
293         }
294       next;
295       }
296
297     if ($line =~ /^(\S+TEST)=\s*(\S+)$/)
298       {
299       $tests{$1} = $2;
300       next;
301       }
302     }
303
304   delete $targets{test_jpake} if $no_jpake;
305   delete $targets{test_ige} if $no_ige;
306   delete $targets{test_md2} if $no_md2;
307   delete $targets{test_rc5} if $no_rc5;
308
309   my $tests;
310   foreach my $t (keys %tests)
311     {
312     $tests .= "$t = $tests{$t}\n";
313     }
314
315   my $all = 'test:';
316   my $each;
317   foreach my $t (keys %targets)
318     {
319     next if $t eq '';
320
321     if ($t =~ /^test_ss/)
322       {
323       $t =~ s/\s+/ \$(TEST_D)\//g;
324       $all .= ' test_ss';
325       }
326     else
327       {
328       $all .= " $t";
329       }
330
331     my $d = $deps{$t};
332     $d =~ s/\.\.\/apps/\$(BIN_D)/g;
333     $d =~ s/\.\.\/util/\$(TEST_D)/g;
334     $d = fixtests($d, \%tests);
335     $d = fixdeps($d);
336
337     my $r = $targets{$t};
338     $r =~ s/\.\.\/apps/..\/\$(BIN_D)/g;
339     $r =~ s/\.\.\/util/..\/\$(TEST_D)/g;
340     $r =~ s/\.\.\/(\S+)/\$(SRC_D)\/$1/g;
341     $r = fixrules($r);
342
343     $each .= "$t: test_scripts $d\n$r\n";
344     }
345
346   # FIXME: Might be a clever way to figure out what needs copying
347   my @copies = ( 'bctest',
348                  'evptests.txt',
349                  'testgen',
350                  'cms-test.pl',
351                  'tx509',
352                  'test.cnf',
353                  'testenc',
354                  'tocsp',
355                  'testca',
356                  'CAss.cnf',
357                  'testtsa',
358                  'CAtsa.cnf',
359                  'Uss.cnf',
360                  'P1ss.cnf',
361                  'P2ss.cnf',
362                  'tcrl',
363                  'tsid',
364                  'treq',
365                  'tpkcs7',
366                  'tpkcs7d',
367                  'testcrl.pem',
368                  'testx509.pem',
369                  'v3-cert1.pem',
370                  'v3-cert2.pem',
371                  'testreq2.pem',
372                  'testp7.pem',
373                  'pkcs7-1.pem',
374                  'trsa',
375                  'testrsa.pem',
376                );
377   my $copies = copy_scripts('test', @copies);
378
379   my @utils = ( 'shlib_wrap.sh',
380                 'opensslwrap.sh',
381               );
382   $copies .= copy_scripts('util', @utils);
383
384   my @apps = ( 'CA.sh',
385                'openssl.cnf',
386              );
387   $copies .= copy_scripts('apps', @apps);
388
389   $scripts = "test_scripts: \$(TEST_D)/CA.sh \$(TEST_D)/opensslwrap.sh \$(TEST_D)/openssl.cnf ocsp\n";
390   $scripts .= "\nocsp:\n\tcp -R test/ocsp-tests \$(TEST_D)\n";
391
392   return "$scripts\n$copies\n$tests\n$all\n\n$each";
393   }
394
395 1;