| Server IP : 82.208.35.60 / Your IP : 216.73.216.89 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/emulators/ods2reader/files/ |
Upload File : |
#!/bin/sh -
PATH=/usr/bin
off=0
strlen=0
if [ $# -eq 0 -a ! -t 0 ]; then
file=/dev/stdin
elif [ $# -eq 1 ]; then
file=$1
else
echo Usage: ${0##*/} [file]
echo converts OpenVMS variable-length record format to unix text format
exit 0
fi
while true; do
off=$((${off} + ${strlen}))
# read in 1-byte units
set -- $(od -An -tu1 -j${off} -N2 ${file})
# EoF
[ -z "${1}" -o -z "${2}" ] && break
# assume little-endian, it's OpenVMS format
strlen=$(($2 * 256 + $1))
# print newline for zero-size records, as info-zip does
[ ${strlen} -eq 0 ] && echo
off=$((${off} + 2))
hexdump -s ${off} -n ${strlen} -e '"'%.${strlen}s'"''"\n"' ${file}
# align 2
[ $((${strlen} % 2)) -ne 0 ] && off=$((${off} + 1))
done