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

⟦dcbaae8ff⟧ TextFile

    Length: 2230 (0x8b6)
    Types: TextFile
    Notes: UNIX file
    Names: »bldproto«

Derivation

└─⟦b1d6695d7⟧ Bits:30004155/sitdisk.imd SW95713I 386/ix Software Development System Rel. 2.0
└─⟦b1d6695d7⟧ UNIX Filesystem
    └─⟦this⟧ »sitls/new/usr/subsets/tools/bldproto« 

TextFile

#
#  Copyrighted as an unpublished work.
#  (c) Copyright 1987 INTERACTIVE Systems Corporation
#  All rights reserved.
#
#  RESTRICTED RIGHTS
#
#  These programs are supplied under a license.  They may be used,
#  disclosed, and/or copied only as permitted under such license
#  agreement.  Any copy must contain the above copyright notice and
#  this restricted rights notice.  Use, copying, and/or disclosure
#  of the programs is strictly prohibited unless otherwise provided
#  in the license agreement.
#

#ident  "@(#)bldproto.sh	2.4 - 88/09/07"
if [ $# != 1 ]
then
	echo Usage: $0 packagename
	exit 1
fi
if id | fgrep root >/dev/null 2>&1
then :
else
	echo Must be run as user root.
	exit 1
fi
umask 022
pkg=$1
su root -c "rm -fr disk.*"
nbr=1
cwd=`pwd`
nbrdisks=`cat NBRDISKS`
drivers="/etc/drivers"
for f in FILES.[0-9]*
do
	d=$cwd/disk.$nbr
	mkdir $d $d/install
	d=$d/$pkg
	mkdir $d $d/install $d/new $d/driver
	grep $drivers FILES.$nbr >dr.$$
	if [ -n "$ROOT" ]
	then
		if [ -s dr.$$ ]
		then
			cd $ROOT/$drivers
			su root -c "sed -e 's/^\/etc\/drivers/./' $cwd/dr.$$ | cpio -pdm $d/driver"
		fi
		cd $ROOT
		su root -c "grep -v $drivers $cwd/FILES.$nbr | sed -e 's/^/./' | cpio -pdm $d/new"
		cd $cwd
	else
		if [ -s dr.$$ ]
		then
			cd $drivers
			su root -c "sed -e 's/^\/etc\/drivers/./' $cwd/dr.$$ | cpio -pdm $d/driver"
			cd $cwd
		fi
		su root -c "grep -v $drivers FILES.$nbr | cpio -pdm $d/new"
	fi
	rm -f dr.$$
	echo $nbr >$d/install/ORDER
	cp $pkg.name copyright $d/install
	chmod 544 $d/install/copyright
	if [ "$nbr" -eq 1 ]
	then
		cp ../INSTALL ../UNINSTALL disk.$nbr/install
		chmod 544 disk.$nbr/install/*INSTALL
		cp Rlist.$pkg $d/install
		cp NBRDISKS $d/install
		cp Remove $d/install
		for f in preinstall unlink unsetup dependencies drivers
		do
			[ ! -r $f ] && continue
			cp $f $d/install
			chmod 544 $d/install/$f
		done
	fi
	if [ "$nbr" -eq "$nbrdisks" ]
	then
		for f in link setup postinstall
		do
			[ ! -r $f ] && continue
			cp $f $d/install
			chmod 544 $d/install/$f
		done

	fi
	if [ -d $d/new/etc ] && expr `ls -a $d/new/etc | wc -l` = 2 >/dev/null 
	then
		rmdir $d/new/etc
	fi
	proto disk.$nbr >$cwd/proto.$nbr
	nbr=`expr "$nbr" + 1`
done
[ -r pfl.$$ ] && rm -f pfl.$$
exit 0