Kód: Vybrat vše
program du4test9;
const
c1=-20;
c2='qwe';
c3=false;
c4=+1.2e3;
procedure proc2;
const
c2=c1;
begin
end;
begin
end.
out soubor:
Kód: Vybrat vše
Everything is OK
Kód: Vybrat vše
<?xml version="1.0" encoding="UTF-8"?>
<symbol_tables>
<types>
<BOOLEAN type="T0"/>
<INTEGER type="T1"/>
<STRING type="T2"/>
<REAL type="T3"/>
</types>
<labels>
</labels>
<symbols>
<SKIND_TYPE name="BOOLEAN" type="T0"/>
<SKIND_CONST name="C1" value="-20" type="T1"/>
<SKIND_CONST name="C2" value="qwe" type="T2"/>
<SKIND_CONST name="C3" value="0" type="T0"/>
<SKIND_CONST name="C4" value="1200" type="T3"/>
<SKIND_CONST name="FALSE" value="0" type="T0"/>
<SKIND_TYPE name="INTEGER" type="T1"/>
<SKIND_PROCEDURE name="PROC2">
<parameters>
</parameters>
<labels>
</labels>
<symbols>
<SKIND_CONST name="C2" value="-20" type="T1"/>
</symbols>
</SKIND_PROCEDURE>
<SKIND_FUNCTION name="READI" type="T1">
<parameters>
</parameters>
<labels>
</labels>
<symbols>
</symbols>
</SKIND_FUNCTION>
<SKIND_FUNCTION name="READR" type="T3">
<parameters>
</parameters>
<labels>
</labels>
<symbols>
</symbols>
</SKIND_FUNCTION>
<SKIND_FUNCTION name="READS" type="T2">
<parameters>
</parameters>
<labels>
</labels>
<symbols>
</symbols>
</SKIND_FUNCTION>
<SKIND_TYPE name="REAL" type="T3"/>
<SKIND_TYPE name="STRING" type="T2"/>
<SKIND_CONST name="TRUE" value="1" type="T0"/>
<SKIND_PROCEDURE name="WRITEI">
<parameters>
<PMODE_BY_VALUE name="P" type="T1"/>
</parameters>
<labels>
</labels>
<symbols>
</symbols>
</SKIND_PROCEDURE>
<SKIND_PROCEDURE name="WRITELN">
<parameters>
</parameters>
<labels>
</labels>
<symbols>
</symbols>
</SKIND_PROCEDURE>
<SKIND_PROCEDURE name="WRITER">
<parameters>
<PMODE_BY_VALUE name="P" type="T3"/>
</parameters>
<labels>
</labels>
<symbols>
</symbols>
</SKIND_PROCEDURE>
<SKIND_PROCEDURE name="WRITES">
<parameters>
<PMODE_BY_VALUE name="P" type="T2"/>
</parameters>
<labels>
</labels>
<symbols>
</symbols>
</SKIND_PROCEDURE>
</symbols>
</symbol_tables>