コミット: d22f407e5f75b5591604b63f161b20ccf0e9c5e2 - CCastle2 (hg)

Castle: The best Real-Time/Embedded/HighTech language EVER. Attempt 2

コミットメタ情報

• リビジョン: d22f407e5f75b5591604b63f161b20ccf0e9c5e2 (tree)
• 日時: 2024-03-20 06:03:47
• 作者: Albert Mietus < albert AT mietus DOT nl >
• コミッター: Albert Mietus < albert AT mietus DOT nl >

ログメッセージ

ASIS: TESTDOUBLES::sieve as puml

変更サマリ

• add: TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/moats.puml
• add: TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/namespaces.puml
• add: TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/protocols.puml

差分

diff -r 7607f371f24c -r d22f407e5f75 TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/moats.puml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/moats.puml	Tue Mar 19 22:03:47 2024 +0100
@@ -0,0 +1,21 @@
+@startuml
+
+
+package Classes <<Cloud>> {
+class ComponentInterface
+}
+
+
+
+'SieveMoat = ComponentInterface(name=ID("Sieve"),
+'                                   ports=(
+'                                       Port(name='try',     direction=PortDirection.In,  type=protocols.SimpleSieve),
+'                                       Port(name='coprime', direction=PortDirection.Out, type=protocols.SimpleSieve),
+'                                       ))
+object SieveMoat {
+  name = "Sieve"
+  ports = [try, coprime]
+}
+ComponentInterface <|-- SieveMoat
+
+@enduml

diff -r 7607f371f24c -r d22f407e5f75 TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/namespaces.puml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/namespaces.puml	Tue Mar 19 22:03:47 2024 +0100
@@ -0,0 +1,43 @@
+@startuml
+
+package Classes <<Cloud>> {
+class NameSpace
+class Source_NS
+NameSpace <|- Source_NS
+}
+
+package NameSpaces <<Node>> {
+object top {
+  name="The Sieve"
+}
+object start_sieve
+object slow_start
+object simple_sieve
+object base
+}
+
+package "Sieve Protocols" {
+  object StartSieve
+  object SlowStart
+  object SlowStart_1
+  SlowStart <|.. SlowStart_1
+  object SimpleSieve
+}
+start_sieve  o.. base : register
+slow_start   o.. base : register
+simple_sieve o.. base : register
+
+
+start_sieve  o.. StartSieve   : register
+
+slow_start   o.. SlowStart_1  : register
+simple_sieve o.. slow_start   : register
+
+simple_sieve o.. SimpleSieve  : register
+
+top o.. start_sieve  : register
+top o..	slow_start   : register
+top o..	simple_sieve : register
+top o..	base         : register
+
+@enduml

diff -r 7607f371f24c -r d22f407e5f75 TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/protocols.puml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TestDoubles_packages/TestDoubles-aigr-sieve/castle/TESTDOUBLES/aigr/sieve/doc/protocols.puml	Tue Mar 19 22:03:47 2024 +0100
@@ -0,0 +1,53 @@
+@startuml
+
+
+package Classes <<Cloud>> {
+class EventProtocol
+class Specialise
+EventProtocol <|- Specialise
+}
+
+'StartSieve = EventProtocol(ID('StartSieve'),
+'                              events=(
+'                                   Event(name=ID('runTo'),  return_type=None, typedParameters=(TypedParameter(name='max', type=int),)),
+'                                   Event(name=ID('newMax'), return_type=None, typedParameters=(TypedParameter(name='max', type=int),))))
+object StartSieve {
+ events = [runTo, newMax]
+}
+EventProtocol <--- StartSieve
+
+
+'SlowStart = EventProtocol(ID('SlowStart'),
+'                              typedParameters=(TypedParameter(name='queue_max', type=int),),
+'                              events=(
+'                                   Event(name=ID('setMax'), return_type=None, typedParameters=(TypedParameter(name='queue_max', type=int),)),))
+object SlowStart {
+ typedParameters = (queue_max :int,)
+ events          = [setMax]
+}
+EventProtocol <--- SlowStart
+
+
+'SlowStart_1 = Specialise(ID("SlowStart_1"),
+'                              based_on=SlowStart,
+'                              #OR: arguments=(Argument(name=queue_max, value=1),))
+'                              arguments=(Argument(value=1),))
+object SlowStart_1 {
+  based_on   = SlowStart
+  arguments = (queue_max=1)
+}
+Specialise <-- SlowStart_1
+SlowStart  <|- SlowStart_1
+
+'SimpleSieve = EventProtocol(ID('SimpleSieve'),
+'                              based_on=SlowStart_1,
+'                              events=(
+'                                   Event(name=ID('input'), return_type=None, typedParameters=(TypedParameter(name='try', type=int),)),))
+object SimpleSieve {
+ based_on   = SlowStart_1
+ events          = [input]
+}
+EventProtocol <--- SimpleSieve
+SlowStart_1   <|- SimpleSieve
+
+@enduml