-- AlpineServer.cm
-- Copyright (C) 1984 by Xerox Corporation.  All rights reserved.
-- Last Edited by: Kupfer, July 25, 1984 5:15:41 pm PDT
Run AlpineCommonImpls
Run AlpineServerImpls
Run SkiPatrol
Run SkiPatrolLogViewerImpl
_ AlpineControl.Initialize[filePageMgrNormalChunks: 50, filePageMgrLogChunks: 50, filePageMgrLeaderChunks: 10, coordinatorMapHashArraySlots: 64, transactionMapHashArraySlots: 64, fileMapHashArraySlots: 43, openFileMapHashArraySlots: 256, lockHashArraySlots: 256, fileMapFinalizationQueueLength: 60, nAccessCacheEntries: 20, alpineWheels: "AlpineWheels^.pa"]
_ AlpineControl.Start[fileStore: "Luther.alpine", additionalVolumes: LIST["Martin.alpine"], typeOfRestart: warmStart, nLogPages: 20000, nOwners: 100]
_ AlpineControl.ExportInterfaces[]