#!/bin/sh
#
# maput [-r "Reason"] file ...
#

ALDHOME=${ALDHOME:-${HOME}/aldor}
SysRoot=$ALDORSERV/../..
OwnRoot=`(cd $ALDHOME/@version@; pwd)`
current=@version@/current

if [ "$1" = "-r" ] ; then
	reason="$2"
	shift
	shift
else
	reason="Upates+Fixes"
fi

for F in $*
do
	file="$F"
	dir=.`pwd | sed -e "s:$OwnRoot/[^/]*::"`

	if [ "$dir" != "./test/test.out" ] ; then
		madiff "$F"
	fi

	cp -p $file $file.bak
	maldor lock $current/$dir/$file
	maldor rep  $current/$dir/$file -y"$reason"
	mv $file.bak $file
done
