|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T U c
Length: 1168 (0x490)
Types: TextFile
Notes: UNIX file
Names: »checklen«
└─⟦9432394ce⟧ Bits:30004042/fmhelp.imd SW95705I 386/ix Multi-user Release 1.2
└─⟦9432394ce⟧ UNIX Filesystem
└─⟦this⟧ »hu/new/usr/lib/help/checklen«
# Copyright (c) 1984 AT&T
# All Rights Reserved
# THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
# The copyright notice above does not evidence any
# actual or intended publication of such source code.
#ident "@(#)help:checklen.sh 1.3"
while [ "${LEN}" = "bad" ]
do
${EDITOR} ${EDFILE}
if [ `wc -l <${EDFILE}` -lt 1 ]
then
echo "This help screen may not be empty. You are being put back into the editor to enter some data."
elif [ `wc -l <${EDFILE}` -le ${SCRNLEN} ]
then
ANS=~
while [ \( "${ANS}" != "y" \) -a \( "${ANS}" != "n" \) ]
do
echo "Are you satisfied with this screen (y or n)? > \c"
read ANS
done
if [ "${ANS}" = "y" ]
then
LEN=good
else
echo "You may now re-edit this help screen."
fi
else
CHOICE=~
while [ \( "${CHOICE}" != "r" \) -a \( "${CHOICE}" != "e" \) ]
do
echo "This screen is more than ${SCRNLEN} lines long. Do you want to"
echo "re-edit it, or have it expanded to a multi-page screen?"
echo "Enter choice (r for re-edit, e for expand) > \c"
read CHOICE
done
if [ "${CHOICE}" = "e" ]
then
LEN=good
else
echo "You may now re-edit this help screen."
fi
fi
done