-- AlpineServer.cm
-- Carl Hauser, May 7, 1985 3:03:32 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: "Sea-wolf.alpine", typeOfRestart: warmStart, nLogPages: 4000, nOwners: 10, additionalVolumes: LOOPHOLE[LIST["Donner.alpine"]]]
_ AlpineControl.Start[fileStore: "Sea-wolf.alpine", typeOfRestart: warmStart, nLogPages: 4000, nOwners: 10]
_ AlpineControl.ExportInterfaces[]
-- showc
-- showw
-- startlog