哈.mdl

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

			name       	"CommentWidth"
			value      	60)
		    (object Attribute
			tool       	"Ada83"
			name       	"StopOnError"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"ErrorLimit"
			value      	30)
		    (object Attribute
			tool       	"Ada83"
			name       	"UseFileName"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"Directory"
			value      	"$ROSEADA83_SOURCE")))
	    (object Attribute
		tool       	"Ada83"
		name       	"default__Class"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Ada83"
			name       	"CodeName"
			value      	"")
		    (object Attribute
			tool       	"Ada83"
			name       	"ClassName"
			value      	"Object")
		    (object Attribute
			tool       	"Ada83"
			name       	"ClassAccess"
			value      	("ImplementationSet" 43))
		    (object Attribute
			tool       	"Ada83"
			name       	"ImplementationType"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada83"
			name       	"IsSubtype"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"PolymorphicUnit"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"HandleName"
			value      	"Handle")
		    (object Attribute
			tool       	"Ada83"
			name       	"HandleAccess"
			value      	("ImplementationSet" 45))
		    (object Attribute
			tool       	"Ada83"
			name       	"Discriminant"
			value      	"")
		    (object Attribute
			tool       	"Ada83"
			name       	"Variant"
			value      	"")
		    (object Attribute
			tool       	"Ada83"
			name       	"EnumerationLiteralPrefix"
			value      	"A_")
		    (object Attribute
			tool       	"Ada83"
			name       	"RecordFieldPrefix"
			value      	"The_")
		    (object Attribute
			tool       	"Ada83"
			name       	"GenerateAccessorOperations"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada83"
			name       	"GenerateStandardOperations"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada83"
			name       	"ImplicitParameter"
			value      	TRUE)
		    (object Attribute
			tool       	"Ada83"
			name       	"ClassParameterName"
			value      	"This")
		    (object Attribute
			tool       	"Ada83"
			name       	"DefaultConstructorKind"
			value      	("ConstructorKindSet" 199))
		    (object Attribute
			tool       	"Ada83"
			name       	"DefaultConstructorName"
			value      	"Create")
		    (object Attribute
			tool       	"Ada83"
			name       	"InlineDefaultConstructor"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"CopyConstructorKind"
			value      	("ConstructorKindSet" 199))
		    (object Attribute
			tool       	"Ada83"
			name       	"CopyConstructorName"
			value      	"Copy")
		    (object Attribute
			tool       	"Ada83"
			name       	"InlineCopyConstructor"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"DestructorName"
			value      	"Free")
		    (object Attribute
			tool       	"Ada83"
			name       	"InlineDestructor"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"ClassEqualityOperation"
			value      	"")
		    (object Attribute
			tool       	"Ada83"
			name       	"HandleEqualityOperation"
			value      	"")
		    (object Attribute
			tool       	"Ada83"
			name       	"InlineEquality"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"IsTask"
			value      	FALSE)
		    (object Attribute
			tool       	"Ada83"
			name       	"Representation"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Ada83"
			name       	"ImplementationSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada83"
				name       	"Public"
				value      	45)
			    (object Attribute
				tool       	"Ada83"
				name       	"Private"
				value      	43)
			    (object Attribute
				tool       	"Ada83"
				name       	"LimitedPrivate"
				value      	200)
			    (object Attribute
				tool       	"Ada83"
				name       	"DoNotCreate"
				value      	201)))
		    (object Attribute
			tool       	"Ada83"
			name       	"ConstructorKindSet"
			value      	(list Attribute_Set
			    (object Attribute
				tool       	"Ada83"
				name       	"Procedure"
				value      	202)
			    (object Attribute
				tool       	"Ada83"
				name       	"Function"
				value      	199)
			    (object Attribute
				tool       	"Ada83"
				name       	"DoNotCreate"
				value      	201)))))
	    (object Attribute
		tool       	"Ada83"
		name       	"default__Module-Spec"
		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       	"GenericFormalParameters"
			value      	(value Text ""))
		    (object Attribute
			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       	"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__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       	"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       	"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       	"Variant"
			value      	"")
		    (object Attribute
			tool       	"Ada83"
			name       	"Representation"
			value      	(value Text ""))))
	    (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)