move more EBCDIC logic into check.pl

This commit is contained in:
tg 2017-05-03 14:51:15 +00:00
parent d8bd19e23e
commit 0ee37a982d
2 changed files with 10 additions and 5 deletions

View File

@ -1,5 +1,5 @@
#!/bin/sh
srcversion='$MirOS: src/bin/mksh/Build.sh,v 1.722 2017/05/03 13:00:09 tg Exp $'
srcversion='$MirOS: src/bin/mksh/Build.sh,v 1.723 2017/05/03 14:51:14 tg Exp $'
#-
# Copyright (c) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
# 2011, 2012, 2013, 2014, 2015, 2016, 2017
@ -2454,9 +2454,6 @@ cat >test.sh <<-EOF
set -A args -- '$srcdir/check.pl' -p "\$pflag"
if $ebcdic; then
args[\${#args[*]}]=-E
x=shell:ebcdic-yes,shell:ascii-no
else
x=shell:ebcdic-no,shell:ascii-yes
fi
for y in "\${check_categories[@]}"; do
x=\$x,\$y

View File

@ -1,4 +1,4 @@
# $MirOS: src/bin/mksh/check.pl,v 1.46 2017/05/03 13:00:10 tg Exp $
# $MirOS: src/bin/mksh/check.pl,v 1.47 2017/05/03 14:51:15 tg Exp $
# $OpenBSD: th,v 1.1 2013/12/02 20:39:44 millert Exp $
#-
# Copyright (c) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2011,
@ -267,6 +267,14 @@ if (defined $opt_t) {
}
$program_kludge = defined $opt_P ? $opt_P : 0;
if ($is_ebcdic) {
$categories{'shell:ebcdic-yes'} = 1;
$categories{'shell:ascii-no'} = 1;
} else {
$categories{'shell:ebcdic-no'} = 1;
$categories{'shell:ascii-yes'} = 1;
}
if (defined $opt_C) {
foreach $c (split(',', $opt_C)) {
$c =~ s/\s+//;