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

Adding files support.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-01-17 12:57:06 +00:00
parent c92a77f0da
commit 47b39df9ca
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

@ -19,14 +19,16 @@ Class {
} }
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
FossilRepo >> add: aFileReference [ FossilRepo >> add: fileRelativePath [
"I add a file to the working Fossil repository, given that both, the file and the repositor,
share the same root directory/folder."
OSSUnixSubprocess new OSSUnixSubprocess new
command: '/usr/bin/fossil'; command: '/usr/bin/fossil';
arguments: { 'add' . aFileReference fullName }; arguments: { 'add' . fileRelativePath };
workingDirectory: self localFolderName;
redirectStdout; redirectStdout;
runAndWaitOnExitDo: [ :process :outString | runAndWaitOnExitDo: [ :process :outString | ^ outString ]
outString inspect
]
] ]
{ #category : #authentication } { #category : #authentication }
@ -158,6 +160,11 @@ FossilRepo >> local: aLocalFilePath [
local := aLocalFilePath local := aLocalFilePath
] ]
{ #category : #'as yet unclassified' }
FossilRepo >> localFolderName [
^ self local parent fullName
]
{ #category : #authentication } { #category : #authentication }
FossilRepo >> loginAs: anUserName withPassword: password [ FossilRepo >> loginAs: anUserName withPassword: password [
| jsonData | | jsonData |
@ -208,15 +215,13 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
FossilRepo >> status [ FossilRepo >> status [
OSSUnixSubprocess new OSSUnixSubprocess new
command: '/usr/bin/fossil'; command: '/usr/bin/fossil';
arguments: #('status'); arguments: #('status');
workingDirectory: self local parent fullName; workingDirectory: self localFolderName;
redirectStdout; redirectStdout;
redirectStderr; redirectStderr;
runAndWaitOnExitDo: [ :process :outString | runAndWaitOnExitDo: [ :process :outString | ^ outString ]
^ outString
]
] ]
{ #category : #authentication } { #category : #authentication }