staticfactory.mdl
来自「java语言中简单工厂模式的例子」· MDL 代码 · 共 2,327 行 · 第 1/5 页
MDL
2,327 行
tool "Ada83"
name "AdditionalWiths"
value (value Text ""))))
(object Attribute
tool "Ada83"
name "default__Module-Body"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Generate"
value TRUE)
(object Attribute
tool "Ada83"
name "CopyrightNotice"
value (value Text ""))
(object Attribute
tool "Ada83"
name "FileName"
value "")
(object Attribute
tool "Ada83"
name "ReturnType"
value "")
(object Attribute
tool "Ada83"
name "AdditionalWiths"
value (value Text ""))
(object Attribute
tool "Ada83"
name "IsSubunit"
value FALSE)))
(object Attribute
tool "Ada83"
name "default__Operation"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "CodeName"
value "")
(object Attribute
tool "Ada83"
name "SubprogramImplementation"
value ("SubprogramImplementationSet" 2))
(object Attribute
tool "Ada83"
name "Renames"
value "")
(object Attribute
tool "Ada83"
name "ClassParameterMode"
value ("ParameterModeSet" 203))
(object Attribute
tool "Ada83"
name "Inline"
value FALSE)
(object Attribute
tool "Ada83"
name "EntryCode"
value (value Text ""))
(object Attribute
tool "Ada83"
name "ExitCode"
value (value Text ""))
(object Attribute
tool "Ada83"
name "InitialCodeBody"
value "${default}")
(object Attribute
tool "Ada83"
name "Representation"
value (value Text ""))
(object Attribute
tool "Ada83"
name "SubprogramImplementationSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Spec"
value 224)
(object Attribute
tool "Ada83"
name "Body"
value 2)
(object Attribute
tool "Ada83"
name "Renaming"
value 222)
(object Attribute
tool "Ada83"
name "Separate"
value 223)))
(object Attribute
tool "Ada83"
name "ParameterModeSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Default"
value 232)
(object Attribute
tool "Ada83"
name "In"
value 204)
(object Attribute
tool "Ada83"
name "Out"
value 205)
(object Attribute
tool "Ada83"
name "InOut"
value 203)
(object Attribute
tool "Ada83"
name "FunctionReturn"
value 206)
(object Attribute
tool "Ada83"
name "DoNotCreate"
value 201)))))
(object Attribute
tool "Ada83"
name "default__Param"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Mode"
value ("ParameterModeSet" 232))
(object Attribute
tool "Ada83"
name "ParameterModeSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Default"
value 232)
(object Attribute
tool "Ada83"
name "In"
value 204)
(object Attribute
tool "Ada83"
name "Out"
value 205)
(object Attribute
tool "Ada83"
name "InOut"
value 203)))))
(object Attribute
tool "Ada83"
name "default__Has"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "CodeName"
value "")
(object Attribute
tool "Ada83"
name "NameIfUnlabeled"
value "The_${supplier}")
(object Attribute
tool "Ada83"
name "DataMemberName"
value "${relationship}")
(object Attribute
tool "Ada83"
name "GetName"
value "Get_${relationship}")
(object Attribute
tool "Ada83"
name "InlineGet"
value TRUE)
(object Attribute
tool "Ada83"
name "SetName"
value "Set_${relationship}")
(object Attribute
tool "Ada83"
name "InlineSet"
value TRUE)
(object Attribute
tool "Ada83"
name "IsConstant"
value FALSE)
(object Attribute
tool "Ada83"
name "InitialValue"
value "")
(object Attribute
tool "Ada83"
name "Declare"
value ("DeclareSet" 234))
(object Attribute
tool "Ada83"
name "Variant"
value "")
(object Attribute
tool "Ada83"
name "ContainerGeneric"
value "List")
(object Attribute
tool "Ada83"
name "ContainerType"
value "")
(object Attribute
tool "Ada83"
name "ContainerDeclarations"
value (value Text ""))
(object Attribute
tool "Ada83"
name "SelectorName"
value "")
(object Attribute
tool "Ada83"
name "SelectorType"
value "")
(object Attribute
tool "Ada83"
name "DeclareSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Before"
value 233)
(object Attribute
tool "Ada83"
name "After"
value 234)))))
(object Attribute
tool "Ada83"
name "default__Attribute"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "CodeName"
value "")
(object Attribute
tool "Ada83"
name "DataMemberName"
value "${attribute}")
(object Attribute
tool "Ada83"
name "GetName"
value "Get_${attribute}")
(object Attribute
tool "Ada83"
name "InlineGet"
value TRUE)
(object Attribute
tool "Ada83"
name "SetName"
value "Set_${attribute}")
(object Attribute
tool "Ada83"
name "InlineSet"
value TRUE)
(object Attribute
tool "Ada83"
name "IsConstant"
value FALSE)
(object Attribute
tool "Ada83"
name "InitialValue"
value "")
(object Attribute
tool "Ada83"
name "Declare"
value ("DeclareSet" 234))
(object Attribute
tool "Ada83"
name "Variant"
value "")
(object Attribute
tool "Ada83"
name "Representation"
value (value Text ""))
(object Attribute
tool "Ada83"
name "DeclareSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Before"
value 233)
(object Attribute
tool "Ada83"
name "After"
value 234)))))
(object Attribute
tool "Ada83"
name "default__Association"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "NameIfUnlabeled"
value "The_${targetClass}")
(object Attribute
tool "Ada83"
name "GetName"
value "Get_${association}")
(object Attribute
tool "Ada83"
name "InlineGet"
value FALSE)
(object Attribute
tool "Ada83"
name "SetName"
value "Set_${association}")
(object Attribute
tool "Ada83"
name "InlineSet"
value FALSE)
(object Attribute
tool "Ada83"
name "GenerateAssociate"
value ("ProcedureKindSet" 202))
(object Attribute
tool "Ada83"
name "AssociateName"
value "Associate")
(object Attribute
tool "Ada83"
name "InlineAssociate"
value FALSE)
(object Attribute
tool "Ada83"
name "GenerateDissociate"
value ("ProcedureKindSet" 202))
(object Attribute
tool "Ada83"
name "DissociateName"
value "Dissociate")
(object Attribute
tool "Ada83"
name "InlineDissociate"
value FALSE)
(object Attribute
tool "Ada83"
name "ProcedureKindSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Procedure"
value 202)
(object Attribute
tool "Ada83"
name "DoNotCreate"
value 201)))
(object Attribute
tool "Ada83"
name "FunctionKindSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Function"
value 199)
(object Attribute
tool "Ada83"
name "DoNotCreate"
value 201)))))
(object Attribute
tool "Ada83"
name "default__Role"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "CodeName"
value "")
(object Attribute
tool "Ada83"
name "NameIfUnlabeled"
value "The_${targetClass}")
(object Attribute
tool "Ada83"
name "DataMemberName"
value "${target}")
(object Attribute
tool "Ada83"
name "GetName"
value "Get_${target}")
(object Attribute
tool "Ada83"
name "InlineGet"
value TRUE)
(object Attribute
tool "Ada83"
name "SetName"
value "Set_${target}")
(object Attribute
tool "Ada83"
name "InlineSet"
value TRUE)
(object Attribute
tool "Ada83"
name "IsConstant"
value FALSE)
(object Attribute
tool "Ada83"
name "InitialValue"
value "")
(object Attribute
tool "Ada83"
name "Declare"
value ("DeclareSet" 234))
(object Attribute
tool "Ada83"
name "Representation"
value (value Text ""))
(object Attribute
tool "Ada83"
name "ContainerGeneric"
value "List")
(object Attribute
tool "Ada83"
name "ContainerType"
value "")
(object Attribute
tool "Ada83"
name "ContainerDeclarations"
value (value Text ""))
(object Attribute
tool "Ada83"
name "SelectorName"
value "")
(object Attribute
tool "Ada83"
name "SelectorType"
value "")
(object Attribute
tool "Ada83"
name "ProcedureKindSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Procedure"
value 202)
(object Attribute
tool "Ada83"
name "DoNotCreate"
value 201)))
(object Attribute
tool "Ada83"
name "DeclareSet"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Before"
value 233)
(object Attribute
tool "Ada83"
name "After"
value 234)))))
(object Attribute
tool "Ada83"
name "default__Subsystem"
value (list Attribute_Set
(object Attribute
tool "Ada83"
name "Directory"
value "AUTO GENERATE")))
(object Attribute
tool "Ada83"
name "HiddenTool"
v
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?