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

Adding files support.

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' }
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
command: '/usr/bin/fossil';
arguments: { 'add' . aFileReference fullName };
arguments: { 'add' . fileRelativePath };
workingDirectory: self localFolderName;
redirectStdout;
runAndWaitOnExitDo: [ :process :outString |
outString inspect
]
runAndWaitOnExitDo: [ :process :outString | ^ outString ]
]
{ #category : #authentication }
@ -158,6 +160,11 @@ FossilRepo >> local: aLocalFilePath [
local := aLocalFilePath
]
{ #category : #'as yet unclassified' }
FossilRepo >> localFolderName [
^ self local parent fullName
]
{ #category : #authentication }
FossilRepo >> loginAs: anUserName withPassword: password [
| jsonData |
@ -208,15 +215,13 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
{ #category : #'as yet unclassified' }
FossilRepo >> status [
OSSUnixSubprocess new
OSSUnixSubprocess new
command: '/usr/bin/fossil';
arguments: #('status');
workingDirectory: self local parent fullName;
workingDirectory: self localFolderName;
redirectStdout;
redirectStderr;
runAndWaitOnExitDo: [ :process :outString |
^ outString
]
runAndWaitOnExitDo: [ :process :outString | ^ outString ]
]
{ #category : #authentication }