Offray/GrafoscopioUtils
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Synchronizing before testing installation in other image.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-07-06 21:23:22 +00:00
parent f3235e61c7
commit aa2bbdf295
2 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
repository/Grafoscopio-Utils/GrafoscopioDocumentation.class.st
View File

@ -15,11 +15,29 @@ Class {
#category : #'Grafoscopio-Utils' #category : #'Grafoscopio-Utils'
} }
{ #category : #updating }
GrafoscopioDocumentation class >> listOutdatedDocs [
"I return the list of all documentent where the local copy and the remote copy doesn't match"
| docsRepo |
docsRepo := self newDefault.
^ docsRepo documents reject: [ :doc | (docsRepo isFileUpdatedFor: doc) ]
]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioDocumentation class >> newDefault [ GrafoscopioDocumentation class >> newDefault [
^ self new ^ self new
] ]
{ #category : #updating }
GrafoscopioDocumentation class >> update [
self newDefault update
]
{ #category : #updating }
GrafoscopioDocumentation class >> updateAll [
self allInstancesDo: [ :docs | docs update ]
]
{ #category : #updating } { #category : #updating }
GrafoscopioDocumentation class >> updateAllUI [ GrafoscopioDocumentation class >> updateAllUI [
"Updates documentation (manual, tutorials) from the official repository for a given documentation." "Updates documentation (manual, tutorials) from the official repository for a given documentation."
@ -50,7 +68,7 @@ GrafoscopioDocumentation >> download: fileNameWithRelativePath [
relativePathFolders do: [ :folder | newPath := newPath / folder ]. relativePathFolders do: [ :folder | newPath := newPath / folder ].
parentFolder := newPath asFileReference. parentFolder := newPath asFileReference.
parentFolder exists ifFalse: [ parentFolder ensureCreateDirectory ]. parentFolder exists ifFalse: [ parentFolder ensureCreateDirectory ].
GrafoscopioGenUtils GrafoscopioUtils
downloadingFrom: self repository remote asString, '/doc/tip/', fileNameWithRelativePath downloadingFrom: self repository remote asString, '/doc/tip/', fileNameWithRelativePath
withMessage: 'Downloading ', fileName withMessage: 'Downloading ', fileName
into: parentFolder into: parentFolder
@ -70,12 +88,6 @@ GrafoscopioDocumentation >> isFileUpdatedFor: relativeFilePath [
with: (self repository lastHashNumberFor: relativeFilePath) ] with: (self repository lastHashNumberFor: relativeFilePath) ]
] ]
{ #category : #updating }
GrafoscopioDocumentation >> listOutdatedDocs [
"I return the list of all documentent where the local copy and the remote copy doesn't match"
^ self documents reject: [ :doc | (self isFileUpdatedFor: doc) ]
]
{ #category : #accessing } { #category : #accessing }
GrafoscopioDocumentation >> localPlace [ GrafoscopioDocumentation >> localPlace [
^ localPlace ifNil: [ ^ localPlace ifNil: [
@ -124,7 +136,7 @@ GrafoscopioDocumentation >> repository: anObject [
{ #category : #updating } { #category : #updating }
GrafoscopioDocumentation >> update [ GrafoscopioDocumentation >> update [
(self listOutdatedDocs) (self class listOutdatedDocs)
ifEmpty: [ ifEmpty: [
self inform: 'All documents in the ', self name,' collection are already updated'. self inform: 'All documents in the ', self name,' collection are already updated'.
^ self ] ^ self ]

4
repository/Grafoscopio-Utils/GrafoscopioGenUtils.class.st → repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
View File

@ -3,13 +3,13 @@ I contain simple general functionality used by Grafoscopio, Dataviz
or other related projects. or other related projects.
" "
Class { Class {
#name : #GrafoscopioGenUtils, #name : #GrafoscopioUtils,
#superclass : #Object, #superclass : #Object,
#category : #'Grafoscopio-Utils' #category : #'Grafoscopio-Utils'
} }
{ #category : #'graphical interface' } { #category : #'graphical interface' }
GrafoscopioGenUtils class >> downloadingFrom: downloadUrl withMessage: aString into: location [ GrafoscopioUtils class >> downloadingFrom: downloadUrl withMessage: aString into: location [
| fileName | | fileName |
fileName := (downloadUrl splitOn: $/) last. fileName := (downloadUrl splitOn: $/) last.
(location / fileName) exists ifTrue: [ (location / fileName) ensureDelete ]. (location / fileName) exists ifTrue: [ (location / fileName) ensureDelete ].