Bug 1014: Fix incompatible pointer type in init_perl.
[elinks.git] / contrib / wipe-out-ssl.awk
blob3c5da4078e8213e563fe0df05459e479ff5ce273
1 #!/bin/awk -f
2 BEGIN {
3 iflevel = 0;
7 if (!iflevel) {
8 if ($1 == "#ifdef" && $2 == "HAVE_SSL") iflevel = 1;
9 else print $0;
10 } else {
11 if (iflevel == 1 && ($1 == "#else" || $1 == "#elif")) {
12 iflevel = 0;
13 if ($1 == "#else") print "#if 1";
14 else {
15 print "#if 0";
16 print $0;
19 if ($1 == "#if" || $1 == "#ifdef" || $1 == "#ifndef") iflevel++;
20 if ($1 == "#endif") iflevel--;