DoWalnutOnlyCompact <rootFileName>
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Swinehart, November 5, 1991 9:14 am PST
Doug Terry, January 28, 1992 4:28 pm PST
Willie-s, April 27, 1992 2:23 pm PDT
alias MAYBE command
Change that to "echo" to test the script.
Require Cedar WallTapestry WalnutUtils
Date
setproperty rootFileName ($(WalnutFile $1))
MAYBE CloseAll
MAYBE walnut -n $rootFileName
MAYBE Sleep 5
MAYBE Waitt
setproperty rootDirectory ($(DirectoryOf $rootFileName))
setproperty logFileName ($rootDirectory$(WalnutFile $rootFileName log))
MAYBE WCDetails off
MAYBE Delete $logFileName.new*
Echo Compacting Walnut Database $rootFileName to $logFileName.new
MAYBE time WalnutCompact $rootFileName $logFileName.new
MAYBE CloseAll