Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
openeuler
libvirt
提交
5e6185ee
L
libvirt
项目概览
openeuler
/
libvirt
通知
3
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
L
libvirt
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
提交
5e6185ee
编写于
8年前
作者:
J
Ján Tomko
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
test-wrap-argv: split out rewrap_arg
Split out the code wrapping the single argument.
上级
a615a2fa
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
26 addition
and
20 deletion
+26
-20
tests/test-wrap-argv.pl
tests/test-wrap-argv.pl
+26
-20
未找到文件。
tests/test-wrap-argv.pl
浏览文件 @
5e6185ee
...
...
@@ -104,27 +104,8 @@ sub rewrap_line {
print
join
("
\\\n
",
@env
,
$cmd
),
"
\\\n
";
# We might have to split line argument values...
for
(
my
$i
=
0
;
$i
<=
$#args
;
$i
++
)
{
my
$arg
=
$args
[
$i
];
while
(
length
(
$arg
)
>
80
)
{
my
$split
=
rindex
$arg
,
"
,
",
80
;
if
(
$split
==
-
1
)
{
$split
=
rindex
$arg
,
"
:
",
80
;
}
if
(
$split
==
-
1
)
{
$split
=
rindex
$arg
,
"
",
80
;
}
if
(
$split
==
-
1
)
{
warn
"
cannot find nice place to split '
$arg
' below 80 chars
\n
";
$split
=
79
;
}
$split
++
;
my
$head
=
substr
$arg
,
0
,
$split
;
$arg
=
substr
$arg
,
$split
;
&rewrap_arg
(
$args
[
$i
]);
print
$head
,
"
\\\n
";
}
print
$arg
;
if
(
$i
!=
$#args
)
{
print
"
\\\n
";
}
else
{
...
...
@@ -132,3 +113,28 @@ sub rewrap_line {
}
}
}
sub
rewrap_arg
{
my
$arg
=
shift
;
while
(
length
(
$arg
)
>
80
)
{
my
$split
=
rindex
$arg
,
"
,
",
80
;
if
(
$split
==
-
1
)
{
$split
=
rindex
$arg
,
"
:
",
80
;
}
if
(
$split
==
-
1
)
{
$split
=
rindex
$arg
,
"
",
80
;
}
if
(
$split
==
-
1
)
{
warn
"
cannot find nice place to split '
$arg
' below 80 chars
\n
";
$split
=
79
;
}
$split
++
;
my
$head
=
substr
$arg
,
0
,
$split
;
$arg
=
substr
$arg
,
$split
;
print
$head
,
"
\\\n
";
}
print
$arg
;
}
This diff is collapsed.
Click to expand it.
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录
反馈
建议
客服
返回
顶部