add expression/condition viewer

src/ReMobidyc-Language/RMDAgentDirectiveNode.class.st

@@ -38,11 +38,23 @@ RMDAgentDirectiveNode >> agentIdentifier: aString [
 	agentIdentifier := aString
 ]
 
+{ #category : #converting }
+RMDAgentDirectiveNode >> asPresenter [
+
+	^ RMDAgentDirectivePresenter on: self
+]
+
 { #category : #enumerating }
 RMDAgentDirectiveNode >> childrenDo: aBlock [
 
 ]
 
+{ #category : #accessing }
+RMDAgentDirectiveNode >> directiveName [
+
+	^ self subclassResponsibility
+]
+
 { #category : #comparing }
 RMDAgentDirectiveNode >> hash [
 	^ self class hash bitXor: agentIdentifier hash

src/ReMobidyc-Language/RMDApplyNode.class.st

@@ -33,6 +33,12 @@ RMDApplyNode >> arguments: anArrayOfRMDExpressionNode [
 	arguments := anArrayOfRMDExpressionNode
 ]
 
+{ #category : #converting }
+RMDApplyNode >> asPresenter [
+
+	^ RMDApplyExpressionPresenter on: self
+]
+
 { #category : #enumerating }
 RMDApplyNode >> childrenDo: aBlock [
 	arguments do: aBlock

src/ReMobidyc-Language/RMDAreaDirectiveNode.class.st

@@ -4,6 +4,12 @@ Class {
 	#category : #'ReMobidyc-Language-AST'
 }
 
+{ #category : #converting }
+RMDAreaDirectiveNode >> asPresenter [
+
+	^ RMDAtomicDirectivePresenter on: self
+]
+
 { #category : #testing }
 RMDAreaDirectiveNode >> isAreaDirectiveNode [
 	^ true

src/ReMobidyc-Language/RMDBinaryCombinatorNode.class.st

@@ -26,6 +26,12 @@ RMDBinaryCombinatorNode >> = anObject [
 		and: [ conditions = anObject conditions ]
 ]
 
+{ #category : #converting }
+RMDBinaryCombinatorNode >> asPresenter [
+
+	^ RMDBinaryCombinatorPresenter on: self
+]
+
 { #category : #enumerating }
 RMDBinaryCombinatorNode >> childrenDo: aBlock [
 	conditions do: aBlock

src/ReMobidyc-Language/RMDBinaryOperatorApplicationNode.class.st

@@ -29,6 +29,12 @@ RMDBinaryOperatorApplicationNode >> = anObject [
 				and: [ expression2 = anObject expression2 ] ]
 ]
 
+{ #category : #converting }
+RMDBinaryOperatorApplicationNode >> asPresenter [
+
+	^ RMDBinaryOperatorExpressionPresenter on: self
+]
+
 { #category : #enumerating }
 RMDBinaryOperatorApplicationNode >> childrenDo: aBlock [
 	aBlock

src/ReMobidyc-Language/RMDBinaryRelationNode.class.st

@@ -26,6 +26,12 @@ RMDBinaryRelationNode >> = anObject [
 		and: [ expressions = anObject expressions ]
 ]
 
+{ #category : #converting }
+RMDBinaryRelationNode >> asPresenter [
+
+	^ RMDBinaryRelationPresenter on: self
+]
+
 { #category : #enumerating }
 RMDBinaryRelationNode >> childrenDo: aBlock [
 	expressions do: aBlock

src/ReMobidyc-Language/RMDChanceNode.class.st

@@ -22,6 +22,12 @@ RMDChanceNode >> = anObject [
 		  probability = anObject probability ]
 ]
 
+{ #category : #converting }
+RMDChanceNode >> asPresenter [
+
+	^ RMDChancePresenter on: self
+]
+
 { #category : #enumerating }
 RMDChanceNode >> childrenDo: aBlock [
 

src/ReMobidyc-Language/RMDDeUnitExpressionNode.class.st

@@ -4,6 +4,12 @@ Class {
 	#category : #'ReMobidyc-Language-AST'
 }
 
+{ #category : #converting }
+RMDDeUnitExpressionNode >> asPresenter [
+
+	^ RMDDeUnitExpressionPresenter on: self
+]
+
 { #category : #testing }
 RMDDeUnitExpressionNode >> isDeUnitExpressionNode [
 

src/ReMobidyc-Language/RMDDeltaTimeDirectiveNode.class.st

@@ -4,6 +4,12 @@ Class {
 	#category : #'ReMobidyc-Language-AST'
 }
 
+{ #category : #converting }
+RMDDeltaTimeDirectiveNode >> asPresenter [
+
+	^ RMDAtomicDirectivePresenter on: self
+]
+
 { #category : #testing }
 RMDDeltaTimeDirectiveNode >> isDeltaTimeDirectiveNode [
 	^ true

src/ReMobidyc-Language/RMDDensityOfIndividualsInPatchDirectiveNode.class.st

@@ -4,6 +4,12 @@ Class {
 	#category : #'ReMobidyc-Language-AST'
 }
 
+{ #category : #printing }
+RMDDensityOfIndividualsInPatchDirectiveNode >> directiveName [
+
+	^ 'density of'
+]
+
 { #category : #testing }
 RMDDensityOfIndividualsInPatchDirectiveNode >> isDensityOfIndividualsInPatchDirective [
 

src/ReMobidyc-Language/RMDDensityOfIndividualsInRadiusDirectiveNode.class.st

@@ -4,6 +4,12 @@ Class {
 	#category : #'ReMobidyc-Language-AST'
 }
 
+{ #category : #accessing }
+RMDDensityOfIndividualsInRadiusDirectiveNode >> directiveName [
+
+	^ 'density of'
+]
+
 { #category : #testing }
 RMDDensityOfIndividualsInRadiusDirectiveNode >> isDensityOfIndividualsInRadiusDirective [
 

src/ReMobidyc-Language/RMDDensityOfIndividualsInWorldDirectiveNode.class.st

@@ -4,6 +4,12 @@ Class {
 	#category : #'ReMobidyc-Language-AST'
 }
 
+{ #category : #accessing }
+RMDDensityOfIndividualsInWorldDirectiveNode >> directiveName [
+
+	^ 'density of'
+]
+
 { #category : #testing }
 RMDDensityOfIndividualsInWorldDirectiveNode >> isDensityOfIndividualsInWorldDirective [
 

src/ReMobidyc-Language/RMDDirectionDirectiveNode.class.st

@@ -12,6 +12,12 @@ RMDDirectionDirectiveNode class >> agent: anotherString [
 		  yourself
 ]
 
+{ #category : #accessing }
+RMDDirectionDirectiveNode >> directiveName [
+
+	^ 'direction'
+]
+
 { #category : #testing }
 RMDDirectionDirectiveNode >> isDirectionDirectiveNode [
 

src/ReMobidyc-Language/RMDDirectionOfGradientDirectiveNode.class.st

@@ -23,6 +23,12 @@ RMDDirectionOfGradientDirectiveNode >> = anObject [
 		  patchAttributeVariable = anObject patchAttributeVariable ]
 ]
 
+{ #category : #converting }
+RMDDirectionOfGradientDirectiveNode >> asPresenter [
+
+	^ RMDDirectionOfGradientDirectivePresenter on: self
+]
+
 { #category : #enumerating }
 RMDDirectionOfGradientDirectiveNode >> childrenDo: aBlock [
 

src/ReMobidyc-Language/RMDDistanceDirectiveNode.class.st

@@ -12,6 +12,12 @@ RMDDistanceDirectiveNode class >> agent: anotherString [
 		  yourself
 ]
 
+{ #category : #accessing }
+RMDDistanceDirectiveNode >> directiveName [
+
+	^ 'distance'
+]
+
 { #category : #testing }
 RMDDistanceDirectiveNode >> isDistanceDirectiveNode [
 

src/ReMobidyc-Language/RMDEnUnitExpressionNode.class.st

@@ -4,6 +4,12 @@ Class {
 	#category : #'ReMobidyc-Language-AST'
 }
 
+{ #category : #converting }
+RMDEnUnitExpressionNode >> asPresenter [
+
+	^ RMDEnUnitExpressionPresenter on: self
+]
+
 { #category : #testing }
 RMDEnUnitExpressionNode >> isEnUnitExpressionNode [
 

src/ReMobidyc-Language/RMDExpressionNode.class.st

@@ -33,6 +33,12 @@ RMDExpressionNode >> / aRMDExpression [
 	^ RMDFractionNode expression: self expression: aRMDExpression
 ]
 
+{ #category : #converting }
+RMDExpressionNode >> asPresenter [
+
+	^ RMDAtomicExpressionPresenter on: self
+]
+
 { #category : #private }
 RMDExpressionNode >> insertTrace [
 

src/ReMobidyc-Language/RMDGammaDistributionNode.class.st

@@ -115,6 +115,12 @@ RMDGammaDistributionNode >> childrenTransform: aBlock [
 	shapeExpression := aBlock value: shapeExpression
 ]
 
+{ #category : #accessing }
+RMDGammaDistributionNode >> distributionName [
+
+	^ 'gamma'
+]
+
 { #category : #accessing }
 RMDGammaDistributionNode >> gamma: aNumber in: aRMDInterpreter [
 
@@ -141,6 +147,12 @@ RMDGammaDistributionNode >> normalIn: aRMDInterpreter [
 	  * (aRMDInterpreter random * Float pi * 2.0) cos
 ]
 
+{ #category : #accessing }
+RMDGammaDistributionNode >> parameter1Expression [
+
+	^ self shapeExpression
+]
+
 { #category : #copying }
 RMDGammaDistributionNode >> postCopy [
 

src/ReMobidyc-Language/RMDGammaMeanDistributionNode.class.st

@@ -51,6 +51,18 @@ RMDGammaMeanDistributionNode >> meanExpression: aRMDExpressionNode [
 	meanExpression := aRMDExpressionNode
 ]
 
+{ #category : #accessing }
+RMDGammaMeanDistributionNode >> parameter2Expression [
+
+	^ self meanExpression
+]
+
+{ #category : #accessing }
+RMDGammaMeanDistributionNode >> parameterName [
+
+	^ 'mean'
+]
+
 { #category : #copying }
 RMDGammaMeanDistributionNode >> postCopy [
 

src/ReMobidyc-Language/RMDGammaRateDistributionNode.class.st

@@ -39,6 +39,18 @@ RMDGammaRateDistributionNode >> isGammaRateDistributionNode [
 	^ true
 ]
 
+{ #category : #accessing }
+RMDGammaRateDistributionNode >> parameter2Expression [
+
+	^ self rateExpression
+]
+
+{ #category : #accessing }
+RMDGammaRateDistributionNode >> parameterName [
+
+	^ 'rate'
+]
+
 { #category : #copying }
 RMDGammaRateDistributionNode >> postCopy [
 

src/ReMobidyc-Language/RMDGammaScaleDistributionNode.class.st

@@ -39,6 +39,18 @@ RMDGammaScaleDistributionNode >> isGammaScaleDistributionNode [
 	^ true
 ]
 
+{ #category : #accessing }
+RMDGammaScaleDistributionNode >> parameter2Expression [
+
+	^ self scaleExpression
+]
+
+{ #category : #accessing }
+RMDGammaScaleDistributionNode >> parameterName [
+
+	^ 'scale'
+]
+
 { #category : #copying }
 RMDGammaScaleDistributionNode >> postCopy [
 

src/ReMobidyc-Language/RMDGuardedChoiceNode.class.st

@@ -20,6 +20,12 @@ RMDGuardedChoiceNode >> = anObject [
 		and: [ guardsAndChoices = anObject guardsAndChoices ]
 ]
 
+{ #category : #converting }
+RMDGuardedChoiceNode >> asPresenter [
+
+	^ RMDGuardedChoicePresenter on: self
+]
+
 { #category : #enumerating }
 RMDGuardedChoiceNode >> childrenDo: aBlock [
 

src/ReMobidyc-Language/RMDIndividualsInPatchDirectiveNode.class.st

@@ -40,18 +40,36 @@ RMDIndividualsInPatchDirectiveNode >> animatName: aString [
 	animatName := aString
 ]
 
+{ #category : #converting }
+RMDIndividualsInPatchDirectiveNode >> asPresenter [
+
+	^ RMDIndividualsInLocationDirectivePresenter on: self
+]
+
 { #category : #enumerating }
 RMDIndividualsInPatchDirectiveNode >> childrenDo: aBlock [
 
 
 ]
 
+{ #category : #accessing }
+RMDIndividualsInPatchDirectiveNode >> directiveName [
+
+	^ self subclassResponsibility
+]
+
 { #category : #comparing }
 RMDIndividualsInPatchDirectiveNode >> hash [
 
 	^ self class hash bitXor: animatName hash
 ]
 
+{ #category : #accessing }
+RMDIndividualsInPatchDirectiveNode >> locationName [
+
+	^ 'here'
+]
+
 { #category : #copying }
 RMDIndividualsInPatchDirectiveNode >> postCopy [
 

src/ReMobidyc-Language/RMDIndividualsInRadiusDirectiveNode.class.st

@@ -35,6 +35,24 @@ RMDIndividualsInRadiusDirectiveNode >> animatName: aString [
 	animatName := aString
 ]
 
+{ #category : #converting }
+RMDIndividualsInRadiusDirectiveNode >> asPresenter [
+
+	^ RMDIndividualsInRadiusDirectivePresenter on: self
+]
+
+{ #category : #accessing }
+RMDIndividualsInRadiusDirectiveNode >> directiveName [
+
+	^ self subclassResponsibility
+]
+
+{ #category : #accessing }
+RMDIndividualsInRadiusDirectiveNode >> locationName [
+
+	^ 'radius'
+]
+
 { #category : #utilities }
 RMDIndividualsInRadiusDirectiveNode >> numberOfIndividualsIn: aNumber with: aRMDInterpreter [