156 lines
4.7 KiB
Smalltalk
156 lines
4.7 KiB
Smalltalk
Class {
|
|
#name : #ConfigurationOfShortener,
|
|
#superclass : #Object,
|
|
#instVars : [
|
|
'project'
|
|
],
|
|
#classVars : [
|
|
'LastVersionLoad'
|
|
],
|
|
#category : #ConfigurationOfShortener
|
|
}
|
|
|
|
{ #category : #'development support' }
|
|
ConfigurationOfShortener 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 }
|
|
ConfigurationOfShortener class >> baseConfigurationClassIfAbsent: aBlock [
|
|
|
|
^ Smalltalk
|
|
at: #'ConfigurationOf'
|
|
ifAbsent: [
|
|
self ensureMetacelloBaseConfiguration.
|
|
Smalltalk at: #'ConfigurationOf' ifAbsent: aBlock ].
|
|
]
|
|
|
|
{ #category : #private }
|
|
ConfigurationOfShortener class >> ensureMetacello [
|
|
|
|
(self baseConfigurationClassIfAbsent: [ ]) ensureMetacello
|
|
]
|
|
|
|
{ #category : #private }
|
|
ConfigurationOfShortener 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' }
|
|
ConfigurationOfShortener class >> isMetacelloConfig [
|
|
"Answer true and the Metacello tools will operate on you"
|
|
|
|
^ true
|
|
]
|
|
|
|
{ #category : #loading }
|
|
ConfigurationOfShortener 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 }
|
|
ConfigurationOfShortener 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 }
|
|
ConfigurationOfShortener 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 }
|
|
ConfigurationOfShortener class >> project [
|
|
|
|
^ self new project
|
|
]
|
|
|
|
{ #category : #'development support' }
|
|
ConfigurationOfShortener 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 }
|
|
ConfigurationOfShortener >> baseline: spec [
|
|
<version: '1-baseline'>
|
|
spec for: #common do: [
|
|
spec
|
|
blessing: #baseline;
|
|
repository: 'http://smalltalkhub.com/Offray/Shortener/main';
|
|
package: 'Shortener' ]
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
ConfigurationOfShortener >> 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 }
|
|
ConfigurationOfShortener >> 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' }
|
|
ConfigurationOfShortener >> stable: spec [
|
|
<symbolicVersion: #'stable'>
|
|
spec for: #common version: '1'
|
|
]
|
|
|
|
{ #category : #versions }
|
|
ConfigurationOfShortener >> version: spec [
|
|
<version: '1' imports: #('1-baseline')>
|
|
spec for: #common do: [
|
|
spec
|
|
blessing: #release;
|
|
package: 'Shortener'
|
|
with: 'Shortener-OffrayLuna.2' ]
|
|
]
|