DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦15e870ad8⟧ TextFile

    Length: 754 (0x2f2)
    Types: TextFile
    Notes: UNIX file
    Names: »_initprint«

Derivation

└─⟦50c223e0a⟧ Bits:30004042/network1.imd SW95705I 386/ix Multi-user Release 1.2
└─⟦50c223e0a⟧ UNIX Filesystem
    └─⟦this⟧ »bn/new/usr/admin/menu/packagemgmt/uucpmgmt/_initprint« 

TextFile

#ident	"@(#)bne.admin:_initprint	2.3"
#	This internal program prints inittab entries in
#	user readable form

LINE="$*"

DIRECTION=`echo $LINE  |
	sed -n '/^[^:]\{1,\}:[^:]\{1,\}:/ {
			s///
			/^off:/s/.*/outgoing/p
			/^respawn:.*uugetty/s/.*/bidirectional/p
			/^respawn:.*getty/s/.*/incoming/p
			q
		}'`

set `echo $LINE  |
	sed '
		s/^[^ 	]*[ 	]//
		s/[ 	]*#.*//
		s/^.*\([ 	][^ 	]\{1,\}\).*\([ 	][^ 	]\{1,\}\)$/\1 \2/
	'`

PORT=$1
SPEED=$2
# if SPEED ends in H, eliminate the H
if [ 0 != `expr $SPEED : "[0-9]\{1,\}H"` ]
then
	SPEED=`expr $SPEED : "\(.*\)H"`
fi

if [ -n "$PORT" -a -n "$SPEED" -a -n "$DIRECTION" ]
then
	echo "
PORT:		$PORT
SPEED:		$SPEED
DIRECTION:	$DIRECTION
"

else
	echo "
**WARNING** Non-Standard I/O port line:
'$LINE'
"
fi