CVSSourceCodeManager.st
changeset 4419 ea0144a6e7fe
parent 4414 7bdf532163ba
child 4422 ada6bcb9edc5
equal deleted inserted replaced
4418:d95613d2327a 4419:ea0144a6e7fe
  4421     filterRepository:filterRep 
  4421     filterRepository:filterRep 
  4422     filterModules:filterModules
  4422     filterModules:filterModules
  4423     inTo:aBlock
  4423     inTo:aBlock
  4424 
  4424 
  4425     "process a full historyLog, evaluate aBlock for each entry, passing 
  4425     "process a full historyLog, evaluate aBlock for each entry, passing 
  4426      the logs info in a dictionary.
  4426      each logs' info in a dictionary.
  4427      This walks over all possible repositories.
  4427      This walks over all possible repositories.
  4428      filterRep may be a collection of repository names 
  4428      filterRep may be a collection of repository names (eg. 'stx', 'exept', 'phx' etc.) to only report changes made to one
  4429      (i.e. 'stx', 'exept', 'phx' etc.) to only report changes made to one
       
  4430      of those repositories.
  4429      of those repositories.
  4431      filterUser, if non-nil, will filter only changes made by that user."
  4430      userFilter, if a non-nil string or stringCollection, 
       
  4431      will filter only changes made by that user(s) (eg. 'sv' or #('sv' 'cg')).
       
  4432      filterModules, if non-empty, will only present changes in that module (eg. 'stx:libbasic')"
  4432 
  4433 
  4433     |inStream line words recordType fileName user date time rev pkgDir module idx
  4434     |inStream line words recordType fileName user date time rev pkgDir module idx
  4434      clsName cls clsRev roots info tempDir endReached|
  4435      clsName cls clsRev roots info tempDir endReached|
  4435 
  4436 
  4436     CVSRoot isNil ifTrue:[
  4437     CVSRoot isNil ifTrue:[
  4583 
  4584 
  4584     tempDir recursiveRemove.
  4585     tempDir recursiveRemove.
  4585 
  4586 
  4586     "Created: / 17-01-2001 / 13:11:20 / cg"
  4587     "Created: / 17-01-2001 / 13:11:20 / cg"
  4587     "Modified: / 29-08-2006 / 13:17:50 / cg"
  4588     "Modified: / 29-08-2006 / 13:17:50 / cg"
       
  4589     "Modified (comment): / 08-05-2019 / 10:22:27 / Claus Gittinger"
  4588 !
  4590 !
  4589 
  4591 
  4590 reportHistoryLogSince:timeGoal filterSTSources:filter filterUser:userFilter filterRepository:filterRep inTo:aBlock
  4592 reportHistoryLogSince:timeGoal filterSTSources:filter filterUser:userFilter filterRepository:filterRep inTo:aBlock
  4591     "process a full historyLog, evaluate aBlock for each entry, passing 
  4593     "process a full historyLog, evaluate aBlock for each entry, passing 
  4592      the logs info in a dictionary.
  4594      the logs info in a dictionary.