哈.mdl

来自「一个从UML的状态图的MDL文件获取测试用例的源码」· MDL 代码 · 共 2,350 行 · 第 1/5 页

		    (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       	"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       	"default__Subsystem"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Ada83"
			name       	"Directory"
			value      	"AUTO GENERATE")))
	    (object Attribute
		tool       	"Ada83"
		name       	"HiddenTool"
		value      	FALSE)
	    (object Attribute
		tool       	"Ada95"
		name       	"propertyId"
		value      	"838326200")
	    (object Attribute
		tool       	"Ada95"
		name       	"default__Project"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Ada95"
			name       	"SpecFileExtension"
			value      	"1.ada")
		    (object Attribute
			tool       	"Ada95"
			name       	"SpecFileBackupExtension"
			value      	"1.ad~")
		    (object Attribute
			tool       	"Ada95"
			name       	"SpecFileTemporaryExtension"
			value      	"1.ad#")
		    (object Attribute
			tool       	"Ada95"
			name       	"BodyFileExtension"
			value      	"2.ada")
		    (object Attribute
			tool       	"Ada95"
			name       	"BodyFileBackupExtension"
			value      	"2.ad~")
		    (object Attribute
			tool       	"Ada95"
			name       	"BodyFileTemporaryExtension"
			value      	"2.ad#")
		    (object Attribute
			tool       	"Ada95"
			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"