oplt.mdl

来自「在手机操作系统symbina上使用的一个脚本扩展语言的代码实现,可以参考用于自己」· MDL 代码 · 共 2,106 行 · 第 1/5 页

(object Petal
    version    	37)

(object Design "<Top Level>"
    is_unit    	TRUE
    is_loaded  	TRUE
    defaults   	(object defaults
	rightMargin 	0.250000
	leftMargin 	0.250000
	topMargin  	0.250000
	bottomMargin 	0.500000
	pageOverlap 	0.250000
	clipIconLabels 	TRUE
	autoResize 	FALSE
	snapToGrid 	TRUE
	gridX      	16
	gridY      	16
	defaultFont 	(object Font
	    size       	10
	    face       	"Arial"
	    bold       	FALSE
	    italics    	FALSE
	    underline  	FALSE
	    strike     	FALSE
	    color      	0
	    default_color 	TRUE)
	showMessageNum 	3
	showClassOfObject 	TRUE
	notation   	"Booch")
    root_category 	(object Class_Category "<Top Level>"
	exportControl 	"Public"
	global     	TRUE
	subsystem  	"<Top Level>"
	logical_models 	(list unit_reference_list
	    (object Class_Category "Symbols"
		exportControl 	"Public"
		logical_models 	(list unit_reference_list
		    (object Class "EArgument"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"Variable")
			    (object Inheritance_Relationship
				supplier   	"COplDeclarationSymbol")))
		    (object Class "ELabel"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplDeclarationSymbol")))
		    (object Class "Variable")
		    (object Class "COplAutomaticSymbol"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"Variable")
			    (object Inheritance_Relationship
				supplier   	"COplDeclarationSymbol"))
			class_attributes 	(list class_attribute_list
			    (object ClassAttribute "iArraySize")
			    (object ClassAttribute "iStringSize")))
		    (object Class "EExternal"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"Variable")
			    (object Inheritance_Relationship
				supplier   	"COplDeclarationSymbol")))
		    (object Class "ELocal"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplAutomaticSymbol")))
		    (object Class "EGlobal"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplAutomaticSymbol")))
		    (object Class "COplCallSymbol"
			fields     	(list has_relationship_list
			    (object Has_Relationship
				label      	"iSignature"
				supplier   	"TOplSignature"))
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplDeclarationSymbol"))
			class_attributes 	(list class_attribute_list
			    (object ClassAttribute "iSignature")))
		    (object Class "EProcDecl"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplCallSymbol")))
		    (object Class "EOpxFunctionDecl"
			fields     	(list has_relationship_list
			    (object Has_Relationship
				supplier   	"TOpxId"))
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplCallSymbol")))
		    (object Class "ExternalDeclaration")
		    (object Class "ProcedureDeclaration")
		    (object Class "TOpxId")
		    (object Class "COplReferenceSymbol"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplSymbol"))
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				label      	"iReference"
				supplier   	"COplDeclarationSymbol"))
			operations 	(list Operations
			    (object Operation "ov Name"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "ov Token"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "ov Type"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)))
		    (object Class "COplDeclarationSymbol"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplSymbol"))
			operations 	(list Operations
			    (object Operation "ov Name"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "ov Type"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "ov Token"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0))
			class_attributes 	(list class_attribute_list
			    (object ClassAttribute "iName")
			    (object ClassAttribute "iType")
			    (object ClassAttribute "iToken")
			    (object ClassAttribute "iAddress")))
		    (object Class "COplSymbol"
			used_nodes 	(list uses_relationship_list
			    (object Uses_Relationship
				supplier   	"COplSymbol::TClass"))
			operations 	(list Operations
			    (object Operation "pv Name"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "pv Type"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "pv Token"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0))
			class_attributes 	(list class_attribute_list
			    (object ClassAttribute "iAddress")
			    (object ClassAttribute "iClass")))
		    (object Class "EProcRef"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplReferenceSymbol")))
		    (object Class "EExternalRef"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplReferenceSymbol")))
		    (object Class "COplSymbol::TClass")
		    (object Class "COplConstantSymbol"
			fields     	(list has_relationship_list
			    (object Has_Relationship
				supplier   	"TOplConstant"))
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplDeclarationSymbol")))
		    (object Class "TOplConstant")
		    (object Class "EConstant"
			superclasses 	(list inheritance_relationship_list
			    (object Inheritance_Relationship
				supplier   	"COplConstantSymbol")))
		    (object Class_Category "Symbol Lists"
			exportControl 	"Public"
			logical_models 	(list unit_reference_list
			    (object Class "CLocalDecls")
			    (object Class "CArrayFixFlat<2>"))
			logical_presentations 	(list unit_reference_list
			    (object ClassDiagram "Main"
				title      	"Main"
				zoom       	100
				max_height 	28350
				max_width  	21600
				origin_x   	0
				origin_y   	0
				items      	(list diagram_item_list)))))
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Main"
			title      	"Main"
			zoom       	85
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list
			    (object ClassView "Class" "EArgument" @1
				location   	(2016, 2144)
				label      	(object ItemLabel
				    Parent_View 	@1
				    location   	(1912, 2060)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"EArgument"))
			    (object ClassView "Class" "ELabel" @2
				location   	(736, 2160)
				label      	(object ItemLabel
				    Parent_View 	@2
				    location   	(632, 2076)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"ELabel"))
			    (object ClassView "Class" "COplAutomaticSymbol" @3
				location   	(1552, 1776)
				label      	(object ItemLabel
				    Parent_View 	@3
				    location   	(1412, 1667)
				    nlines     	2
				    max_width  	327
				    justify    	0
				    label      	"COplAutomaticSymbol")
				compartment 	(object Compartment
				    Parent_View 	@3
				    location   	(1457, 1779)
				    anchor     	2
				    nlines     	2
				    max_width  	235
				    justify    	0
				    compartmentItems 	(list Compartment
					"iArraySize"
					"iStringSize"))
				width      	475
				height     	325)
			    (object ClassView "Class" "EExternal" @4
				location   	(2400, 2128)
				label      	(object ItemLabel
				    Parent_View 	@4
				    location   	(2296, 2044)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"EExternal"))
			    (object ClassView "Class" "ELocal" @5
				location   	(1632, 2160)
				label      	(object ItemLabel
				    Parent_View 	@5
				    location   	(1528, 2076)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"ELocal"))
			    (object ClassView "Class" "EGlobal" @6
				location   	(1232, 2160)
				label      	(object ItemLabel
				    Parent_View 	@6
				    location   	(1128, 2076)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"EGlobal"))
			    (object ClassView "Class" "COplCallSymbol" @7
				location   	(2944, 1744)
				label      	(object ItemLabel
				    Parent_View 	@7
				    location   	(2840, 1660)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"COplCallSymbol"))
			    (object InheritView "" @8
				client     	@5
				supplier   	@3
				line_style 	0)
			    (object ClassView "Class" "TOplSignature" @9
				location   	(3648, 1744)
				label      	(object ItemLabel
				    Parent_View 	@9
				    location   	(3544, 1660)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"TOplSignature"))
			    (object ClassView "Class" "COplReferenceSymbol" @10
				location   	(2496, 752)
				label      	(object ItemLabel
				    Parent_View 	@10
				    location   	(2330, 614)
				    nlines     	2
				    max_width  	392
				    justify    	0
				    label      	"COplReferenceSymbol")
				compartment 	(object Compartment
				    Parent_View 	@10
				    location   	(2407, 726)
				    anchor     	2
				    nlines     	3
				    max_width  	235
				    justify    	0
				    compartmentItems 	(list Compartment
					"ov Name( )"
					"ov Token( )"
					"ov Type( )"))
				width      	569
				height     	406)
			    (object ClassView "Class" "COplDeclarationSymbol" @11
				location   	(1360, 768)
				label      	(object ItemLabel
				    Parent_View 	@11
				    location   	(1173, 533)
				    nlines     	2
				    max_width  	444
				    justify    	0
				    label      	"COplDeclarationSymbol")
				compartment 	(object Compartment
				    Parent_View 	@11
				    location   	(1277, 597)
				    anchor     	2
				    nlines     	7
				    max_width  	235
				    justify    	0
				    compartmentItems 	(list Compartment
					"iName"
					"iType"
					"iToken"
					"iAddress"
					"ov Name( )"
					"ov Type( )"
					"ov Token( )"))
				width      	644
				height     	687)
			    (object InheritView "" @12
				client     	@2
				supplier   	@11
				line_style 	0)
			    (object InheritView "" @13
				client     	@3
				supplier   	@11
				line_style 	0)
			    (object InheritView "" @14
				client     	@1
				supplier   	@11
				line_style 	0)
			    (object InheritView "" @15
				client     	@4
				supplier   	@11
				line_style 	0)
			    (object InheritView "" @16
				client     	@7
				supplier   	@11
				line_style 	0)
			    (object InheritView "" @17
				client     	@6
				supplier   	@3
				line_style 	0)
			    (object UsesView "iReference" @18
				label      	(object ItemLabel
				    Parent_View 	@18
				    location   	(1926, 759)
				    anchor_loc 	1
				    nlines     	1
				    max_width  	450
				    justify    	0
				    label      	"iReference")
				client     	@10
				supplier   	@11
				line_style 	0)
			    (object ClassView "Class" "COplSymbol" @19
				location   	(1808, 256)
				label      	(object ItemLabel
				    Parent_View 	@19
				    location   	(1624, 105)
				    nlines     	2
				    max_width  	435
				    justify    	0
				    label      	"COplSymbol")
				compartment 	(object Compartment
				    Parent_View 	@19
				    location   	(1723, 169)
				    anchor     	2
				    nlines     	5
				    max_width  	235
				    justify    	0
				    compartmentItems 	(list Compartment
					"pv Name( )"
					"pv Type( )"
					"pv Token( )"
					"iAddress"
					"iClass"))
				width      	631
				height     	444)
			    (object InheritView "" @20
				client     	@11
				supplier   	@19
				line_style 	0)
			    (object InheritView "" @21
				client     	@10
				supplier   	@19
				line_style 	0)
			    (object ClassView "Class" "EProcDecl" @22
				location   	(3216, 2096)
				label      	(object ItemLabel
				    Parent_View 	@22
				    location   	(3112, 2012)
				    nlines     	2
				    max_width  	240
				    justify    	0
				    label      	"EProcDecl"))
			    (object ClassView "Class" "EOpxFunctionDecl" @23
				location   	(2800, 2112)
				label      	(object ItemLabel
				    Parent_View 	@23
				    location   	(2696, 2028)
				    nlines     	2