Changing to a new image because of System Browser bug.
This commit is contained in:
parent
393edcd3bf
commit
c92a77f0da
@ -19,8 +19,14 @@ Class {
|
||||
}
|
||||
|
||||
{ #category : #'as yet unclassified' }
|
||||
FossilRepo >> add: aFileLocator [
|
||||
self shouldBeImplemented.
|
||||
FossilRepo >> add: aFileReference [
|
||||
OSSUnixSubprocess new
|
||||
command: '/usr/bin/fossil';
|
||||
arguments: { 'add' . aFileReference fullName };
|
||||
redirectStdout;
|
||||
runAndWaitOnExitDo: [ :process :outString |
|
||||
outString inspect
|
||||
]
|
||||
]
|
||||
|
||||
{ #category : #authentication }
|
||||
@ -200,6 +206,19 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
|
||||
ifTrue: [ ^ (aFileNameWithRelativePath copyFrom: 4 to: aFileNameWithRelativePath size) ]
|
||||
]
|
||||
|
||||
{ #category : #'as yet unclassified' }
|
||||
FossilRepo >> status [
|
||||
OSSUnixSubprocess new
|
||||
command: '/usr/bin/fossil';
|
||||
arguments: #('status');
|
||||
workingDirectory: self local parent fullName;
|
||||
redirectStdout;
|
||||
redirectStderr;
|
||||
runAndWaitOnExitDo: [ :process :outString |
|
||||
^ outString
|
||||
]
|
||||
]
|
||||
|
||||
{ #category : #authentication }
|
||||
FossilRepo >> whoAmI [
|
||||
^ NeoJSONReader fromString: (self jsonDataFor: 'whoami')
|
||||
|
Loading…
Reference in New Issue
Block a user