Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
btwise
openssl
提交
68e57536
O
openssl
项目概览
btwise
/
openssl
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
O
openssl
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
68e57536
编写于
1月 02, 2006
作者:
A
Andy Polyakov
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
./util update, which covers various issues, but most importantly mkerr.pl
and mkdef.pl spinning in endless loop.
上级
aab3bb04
变更
4
隐藏空白更改
内联
并排
Showing
4 changed file
with
48 addition
and
41 deletion
+48
-41
util/copy.pl
util/copy.pl
+1
-0
util/libeay.num
util/libeay.num
+16
-15
util/mkdef.pl
util/mkdef.pl
+26
-24
util/mkerr.pl
util/mkerr.pl
+5
-2
未找到文件。
util/copy.pl
浏览文件 @
68e57536
...
...
@@ -11,6 +11,7 @@ use Fcntl;
my
$arg
;
foreach
$arg
(
@ARGV
)
{
$arg
=~
s|\\|/|g
;
# compensate for bug/feature in cygwin glob...
foreach
(
glob
$arg
)
{
push
@filelist
,
$_
;
...
...
util/libeay.num
浏览文件 @
68e57536
...
...
@@ -75,8 +75,8 @@ BIO_new 78 EXIST::FUNCTION:
BIO_new_accept 79 EXIST::FUNCTION:
BIO_new_connect 80 EXIST::FUNCTION:
BIO_new_fd 81 EXIST::FUNCTION:
BIO_new_file 82 EXIST:
!WIN16
:FUNCTION:FP_API
BIO_new_fp 83 EXIST:
!WIN16
:FUNCTION:FP_API
BIO_new_file 82 EXIST::FUNCTION:FP_API
BIO_new_fp 83 EXIST::FUNCTION:FP_API
BIO_new_socket 84 EXIST::FUNCTION:
BIO_pop 85 EXIST::FUNCTION:
BIO_printf 86 EXIST::FUNCTION:
...
...
@@ -86,7 +86,7 @@ BIO_read 89 EXIST::FUNCTION:
BIO_s_accept 90 EXIST::FUNCTION:
BIO_s_connect 91 EXIST::FUNCTION:
BIO_s_fd 92 EXIST::FUNCTION:
BIO_s_file 93 EXIST:
!WIN16
:FUNCTION:FP_API
BIO_s_file 93 EXIST::FUNCTION:FP_API
BIO_s_mem 95 EXIST::FUNCTION:
BIO_s_null 96 EXIST::FUNCTION:
BIO_s_proxy_client 97 NOEXIST::FUNCTION:
...
...
@@ -356,9 +356,9 @@ OBJ_nid2sn 363 EXIST::FUNCTION:
OBJ_obj2nid 364 EXIST::FUNCTION:
OBJ_sn2nid 365 EXIST::FUNCTION:
OBJ_txt2nid 366 EXIST::FUNCTION:
PEM_ASN1_read 367 EXIST:
!WIN16
:FUNCTION:
PEM_ASN1_read 367 EXIST::FUNCTION:
PEM_ASN1_read_bio 368 EXIST::FUNCTION:BIO
PEM_ASN1_write 369 EXIST:
!WIN16
:FUNCTION:
PEM_ASN1_write 369 EXIST::FUNCTION:
PEM_ASN1_write_bio 370 EXIST::FUNCTION:BIO
PEM_SealFinal 371 EXIST::FUNCTION:RSA
PEM_SealInit 372 EXIST::FUNCTION:RSA
...
...
@@ -366,14 +366,14 @@ PEM_SealUpdate 373 EXIST::FUNCTION:RSA
PEM_SignFinal 374 EXIST::FUNCTION:
PEM_SignInit 375 EXIST::FUNCTION:
PEM_SignUpdate 376 EXIST::FUNCTION:
PEM_X509_INFO_read 377 EXIST:
!WIN16
:FUNCTION:
PEM_X509_INFO_read 377 EXIST::FUNCTION:
PEM_X509_INFO_read_bio 378 EXIST::FUNCTION:BIO
PEM_X509_INFO_write_bio 379 EXIST::FUNCTION:BIO
PEM_dek_info 380 EXIST::FUNCTION:
PEM_do_header 381 EXIST::FUNCTION:
PEM_get_EVP_CIPHER_INFO 382 EXIST::FUNCTION:
PEM_proc_type 383 EXIST::FUNCTION:
PEM_read 384 EXIST:
!WIN16
:FUNCTION:
PEM_read 384 EXIST::FUNCTION:
PEM_read_DHparams 385 EXIST:!WIN16:FUNCTION:DH
PEM_read_DSAPrivateKey 386 EXIST:!WIN16:FUNCTION:DSA
PEM_read_DSAparams 387 EXIST:!WIN16:FUNCTION:DSA
...
...
@@ -393,7 +393,7 @@ PEM_read_bio_RSAPrivateKey 400 EXIST::FUNCTION:RSA
PEM_read_bio_X509 401 EXIST::FUNCTION:
PEM_read_bio_X509_CRL 402 EXIST::FUNCTION:
PEM_read_bio_X509_REQ 403 EXIST::FUNCTION:
PEM_write 404 EXIST:
!WIN16
:FUNCTION:
PEM_write 404 EXIST::FUNCTION:
PEM_write_DHparams 405 EXIST:!WIN16:FUNCTION:DH
PEM_write_DSAPrivateKey 406 EXIST:!WIN16:FUNCTION:DSA
PEM_write_DSAparams 407 EXIST:!WIN16:FUNCTION:DSA
...
...
@@ -950,9 +950,9 @@ ERR_get_next_error_library 966 EXIST::FUNCTION:
EVP_PKEY_cmp_parameters 967 EXIST::FUNCTION:
HMAC_cleanup 968 NOEXIST::FUNCTION:
BIO_ptr_ctrl 969 EXIST::FUNCTION:
BIO_new_file_internal 970
EXIST:WIN16:FUNCTION:FP_API
BIO_new_fp_internal 971
EXIST:WIN16:FUNCTION:FP_API
BIO_s_file_internal 972
EXIST:WIN16:FUNCTION:FP_API
BIO_new_file_internal 970
NOEXIST::FUNCTION:
BIO_new_fp_internal 971
NOEXIST::FUNCTION:
BIO_s_file_internal 972
NOEXIST::FUNCTION:
BN_BLINDING_convert 973 EXIST::FUNCTION:
BN_BLINDING_invert 974 EXIST::FUNCTION:
BN_BLINDING_update 975 EXIST::FUNCTION:
...
...
@@ -984,8 +984,8 @@ BIO_ghbn_ctrl 1003 NOEXIST::FUNCTION:
CRYPTO_free_ex_data 1004 EXIST::FUNCTION:
CRYPTO_get_ex_data 1005 EXIST::FUNCTION:
CRYPTO_set_ex_data 1007 EXIST::FUNCTION:
ERR_load_CRYPTO_strings 1009 EXIST:!OS2,!VMS
,!WIN16
:FUNCTION:
ERR_load_CRYPTOlib_strings 1009 EXIST:OS2,VMS
,WIN16
:FUNCTION:
ERR_load_CRYPTO_strings 1009 EXIST:!OS2,!VMS:FUNCTION:
ERR_load_CRYPTOlib_strings 1009 EXIST:OS2,VMS:FUNCTION:
EVP_PKEY_bits 1010 EXIST::FUNCTION:
MD5_Transform 1011 EXIST::FUNCTION:MD5
SHA1_Transform 1012 EXIST::FUNCTION:SHA,SHA1
...
...
@@ -2732,8 +2732,8 @@ EC_POINT_point2oct 3178 EXIST::FUNCTION:EC
KRB5_APREQ_free 3179 EXIST::FUNCTION:
ASN1_OBJECT_it 3180 EXIST:!EXPORT_VAR_AS_FUNCTION:VARIABLE:
ASN1_OBJECT_it 3180 EXIST:EXPORT_VAR_AS_FUNCTION:FUNCTION:
OCSP_crlID_new 3181 EXIST:!OS2,!VMS
,!WIN16
:FUNCTION:
OCSP_crlID2_new 3181 EXIST:OS2,VMS
,WIN16
:FUNCTION:
OCSP_crlID_new 3181 EXIST:!OS2,!VMS:FUNCTION:
OCSP_crlID2_new 3181 EXIST:OS2,VMS:FUNCTION:
CONF_modules_load_file 3182 EXIST::FUNCTION:
CONF_imodule_set_usr_data 3183 EXIST::FUNCTION:
ENGINE_set_default_string 3184 EXIST::FUNCTION:ENGINE
...
...
@@ -3421,3 +3421,4 @@ WHIRLPOOL 3819 EXIST::FUNCTION:WHIRLPOOL
WHIRLPOOL_BitUpdate 3820 EXIST::FUNCTION:WHIRLPOOL
WHIRLPOOL_Final 3821 EXIST::FUNCTION:WHIRLPOOL
WHIRLPOOL_Update 3822 EXIST::FUNCTION:WHIRLPOOL
DSO_global_lookup 3823 EXIST::FUNCTION:
util/mkdef.pl
浏览文件 @
68e57536
...
...
@@ -454,17 +454,22 @@ sub do_defs
next
;
}
$cpp
=
1
if
/^\#.*ifdef.*cplusplus/
;
if
(
/\/\*/
)
{
if
(
not
/\*\//
)
{
# multiline comment...
$line
=
$_
;
# ... just accumulate
next
;
}
else
{
s/\/\*.*?\*\///gs
;
# wipe it
}
}
if
(
$cpp
)
{
$cpp
=
0
if
/^\#.*endif/
;
$cpp
++
if
/^#\s*if/
;
$cpp
--
if
/^#\s*endif/
;
next
;
}
$cpp
=
1
if
/^#.*ifdef.*cplusplus/
;
s/\/\*.*?\*\///gs
;
# ignore comments
if
(
/\/\*/
)
{
# if we have part
$line
=
$_
;
# of a comment,
next
;
# continue reading
}
s/{[^{}]*}//gs
;
# ignore {} blocks
print
STDERR
"
DEBUG:
\$
def=
\"
$def
\"\n
"
if
$debug
&&
$def
ne
"";
print
STDERR
"
DEBUG:
\$
_=
\"
$_
\"\n
"
if
$debug
;
...
...
@@ -840,6 +845,17 @@ sub do_defs
next
if
(
/typedef\W/
);
next
if
(
/\#define/
);
# Reduce argument lists to empty ()
# fold round brackets recursively: (t(*v)(t),t) -> (t{}{},t) -> {}
while
(
/\(.*\)/s
)
{
s/\([^\(\)]+\)/\{\}/gs
;
s/\(\s*\*\s*(\w+)\s*\{\}\s*\)/$1/gs
;
#(*f{}) -> f
}
# pretend as we didn't use curly braces: {} -> ()
s/\{\}/\(\)/gs
;
s/STACK_OF\(\)/void/gs
;
print
STDERR
"
DEBUG:
\$
_ =
\"
$_
\"\n
"
if
$debug
;
if
(
/^\#INFO:([^:]*):(.*)$/
)
{
$plats
=
$
1
;
...
...
@@ -850,25 +866,11 @@ sub do_defs
$s
=
$
1
;
$k
=
"
VARIABLE
";
print
STDERR
"
DEBUG: found external variable
$s
\n
"
if
$debug
;
}
elsif
(
/\(\*(\w*(\{[0-9]+\})?)\([^\)]+/
)
{
$s
=
$
1
;
print
STDERR
"
DEBUG: found ANSI C function
$s
\n
"
if
$debug
;
}
elsif
(
/\w+\W+(\w+)\W*\(\s*\)(\s*__attribute__\(.*\)\s*)?$/s
)
{
# K&R C
print
STDERR
"
DEBUG: found K&R C function
$s
\n
"
if
$debug
;
}
elsif
(
/TYPEDEF_\w+_OF/s
)
{
next
;
}
elsif
(
/\w+\W+\w+(\{[0-9]+\})?\W*\(.*\)(\s*__attribute__\(.*\)\s*)?$/s
)
{
while
(
not
/\(\)(\s*__attribute__\(.*\)\s*)?$/s
)
{
s/[^\(\)]*\)(\s*__attribute__\(.*\)\s*)?$/\)/s
;
s/\([^\(\)]*\)\)(\s*__attribute__\(.*\)\s*)?$/\)/s
;
}
s/\(void\)//
;
/(\w+(\{[0-9]+\})?)\W*\(\)/s
;
$s
=
$
1
;
}
elsif
(
/(\w+)\s*\(\).*/s
)
{
# first token prior [first] () is
$s
=
$
1
;
# a function name!
print
STDERR
"
DEBUG: found function
$s
\n
"
if
$debug
;
}
elsif
(
/TYPEDEF_\w+_OF/
)
{
next
;
}
elsif
(
/\(/
and
not
(
/=/
))
{
print
STDERR
"
File
$file
: cannot parse:
$_
;
\n
";
next
;
...
...
util/mkerr.pl
浏览文件 @
68e57536
...
...
@@ -143,11 +143,14 @@ while (($hdr, $lib) = each %libinc)
s/[\n\s]*$//g
;
# Skip over recognized non-function declarations
next
if
(
/typedef\W/
or
/
struct\W/
or
/
DECLARE_STACK_OF/
or
/TYPEDEF_.*_OF/
);
next
if
(
/typedef\W/
or
/DECLARE_STACK_OF/
or
/TYPEDEF_.*_OF/
);
# Reduce argument lists to empty ()
# fold round brackets recursively: (t(*v)(t),t) -> (t{}{},t) -> {}
while
(
/\(.*\)/s
)
{
s/\([^\(\)]+\)/\{\}/gs
;
}
while
(
/\(.*\)/s
)
{
s/\([^\(\)]+\)/\{\}/gs
;
s/\(\s*\*\s*(\w+)\s*\{\}\s*\)/$1/gs
;
#(*f{}) -> f
}
# pretend as we didn't use curly braces: {} -> ()
s/\{\}/\(\)/gs
;
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录