Adding updateDocumentation method which updates the documentation using fossil.
This commit is contained in:
parent
e675e146b8
commit
5090c2ec64
@ -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"
|
||||
|
Loading…
Reference in New Issue
Block a user