mirror of
https://github.com/ibm-s390-linux/s390-tools.git
synced 2026-08-05 02:14:52 +00:00
lsznet: Convert space indentation to tabs
Reviewed-by: Aswin Karuvally <aswin@linux.ibm.com> Signed-off-by: Jan Höppner <hoeppner@linux.ibm.com>
This commit is contained in:
Jan Höppner
476
zconf/lsznet.raw
476
zconf/lsznet.raw
@@ -21,8 +21,8 @@ readonly DEBUG=0
|
||||
readonly CMD=${0##*/}
|
||||
|
||||
function error() {
|
||||
echo "$CMD: ERROR: $*" 1>&2
|
||||
exit 1;
|
||||
echo "$CMD: ERROR: $*" 1>&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
# currently requires bash version 3.0 or later
|
||||
@@ -34,57 +34,57 @@ function error() {
|
||||
|
||||
# $CU_CARDTYPE array is the only one which may contain entries with spaces
|
||||
readonly -a CU_CARDTYPE=(
|
||||
"OSA (QDIO)"
|
||||
"HiperSockets"
|
||||
"CTC adapter"
|
||||
"escon channel"
|
||||
"ficon channel"
|
||||
"LCS OSA"
|
||||
"OSX"
|
||||
"OSM"
|
||||
"OSA (QDIO)"
|
||||
"HiperSockets"
|
||||
"CTC adapter"
|
||||
"escon channel"
|
||||
"ficon channel"
|
||||
"LCS OSA"
|
||||
"OSX"
|
||||
"OSM"
|
||||
)
|
||||
|
||||
readonly -a CU_DEVNAME=(
|
||||
eth
|
||||
hsi
|
||||
ctc
|
||||
ctc
|
||||
ctc
|
||||
eth
|
||||
eth
|
||||
eth
|
||||
eth
|
||||
hsi
|
||||
ctc
|
||||
ctc
|
||||
ctc
|
||||
eth
|
||||
eth
|
||||
eth
|
||||
)
|
||||
|
||||
readonly -a CU_GROUPCHANNELS=(
|
||||
3
|
||||
3
|
||||
2
|
||||
2
|
||||
2
|
||||
2
|
||||
3
|
||||
3
|
||||
3
|
||||
3
|
||||
2
|
||||
2
|
||||
2
|
||||
2
|
||||
3
|
||||
3
|
||||
)
|
||||
|
||||
readonly -a CHPIDTYPES=(
|
||||
[0x10]=OSE
|
||||
[0x11]=OSD
|
||||
[0x24]=IQD
|
||||
[0x30]=OSX
|
||||
[0x31]=OSM
|
||||
[0x10]=OSE
|
||||
[0x11]=OSD
|
||||
[0x24]=IQD
|
||||
[0x30]=OSX
|
||||
[0x31]=OSM
|
||||
)
|
||||
# [0x15]=OSN is no longer supported
|
||||
|
||||
# whitelist of network devices for TCP/IP stack, e.g. for Linux installers
|
||||
readonly -a CU_TCPIP=(
|
||||
1731/01
|
||||
1731/05
|
||||
3088/08
|
||||
3088/1f
|
||||
3088/1e
|
||||
3088/60
|
||||
1731/02
|
||||
1731/02
|
||||
1731/01
|
||||
1731/05
|
||||
3088/08
|
||||
3088/1f
|
||||
3088/1e
|
||||
3088/60
|
||||
1731/02
|
||||
1731/02
|
||||
)
|
||||
# 1731/06 (OSN) is no longer supported
|
||||
|
||||
@@ -95,22 +95,22 @@ readonly IDFORMAT=$PREFIXFORMAT.$SSIDFORMAT.$BUSIDFORMAT
|
||||
readonly SUBCHANNEL_TYPE_IO=0
|
||||
|
||||
function debug() {
|
||||
level=$1
|
||||
shift
|
||||
[ $DEBUG -ge $level ] && echo "$*" 1>&2
|
||||
level=$1
|
||||
shift
|
||||
[ $DEBUG -ge $level ] && echo "$*" 1>&2
|
||||
}
|
||||
|
||||
# Searches for a match of argument 1 on the array $CU_TCPIP.
|
||||
# Returns 0 on success, 1 on failure.
|
||||
function search_cu_tcpip() {
|
||||
local scu=$1
|
||||
local i
|
||||
for ((i=0; i < ${#CU_TCPIP[@]}; i++)); do
|
||||
if [ "$scu" == "${CU_TCPIP[i]}" ]; then
|
||||
return 0
|
||||
fi
|
||||
done
|
||||
return 1
|
||||
local scu=$1
|
||||
local i
|
||||
for ((i = 0; i < ${#CU_TCPIP[@]}; i++)); do
|
||||
if [ "$scu" == "${CU_TCPIP[i]}" ]; then
|
||||
return 0
|
||||
fi
|
||||
done
|
||||
return 1
|
||||
}
|
||||
|
||||
# Returns symbolic name of CHPID type in $chpidtype_symbolic,
|
||||
@@ -118,12 +118,12 @@ function search_cu_tcpip() {
|
||||
# Returns "?" otherwise.
|
||||
# Always succeeds and returns 0.
|
||||
function search_chpt() {
|
||||
local chpidtype_number=$1
|
||||
chpidtype_symbolic=${CHPIDTYPES[$((0x$chpidtype_number))]}
|
||||
if [ "$chpidtype_symbolic" == "" ]; then
|
||||
chpidtype_symbolic="?"
|
||||
fi
|
||||
return 0
|
||||
local chpidtype_number=$1
|
||||
chpidtype_symbolic=${CHPIDTYPES[$((0x$chpidtype_number))]}
|
||||
if [ "$chpidtype_symbolic" == "" ]; then
|
||||
chpidtype_symbolic="?"
|
||||
fi
|
||||
return 0
|
||||
}
|
||||
|
||||
# build_list:
|
||||
@@ -134,108 +134,108 @@ function search_chpt() {
|
||||
# (almost all) corresponding attributes.
|
||||
#
|
||||
function build_list() {
|
||||
# use /sys/devices/css*/ for startpath
|
||||
readonly STARTPATH=$SYSFS/devices
|
||||
# change to base directory so path globbing length with find is minimal
|
||||
cd $STARTPATH
|
||||
# fail out gracefully, if there is not expected sysfs environment
|
||||
# (could even fail out near the top, if $(uname -m) != s390x)
|
||||
csses=css$PREFIXFORMAT
|
||||
for d in $csses; do
|
||||
[ -d $d ] || exit
|
||||
done
|
||||
find $csses -name "$IDFORMAT" |
|
||||
while read dir; do
|
||||
debug 6 " examining sysfs directory $dir"
|
||||
# must not use $...FORMAT (file globs) here since this is a regex:
|
||||
EXPR="^css([[:xdigit:]]+)/([[:xdigit:]]+.[0-3].[[:xdigit:]]{4})/([[:xdigit:]]+.[0-3].[[:xdigit:]]{4})$"
|
||||
[[ "$dir" =~ $EXPR ]]
|
||||
case $? in
|
||||
0)
|
||||
# string matched the pattern
|
||||
debug 6 " ${BASH_REMATCH[@]}"
|
||||
prefix=${BASH_REMATCH[1]}
|
||||
subch=${BASH_REMATCH[2]}
|
||||
devbusid=${BASH_REMATCH[3]}
|
||||
subch_p=css$prefix/$subch
|
||||
dev_p=$subch_p/$devbusid
|
||||
debug 6 " $subch_p $dev_p"
|
||||
;;
|
||||
1)
|
||||
# string did not match the pattern
|
||||
continue
|
||||
;;
|
||||
2)
|
||||
error "syntax error in regex of match operator =~, code needs to be fixed"
|
||||
;;
|
||||
*)
|
||||
error "unexpected return code of regex match operator =~, code needs to be fixed"
|
||||
;;
|
||||
esac
|
||||
debug 5 " sysfs directory matched regex $dir"
|
||||
# skip non-I/O-subchannels, i.e. chsc and message subchannels
|
||||
if [ -f $subch_p/type ]; then
|
||||
read type < $subch_p/type
|
||||
if [ $type != $SUBCHANNEL_TYPE_IO ]; then
|
||||
debug 3 " skip non-I/O subchannel"
|
||||
continue
|
||||
fi
|
||||
fi
|
||||
# get subchannel information...
|
||||
# ATTENTION: hex values from sysfs are WITHOUT leading 0x prefix!
|
||||
read chpid_list < $subch_p/chpids
|
||||
read -a chpids <<< "$chpid_list"
|
||||
if [ ${#chpids[@]} -ne 8 ]; then
|
||||
error "sysfs reported ${#chpids[@]} CHPIDs instead of expected 8"
|
||||
fi
|
||||
read pim pam pom foo < $subch_p/pimpampom
|
||||
pimchpidZ=""
|
||||
local chp
|
||||
for ((chp=0; chp < 8; chp++)); do
|
||||
mask=$((0x80 >> chp))
|
||||
if (( 0x$pim & $mask )); then
|
||||
pimchpidZ=${pimchpidZ}${chpids[chp]}
|
||||
else
|
||||
pimchpidZ=${pimchpidZ}"ZZ"
|
||||
fi
|
||||
done
|
||||
# get device information...
|
||||
read cutype < $dev_p/cutype
|
||||
read active < $dev_p/online
|
||||
# skip already active subchannels and those that are already in a
|
||||
# ccwgroup and thus not available any more:
|
||||
[ $active == "1" ] && continue
|
||||
[ -h $dev_p/group_device ] && continue
|
||||
# get chpid information...
|
||||
pimchpids=${pimchpidZ//ZZ/}
|
||||
[ $pimchpids == "" ] && continue
|
||||
# Taking the first 2 hex digits as CHPID relies somewhat on the fact
|
||||
# that network adaptors don't use multipathing and only have one CHP.
|
||||
# Anyway it's OK since we're only interested in CHPID type and I guess
|
||||
# this should be equal for all possible multipaths to the same device.
|
||||
chpid=${pimchpids:0:2}
|
||||
chpid_p=css$prefix/chp$prefix.$chpid
|
||||
read chptype < $chpid_p/type
|
||||
# filter and output...
|
||||
if [ -z "$all" ] && ! search_cu_tcpip $cutype; then
|
||||
continue
|
||||
fi
|
||||
if search_cu $cutype; then
|
||||
if [ "${CU_DEVDRV[$cu_idx]}" == "ctcm" ]; then
|
||||
# assume CTC are mostly virtual and ignore chpid from sysfs
|
||||
chpidtype_symbolic="-"
|
||||
else
|
||||
search_chpt $chptype
|
||||
fi
|
||||
echo $pimchpids $devbusid $cutype $chpidtype_symbolic ${CU_DEVDRV[$cu_idx]} ${CU_DEVNAME[$cu_idx]} ${CU_GROUPCHANNELS[$cu_idx]} ${CU_CARDTYPE[$cu_idx]}
|
||||
else
|
||||
debug 5 " skip non-network device $devbusid CU $cutype"
|
||||
fi
|
||||
done
|
||||
# use /sys/devices/css*/ for startpath
|
||||
readonly STARTPATH=$SYSFS/devices
|
||||
# change to base directory so path globbing length with find is minimal
|
||||
cd $STARTPATH
|
||||
# fail out gracefully, if there is not expected sysfs environment
|
||||
# (could even fail out near the top, if $(uname -m) != s390x)
|
||||
csses=css$PREFIXFORMAT
|
||||
for d in $csses; do
|
||||
[ -d $d ] || exit
|
||||
done
|
||||
find $csses -name "$IDFORMAT" |
|
||||
while read dir; do
|
||||
debug 6 " examining sysfs directory $dir"
|
||||
# must not use $...FORMAT (file globs) here since this is a regex:
|
||||
EXPR="^css([[:xdigit:]]+)/([[:xdigit:]]+.[0-3].[[:xdigit:]]{4})/([[:xdigit:]]+.[0-3].[[:xdigit:]]{4})$"
|
||||
[[ "$dir" =~ $EXPR ]]
|
||||
case $? in
|
||||
0)
|
||||
# string matched the pattern
|
||||
debug 6 " ${BASH_REMATCH[@]}"
|
||||
prefix=${BASH_REMATCH[1]}
|
||||
subch=${BASH_REMATCH[2]}
|
||||
devbusid=${BASH_REMATCH[3]}
|
||||
subch_p=css$prefix/$subch
|
||||
dev_p=$subch_p/$devbusid
|
||||
debug 6 " $subch_p $dev_p"
|
||||
;;
|
||||
1)
|
||||
# string did not match the pattern
|
||||
continue
|
||||
;;
|
||||
2)
|
||||
error "syntax error in regex of match operator =~, code needs to be fixed"
|
||||
;;
|
||||
*)
|
||||
error "unexpected return code of regex match operator =~, code needs to be fixed"
|
||||
;;
|
||||
esac
|
||||
debug 5 " sysfs directory matched regex $dir"
|
||||
# skip non-I/O-subchannels, i.e. chsc and message subchannels
|
||||
if [ -f $subch_p/type ]; then
|
||||
read type <$subch_p/type
|
||||
if [ $type != $SUBCHANNEL_TYPE_IO ]; then
|
||||
debug 3 " skip non-I/O subchannel"
|
||||
continue
|
||||
fi
|
||||
fi
|
||||
# get subchannel information...
|
||||
# ATTENTION: hex values from sysfs are WITHOUT leading 0x prefix!
|
||||
read chpid_list <$subch_p/chpids
|
||||
read -a chpids <<<"$chpid_list"
|
||||
if [ ${#chpids[@]} -ne 8 ]; then
|
||||
error "sysfs reported ${#chpids[@]} CHPIDs instead of expected 8"
|
||||
fi
|
||||
read pim pam pom foo <$subch_p/pimpampom
|
||||
pimchpidZ=""
|
||||
local chp
|
||||
for ((chp = 0; chp < 8; chp++)); do
|
||||
mask=$((0x80 >> chp))
|
||||
if ((0x$pim & $mask)); then
|
||||
pimchpidZ=${pimchpidZ}${chpids[chp]}
|
||||
else
|
||||
pimchpidZ=${pimchpidZ}"ZZ"
|
||||
fi
|
||||
done
|
||||
# get device information...
|
||||
read cutype <$dev_p/cutype
|
||||
read active <$dev_p/online
|
||||
# skip already active subchannels and those that are already in a
|
||||
# ccwgroup and thus not available any more:
|
||||
[ $active == "1" ] && continue
|
||||
[ -h $dev_p/group_device ] && continue
|
||||
# get chpid information...
|
||||
pimchpids=${pimchpidZ//ZZ/}
|
||||
[ $pimchpids == "" ] && continue
|
||||
# Taking the first 2 hex digits as CHPID relies somewhat on the fact
|
||||
# that network adaptors don't use multipathing and only have one CHP.
|
||||
# Anyway it's OK since we're only interested in CHPID type and I guess
|
||||
# this should be equal for all possible multipaths to the same device.
|
||||
chpid=${pimchpids:0:2}
|
||||
chpid_p=css$prefix/chp$prefix.$chpid
|
||||
read chptype <$chpid_p/type
|
||||
# filter and output...
|
||||
if [ -z "$all" ] && ! search_cu_tcpip $cutype; then
|
||||
continue
|
||||
fi
|
||||
if search_cu $cutype; then
|
||||
if [ "${CU_DEVDRV[$cu_idx]}" == "ctcm" ]; then
|
||||
# assume CTC are mostly virtual and ignore chpid from sysfs
|
||||
chpidtype_symbolic="-"
|
||||
else
|
||||
search_chpt $chptype
|
||||
fi
|
||||
echo $pimchpids $devbusid $cutype $chpidtype_symbolic ${CU_DEVDRV[$cu_idx]} ${CU_DEVNAME[$cu_idx]} ${CU_GROUPCHANNELS[$cu_idx]} ${CU_CARDTYPE[$cu_idx]}
|
||||
else
|
||||
debug 5 " skip non-network device $devbusid CU $cutype"
|
||||
fi
|
||||
done
|
||||
}
|
||||
|
||||
# search_groups:
|
||||
#
|
||||
#
|
||||
# Prints enumeration list on standard output consisting of possible
|
||||
# hardware configurations (ccwgroups) for network devices on s390.
|
||||
# Each configuration suggestion includes corresponding attributes
|
||||
@@ -246,92 +246,92 @@ function build_list() {
|
||||
# then by CHPIDs, i.e. grouped by CHPIDs.
|
||||
#
|
||||
function search_groups() {
|
||||
local w_prefix w_ssid w_devno
|
||||
local d_prefix d_ssid d_devno
|
||||
local prefix ssid devno x
|
||||
local chp devbusid cutype chpidtypename devdrv devname groupchs cardtype
|
||||
# remembered last state variables for possible ccwgroup:
|
||||
local r_prefix="Z"
|
||||
local r_ssid="Z"
|
||||
local r_devno="ZZZZ"
|
||||
local r_chp="ZZ"
|
||||
local r_cutype="ZZZZ/ZZ"
|
||||
local count=0
|
||||
local item=1
|
||||
local skipped=0
|
||||
while read chp devbusid cutype chpidtypename devdrv devname groupchs cardtype; do
|
||||
debug 1 " # $chp $devbusid $cutype $chpidtypename $devdrv $devname $groupchs $cardtype"
|
||||
IFS=.
|
||||
read prefix ssid devno x <<< "$devbusid"
|
||||
unset IFS
|
||||
if [ $r_chp != $chp \
|
||||
-o $r_prefix != $prefix \
|
||||
-o $r_ssid != $ssid \
|
||||
-o $r_cutype != $cutype ]; then
|
||||
# restart with new read channel info and remember it
|
||||
r_prefix=$prefix
|
||||
r_ssid=$ssid
|
||||
r_devno=$devno
|
||||
r_chp=$chp
|
||||
r_cutype=$cutype
|
||||
count=1
|
||||
debug 2 " INFO: restart on different CHPID or prefix or CUtype/model"
|
||||
continue
|
||||
fi
|
||||
count=$((count + 1))
|
||||
if [ $count -eq 2 ]; then
|
||||
# about to check if write channel is one above read channel
|
||||
if [ $((0x$devno)) -ne $((0x$r_devno + 1)) ]; then
|
||||
# start with new read channel info
|
||||
r_prefix=$prefix
|
||||
r_ssid=$ssid
|
||||
r_devno=$devno
|
||||
r_chp=$chp
|
||||
r_cutype=$cutype
|
||||
count=1
|
||||
skipped=$((skipped + 1))
|
||||
# unimplemented possible packed channel usage option:
|
||||
# remember unused channels for later use as data channel
|
||||
debug 2 " INFO: restart on unmatching read channel"
|
||||
continue
|
||||
fi
|
||||
w_prefix=$prefix
|
||||
w_ssid=$ssid
|
||||
w_devno=$devno
|
||||
elif [ $count -eq 3 ]; then
|
||||
# remember data channel info
|
||||
d_prefix=$prefix
|
||||
d_ssid=$ssid
|
||||
d_devno=$devno
|
||||
fi
|
||||
debug 2 " INFO: groupchs=$groupchs count=$count"
|
||||
if [ $count -ne $groupchs ]; then
|
||||
debug 2 " INFO: skip"
|
||||
continue
|
||||
fi
|
||||
# found possible ccwgroup
|
||||
case $count in
|
||||
2)
|
||||
chlist=$r_prefix.$r_ssid.$r_devno,$w_prefix.$w_ssid.$w_devno
|
||||
;;
|
||||
3)
|
||||
chlist=$r_prefix.$r_ssid.$r_devno,$w_prefix.$w_ssid.$w_devno,$d_prefix.$d_ssid.$d_devno
|
||||
;;
|
||||
*)
|
||||
error "unknown number of channels for group, code needs to be fixed"
|
||||
;;
|
||||
esac
|
||||
echo $item $cutype $chp $chpidtypename $devdrv $devname $chlist "$cardtype"
|
||||
item=$((item + 1))
|
||||
# restart after successful detection
|
||||
r_prefix="Z"
|
||||
count=0
|
||||
done
|
||||
debug 1 " STATISTIC: skipped $skipped devnos because of unmatching read channel"
|
||||
local w_prefix w_ssid w_devno
|
||||
local d_prefix d_ssid d_devno
|
||||
local prefix ssid devno x
|
||||
local chp devbusid cutype chpidtypename devdrv devname groupchs cardtype
|
||||
# remembered last state variables for possible ccwgroup:
|
||||
local r_prefix="Z"
|
||||
local r_ssid="Z"
|
||||
local r_devno="ZZZZ"
|
||||
local r_chp="ZZ"
|
||||
local r_cutype="ZZZZ/ZZ"
|
||||
local count=0
|
||||
local item=1
|
||||
local skipped=0
|
||||
while read chp devbusid cutype chpidtypename devdrv devname groupchs cardtype; do
|
||||
debug 1 " # $chp $devbusid $cutype $chpidtypename $devdrv $devname $groupchs $cardtype"
|
||||
IFS=.
|
||||
read prefix ssid devno x <<<"$devbusid"
|
||||
unset IFS
|
||||
if [ $r_chp != $chp \
|
||||
-o $r_prefix != $prefix \
|
||||
-o $r_ssid != $ssid \
|
||||
-o $r_cutype != $cutype ]; then
|
||||
# restart with new read channel info and remember it
|
||||
r_prefix=$prefix
|
||||
r_ssid=$ssid
|
||||
r_devno=$devno
|
||||
r_chp=$chp
|
||||
r_cutype=$cutype
|
||||
count=1
|
||||
debug 2 " INFO: restart on different CHPID or prefix or CUtype/model"
|
||||
continue
|
||||
fi
|
||||
count=$((count + 1))
|
||||
if [ $count -eq 2 ]; then
|
||||
# about to check if write channel is one above read channel
|
||||
if [ $((0x$devno)) -ne $((0x$r_devno + 1)) ]; then
|
||||
# start with new read channel info
|
||||
r_prefix=$prefix
|
||||
r_ssid=$ssid
|
||||
r_devno=$devno
|
||||
r_chp=$chp
|
||||
r_cutype=$cutype
|
||||
count=1
|
||||
skipped=$((skipped + 1))
|
||||
# unimplemented possible packed channel usage option:
|
||||
# remember unused channels for later use as data channel
|
||||
debug 2 " INFO: restart on unmatching read channel"
|
||||
continue
|
||||
fi
|
||||
w_prefix=$prefix
|
||||
w_ssid=$ssid
|
||||
w_devno=$devno
|
||||
elif [ $count -eq 3 ]; then
|
||||
# remember data channel info
|
||||
d_prefix=$prefix
|
||||
d_ssid=$ssid
|
||||
d_devno=$devno
|
||||
fi
|
||||
debug 2 " INFO: groupchs=$groupchs count=$count"
|
||||
if [ $count -ne $groupchs ]; then
|
||||
debug 2 " INFO: skip"
|
||||
continue
|
||||
fi
|
||||
# found possible ccwgroup
|
||||
case $count in
|
||||
2)
|
||||
chlist=$r_prefix.$r_ssid.$r_devno,$w_prefix.$w_ssid.$w_devno
|
||||
;;
|
||||
3)
|
||||
chlist=$r_prefix.$r_ssid.$r_devno,$w_prefix.$w_ssid.$w_devno,$d_prefix.$d_ssid.$d_devno
|
||||
;;
|
||||
*)
|
||||
error "unknown number of channels for group, code needs to be fixed"
|
||||
;;
|
||||
esac
|
||||
echo $item $cutype $chp $chpidtypename $devdrv $devname $chlist "$cardtype"
|
||||
item=$((item + 1))
|
||||
# restart after successful detection
|
||||
r_prefix="Z"
|
||||
count=0
|
||||
done
|
||||
debug 1 " STATISTIC: skipped $skipped devnos because of unmatching read channel"
|
||||
}
|
||||
|
||||
if [ $# == 1 -a "$1" == "-a" ]; then
|
||||
all=1
|
||||
all=1
|
||||
fi
|
||||
|
||||
build_list |
|
||||
|
||||
Reference in New Issue
Block a user