oldbook.mdl

来自「UML英文材料」· MDL 代码 · 共 2,326 行 · 第 1/5 页

MDL
2,326 行
字号
12345
			name       	"CreateMissingDirectories"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"UseColonNotation"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateBodies"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateAccessorOperations"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateStandardOperations"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"DefaultCodeBody"
			value      	"[statement]")
		    (object Attribute
			tool       	"Ada95"
			name       	"ImplicitParameter"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"CommentWidth"
			value      	60)
		    (object Attribute
			tool       	"Ada95"
			name       	"StopOnError"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"ErrorLimit"
			value      	30)
		    (object Attribute
			tool       	"Ada95"
			name       	"UseFileName"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"Directory"
			value      	"$ROSEADA95_SOURCE")))
	    (object Attribute
		tool       	"Ada95"
		name       	"default__Class"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Ada95"
			name       	"CodeName"
			value      	"")
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeName"
			value      	"Object")
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeVisibility"
			value      	("TypeVisibilitySet" 43))
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeImplementation"
			value      	("TypeImplementationSet" 208))
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeControl"
			value      	("TypeControlSet" 225))
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeControlName"
			value      	"Controlled_${type}")
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeDefinition"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"RecordImplementation"
			value      	("RecordImplementationSet" 209))
		    (object Attribute
			tool       	"Ada95"
			name       	"RecordKindPackageName"
			value      	"${class}_Record_Kinds")
		    (object Attribute
			tool       	"Ada95"
			name       	"IsLimited"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"IsSubtype"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateAccessType"
			value      	("GenerateAccessTypeSet" 230))
		    (object Attribute
			tool       	"Ada95"
			name       	"AccessTypeName"
			value      	"Handle")
		    (object Attribute
			tool       	"Ada95"
			name       	"AccessTypeVisibility"
			value      	("TypeVisibilitySet" 45))
		    (object Attribute
			tool       	"Ada95"
			name       	"AccessTypeDefinition"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"AccessClassWide"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"MaybeAliased"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"ParameterizedImplementation"
			value      	("ParameterizedImplementationSet" 11))
		    (object Attribute
			tool       	"Ada95"
			name       	"ParentClassName"
			value      	"Superclass")
		    (object Attribute
			tool       	"Ada95"
			name       	"EnumerationLiteralPrefix"
			value      	"A_")
		    (object Attribute
			tool       	"Ada95"
			name       	"RecordFieldPrefix"
			value      	"The_")
		    (object Attribute
			tool       	"Ada95"
			name       	"ArrayOfTypeName"
			value      	"Array_Of_${type}")
		    (object Attribute
			tool       	"Ada95"
			name       	"AccessArrayOfTypeName"
			value      	"Access_Array_Of_${type}")
		    (object Attribute
			tool       	"Ada95"
			name       	"ArrayOfAccessTypeName"
			value      	"Array_Of_${access_type}")
		    (object Attribute
			tool       	"Ada95"
			name       	"AccessArrayOfAccessTypeName"
			value      	"Access_Array_Of_${access_type}")
		    (object Attribute
			tool       	"Ada95"
			name       	"ArrayIndexDefinition"
			value      	"Positive range <>")
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateAccessorOperations"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateStandardOperations"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"ImplicitParameter"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"ImplicitParameterName"
			value      	"This")
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateDefaultConstructor"
			value      	("SubprogramKindSet" 199))
		    (object Attribute
			tool       	"Ada95"
			name       	"DefaultConstructorName"
			value      	"Create")
		    (object Attribute
			tool       	"Ada95"
			name       	"InlineDefaultConstructor"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateCopyConstructor"
			value      	("SubprogramKindSet" 199))
		    (object Attribute
			tool       	"Ada95"
			name       	"CopyConstructorName"
			value      	"Copy")
		    (object Attribute
			tool       	"Ada95"
			name       	"InlineCopyConstructor"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateDestructor"
			value      	("ProcedureKindSet" 202))
		    (object Attribute
			tool       	"Ada95"
			name       	"DestructorName"
			value      	"Free")
		    (object Attribute
			tool       	"Ada95"
			name       	"InlineDestructor"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateTypeEquality"
			value      	("FunctionKindSet" 201))
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeEqualityName"
			value      	"${quote}=${quote}")
		    (object Attribute
			tool       	"Ada95"
			name       	"InlineEquality"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"Representation"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeImplementationSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"Tagged"
				value      	208)
			    (object Attribute
				tool       	"Ada95"
				name       	"Record"
				value      	210)
			    (object Attribute
				tool       	"Ada95"
				name       	"Mixin"
				value      	211)
			    (object Attribute
				tool       	"Ada95"
				name       	"Protected"
				value      	44)
			    (object Attribute
				tool       	"Ada95"
				name       	"Task"
				value      	212)))
		    (object Attribute
			tool       	"Ada95"
			name       	"RecordImplementationSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"SingleType"
				value      	209)
			    (object Attribute
				tool       	"Ada95"
				name       	"MultipleTypes"
				value      	213)))
		    (object Attribute
			tool       	"Ada95"
			name       	"ParameterizedImplementationSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"Generic"
				value      	11)
			    (object Attribute
				tool       	"Ada95"
				name       	"Unconstrained"
				value      	214)))
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeVisibilitySet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"Public"
				value      	45)
			    (object Attribute
				tool       	"Ada95"
				name       	"Private"
				value      	43)))
		    (object Attribute
			tool       	"Ada95"
			name       	"SubprogramKindSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"Procedure"
				value      	202)
			    (object Attribute
				tool       	"Ada95"
				name       	"Function"
				value      	199)
			    (object Attribute
				tool       	"Ada95"
				name       	"DoNotCreate"
				value      	201)))
		    (object Attribute
			tool       	"Ada95"
			name       	"ProcedureKindSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"Procedure"
				value      	202)
			    (object Attribute
				tool       	"Ada95"
				name       	"DoNotCreate"
				value      	201)))
		    (object Attribute
			tool       	"Ada95"
			name       	"FunctionKindSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"Function"
				value      	199)
			    (object Attribute
				tool       	"Ada95"
				name       	"DoNotCreate"
				value      	201)))
		    (object Attribute
			tool       	"Ada95"
			name       	"TypeControlSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"None"
				value      	225)
			    (object Attribute
				tool       	"Ada95"
				name       	"InitializationOnly"
				value      	226)
			    (object Attribute
				tool       	"Ada95"
				name       	"AssignmentFinalizationOnly"
				value      	227)
			    (object Attribute
				tool       	"Ada95"
				name       	"All"
				value      	228)))
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateAccessTypeSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada95"
				name       	"Always"
				value      	229)
			    (object Attribute
				tool       	"Ada95"
				name       	"Auto"
				value      	230)))))
	    (object Attribute
		tool       	"Ada95"
		name       	"default__Module-Spec"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Ada95"
			name       	"Generate"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"CopyrightNotice"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"FileName"
			value      	"")
		    (object Attribute
			tool       	"Ada95"
			name       	"ReturnType"
			value      	"")
		    (object Attribute
			tool       	"Ada95"
			name       	"GenericFormalParameters"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"AdditionalWiths"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"IsPrivate"
			value      	FALSE)))
	    (object Attribute
		tool       	"Ada95"
		name       	"default__Module-Body"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Ada95"
			name       	"Generate"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"CopyrightNotice"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"FileName"
			value      	"")
		    (object Attribute
			tool       	"Ada95"
			name       	"ReturnType"
			value      	"")
		    (object Attribute
			tool       	"Ada95"
			name       	"AdditionalWiths"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"IsSubunit"
			value      	FALSE)))
	    (object Attribute
		tool       	"Ada95"
		name       	"default__Operation"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Ada95"
			name       	"CodeName"
			value      	"")
		    (object Attribute
			tool       	"Ada95"
			name       	"SubprogramImplementation"
			value      	("SubprogramImplementationSet" 2))
		    (object Attribute
			tool       	"Ada95"
			name       	"Renames"
			value      	"")
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateOverriding"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada95"
			name       	"ImplicitParameterMode"
			value      	("ParameterModeSet" 203))
		    (object Attribute
			tool       	"Ada95"
			name       	"ImplicitParameterClassWide"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"GenerateAccessOperation"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"Inline"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada95"
			name       	"EntryCode"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"ExitCode"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada95"
			name       	"InitialCodeBody"
12345

oldbook.mdl - 源码说明

本页面展示了「UML英文材料」中的 oldbook.mdl 源码文件，采用 MDL 编程语言编写，共 2,326 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与UML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?