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' }
|
{ #category : #'as yet unclassified' }
|
||||||
FossilRepo >> add: aFileLocator [
|
FossilRepo >> add: aFileReference [
|
||||||
self shouldBeImplemented.
|
OSSUnixSubprocess new
|
||||||
|
command: '/usr/bin/fossil';
|
||||||
|
arguments: { 'add' . aFileReference fullName };
|
||||||
|
redirectStdout;
|
||||||
|
runAndWaitOnExitDo: [ :process :outString |
|
||||||
|
outString inspect
|
||||||
|
]
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #authentication }
|
{ #category : #authentication }
|
||||||
@ -200,6 +206,19 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
|
|||||||
ifTrue: [ ^ (aFileNameWithRelativePath copyFrom: 4 to: aFileNameWithRelativePath size) ]
|
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 }
|
{ #category : #authentication }
|
||||||
FossilRepo >> whoAmI [
|
FossilRepo >> whoAmI [
|
||||||
^ NeoJSONReader fromString: (self jsonDataFor: 'whoami')
|
^ NeoJSONReader fromString: (self jsonDataFor: 'whoami')
|
||||||
|
Loading…
Reference in New Issue
Block a user