Performers.mesa
Edited by Paul Rovner on December 16, 1983 2:29 pm
DIRECTORY
Plotter USING [Create],
RealEvent USING [CreateTimerDrivenStream],
SafeStorage USING [NWordsAllocated],
Timer USING[Seconds];
Performers: PROGRAM
IMPORTS Plotter, RealEvent, SafeStorage
= BEGIN
samplingInterval: Timer.Seconds = 5;
nEvents: NAT = 100;
SAMPLING PROCEDURES
WordsAllocatedSampler:
PROC[s:
REF
ANY]
RETURNS[
REAL] =
{RETURN[SafeStorage.NWordsAllocated[]];
};
START HERE...Create performance plotters
[] ← Plotter.Create[label: "wordsPerSecHistory",
autoRepaint: TRUE,
nEvents: nEvents,
plotValueDifferences: TRUE,
plotValuePerSecond: TRUE,
eventSource: RealEvent.CreateTimerDrivenStream[interval: samplingInterval, sampler: WordsAllocatedSampler]];
END.