|
DataMuseum.dkPresents historical artifacts from the history of: RC9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: @ T
Length: 737 (0x2e1)
Types: TextFile
Notes: @(#)Text.spell 13.1 (RC International) 91/07/25
Names: »Text.spell«
└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
└─⟦97ad7467e⟧ »0005«
└─⟦this⟧ »./home/vmsys/OBJECTS/spell/Text.spell«
# @(#)Text.spell 13.1 (RC International) 91/07/25
#ident "@(#)face:OBJECTS/spell/Text.spell 1.3"
title="Spell Checker Output"
framemsg=const "Press CANCEL to cancel this display."
lifetime=longterm
begrow=any
begcol=any
close=`unset -l HMSG -l LL -l TT; rm -f /tmp/f.sp.${VPID}`
`pathconv -t -v "${ARG1}"|set -l TT;
/usr/bin/spell "$ARG1" > /tmp/f.sp.${VPID};
if [ -s /tmp/f.sp.${VPID} ];
then
set -l HMSG="
Spelling errors for ${TT}:
";
echo "rows=18";
else
set -l HMSG="
Spell Checker detected no errors in
${TT}.
";
echo "rows=5";
fi`
header="${HMSG}"
text="`readfile /tmp/f.sp.${VPID}`"
columns=`longline | set -l LL;
if [ "${LL}" -gt "72" ];
then
echo 72;
elif [ "${LL}" -lt "48" ];
then
echo 48;
else
echo ${LL};
fi`