Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
btwise
openssl
提交
2ae87d46
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,发现更多精彩内容 >>
提交
2ae87d46
编写于
2月 22, 2001
作者:
R
Richard Levitte
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
When inside a #if 0..#endif, do not define anything.
上级
e3ef8d2e
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
108 addition
and
107 deletion
+108
-107
util/mkdef.pl
util/mkdef.pl
+108
-107
未找到文件。
util/mkdef.pl
浏览文件 @
2ae87d46
...
...
@@ -452,7 +452,7 @@ sub do_defs
$tag
{"
TRUE
"}
=-
1
;
print
STDERR
"
DEBUG:
$file
: found 0
\n
"
if
$debug
;
}
elsif
(
/^\#\s*define\s+(\w+)\s+(\w+)/
&&
$symhacking
)
{
&&
$symhacking
&&
$tag
{'
TRUE
'}
!=
-
1
)
{
my
$s
=
$
1
;
my
$a
=
$
2
;
my
$a1
=
join
("
,
",
...
...
@@ -491,95 +491,95 @@ sub do_defs
.
join
('
,
',
@current_algorithms
)
.
"
;
";
next
;
}
if
(
/^\s*DECLARE_STACK_OF\s*\(\s*(\w*)\s*\)/
)
{
next
;
}
elsif
(
/^\s*DECLARE_ASN1_ENCODE_FUNCTIONS\s*\(\s*(\w*)\s*,\s*(\w*)\s*,\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i_$3(void);
";
$def
.=
"
int i2d
_$3(void);
";
$def
.=
"
OPENSSL_EXTERN int $2_it
;
";
next
;
}
elsif
(
/^\s*DECLARE_ASN1_FUNCTIONS_fname\s*\(\s*(\w*)\s*,\s*(\w*)\s*,\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i_$3(void);
";
$def
.=
"
int i2d
_$3(void);
";
$def
.=
"
int $3_free
(void);
";
$def
.=
"
int $3_new
(void);
";
$def
.=
"
OPENSSL_EXTERN int $2_it
;
";
}
elsif
(
/^\s*DECLARE_ASN1_FUNCTIONS\s*\(\s*(\w*)\s*\)/
||
/^\s*DECLARE_ASN1_FUNCTIONS_const\s*\(\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i_$1(void);
";
$def
.=
"
int i2d
_$1(void);
";
$def
.=
"
int $1_free
(void);
";
$def
.=
"
int $1_new
(void);
";
$def
.=
"
OPENSSL_EXTERN int $1_it
;
";
next
;
}
elsif
(
/^\s*DECLARE_ASN1_ENCODE_FUNCTIONS_const\s*\(\s*(\w*)\s*,\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i_$2(void);
";
$def
.=
"
int i2d
_$2(void);
";
$def
.=
"
OPENSSL_EXTERN int $2_it
;
";
next
;
}
elsif
(
/^\s*DECLARE_ASN1_FUNCTIONS_name\s*\(\s*(\w*)\s*,\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i_$2(void);
";
$def
.=
"
int i2d
_$2(void);
";
$def
.=
"
int $2_free
(void);
";
$def
.=
"
int $2_new
(void);
";
$def
.=
"
OPENSSL_EXTERN int $2_it
;
";
next
;
}
elsif
(
/^\s*DECLARE_ASN1_ITEM\s*\(\s*(\w*)\s*,(\w*)\s*\)/
)
{
$def
.=
"
OPENSSL_EXTERN int $1_it;
";
next
;
}
elsif
(
/^\s*DECLARE_PKCS12_STACK_OF\s*\(\s*(\w*)\s*\)/
)
{
next
;
}
elsif
(
/^\s*DECLARE_ASN1_SET_OF\s*\(\s*(\w*)\s*\)/
)
{
next
;
}
elsif
(
/^DECLARE_PEM_rw\s*\(\s*(\w*)\s*,/
||
/^DECLARE_PEM_rw_cb\s*\(\s*(\w*)\s*,/
)
{
# Things not in Win16
$def
.=
"
#INFO:
"
.
join
('
,
',"
!WIN16
",
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
$def
.=
"
int PEM_read_$1(void)
;
";
$def
.=
"
int PEM_write
_$1(void);
";
$def
.=
"
#INFO:
"
.
join
('
,
',
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
# Things that are everywhere
$def
.=
"
int PEM_read_bio_$1(void);
";
$def
.=
"
int PEM_write
_bio_$1(void);
";
}
elsif
(
/^DECLARE_PEM_write\s*\(\s*(\w*)\s*,/
||
/^DECLARE_PEM_write_cb\s*\(\s*(\w*)\s*,/
)
{
# Things not in Win16
$def
.=
"
#INFO:
"
.
join
('
,
',"
!WIN16
",
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
$def
.=
"
int PEM_write_$1(void);
";
$def
.=
"
#INFO:
"
.
join
('
,
',
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
# Things that are everywhere
$def
.=
"
int PEM_write_bio_$1(void)
;
";
}
elsif
(
/^DECLARE_PEM_read\s*\(\s*(\w*)\s*,/
||
/^DECLARE_PEM_read_cb\s*\(\s*(\w*)\s*,/
)
{
# Things not in Win16
$def
.=
"
#INFO:
"
.
join
('
,
',"
!WIN16
",
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
$def
.=
"
int PEM_read_$1(void);
";
$def
.=
"
#INFO:
"
.
join
('
,
',
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
# Things that are everywhere
$def
.=
"
int PEM_read_bio_$1(void);
";
}
elsif
(
(
$tag
{'
TRUE
'}
!=
-
1
)
&&
(
$tag
{'
CONST_STRICT
'}
!=
1
)
)
{
if
(
$tag
{'
TRUE
'}
!=
-
1
)
{
if
(
/^\s*DECLARE_STACK_OF\s*\(\s*(\w*)\s*\)/
)
{
next
;
}
elsif
(
/^\s*DECLARE_ASN1_ENCODE_FUNCTIONS\s*\(\s*(\w*)\s*,\s*(\w*)\s*,\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i
_$3(void);
";
$def
.=
"
int i2d_$3(void)
;
";
$def
.=
"
OPENSSL_EXTERN int $2_it;
"
;
next
;
}
elsif
(
/^\s*DECLARE_ASN1_FUNCTIONS_fname\s*\(\s*(\w*)\s*,\s*(\w*)\s*,\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i
_$3(void);
";
$def
.=
"
int i2d_$3
(void);
";
$def
.=
"
int $3_free
(void);
";
$def
.=
"
int $3_new(void)
;
";
$def
.=
"
OPENSSL_EXTERN int $2_it;
";
}
elsif
(
/^\s*DECLARE_ASN1_FUNCTIONS\s*\(\s*(\w*)\s*\)/
||
/^\s*DECLARE_ASN1_FUNCTIONS_const\s*\(\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i
_$1(void);
";
$def
.=
"
int i2d_$1
(void);
";
$def
.=
"
int $1_free
(void);
";
$def
.=
"
int $1_new(void)
;
";
$def
.=
"
OPENSSL_EXTERN int $1_it;
"
;
next
;
}
elsif
(
/^\s*DECLARE_ASN1_ENCODE_FUNCTIONS_const\s*\(\s*(\w*)\s*,\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i
_$2(void);
";
$def
.=
"
int i2d_$2(void)
;
";
$def
.=
"
OPENSSL_EXTERN int $2_it;
"
;
next
;
}
elsif
(
/^\s*DECLARE_ASN1_FUNCTIONS_name\s*\(\s*(\w*)\s*,\s*(\w*)\s*\)/
)
{
$def
.=
"
int d2i
_$2(void);
";
$def
.=
"
int i2d_$2
(void);
";
$def
.=
"
int $2_free
(void);
";
$def
.=
"
int $2_new(void)
;
";
$def
.=
"
OPENSSL_EXTERN int $2_it;
"
;
next
;
}
elsif
(
/^\s*DECLARE_ASN1_ITEM\s*\(\s*(\w*)\s*,(\w*)\s*\)/
)
{
$def
.=
"
OPENSSL_EXTERN int $1_it;
"
;
next
;
}
elsif
(
/^\s*DECLARE_PKCS12_STACK_OF\s*\(\s*(\w*)\s*\)/
)
{
next
;
}
elsif
(
/^\s*DECLARE_ASN1_SET_OF\s*\(\s*(\w*)\s*\)/
)
{
next
;
}
elsif
(
/^DECLARE_PEM_rw\s*\(\s*(\w*)\s*,/
||
/^DECLARE_PEM_rw_cb\s*\(\s*(\w*)\s*,/
)
{
# Things not in Win16
$def
.=
"
#INFO
:
"
.
join
('
,
',"
!WIN16
",
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
$def
.=
"
int PEM_read
_$1(void);
";
$def
.=
"
int PEM_write_$1(void);
";
$def
.=
"
#INFO
:
"
.
join
('
,
',
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
# Things that are everywhere
$def
.=
"
int PEM_read
_bio_$1(void);
";
$def
.=
"
int PEM_write_bio_$1(void);
";
next
;
}
elsif
(
/^DECLARE_PEM_write\s*\(\s*(\w*)\s*,/
||
/^DECLARE_PEM_write_cb\s*\(\s*(\w*)\s*,/
)
{
# Things not in Win16
$def
.=
"
#INFO:
"
.
join
('
,
',"
!WIN16
",
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
$def
.=
"
int PEM_write_$1(void);
";
$def
.=
"
#INFO:
"
.
join
('
,
',
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
# Things that are everywhere
$def
.=
"
int PEM_write_bio_$1(void);
";
next
;
}
elsif
(
/^DECLARE_PEM_read\s*\(\s*(\w*)\s*,/
||
/^DECLARE_PEM_read_cb\s*\(\s*(\w*)\s*,/
)
{
# Things not in Win16
$def
.=
"
#INFO:
"
.
join
('
,
',"
!WIN16
",
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
$def
.=
"
int PEM_read_$1(void);
";
$def
.=
"
#INFO:
"
.
join
('
,
',
@current_platforms
)
.
"
:
"
.
join
('
,
',
@current_algorithms
)
.
"
;
";
# Things that are everywhere
$def
.=
"
int PEM_read_bio_$1(void);
";
next
;
}
elsif
(
$tag
{'
CONST_STRICT
'}
!=
1
)
{
if
(
/\{|\/\*|\([^\)]*$/
)
{
$line
=
$_
;
}
else
{
...
...
@@ -587,6 +587,7 @@ sub do_defs
}
}
}
}
close
(
IN
);
my
$algs
;
...
...
@@ -670,6 +671,11 @@ sub do_defs
delete
$syms
{"
bn_dump1
"};
$platform
{"
BIO_s_log
"}
.=
"
,!WIN32,!WIN16,!macintosh
";
$platform
{"
PEM_read_NS_CERT_SEQ
"}
=
"
VMS
";
$platform
{"
PEM_write_NS_CERT_SEQ
"}
=
"
VMS
";
$platform
{"
PEM_read_P8_PRIV_KEY_INFO
"}
=
"
VMS
";
$platform
{"
PEM_write_P8_PRIV_KEY_INFO
"}
=
"
VMS
";
# Info we know about
push
@ret
,
map
{
$_
.
"
\\
"
.
&info_string
(
$_
,"
EXIST
",
...
...
@@ -884,24 +890,19 @@ EOF
}
else
{
printf
OUT
"
%s%-40s@%d
\n
",(
$W32
)?"":"
_
",
$s
,
$n
;
}
# } else {
# print STDERR "DEBUG: \"$sym\" (@p):",
# " rsaref:", !!(!@p
# || (!$negatives
# && ($rsaref || !grep(/^RSAREF$/,@p)))
# || ($negatives
# && (!$rsaref || !grep(/^!RSAREF$/,@p))))?1:0,
# " 16:", !!($W16 && (!@p_purged
# || (!$negatives && grep(/^WIN16$/,@p))
# || ($negatives && !grep(/^!WIN16$/,@p)))),
# " 32:", !!($W32 && (!@p_purged
# || (!$negatives && grep(/^WIN32$/,@p))
# || ($negatives && !grep(/^!WIN32$/,@p)))),
# " NT:", !!($NT && (!@p_purged
# || (!$negatives && grep(/^WINNT$/,@p))
# || ($negatives && !grep(/^!WINNT$/,@p)))),
# "\n";
}
# print STDERR "DEBUG: \"$sym\" (@p):",
# " negatives:", $negatives,
# " 16:", !!($W16 && (!@p_purged
# || (!$negatives && grep(/^WIN16$/,@p))
# || ($negatives && !grep(/^!WIN16$/,@p)))),
# " 32:", !!($W32 && (!@p_purged
# || (!$negatives && grep(/^WIN32$/,@p))
# || ($negatives && !grep(/^!WIN32$/,@p)))),
# " NT:", !!($NT && (!@p_purged
# || (!$negatives && grep(/^WINNT$/,@p))
# || ($negatives && !grep(/^!WINNT$/,@p)))),
# "\n";
}
}
printf
OUT
"
\n
";
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录