1 |
jpp |
1.1 |
#!/bin/sh |
2 |
|
|
|
3 |
|
|
# Quit out if anything fails. |
4 |
|
|
set -e |
5 |
|
|
|
6 |
|
|
# Clean out patent-or-otherwise-encumbered code. |
7 |
|
|
# MDC-2: 4,908,861 13/03/2007 - expired, we do not remove it but do not enable it anyway |
8 |
|
|
# IDEA: 5,214,703 07/01/2012 - expired, we do not remove it anymore |
9 |
|
|
# RC5: 5,724,428 01/11/2015 - expired, we do not remove it anymore |
10 |
|
|
# EC: ????????? ??/??/2020 |
11 |
|
|
# SRP: ????????? ??/??/2017 - expired, we do not remove it anymore |
12 |
|
|
|
13 |
|
|
# Remove assembler portions of IDEA, MDC2, and RC5. |
14 |
|
|
# (find crypto/rc5/asm -type f | xargs -r rm -fv) |
15 |
|
|
|
16 |
|
|
for c in `find crypto/bn -name "*gf2m.c"`; do |
17 |
|
|
echo Destroying $c |
18 |
|
|
> $c |
19 |
|
|
done |
20 |
|
|
|
21 |
|
|
for c in `find crypto/ec -name "ec2*.c" -o -name "ec_curve.c"`; do |
22 |
|
|
echo Destroying $c |
23 |
|
|
> $c |
24 |
|
|
done |
25 |
|
|
|
26 |
|
|
for c in `find test -name "ectest.c"`; do |
27 |
|
|
echo Destroying $c |
28 |
|
|
> $c |
29 |
|
|
done |
30 |
|
|
|
31 |
|
|
for h in `find crypto ssl apps test -name "*.h"` ; do |
32 |
|
|
echo Removing EC2M references from $h |
33 |
|
|
cat $h | \ |
34 |
|
|
awk 'BEGIN {ech=1;} \ |
35 |
|
|
/^#[ \t]*ifndef.*NO_EC2M/ {ech--; next;} \ |
36 |
|
|
/^#[ \t]*if/ {if(ech < 1) ech--;} \ |
37 |
|
|
{if(ech>0) {;print $0};} \ |
38 |
|
|
/^#[ \t]*endif/ {if(ech < 1) ech++;}' > $h.hobbled && \ |
39 |
|
|
mv $h.hobbled $h |
40 |
|
|
done |