XML code:

---

<ENTITY name="VERT" RULES="HORIZ">

---

XML code:

---

<ENTITY name="MENU" prefix="M" objects="0">  <!-- false=0=none, yes=true=-1, 1-n -->
	<ATTR name="popup" type="bool" />
	<ATTR name="hook" type="label" />
	<ENTITY name="SEPARATOR" private="true" close="false"></ENTITY>
	<ENTITY name="ITEM" private="true" prefix="MI" objects="none" recursive="true">
		<ATTR name="text" type="string" />
		<ATTR name="ID" type="number" />
		<ATTR name="exclude" type="words" />
	</ENTITY>
</ENTITY>

---

m68k include code:

---

STRUCTURE	oxmlEntity,0
	STRUCT	oxmlE_Node,MLN_SIZE
	APTR	oxmlE_TagName
	STRUCT	oxmlE_AttrList,MLH_SIZE
	STRUCT	oxmlE_EntitiesList,MLH_SIZE
	LABEL	oxmlE_SIZEOF

 STRUCTURE	oxmlAttr,0
	STRUCT	oxmlA_Node,MLN_SIZE
	APTR	oxmlA_Name
	APTR	oxmlA_Data
	LABEL	oxmlA_SIZEOF

---

XML code:

---

<ENTITY name="MENU" prefix="M" allowobjects="false" allow="MENU/SEPARATOR, MENU/ITEM">
	<ATTR name="popup" type="bool" />
	<ATTR name="hook" type="label" />
</ENTITY>

<ENTITY name="MENU/SEPARATOR" type="noclose"></ENTITY>

<ENTITY name="MENU/ITEM" prefix="MI" allow="MENU/SEPARATOR, MENU/ITEM" allowobjects="false">
	<ATTR name="text" type="string" />
	<ATTR name="ID" type="number" />
	<ATTR name="exclude" type="words" />
</ENTITY>

---

Zitat:

---

Zitat:

---

Im moment ist mir bis zu einem gewissen Punkt klar, wie der Compiler zu coden sei, blos dass manche elemente nicht andere elemente enthalten können, sondern nur)individuelle unterelemente.

---

Dann solltest Du die Art und Weise, wie Du den Compiler schreiben wolltest, noch mal überdenken.

---

XML code:

---

<CLASS name="MENU" prefix="M" allowobjects="false">
	<ATTR name="popup" type="bool" />
	<ATTR name="hook" type="label" />

	<!-- erzeugt eine Zeile "dc.l oxMA_separator,0",
	     "noclose" steht dafür dass dieses element nicht geschlossen werden braucht -->

	<SUB name="separator" type="noclose" /></SUB>

	<SUB name="ITEM" prefix="MI">
		<ATTR name="text" type="string" />
		<ATTR name="ID" type="number" />
		<ATTR name="exclude" type="words" />
		<SUB name="separator" type="noclose" /></SUB>

		<!-- allow recursive from allready defined entity named "ITEM" -->

		<RECUR name="ITEM" />
	</SUB>
</CLASS>

---

XML code:

---

<MENU popup="TRUE" hook="menu_hook">
	<ITEM text="Datei">
		<ITEM text="laden"></ITEM>
		<ITEM text="speichern"></ITEM>
		<SEPARATOR />
		<ITEM text="beenden"></ITEM>
	</ITEM>
	<ITEM text="Ansicht">
		<ITEM text="Vollbild"></ITEM>
		<ITEM text="klein"></ITEM>
		<ITEM text="groß"></ITEM>
	</ITEM>
	<ITEM text="Optionen">
		<ITEM text="Opt 1" id="1" exclude="2, 3"></ITEM>
		<ITEM text="Opt 2" id="2" exclude="1, 3"></ITEM>
		<ITEM text="Opt 3" id="3" exclude="1, 2"></ITEM>
	</ITEM>
</MENU>

---

asm code:

---

dc.l	OX_MENU,.menu_001
		dc.l	TAG_END

.menu_001	dc.l	oxMA_popup,TRUE
		dc.l	oxMA_hook,menu_hook
		dc.l	oxMA_item,.item_001
		dc.l	oxMA_item,.item_002
		dc.l	oxMA_item,.item_003
		dc.l	TAG_END

