http://trupik.aspweb.cz/downloads/xmltomls.rar
Ke stažení je celá solution i s přeloženým exáčem.
Snad to funguje, jen předem varuju - je to v C#, takže na linuxu nevim nevim.
volání xmltomls file.xml
takhle to vypadá při volání na jeden vzorový vstup
Kód: Vybrat vše
XML -> MLS
----------
Global scope:
types:
[1..10] /T0/
STRING /T1/
array [1..10] of STRING /T2/
BOOLEAN /T3/
INTEGER /T4/
REAL /T5/
labels:
label: 1
label: 2
label: 3
constants:
const C1 = 20 <INTEGER>
const FALSE = 0 <BOOLEAN>
const TRUE = 1 <BOOLEAN>
variables:
(global var): B : BOOLEAN
(global var): I : INTEGER
(global var): J : INTEGER
(global var): POLE : array [1..10] of STRING
(global var): R : REAL
(global var): S : STRING
functions:
function FNC1(var PARAM1: INTEGER; PARAM2: REAL): STRING
variables:
(parameter by reference): PARAM1 : INTEGER;
(local var): PARAM2 : REAL
function READI: INTEGER
function READR: REAL
function READS: STRING
procedures:
procedure PROC1(PARAM1: INTEGER)
labels:
label: 10
variables:
(local var): LOKAL : INTEGER
(local var): PARAM1 : INTEGER
procedure WRITEI(P: INTEGER)
procedure WRITELN
procedure WRITER(P: REAL)
procedure WRITES(P: STRING)