First public release.
This commit is contained in:
parent
a259e0b500
commit
8736889a63
|
|
@ -0,0 +1,169 @@
|
|||
"
|
||||
I am ConfigurationOfFossil a Metacello configuration of Fossil.
|
||||
|
||||
Fossil is a small utility to query and eventually manage, Fossil repositories using their included standard JSON API.
|
||||
For more information about this please visit:
|
||||
|
||||
http://smalltalkhub.com/#!/~Offray/Fossil
|
||||
"
|
||||
Class {
|
||||
#name : #ConfigurationOfFossil,
|
||||
#superclass : #Object,
|
||||
#instVars : [
|
||||
'project'
|
||||
],
|
||||
#classVars : [
|
||||
'LastVersionLoad'
|
||||
],
|
||||
#category : #ConfigurationOfFossil
|
||||
}
|
||||
|
||||
{ #category : #'development support' }
|
||||
ConfigurationOfFossil class >> DevelopmentSupport [
|
||||
|
||||
"See the methods in the 'development support' category on the class-side of MetacelloBaseConfiguration. Decide what development support methods you would like to use and copy them the the class-side of your configuration."
|
||||
<apiDocumentation>
|
||||
]
|
||||
|
||||
{ #category : #private }
|
||||
ConfigurationOfFossil class >> baseConfigurationClassIfAbsent: aBlock [
|
||||
|
||||
^Smalltalk
|
||||
at: #'ConfigurationOf'
|
||||
ifAbsent: [
|
||||
self ensureMetacelloBaseConfiguration.
|
||||
Smalltalk at: #'ConfigurationOf' ifAbsent: aBlock ].
|
||||
]
|
||||
|
||||
{ #category : #private }
|
||||
ConfigurationOfFossil class >> ensureMetacello [
|
||||
|
||||
(self baseConfigurationClassIfAbsent: []) ensureMetacello
|
||||
]
|
||||
|
||||
{ #category : #private }
|
||||
ConfigurationOfFossil class >> ensureMetacelloBaseConfiguration [
|
||||
Smalltalk
|
||||
at: #'ConfigurationOf'
|
||||
ifAbsent: [
|
||||
| repository version |
|
||||
repository := MCHttpRepository
|
||||
location: 'http://smalltalkhub.com/mc/dkh/metacello/main'
|
||||
user: ''
|
||||
password: ''.
|
||||
repository
|
||||
versionReaderForFileNamed: 'Metacello-Base-dkh.107'
|
||||
do: [ :reader |
|
||||
version := reader version.
|
||||
version load.
|
||||
version workingCopy repositoryGroup addRepository: repository ] ]
|
||||
]
|
||||
|
||||
{ #category : #'metacello tool support' }
|
||||
ConfigurationOfFossil class >> isMetacelloConfig [
|
||||
"Answer true and the Metacello tools will operate on you"
|
||||
|
||||
^true
|
||||
]
|
||||
|
||||
{ #category : #loading }
|
||||
ConfigurationOfFossil class >> load [
|
||||
"Load the #stable version defined for this platform. The #stable version is the version that is recommended to be used on this platform."
|
||||
|
||||
"self load"
|
||||
|
||||
<apiDocumentation>
|
||||
^(self project version: #stable) load
|
||||
]
|
||||
|
||||
{ #category : #loading }
|
||||
ConfigurationOfFossil class >> loadBleedingEdge [
|
||||
"Load the latest versions of the mcz files defined for this project. It is not likely that the #bleedingEdge has been tested."
|
||||
|
||||
"self loadBleedingEdge"
|
||||
|
||||
<apiDocumentation>
|
||||
^(self project version: #bleedingEdge) load
|
||||
]
|
||||
|
||||
{ #category : #loading }
|
||||
ConfigurationOfFossil class >> loadDevelopment [
|
||||
"Load the #development version defined for this platform. The #development version will change over time and is not expected to be stable."
|
||||
|
||||
"self loadDevelopment"
|
||||
|
||||
<apiDocumentation>
|
||||
^(self project version: #development) load
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
ConfigurationOfFossil class >> project [
|
||||
|
||||
^self new project
|
||||
]
|
||||
|
||||
{ #category : #'development support' }
|
||||
ConfigurationOfFossil class >> validate [
|
||||
"Check the configuration for Errors, Critical Warnings, and Warnings (see class comment for MetacelloMCVersionValidator for more information).
|
||||
Errors identify specification issues that will result in unexpected behaviour when you load the configuration.
|
||||
Critical Warnings identify specification issues that may result in unexpected behavior when you load the configuration.
|
||||
Warnings identify specification issues that are technically correct, but are worth take a look at."
|
||||
|
||||
"self validate"
|
||||
|
||||
<apiDocumentation>
|
||||
self ensureMetacello.
|
||||
^ ((Smalltalk at: #MetacelloToolBox) validateConfiguration: self debug: #() recurse: false) explore
|
||||
]
|
||||
|
||||
{ #category : #baselines }
|
||||
ConfigurationOfFossil >> baseline1: spec [
|
||||
<version: '1-baseline'>
|
||||
spec for: #common do: [
|
||||
spec
|
||||
blessing: #baseline;
|
||||
repository: 'http://smalltalkhub.com/mc/Offray/Fossil/main';
|
||||
package: 'Fossil'.
|
||||
spec
|
||||
project: 'NeoJSON' with: [
|
||||
spec
|
||||
className: #ConfigurationOfNeoJSON;
|
||||
versionString: #'stable';
|
||||
repository: 'http://mc.stfx.eu/Neo']]
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
ConfigurationOfFossil >> customProjectAttributes [
|
||||
"Edit to return a collection of any custom attributes e.g. for conditional loading: Array with: #'Condition1' with: #'Condition2.
|
||||
For more information see: http://code.google.com/p/metacello/wiki/CustomProjectAttrributes "
|
||||
|
||||
^ #()
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
ConfigurationOfFossil >> project [
|
||||
^ project
|
||||
ifNil: [
|
||||
"Bootstrap Metacello if it is not already loaded"
|
||||
self class ensureMetacello.
|
||||
project := MetacelloMCProject new projectAttributes: self customProjectAttributes. "Create the Metacello project"
|
||||
(Smalltalk at: #'MetacelloVersionConstructor') on: self project: project. "Construct the project"
|
||||
project loadType: #'linear'. "change to #atomic if desired"
|
||||
project ]
|
||||
]
|
||||
|
||||
{ #category : #'symbolic versions' }
|
||||
ConfigurationOfFossil >> stable: spec [
|
||||
<symbolicVersion: #'stable'>
|
||||
spec for: #common version: '1'
|
||||
]
|
||||
|
||||
{ #category : #versions }
|
||||
ConfigurationOfFossil >> version1: spec [
|
||||
<version: '1' imports: #('1-baseline')>
|
||||
spec for: #common do: [
|
||||
spec
|
||||
blessing: #release;
|
||||
package: 'Fossil' with: 'Fossil-OffrayLuna.4';
|
||||
project: 'NeoJSON' with: #'stable']
|
||||
]
|
||||
|
|
@ -0,0 +1 @@
|
|||
Package { #name : #ConfigurationOfFossil }
|
||||
Loading…
Reference in New Issue