From 5090c2ec64cfdde6b89ece3b231046896e9d9a0d Mon Sep 17 00:00:00 2001
From: Ivan Pulido <ijpulidos@riseup.net>
Date: Sat, 14 Mar 2015 17:13:48 +0000
Subject: [PATCH] Adding updateDocumentation method which updates the
 documentation using fossil.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 24 +++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 39f9602..b06e870 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -195,6 +195,30 @@ GrafoscopioBrowser class >> startDockingBar [
      	openInWorld.
 ]
 
+{ #category : #'as yet unclassified' }
+GrafoscopioBrowser class >> updateDocumentation [
+
+| localRepository remoteRepository |
+
+localRepository := FileSystem disk workingDirectory parent / 'grafoscopio.fossil'.
+remoteRepository := 'http://mutabit.com/deltas/repos.fossil/grafoscopio/'.
+	
+localRepository exists
+	ifFalse: [
+		OSProcess command: 'exec ', fossil, ' clone ' , remoteRepository, ' ', localRepository fullName.
+		OSProcess command: 'exec echo "Repositorio clonado."'.
+		]
+	ifTrue: [
+		(FileSystem disk workingDirectory parent / '.flsckout') exists
+			ifFalse: [ 
+				OSProcess command:  'exec ', fossil, ' open ', localRepository fullName .
+				OSProcess command: 'exec echo "Repositorio abierto."'.
+			] .
+			OSProcess command:  'exec ', fossil, ' update ' .
+			OSProcess command: 'exec echo "Repositorio actualizado."'.
+	]
+]
+
 { #category : #'as yet unclassified' }
 GrafoscopioBrowser class >> updateGrafoscopio [
 	"Updates Grafoscopio with new versions of itself take from the source code repository"