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

move more EBCDIC logic into check.pl

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Build.sh
View File

@ -1,5 +1,5 @@
#!/bin/sh #!/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, # Copyright (c) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
# 2011, 2012, 2013, 2014, 2015, 2016, 2017 # 2011, 2012, 2013, 2014, 2015, 2016, 2017
@ -2454,9 +2454,6 @@ cat >test.sh <<-EOF
set -A args -- '$srcdir/check.pl' -p "\$pflag" set -A args -- '$srcdir/check.pl' -p "\$pflag"
if $ebcdic; then if $ebcdic; then
args[\${#args[*]}]=-E args[\${#args[*]}]=-E
x=shell:ebcdic-yes,shell:ascii-no
else
x=shell:ebcdic-no,shell:ascii-yes
fi fi
for y in "\${check_categories[@]}"; do for y in "\${check_categories[@]}"; do
x=\$x,\$y x=\$x,\$y

10
check.pl
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 $ # $OpenBSD: th,v 1.1 2013/12/02 20:39:44 millert Exp $
#- #-
# Copyright (c) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2011, # 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; $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) { if (defined $opt_C) {
foreach $c (split(',', $opt_C)) { foreach $c (split(',', $opt_C)) {
$c =~ s/\s+//; $c =~ s/\s+//;