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

Improving status management.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-03-04 09:35:06 -05:00
parent c45692465d
commit 6e12663256
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -120,10 +120,10 @@ FossilRepo >> checkinsFor: relativeFilePath [
{ #category : #accessing }
FossilRepo >> checkoutDateAndTime [
| date time dateTime splitedCheckout |
splitedCheckout := (self status lines detect: [ :line | line beginsWith: 'checkout:' ])splitOn: ' '.
date := splitedCheckout at: 7.
time := splitedCheckout at: 8.
| date time splitedCheckout |
splitedCheckout := (self status at: 'checkout') splitOn: ' '.
date := splitedCheckout at: 2.
time := splitedCheckout at: 3.
^ (date, time) asZTimestamp
]
@ -328,7 +328,7 @@ FossilRepo >> local: aLocalFilePath [
FossilRepo >> localRoot [
local ifNotNil: [ ^ self local fullName ].
^((self status lines detect: [ :line | line beginsWith: 'local-root:' ]) splitOn: ':') second trimmed
^ self status at: 'local-root:'
]
{ #category : #authentication }
@ -392,9 +392,7 @@ FossilRepo >> repository [
repository ifNotNil: [ ^ repository ].
self isOpen ifFalse: [ ^ nil ].
^ repository := ((self status lines detect:
[ :line | line beginsWith: 'repository:' ])
splitOn: ':') second trimmed.
^ repository := self status at: 'repository'.
]
{ #category : #accessing }
@ -415,8 +413,15 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
{ #category : #accessing }
FossilRepo >> status [
^ self command: 'status'
| output |
output := OrderedDictionary new.
(self command: 'status') linesDo: [ :line | |k v temp|
temp := line splitOn: ': '.
k := temp first.
v := temp second trimmed.
output at: k put: v.
].
^ output
]
{ #category : #accessing }