Implementing the `revert` command.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-03-18 18:11:56 -05:00
parent d90f1409fb
commit 63f818ff03
1 changed files with 13 additions and 0 deletions

View File

@ -444,6 +444,19 @@ FossilRepo >> repository: aFossilRepoFile [
repository := aFossilRepoFile "fullName"
]
{ #category : #operation }
FossilRepo >> revert: aRelativeFilePath [
"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: self class locateExecutable;
arguments: { 'revert' . aRelativeFilePath };
workingDirectory: self localRoot;
redirectStdout;
runAndWaitOnExitDo: [ :process :outString | ^ outString ]
]
{ #category : #accessing }
FossilRepo >> revertRemoteUnversioned [