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

Updating before migration to Git.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-05-02 13:29:57 +00:00
parent 67db468dca
commit 7febe22d33
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -95,7 +95,28 @@ FossilRepo >> commit: message [
arguments: { 'commit' . '--no-warnings' . '-m' . message };
workingDirectory: self localFolderName;
redirectStdout;
runAndWaitOnExitDo: [ :process :outString | ^ outString ]
runAndWaitOnExitDo: [ :process :outString | ^ outString ]
]
{ #category : #operation }
FossilRepo >> commit: message withEnabledWarnings: aBoolean [
"I add a file to the working Fossil repository, given that both, the file and the repositor,
share the same root directory/folder."
| warningCommand |
warningCommand := aBoolean
ifFalse: [ '' ]
ifTrue: [ '--no-warnings' ].
OSSUnixSubprocess new
command: self class locateExecutable;
arguments:
{'commit'.
warningCommand.
'-m'.
message};
workingDirectory: self localFolderName;
redirectStdout;
runAndWaitOnExitDo: [ :process :outString | ^ outString ]
]
{ #category : #wiki }
@ -145,9 +166,9 @@ FossilRepo >> getPageContentsFor: anEmbeddedDocUrl [
{ #category : #operation }
FossilRepo >> init: absolutePathString [
"I add a file to the working Fossil repository, given that both, the file and the repositor,
share the same root directory/folder."
"I init a repository in a given location."
Smalltalk os isWindows ifTrue: [ ^ self ].
absolutePathString asFileReference exists ifTrue: [ ^ self ].
OSSUnixSubprocess new
command: self class locateExecutable;
arguments: { 'init' . absolutePathString };