pfxtest3.xml

<?xml version='1.0'?>
<pfxplus>
<directive type="use"><token value="pfxstate.inc"/></directive>
<declare type="string"><token value="s_filename"/><number value="256"/></declare>
<declare type="string"><token value="s_input"/><number value="4096"/></declare>
<declare type="string"><token value="s_out"/><number value="4096"/></declare>
<declare type="string"><token value="s_our_new"/><number value="4096"/></declare>
<declare type="string"><token value="s_remainder"/><number value="4096"/></declare>
<declare type="integer"><token value="i_loop"/><token value="i_state"/></declare>
<declare type="integer"><token value="i_stack"/></declare>
<declare type="indicator"><token value="x_cont"/></declare>
<stmt type="cmdline"><token value="s_filename"/></stmt>
<stmt type="pfxplus" value="direct_output"><stringlit value="./pfxtest3.xml"/></stmt>
<stmt type="writeln"><stringlit value="&lt;?xml version=&apos;1.0&apos;?&gt;"/></stmt>
<stmt type="writeln"><stringlit value="&lt;pfxplus&gt;"/></stmt>
<stmt type="direct_input"><token value="s_filename"/></stmt>
<stmt type="symbol" value="pfxs_init"><token value="false"/><noise type="to"/><token value="x_cont"/></stmt>
<block type="repeat">
<stmt type="readln"><token value="s_input"/></stmt>
<flow type="if"><expr><token value="not"/><token value="seqeof"/></expr></flow><block type="begin">
<block type="repeat">
<flow type="if"><token value="s_remainder"/><operator type="ne"/><stringlit value=""/></flow><block type="begin">
<stmt type="symbol" value="s_input"><operator type="assign"/><token value="s_remainder"/></stmt>
<stmt type="symbol" value="s_remainder"><operator type="assign"/><stringlit value=""/></stmt>
</block>
<stmt type="symbol" value="pfxs_parse"><token value="s_input"/><noise type="to"/><token value="s_remainder"/><token value="x_cont"/></stmt>
<flow type="if"><expr><token value="s_pfx_code"/><operator type="ne"/><stringlit value=""/></expr></flow><block type="begin">
<stmt type="writeln"><token value="s_pfx_code"/></stmt>
</block>
</block><expr type="until"><expr><token value="s_remainder"/><operator type="eq"/><stringlit value=""/></expr></expr>
</block>
</block><expr type="until"><token value="seqeof"/><token value="or"/><expr><token value="i_loop"/><operator type="eq"/><token value="maxint"/></expr></expr>
<flow type="if"><expr><token value="i_loop"/><operator type="eq"/><token value="maxint"/></expr></flow><block type="begin">
<stmt type="showln"></stmt>
<stmt type="showln"><stringlit value="* aborted early"/></stmt>
</block>
<stmt type="writeln"><stringlit value="&lt;/pfxplus&gt;"/></stmt>
<stmt type="close_output"></stmt>
<stmt type="abort"></stmt>
<!-- End of pfxtest.fls -->
</pfxplus>