diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st index dd325dd..ea4e341 100644 --- a/repository/Fossil/FossilRepo.class.st +++ b/repository/Fossil/FossilRepo.class.st @@ -331,6 +331,11 @@ FossilRepo >> lastVersionPath: aFileNameWithRelativePath [ ifFalse: [ ^ '/doc/tip/', aFileNameWithRelativePath ] ] +{ #category : #accessing } +FossilRepo >> list [ + ^ (self command: 'ls') lines +] + { #category : #accessing } FossilRepo >> listUnversioned [ @@ -467,14 +472,6 @@ FossilRepo >> status [ status := self command: 'status'. output := OrderedDictionary new. - edited := status lines select: [ :line | line beginsWith: 'EDITED' ]. - output at: 'edited files' put: (edited collect: - [ :line | (line withoutPrefix: 'EDITED')trimmed ]). - - missing := status lines select: [ :line | line beginsWith: 'MISSING' ]. - output at: 'missing files' put: (missing collect: - [ :line | (line withoutPrefix: 'MISSING')trimmed ]). - status linesDo: [ :line | | k v temp commitLog | commitLog := OrderedCollection new. temp := line splitOn: ': '. @@ -487,6 +484,13 @@ FossilRepo >> status [ ifFalse: [ commitLog add: line ]. output at: 'commitLog' put: commitLog ]. + edited := status lines select: [ :line | line beginsWith: 'EDITED' ]. + output at: 'edited files' put: (edited collect: + [ :line | (line withoutPrefix: 'EDITED')trimmed ]). + + missing := status lines select: [ :line | line beginsWith: 'MISSING' ]. + output at: 'missing files' put: (missing collect: + [ :line | (line withoutPrefix: 'MISSING')trimmed ]). ^ output ]