Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
065e106f
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,发现更多精彩内容 >>
提交
065e106f
编写于
4月 28, 1999
作者:
B
Bodo Möller
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
A faster (and more general, and better documented) replacement for mklink.sh.
Submitted by: Reviewed by: PR:
上级
ddeee82c
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
52 addition
and
0 deletion
+52
-0
util/mklink.pl
util/mklink.pl
+52
-0
未找到文件。
util/mklink.pl
0 → 100755
浏览文件 @
065e106f
#!/usr/local/bin/perl
# mklink.pl -- a faster substitute for mklink.sh.
# The first command line argument is a non-empty relative path
# specifying the "from" directory.
# Each other argument is a file name not containing / and names
# a file in the current directory.
#
# For each of these files, we create in the "from" directory a link
# of the same name pointing to the local file.
#
# We assume that the directory structure is a tree, i.e. that does not
# contain symbolic links and that the parent of / is never referenced.
# Apart from this, this script should be able to handle even the most
# pathological cases.
my
$from
=
shift
;
my
@files
=
@ARGV
;
my
@from_path
=
split
(
/\//
,
$from
);
my
$pwd
=
`
pwd
`;
chop
(
$pwd
);
my
@pwd_path
=
split
(
/\//
,
$pwd
);
my
@to_path
=
();
foreach
my
$dirname
(
@from_path
)
{
# In this loop, @to_path always is a relative path from
# @pwd_path (interpreted is an absolute path) to the original pwd.
# At the end, @from_path (as a relative path from the original pwd)
# designates the same directory as the absolute path @pwd_path,
# which means that @to_path then is a path from there to the original pwd.
next
if
(
$dirname
eq
""
||
$dirname
eq
"
.
");
if
(
$dirname
eq
"
..
")
{
@to_path
=
(
pop
(
@pwd_path
),
@to_path
);
}
else
{
@to_path
=
("
..
",
@to_path
);
push
(
@pwd_path
,
$dirname
);
}
}
my
$to
=
join
('
/
',
@to_path
);
foreach
my
$file
(
@files
)
{
# print "ln -s $to/$file $from/$file\n";
symlink
("
$to
/
$file
",
"
$from
/
$file
");
print
$file
.
"
=>
$from
/
$file
\n
";
}
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录