SystemOrganization addCategory: #ConfigurationOfPetitParser! Object subclass: #ConfigurationOfPetitParser instanceVariableNames: 'project' classVariableNames: '' poolDictionaries: '' category: 'ConfigurationOfPetitParser'! !ConfigurationOfPetitParser class methodsFor: 'private' stamp: 'FabrizioPerin 4/27/2010 15:04'! ensureMetacello Smalltalk at: #MetacelloProject ifAbsent: [ Gofer new url: 'http://seaside.gemstone.com/ss/metacello'; package: 'ConfigurationOfMetacello'; load. (Smalltalk at: #ConfigurationOfMetacello) loadLatestVersion ]! ! !ConfigurationOfPetitParser class methodsFor: 'metacello tool support' stamp: 'tg 4/18/2010 23:51'! isMetacelloConfig "Answer true and the Metacello tools will operate on you" ^true! ! !ConfigurationOfPetitParser class methodsFor: 'loading' stamp: 'Tg 11/11/2010 21:09'! loadDefault self project version: 'default'! ! !ConfigurationOfPetitParser class methodsFor: 'loading' stamp: 'AlexandreBergel 12/3/2010 09:12'! loadMinimal self project version: 'minimal'! ! !ConfigurationOfPetitParser class methodsFor: 'accessing' stamp: 'tg 4/18/2010 23:51'! project ^self new project! ! !ConfigurationOfPetitParser methodsFor: 'baselines' stamp: 'AlexandreBergel 12/3/2010 09:14'! baseline10: spec spec for: #common do: [ spec blessing: #baseline. spec author: 'Alexandre Bergel'. spec description: 'work on Pharo 1.1.1'. spec repository: 'http://source.lukas-renggli.ch/petit'. spec package: 'PetitParser'; package: 'PetitTests' with: [ spec requires: 'PetitParser']; package: 'PetitAnalyzer' with: [ spec requires: 'PetitTests']; package: 'PetitGui' with: [ spec requires: 'Glamour for Petit']. spec group: 'Core' with: #( 'PetitParser' 'PetitAnalyzer' ). spec group: 'Tests' with: #( 'PetitTests' 'PetitAnalyzer' ). spec project: 'Glamour for Petit' with: [ spec className: 'ConfigurationOfGlamour'; file: 'ConfigurationOfGlamour'; version: '2.0-beta.8'; repository: 'http://www.squeaksource.com/Glamour' ]. ]! ! !ConfigurationOfPetitParser methodsFor: 'baselines' stamp: 'Tg 11/11/2010 21:06'! default: spec spec for: #common do: [ spec blessing: #baseline. spec repository: 'http://source.lukas-renggli.ch/petit'. spec package: 'PetitParser'; package: 'PetitTests' with: [ spec requires: 'PetitParser']; package: 'PetitAnalyzer' with: [ spec requires: 'PetitTests']; package: 'PetitGui' with: [ spec requires: 'Glamour for Petit']. spec group: 'Core' with: #( 'PetitParser' 'PetitAnalyzer' ). spec group: 'Tests' with: #( 'PetitTests' 'PetitAnalyzer' ). spec project: 'Glamour for Petit' with: [ spec className: 'ConfigurationOfGlamour'; file: 'ConfigurationOfGlamour'; version: 'default'; repository: 'http://www.squeaksource.com/Glamour' ]. ]! ! !ConfigurationOfPetitParser methodsFor: 'baselines' stamp: 'AlexandreBergel 12/3/2010 09:12'! minimal: spec spec for: #common do: [ spec blessing: #baseline. spec repository: 'http://source.lukas-renggli.ch/petit'. spec package: 'PetitParser'; package: 'PetitTests' with: [ spec requires: 'PetitParser']; package: 'PetitAnalyzer' with: [ spec requires: 'PetitTests']. spec group: 'Core' with: #( 'PetitParser' 'PetitAnalyzer' ). spec group: 'Tests' with: #( 'PetitTests' 'PetitAnalyzer' ) ]! ! !ConfigurationOfPetitParser methodsFor: 'accessing' stamp: 'tg 4/18/2010 23:50'! project ^ project ifNil: [ | constructor | "Bootstrap Metacello if it is not already loaded" self class ensureMetacello. "Construct Metacello project" constructor := (Smalltalk at: #MetacelloVersionConstructor) on: self. project := constructor project. project]! !