Put all in toplo-example

Author: Nyan11

src/ExecutableRequirements-Toplo-Example/CapellaSimpleExchange.extension.st

@@ -0,0 +1,22 @@
+Extension { #name : 'CapellaSimpleExchange' }
+
+{ #category : '*ExecutableRequirements-Toplo-Example' }
+CapellaSimpleExchange >> exReqDescription [
+
+	^ 'The component named <1s> in the function <2s> transmit <3s> to the component named <4s> in the function <5s>'
+		  expandMacrosWithArguments: {
+				  self simpleSource simpleComponent prettyPrintCapellaObject.
+				  self simpleSource prettyPrintCapellaObject.
+				  self prettyPrintCapellaObject.
+				  self simpleTarget prettyPrintCapellaObject.
+				  self simpleTarget simpleComponent prettyPrintCapellaObject }
+]
+
+{ #category : '*ExecutableRequirements-Toplo-Example' }
+CapellaSimpleExchange >> exReqTitle [
+
+	^ '<1s> send "<2s>" to <3s>'
+		  expandMacrosWith: self simpleSource simpleComponent name
+		  with: self name
+		  with: self simpleTarget simpleComponent name
+]

src/ExecutableRequirements-Toplo-Example/CapellaSimpleObject.extension.st

@@ -0,0 +1,24 @@
+Extension { #name : 'CapellaSimpleObject' }
+
+{ #category : '*ExecutableRequirements-Toplo-Example' }
+CapellaSimpleObject >> asExReqRequirement [
+
+	^ ExReqRequirement new title: self exReqTitle; description: self exReqDescription; yourself
+]
+
+{ #category : '*ExecutableRequirements-Toplo-Example' }
+CapellaSimpleObject >> asExReqRequirementForCapellaProjectNamed: aString [
+
+	^ self asExReqRequirement
+		  sourceDocument: (ExReqCapellaDocument new
+				   name: aString;
+				   id: self id;
+				   yourself);
+		  yourself
+]
+
+{ #category : '*ExecutableRequirements-Toplo-Example' }
+CapellaSimpleObject >> prettyPrintCapellaObject [
+
+	^ '"<1s>"[<2s>]' expandMacrosWith: self name with: self id.
+]

src/ExecutableRequirements-Toplo-Example/CapellaSimpleProject.extension.st

@@ -0,0 +1,8 @@
+Extension { #name : 'CapellaSimpleProject' }
+
+{ #category : '*ExecutableRequirements-Toplo-Example' }
+CapellaSimpleProject >> asExReqRequirements [
+
+	^ self simpleExchanges collect: [ :each |
+		  each asExReqRequirementForCapellaProjectNamed: self project name ]
+]

src/ExecutableRequirements-Toplo-Example/ExReqRequirement.extension.st

@@ -0,0 +1,8 @@
+Extension { #name : 'ExReqRequirement' }
+
+{ #category : '*ExecutableRequirements-Toplo-Example' }
+ExReqRequirement >> stashAccessors [
+
+	<stashAccessors>
+	^ { #title . #description . #sourceDocument }
+]

src/ExecutableRequirements/ExReqRequirement.class.st

@@ -117,13 +117,6 @@ ExReqRequirement >> sourceDocument: anObject [
 	sourceDocument := anObject
 ]
 
-{ #category : 'as yet unclassified' }
-ExReqRequirement >> stashAccessors [
-
-	<stashAccessors>
-	^ { #title . #description . #sourceDocument }
-]
-
 { #category : 'accessing' }
 ExReqRequirement >> title [
 	^ title