.item_001	dc.l	oxMIA_text,.mi_text_001
		dc.l	oxMIA_item,.item_001_001
		dc.l	oxMIA_item,.item_001_002
		dc.l	oxMIA_separator,0
		dc.l	oxMIA_item,.item_001_002
		dc.l	TAG_END

.item_002	dc.l	oxMIA_text,.mi_text_002

		...

		dc.l	TAG_END

.item_003	...

		dc.l	oxMIA_item,.item_003_001

		...

		dc.l	TAG_END

.item_003_001	dc.l	oxMIA_text,.mi_text_00x
		dc.l	oxMIA_exclude,.mi_exclude_001
		dc.l	TAG_END

.mi_exclude	dc.w	2,3
		dc.w	0	; exclude list end

.mi_text_001	dc.b	"Datei",0
.mi_text_002	dc.b	"Ansicht"

		...

.mi_text_00x	dc.b	"Opt 1",0

		...

		even

---

Zitat:

---

Zitat:

---

Die Namen der Attribute und Klassen im Ziel-Code sind einfach das was man im XML code findet plus ein prefix. Das ist einfach. Man muss aber wissen zB wissen ob es sich bei einem Parameter um einen String handelt.

---

Ja, und genau diese Informationen musst Du liefern, wenn Dir jemand so einen Compiler schreiben soll.

---

XML code:

---

<CLASS name="WINDOW" attrprefix="W">
    <ATTRIBUTE name="name" type="string" />
</CLASS>

---

XML code:

---

<WINDOW title="Memory Monitor" undermouse="TRUE" layout="TRUE" RELPTR="g_pic_window">
	<VERT>
		<TITLE text="bitplane" />
		<FRAME style="bevel" hprop="TRUE" vprop="TRUE">
			<PLANEVIEW RELPTR="g_picview" />
		</FRAME>
		<HORIZ spaceprop="FALSE">
			<CHECK senschar="z" hook="zoom_hook" RELPTR="g_zoom_check" />
			<LABEL text="zoom" linechar="1" />
		</HORIZ>
	</VERT>
</WINDOW>

---

M68k Assmbler code:

---

dc.l	OX_WINDOW,.window_001
		dc.l	TAG_END

.window_001	dc.l	oxWA_title,.wa_title_001
		dc.l	oxWA_undermouse,TRUE
		dc.l	oxWA_layout,TRUE
		dc.l	OX_RELPTR,g_pic_window
		dc.l	OX_VERT,.vert_001
		dc.l	TAG_END

.wa_title_001	dc.b	"Memory Monitor",0
		even

.vert_001	dc.l	OX_TITLE,.title_001
		dc.l	OX_FRAME,.frame_001
		dc.l	OX_HORIZ,.horiz_001
		dc.l	TAG_END

.title_001	dc.l	oxTA_text,.ta_title_001
		dc.l	TAG_END

.ta_title_001	dc.b	"bitplane",0
		even

.frame_001	dc.l	oxFrA_framestyle,oxFr_BEVEL
		dc.l	oxFrA_hprop,TRUE
		dc.l	oxFrA_vprop,TRUE
		dc.l	planeview,.planeview_001
		dc.l	TAG_END

.planeview_001	dc.l	OX_RELPTR,g_picview
		dc.l	TAG_END

.horiz_001	dc.l	oxGA_spaceprop,FALSE
		dc.l	OX_CHECK,.check_001
		dc.l	OX_LABEL,.label_001
		dc.l	TAG_END

.check_001	dc.l	oxChkA_senschar,"z"
		dc.l	oxChkA_hook,zoom_hook
		dc.l	OX_RELPTR,g_zoom_check
		dc.l	TAG_END

.label_001	dc.l	oxLabA_text,.laba_text_001
		dc.l	oxLabA_linechar,1
		dc.l	TAG_END

.laba_text_001	dc.b	"zoom",0
		even

---

Hat jemand Lust so einen Compiler zu schreiben?

--
Sam mini os4.1 upd. 2 / e-uae 39bb2 / A4000D 3.0 & 3.9 2mbchip 8mbfast Ariadne_II ide DVD und HD / A500 3.1 (mkick) adide 50mb / Athlon ii X2 Ubuntu Linux

[ Dieser Beitrag wurde von AGSzabo am 01.06.2011 um 18:24 Uhr geändert. ]