Offray
/
Fossil
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More status details.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-03-17 15:28:28 -05:00
parent 5dda27cac3
commit 1b55734aeb
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
repository/Fossil/FossilRepo.class.st
View File

@ -331,6 +331,11 @@ FossilRepo >> lastVersionPath: aFileNameWithRelativePath [
ifFalse: [ ^ '/doc/tip/', aFileNameWithRelativePath ]
]
{ #category : #accessing }
FossilRepo >> list [
^ (self command: 'ls') lines
]
{ #category : #accessing }
FossilRepo >> listUnversioned [
@ -464,14 +469,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: ': '.
@ -484,6 +481,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
]