project

    ^project

    "Created: / 18-09-2012 / 19:08:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

    root := aMetacelloSpec

    "Define author field of version spec (MetacelloMCVersionSpec).

	 If <aBlockOrString> is a String, the version spec author is set to the String.

	If <aBlockOrString> is a Block, the specifications in <aBlockOrString> are applied to the author spec (MetacelloValueHolderSpec). Not Recommended!!

		spec author: 'dkh'.

		spec author: [

			spec value: 'dkh'. ].

	 "

    self root author: aBlockOrString constructor: self

!

baseline: aString

    self root baseline: aString constructor: self

!

baseline: aString with: aBlockOrString

    self root baseline: aString with: aBlockOrString constructor: self

    "Define blessing field of version spec (MetacelloMCVersionSpec).

	 If <aBlockOrString> is a String, the version spec blessing is set to the String. It is recommended to use a Symbol.

	If <aBlockOrString> is a Block, the specifications in <aBlockOrString> are applied to the blessing spec (MetacelloValueHolderSpec). Not Recommended!!

		spec blessing: #release.

		spec blessing: [

			spec value: #release. ].

	The blessing should typically be set to one of three values:

		#baseline - indicating that the version spec is specifying a baseline version

		#development - indicating that the version spec is not stabilized and will change over time

		#release - indicating that the version spec has stabilized and will NOT change over time

	 "

    self root blessing: aBlockOrString constructor: self

className: aString

    "Define className field of a project spec (MetacelloMCProjectSpec).

		spec project: 'CoolBrowser' with: [

			spec className: 'ConfigurationOfCoolBrowser'. ].

	The className field is OPTIONAL in the project spec. If omitted, the className will be created by prepending 'ConfigurationOf' to the project name.

	 "

    self root className: aString constructor: self

!

configuration: aString with: aBlockOrString

    self root configuration: aString with: aBlockOrString constructor: self

    "Define description field of version spec (MetacelloMCVersionSpec).

	 If <aBlockOrString> is a String, the version spec blessing is set to the String. It is recommended to use a Symbol.

	If <aBlockOrString> is a Block, the specifications in <aBlockOrString> are applied to the blessing spec (MetacelloValueHolderSpec). Not Recommended!!

		spec description: 'Descriptive comment'.

		spec description: [

			spec value: 'Descriptive comment'.

	 "

    self root description: aBlockOrString constructor: self

file: aString

    "Define file field of a package spec (MetacelloPackageSpec) or project spec (MetacelloMCProjectSpec).

	For a package spec, the file: field is optional in a baseline. In a baseline, the file field may be used to specify a package branch for the package:

		spec package: 'MyPackage' with: [

			spec file: 'MyPackage.gemstone'. ]'.

	The file: field is required in a version. In a version, the file field defines the explicit version of the package to be loaded:

		spec package: 'MyPackage' with: [

			spec file: 'MyPackage.gemstone-dkh.1'. ]'.

	The following may be used as a short cut for specifying the file field in a version:

		spec package: 'MyPackage' with: 'MyPackage.gemstone-dkh.1'.

	For a project spec, the file field specifies the name of the Monticello package that contains the configuration. If you are using the convention of 

	naming the class and package usingthe  'ConfigurationOf' prefix, then there is no need to specify the file field:

		spec project: 'MyProject' with: [

			spec file: 'ConfigurationMyProject'.

	It should only be used when the package name for the configuration is different from the name of the project:

		spec project: 'MyProject' with: [

			spec file: 'MyProject-Metacello'.

	 "

    self root file: aString constructor: self

for: attribute do: aBlock

	"conditional version support"

	| blockList |

	blockList := self attributeMap

		at: attribute

		ifAbsent: [ self attributeMap at: attribute put: (blockList := OrderedCollection new) ].

	blockList add: aBlock.

	self addAttribute: attribute

!

for: attribute version: aString

	"conditional symbolicVersion support"

	self attributeMap at: attribute put: aString.

	self addAttribute: attribute

    self root group: aString overrides: aStringOrCollection constructor: self

    self root group: aString with: aStringOrCollection constructor: self

!

import: aString

    "import names defined in baseline <aString> to be used when loading the version

		spec baseline: 'Sample' with: [ spec repository: 'github://dalehenrich/sample:master/repository' ].

		spec import: 'Sample' ]

	 "

    self root import: aString constructor: self

    self root includes: anObject constructor: self

    self root loads: anObject constructor: self

    self root name: anObject constructor: self

    self root operator: anObject constructor: self

    self root package: aString constructor: self

    self root package: aString overrides: aBlock constructor: self

package: packageName with: aBlockOrString

    "Define specification for package <packageName>.

	 If <aBlockOrString> is a String (or Symbol), the String is expected to be a version (or symbolic version).

	If <aBlockOrString> is a Block, the specifications in <aBlockOrString> are applied to the project:

		spec package: 'MyPackage' with: '1.0'.

		spec package: 'MyPackage' with: [

			spec file:'MyPackage-dkh.1'.

			spec repository: '/opt/gemstone/repository'.

	 "

    self root package: packageName with: aBlockOrString constructor: self

    self root postLoadDoIt: aSymbol constructor: self

    self root preLoadDoIt: aSymbol constructor: self

    self root project: aString constructor: self

    self root

        project: aString

        copyFrom: oldSpecName

        with: aBlock

        constructor: self

    self root project: aString overrides: aBlock constructor: self

    self root project: aString with: aBlockOrString constructor: self

    "projectPackage spec data folded into project spec"

    self root projectPackage: aBlock constructor: self

    self root removeGroup: aString constructor: self

    self root removePackage: aString constructor: self

    self root removeProject: aString constructor: self

    self root repositories: aBlock constructor: self

    self root repository: anObject constructor: self

    self root

        repository: description

        username: username

        password: password

        constructor: self

    self root requires: anObject constructor: self

    self root supplyingAnswers: aCollection constructor: self

timestamp: aBlockOrStringOrDateAndTime

    "Define timestamp field of version spec (MetacelloMCVersionSpec).

	 If <aBlockOrStringOrDateAndTime> is a String, the version spec timetamp is set to the String.

	 If <aBlockOrStringOrDateAndTime> is a DateAndTime, the version spec timetamp is set to the printString of the DateAndTime.

	If <aBlockOrStringOrDateAndTime> is a Block, the specifications in <aBlockOrStringOrDateAndTime> are applied to the timestamp spec (MetacelloValueHolderSpec). Not Recommended!!

		spec timestamp: '10/7/2009 14:40'.

		spec timestamp: DateAndTime now'.

		spec timestamp: [

			spec value: '10/7/2009 14:40'. ].

    "

    self root timestamp: aBlockOrStringOrDateAndTime constructor: self

    self root value: anObject constructor: self

    self root version: anObject constructor: self

    self root versionString: anObject constructor: self

setBaseline: aString

    | spec projectSpec |

    projectSpec := self project baselineOfProjectSpec

        name: aString;

        className: 'BaselineOf' , aString;

        yourself.

    spec := self project projectReferenceSpec

        name: aString;

        projectReference: projectSpec;

        yourself.

    self root packages merge: spec.

    ^ projectSpec

!

setBaseline: aString withBlock: aBlock

    | projectSpec |

    projectSpec := self setBaseline: aString.

    self with: projectSpec during: aBlock

!

setConfiguration: aString withBlock: aBlock

    | spec projectSpec |

    projectSpec := self project configurationOfProjectSpec

        name: aString;

        yourself.

    spec := self project projectReferenceSpec

        name: aString;

        projectReference: projectSpec;

        yourself.

    self root packages merge: spec.

    self with: projectSpec during: aBlock

!

    | spec projectSpec |

    projectSpec := self project projectSpec

        name: aString;

        yourself.

    spec := self project projectReferenceSpec

        name: aString;

        projectReference: projectSpec;

        yourself.

    self root packages merge: spec.

    self with: projectSpec during: aBlock