From c92a77f0dac5e7f1c19c7d98ad2f84211a3b6d99 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 17 Jan 2020 05:05:24 +0000
Subject: [PATCH] Changing to a new image because of System Browser bug.

---
 repository/Fossil/FossilRepo.class.st | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index 342ee68..cf4ed08 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -19,8 +19,14 @@ Class {
 }
 
 { #category : #'as yet unclassified' }
-FossilRepo >> add: aFileLocator [ 
-	self shouldBeImplemented.
+FossilRepo >> add: aFileReference [
+	OSSUnixSubprocess new 
+		command: '/usr/bin/fossil';
+		arguments: { 'add' . aFileReference fullName };
+		redirectStdout;
+		runAndWaitOnExitDo: [ :process :outString |
+			outString inspect
+		] 
 ]
 
 { #category : #authentication }
@@ -200,6 +206,19 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
 		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 }
 FossilRepo >> whoAmI [
 	^ NeoJSONReader fromString: (self jsonDataFor: 'whoami')