JehanneOS/mksh
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

optimise the “regression test” ☺

Browse Source
This commit is contained in:
tg
2009-05-16 16:03:41 +00:00
parent cc783807d3
commit 7641ea6d07
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
check.t
View File

@ -1,4 +1,4 @@
# $MirOS: src/bin/mksh/check.t,v 1.274 2009/05/16 15:53:00 tg Exp $ # $MirOS: src/bin/mksh/check.t,v 1.275 2009/05/16 16:03:41 tg Exp $
# $OpenBSD: bksl-nl.t,v 1.2 2001/01/28 23:04:56 niklas Exp $ # $OpenBSD: bksl-nl.t,v 1.2 2001/01/28 23:04:56 niklas Exp $
# $OpenBSD: history.t,v 1.5 2001/01/28 23:04:56 niklas Exp $ # $OpenBSD: history.t,v 1.5 2001/01/28 23:04:56 niklas Exp $
# $OpenBSD: read.t,v 1.3 2003/03/10 03:48:16 david Exp $ # $OpenBSD: read.t,v 1.3 2003/03/10 03:48:16 david Exp $
@ -5203,13 +5203,14 @@ stdin:
typeset -Uui16 -Z11 pos=0 typeset -Uui16 -Z11 pos=0
typeset -Uui16 -Z7 hv typeset -Uui16 -Z7 hv
typeset -i1 wc=0x0A typeset -i1 wc=0x0A
typeset -i lpos
dasc= dasc=
nl=${wc#1#} nl=${wc#1#}
integer n
while IFS= read -r line; do while IFS= read -r line; do
line=$line$nl line=$line$nl
while [[ -n $line ]]; do lpos=0
wc=1#${line::1} while (( lpos < ${#line} )); do
wc=1#${line:(lpos++):1}
if (( (wc < 32) || \ if (( (wc < 32) || \
((wc > 126) && (wc < 160)) )); then ((wc > 126) && (wc < 160)) )); then
dch=. dch=.
@ -5218,11 +5219,10 @@ stdin:
else else
dch=${wc#1#} dch=${wc#1#}
fi fi
if (( (pos & 7) >= 7 )); then if (( (pos & 7) == 7 )); then
dasc=$dasc$dch dasc=$dasc$dch
dch= dch=
fi elif (( (pos & 7) == 0 )); then
if (( (pos & 7) == 0 )); then
(( pos )) && print "$dasc|" (( pos )) && print "$dasc|"
print -n "${pos#16#} " print -n "${pos#16#} "
dasc=' |' dasc=' |'
@ -5231,7 +5231,6 @@ stdin:
print -n "${hv#16#} " print -n "${hv#16#} "
(( (pos++ & 7) == 3 )) && \ (( (pos++ & 7) == 3 )) && \
print -n -- '- ' print -n -- '- '
line=${line:1}
dasc=$dasc$dch dasc=$dasc$dch
done done
done done