mkdef.pl (72613) | mkdef.pl (89837) |
---|---|
1#!/usr/local/bin/perl -w 2# 3# generate a .def file 4# 5# It does this by parsing the header files and looking for the 6# prototyped functions: it then prunes the output. 7# 8# Intermediary files are created, call libeay.num and ssleay.num,... --- 279 unchanged lines hidden (view full) --- 288 (map { "NO_".$_ => 0 } @known_algorithms), 289 NOPROTO => 0, 290 PERL5 => 0, 291 _WINDLL => 0, 292 CONST_STRICT => 0, 293 TRUE => 1, 294 ); 295 my $symhacking = $file eq $symhacksfile; | 1#!/usr/local/bin/perl -w 2# 3# generate a .def file 4# 5# It does this by parsing the header files and looking for the 6# prototyped functions: it then prunes the output. 7# 8# Intermediary files are created, call libeay.num and ssleay.num,... --- 279 unchanged lines hidden (view full) --- 288 (map { "NO_".$_ => 0 } @known_algorithms), 289 NOPROTO => 0, 290 PERL5 => 0, 291 _WINDLL => 0, 292 CONST_STRICT => 0, 293 TRUE => 1, 294 ); 295 my $symhacking = $file eq $symhacksfile; |
296 my $begin_error_codes = 0; |
|
296 while(<IN>) { | 297 while(<IN>) { |
297 last if (/BEGIN ERROR CODES/); | 298 $begin_error_codes = 1 if (/BEGIN ERROR CODES/); 299 last if ($begin_error_codes && /Error codes for /); |
298 if ($line ne '') { 299 $_ = $line . $_; 300 $line = ''; 301 } 302 303 if (/\\$/) { 304 $line = $_; 305 next; --- 618 unchanged lines hidden --- | 300 if ($line ne '') { 301 $_ = $line . $_; 302 $line = ''; 303 } 304 305 if (/\\$/) { 306 $line = $_; 307 next; --- 618 unchanged lines hidden --- |