- print "#include "squid.h"n";
- while (<>) {
- $init = undef;
- if (/^#/) {
- print;
- next;
- }
- if (/^.*/) {
- print;
- next;
- }
- next unless (/./);
- next if (/[];$/);
- die unless (/^externs+([^;]+);(.*)$/);
- $var = $1;
- $comments = $2;
- if ($comments =~ m+/*s*(.*)s**/+) {
- $init = $1;
- $init =~ s/s$// while ($init =~ /s$/);
- }
- print $var;
- print " = $init" if (defined $init);
- print ";n";
- }
- exit 0;