Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
e2d795cb
T
Third Party Openssl
项目概览
OpenHarmony
/
Third Party Openssl
大约 1 年 前同步成功
通知
9
Star
18
Fork
1
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
T
Third Party Openssl
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
e2d795cb
编写于
2月 13, 1999
作者:
D
Dr. Stephen Henson
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Modify configure script to generate some files that Win32 needs and new
script that does the same as 'make files'.
上级
08853ba8
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
109 addition
and
0 deletion
+109
-0
util/mkfiles.pl
util/mkfiles.pl
+109
-0
未找到文件。
util/mkfiles.pl
0 → 100755
浏览文件 @
e2d795cb
#!/usr/local/bin/perl
#
# This is a hacked version of files.pl for systems that can't do a 'make files'.
# Do a perl util/mkminfo.pl >MINFO to build MINFO
# Written by Steve Henson 1999.
# List of directories to process
my
@dirs
=
(
"
crypto
",
"
crypto/md2
",
"
crypto/md5
",
"
crypto/sha
",
"
crypto/mdc2
",
"
crypto/hmac
",
"
crypto/ripemd
",
"
crypto/des
",
"
crypto/rc2
",
"
crypto/rc4
",
"
crypto/rc5
",
"
crypto/idea
",
"
crypto/bf
",
"
crypto/cast
",
"
crypto/bn
",
"
crypto/rsa
",
"
crypto/dsa
",
"
crypto/dh
",
"
crypto/buffer
",
"
crypto/bio
",
"
crypto/stack
",
"
crypto/lhash
",
"
crypto/rand
",
"
crypto/err
",
"
crypto/objects
",
"
crypto/evp
",
"
crypto/asn1
",
"
crypto/pem
",
"
crypto/x509
",
"
crypto/x509v3
",
"
crypto/conf
",
"
crypto/txt_db
",
"
crypto/pkcs7
",
"
crypto/comp
",
"
ssl
",
"
rsaref
",
"
apps
",
"
test
",
"
tools
"
);
&files_dir
("
.
",
"
Makefile.org
");
foreach
(
@dirs
)
{
&files_dir
(
$_
,
"
Makefile.ssl
");
}
exit
(
0
);
sub
files_dir
{
my
(
$dir
,
$makefile
)
=
@_
;
my
%sym
;
open
(
IN
,
"
$dir
/
$makefile
")
||
die
"
Can't open
$dir
/
$makefile
";
my
$s
=
"";
while
(
<
IN
>
)
{
chop
;
s/#.*//
;
if
(
/^(\S+)\s*=\s*(.*)$/
)
{
$o
=
"";
(
$s
,
$b
)
=
(
$
1
,
$
2
);
for
(;;)
{
if
(
$b
=~
/\\$/
)
{
chop
(
$b
);
$o
.=
$b
.
"
";
$b
=<
IN
>
;
chop
(
$b
);
}
else
{
$o
.=
$b
.
"
";
last
;
}
}
$o
=~
s/^\s+//
;
$o
=~
s/\s+$//
;
$o
=~
s/\s+/ /g
;
$o
=~
s/\$[({]([^)}]+)[)}]/$sym{$1}/g
;
$sym
{
$s
}
=
$o
;
}
}
print
"
RELATIVE_DIRECTORY=
$dir
\n
";
foreach
(
sort
keys
%sym
)
{
print
"
$_
=
$sym
{
$_
}
\n
";
}
print
"
RELATIVE_DIRECTORY=
\n
";
close
(
IN
);
}
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录