aSimpleSearcher: obj MonitorSystem.System
%visible Containers.Set,StringLib
%requires MonitorSystem
Person:
%globals
%immutable
records: obj IndexedRef(,#Person)
search:
%globals collector,records
X: ref Person
searcherA: obj Process
searcherB: obj Process
searcherC: obj Process
collector: obj Monitor
add: entry
printMatches: entry
matches: obj IndexedRef(,#Person)
top: var integer
puts: entry
printer: obj Process
initRec: