This repository has been archived on 2022-08-10. You can view files and clone it, but cannot push or open issues or pull requests.
chez-openbsd/checkin
2022-07-29 15:12:07 +02:00

345 lines
8 KiB
Tcsh
Executable file

#! /bin/csh -f
# checkin
# Copyright 1984-2017 Cisco Systems, Inc.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
if ($#argv != 1) then
echo "Usage: checkin <workarea name>"
exit 1
endif
# set M to machine type and W to workarea name
set W = $1
if (!(-d $W)) then
echo "Workarea ./$W not found."
exit 1
endif
set M = $W/boot/*/.
if ($status || $#M != 1) then
echo "Cannot determine machine type."
exit 1
endif
set M = $M:h
set M = $M:t
onintr error
# This shell script checks sources and binaries in from a workarea to
# the release directory. Invoke with the name of a machine type and
# an optional workarea name. The workarea name defaults to the machine
# type.
set BACKUPDIR = $cwd:h/backup
if (!(-d $BACKUPDIR)) then
echo "creating backup directory $BACKUPDIR"
mkdir $BACKUPDIR || goto error
endif
echo -n "have you updated $W/LOG? [y]: "
set RESPONSE = $<
if ("$RESPONSE" != "y" && "$RESPONSE" != "") goto error
if (-e $W/scheme.1.in) then
cmp scheme.1.in $W/scheme.1.in >& /dev/null
if ($status != 0) then
echo -n "Did you update the date in $W/scheme.1.in? [y]: "
set RESPONSE = $<
if ("$RESPONSE" != "y" && "$RESPONSE" != "") goto error
endif
endif
set tmpsdirs = (. c mats s examples unicode makefiles csug release_notes wininstall bintar rpm pkg)
set sdirs = ()
foreach x ($tmpsdirs)
if (!(-e $x)) then
echo "ERROR: ./$x does not exist"
goto error
endif
if (!(-d $x)) then
echo "ERROR: ./$x is not a directory"
goto error
endif
test -d $W/$x && set sdirs = ($sdirs $x)
end
set tmpbdirs = (bin/$M boot/$M)
set bdirs = ()
foreach x ($tmpbdirs)
if ((-e $x) && !(-d $x)) then
echo "ERROR: ./$x is not a directory"
goto error
endif
test -d $W/$x && set bdirs = ($bdirs $x)
end
echo '*** running "make clean" in source directories ***'
foreach x ($sdirs)
switch ($x)
case .:
case unicode:
case unicode/UNIDATA:
case makefiles:
case csug:
case release_notes:
breaksw
case c:
case s:
case mats:
case benchmarks:
case examples:
case wininstall:
case bintar:
case rpm:
case pkg:
(cd $W/$x; make clean >& /dev/null)
breaksw
default:
echo "checkin error: unexpected sdir $x"
goto error
endsw
end
set ignorefiles = ()
set tmpsfiles = ()
foreach x ($sdirs)
set y = `(cd $W; find $x/* -type f -print -o -type d -prune)`
set tmpsfiles = ($tmpsfiles $y)
end
set sfiles = ()
foreach x ($tmpsfiles)
if ("$x" == "./Makefile" || "$x" == "./Mf-install" || "$x" == "./Mf-boot" || "$x" == "c/config.h" || "$x" == "c/Mf-config") then
set ignorefiles = ($ignorefiles $x)
else
cmp $W/$x $x >& /dev/null
if ($status == 0) then
set ignorefiles = ($ignorefiles $x)
else
set sfiles = ($sfiles $x)
endif
endif
end
if ($#sfiles == 0) echo "*** no source files found in ./$W ***"
set tmpbfiles = ()
foreach x ($bdirs)
set y = `(cd $W; find $x/* -type f -print -o -type d -prune)`
set tmpbfiles = ($tmpbfiles $y)
end
set bfiles = ()
foreach x ($tmpbfiles)
cmp $W/$x $x >& /dev/null
if ($status == 0) then
set ignorefiles = ($ignorefiles $x)
else
set bfiles = ($bfiles $x)
endif
end
if ($#bfiles == 0) echo "*** no binary files found in ./$W ***"
if ($#sfiles == 0 && $#bfiles == 0) goto delete
set tmpsfiles = ($sfiles)
set sfiles = ()
foreach x ($tmpsfiles)
if ($x:h == ".") then
set xpretty = $x:t
else
set xpretty = $x
endif
if (-e $x) then
set comment = ""
else
set comment = " new"
endif
echo -n "check in$comment source file $W/$xpretty? [y]: "
set RESPONSE = $<
if ("$RESPONSE" == "" || "$RESPONSE" == "y") set sfiles = ($sfiles $x)
end
set tmpbfiles = ($bfiles)
set bfiles = ()
foreach x ($tmpbfiles)
if (-e $x) then
set comment = ""
else
set comment = " new"
endif
echo -n "check in$comment binary file $W/$x? [y]: "
set RESPONSE = $<
if ("$RESPONSE" == "" || "$RESPONSE" == "y") set bfiles = ($bfiles $x)
end
set RESPONSE = ""
while ("$RESPONSE" != "y")
echo -n "proceed with check in? (y/n): "
set RESPONSE = $<
if ("$RESPONSE" == "n") exit 0
end
set oldsfiles = ()
foreach x ($sfiles)
if (-e $x) set oldsfiles = ($oldsfiles $x)
end
if ($#oldsfiles != 0) then
echo "backing up old versions of source files"
if (!(-f $BACKUPDIR/seqno)) then
set seqno = 0
else
set seqno = `cat $BACKUPDIR/seqno`
endif
set backuproot = $BACKUPDIR/$seqno
@ seqno = $seqno + 1
echo $seqno > $BACKUPDIR/seqno
echo "backup directory is $backuproot"
mkdir $backuproot || goto error
set n = 4
echo -n " "
foreach x ($oldsfiles)
set i = `echo "$x" | wc -c`
@ n = $n + $i + 1
if ($n > 78) then
echo ""
echo -n " "
@ n = $i + 4
endif
echo -n "$x "
set y = $backuproot/$x:h
if (!(-d $y)) then
mkdir -p $y || goto error
endif
rm -f $y/$x:t || goto error
mv $x $y || goto error
gzip $y/$x:t || goto error
end
echo ""
endif
set oldbfiles = ()
foreach x ($bfiles)
if (-e $x) set oldbfiles = ($oldbfiles $x)
end
if ($#oldbfiles != 0) then
echo "deleting old versions of binary files"
set n = 4
echo -n " "
foreach x ($oldbfiles)
set i = `echo "$x" | wc -c`
@ n = $n + $i + 1
if ($n > 78) then
echo ""
echo -n " "
@ n = $i + 4
endif
echo -n "$x "
rm -f $x || goto error
end
echo ""
endif
if ($#sfiles != 0) then
echo "moving new source files to release directory"
set n = 4
echo -n " "
foreach x ($sfiles)
set i = `echo "$x" | wc -c`
@ n = $n + $i + 1
if ($n > 78) then
echo ""
echo -n " "
@ n = $i + 4
endif
echo -n "$x "
mv $W/$x $x || goto error
end
echo ""
endif
if ($#bfiles != 0) then
echo "moving new binary files to release directory"
set n = 4
echo -n " "
foreach x ($bfiles)
set i = `echo "$x" | wc -c`
@ n = $n + $i + 1
if ($n > 78) then
echo ""
echo -n " "
@ n = $i + 4
endif
echo -n "$x "
if (!(-e $x:h)) mkdir -p $x:h || goto error
mv $W/$x $x || goto error
end
echo ""
endif
delete:
set tmpfiles = `(cd $W; find . -name zlib -prune -o -name lz4 -prune -o -type f -print)`
set files = ()
foreach x ($tmpfiles)
set files = ($x $files)
set tmpignorefiles = ($ignorefiles)
while ($#tmpignorefiles)
if ($x == ./$tmpignorefiles[1] || $x == $tmpignorefiles[1]) then
shift files
break
endif
shift tmpignorefiles
end
end
if ($#files == 0) then
set delete = "y"
else
set delete = "n"
echo "*** new or modified files remain in ./$W"
set n = 4
echo -n " "
foreach x ($files)
set i = `echo "$x" | wc -c`
@ n = $n + $i + 1
if ($n > 78) then
echo ""
echo -n " "
@ n = $i + 4
endif
echo -n "$x "
end
echo ""
endif
echo -n "delete ./$W? [$delete]: "
set RESPONSE = $<
if ("$RESPONSE" == "") set RESPONSE = $delete
if ("$RESPONSE" == "y") then
rm -rf $W || goto error
endif
exit 0
error:
echo ""
echo "quitting (error occurred)."
exit 1