-- Gentian.cm
-- Last edited by
-- Kolling on June 8, 1983 3:44 pm

Run AlpineImpls -- loads server without ability to export.

← AlpineControl.Initialize[filePageMgrNormalChunks: 50, filePageMgrLogChunks: 50, filePageMgrLeaderChunks: 10, coordinatorMapHashArraySlots: 64, transactionMapHashArraySlots: 64, fileMapHashArraySlots: 43, openFileMapHashArraySlots: 256, lockHashArraySlots: 256, fileMapFinalizationQueueLength: 50, nAccessCacheEntries: 20, alpineWheels: "AlpineImplementors^.pa", staticZoneInitialSize: 1024];

Run LocalWorkstationServerImpl -- loads some interesting procedures for initing the log, etc.


-- can checkpoint to here (including transactiontest) ??

← LocalWorkstationServerImpl.Initialize[fileStore: "Gentian.alpine", create: TRUE, erase: FALSE, nLogPages: 1000, nOwners: 10]; -- maybe init and do recovery, etc.

Run OldTransactionTest

← OldTransactionTestImpl.StartTestFromScratch[newCaller: NIL, fileStore: "local.alpine", nNormalTransactions: 0, nSharingTransactionSets: 1, nTransPerSharingSet: 2, nFilesPerTransaction: 1, nPageRunStatesPerFile: 3, initialSeed: 0];

← OldTransactionTestImpl.StartTestFromScratch[newCaller: NIL, fileStore: "local.alpine", nNormalTransactions: 0, nSharingTransactionSets: 1, nTransPerSharingSet: 2, nFilesPerTransaction: 1, nPageRunStatesPerFile: 3, initialSeed: 0];

← OldTransactionTestImpl.StartTestFromScratch[newCaller: NIL, fileStore: "local.alpine", nNormalTransactions: 4, nSharingTransactionSets: 0, nTransPerSharingSet: 0, nFilesPerTransaction: 1, nPageRunStatesPerFile: 3, initialSeed: 0];