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.
|
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' }
|
{ #category : #'as yet unclassified' }
|
||||||
GrafoscopioBrowser class >> updateGrafoscopio [
|
GrafoscopioBrowser class >> updateGrafoscopio [
|
||||||
"Updates Grafoscopio with new versions of itself take from the source code repository"
|
"Updates Grafoscopio with new versions of itself take from the source code repository"
|
||||||
|
Loading…
Reference in New Issue
Block a user