Re: [Pharo-users] How to visit over packages, classes, methods (all types)

May 21, 2019


      clarification embedded below

On 5/20/19 3:43 PM, Dale Henrichs wrote:
...
| project className |
    project := (Rowan projectNamed:'Exercise') asDefinition.	
    className := 'Acronym'.
    packageName := 'Exercise-', className.
    ((project
    	addPackageNamed: packageName
    		toComponentNamed: className
    		withConditions: 'gemstone'
    		andGroup: 'core')
    	addClassNamed: className super: 'Object' category: packageName)
    	addInstanceMethod: 'foo ^1' protocol: 'accessing.
((project
    	addPackageNamed: packageName, '-Test'
    		toComponentNamed: className
    		withConditions: 'gemstone'
    		andGroup: 'test')
    	addClassNamed: className, 'Test' super: 'TestCase' category: packageName)
    	addInstanceMethod: 'test ...' protocol: 'testing.
(project componentNamed: className)
    	addComponent: 'ExercismDev'.
    project export. 			"to write project to disk"
    project load.				"to load the project in the image"
'ExercismDev' above and 'ExercismTools' should be the same component 
name ('ExercismDev' ?) ... this is the component name containing the 
required packages ...
...
RwComponentLoadConfiguration{
    	#name : 'Acronym',
    	#version : '0.1.0',
    	#conditionalPackages : {
    		[
    			'gemstone'
    		] : {
    			'core' : {
    				#packageNames : [
    					'Exercise-Acronym'
    				]
    			}
    			'test' : {
    				#packageNames : [
    					'Exercise-Acronym-Test'
    				]
    			}
}
    	},
    	#componentNames : [ 'ExercismTools' ]
    }

Dale Henrichs

tags

participants (1)