Adding updateDocumentation method which updates the documentation using fossil.

This commit is contained in:
Ivan Pulido 2015-03-14 17:13:48 +00:00 committed by Offray Luna
parent e675e146b8
commit 5090c2ec64

View File

@ -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"