Из .xml файла достать исходник

[FanRa3]

Всем привет. Я пишу скрипты на языке программирования "FastScript". Он полностью написан на Object Pascal. У меня есть .fsc файл. Если его скомпилировать, то получится .xml файл. Как из этого .xml файла достать исходник? Ато ручками долго приходится. Подскажите, как сделать парсер(декомпилятор)
вот пример:

Исходный код:
[/CODE]
var
i: integer;

procedure OnCreate;
begin
i := round(Random*10);
end;

procedure OnDestroy;
begin
i := 0
end;

begin
writelogln(inttostr(i));
end.
[/CODE]

Скомпилированный код:

<?xml version="1.0"?>
<program>
<var pos="2:1">
<ident text="i" pos="2:2"/>
<type text="integer" pos="2:11"/>
</var>
<procedure pos="4:1">
<name text="OnCreate" pos="4:19"/>
<compoundstmt pos="5:1">
<assignstmt pos="6:5">
<dsgn pos="6:5">
<node text="i" pos="6:6"/>
</dsgn>
<expr pos="6:10" pos1="6:26">
<dsgn pos="6:10">
<node text="round" pos="6:15"/>
<expr pos="6:16" pos1="6:25">
<dsgn pos="6:16">
<node text="Random" pos="6:22"/>
</dsgn>
<op text="*" pos="6:23"/>
<number text="10" pos="6:25"/>
</expr>
</dsgn>
</expr>
</assignstmt>
</compoundstmt>
</procedure>
<procedure pos="9:1">
<name text="OnDestroy" pos="9:20"/>
<compoundstmt pos="10:1">
<assignstmt pos="11:1">
<dsgn pos="11:1">
<node text="i" pos="11:2"/>
</dsgn>
<expr pos="11:6" pos1="11:7">
<number text="0" pos="11:7"/>
</expr>
</assignstmt>
</compoundstmt>
</procedure>
<compoundstmt pos="14:1">
<callstmt pos="15:1">
<dsgn pos="15:1">
<node text="writelogln" pos="15:11"/>
<expr pos="15:12" pos1="15:23">
<dsgn pos="15:12">
<node text="inttostr" pos="15:20"/>
<expr pos="15:21" pos1="15:22">
<dsgn pos="15:21">
<node text="i" pos="15:22"/>
</dsgn>
</expr>
</dsgn>
</expr>
</dsgn>
</callstmt>
</compoundstmt>
<types/>
</program>FA35903AA8D023A4

Заранее вам спасибо. За парсер могу подкинуть лавэ
Пишу через программу WickedPatcher(_http://saur.x33.ru)

[Aristarh Dark]

Ну просто же все. Что как ребенок-то. Пиши, договоримся...
Контакты:
icq: 218413697
e-mail: aristarh.dark@gmail.com
---
С уважением
Иусов Сергей Николаевич aka Aristarh Dark

[D@rkD@iver]

ICQ: 412842920
mail: darkdaiver777@gmail.com

[Black Fregat]

Если еще актуально, напишите на black.fregat@gmail.com

[vopiso]

black fregat, pochemu ti ne otvechaesh po ukazannomu emailu?

[reman]

мне тоже интересен такой редактор (готовая программа)
где можно его взять?