mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 18:03:36 +00:00
4d276a6505
runtime/mercury_ml_expand_body.h:
Until I changed the handling of foreign types a few days ago, all functor
names came from static data, and thus they could be returned to the callers
of deconstruct.deconstruct without being copied. However, the functor names
we now generate for foreign types come from a buffer that will be reused,
and so DO need to be copied, and they weren't. Fix this.
runtime/mercury_deconstruct.c:
Reserve a single static buffer for this purpose.
tests/hard_coded/write_xml.exp:
Update this expected output to expect the new correct output.
tests/hard_coded/write_xml.m:
Fix the indentation of the source code of the test.
568 lines
31 KiB
Plaintext
568 lines
31 KiB
Plaintext
Result 1:
|
|
unsupported_dtd_type(pred(int))
|
|
|
|
<?xml version="1.0"?>
|
|
<?xml-stylesheet type="text/css" href="http://www.cs.mu.oz.au/a_css.css"?>
|
|
<Array--array-46array-40write_xml-46mytype-41 functor="<<array>>" type="array.array(write_xml.mytype)" arity="12">
|
|
<Tag_Tag-45--1--write_xml-46mytype functor="Tag-" type="write_xml.mytype" arity="1">
|
|
<Int type="int">44</Int>
|
|
</Tag_Tag-45--1--write_xml-46mytype>
|
|
<Tag_String--1--write_xml-46mytype functor="String" type="write_xml.mytype" arity="1">
|
|
<String type="string">a string</String>
|
|
</Tag_String--1--write_xml-46mytype>
|
|
<hello--5--write_xml-46mytype functor="hello" type="write_xml.mytype" arity="5">
|
|
<String type="string" field="field1">this
|
|
|
|
is a <string>&</String>
|
|
<Int type="int" field="Field<2>">-123</Int>
|
|
<Char type="character"><</Char>
|
|
<Float type="float" field="another field">1.123</Float>
|
|
<yes--0--bool-46bool functor="yes" type="bool.bool" arity="0" />
|
|
</hello--5--write_xml-46mytype>
|
|
<a_tuple--1--write_xml-46mytype functor="a_tuple" type="write_xml.mytype" arity="1">
|
|
<Tuple--3--Tag_-123string-44-32int-44-32-123character-44-32float-125-125 functor="{}" type="{string, int, {character, float}}" arity="3">
|
|
<String type="string">some more stuf</String>
|
|
<Int type="int">123456</Int>
|
|
<Tuple--2--Tag_-123character-44-32float-125 functor="{}" type="{character, float}" arity="2">
|
|
<Char type="character">a</Char>
|
|
<Float type="float">1.2355322522e-97</Float>
|
|
</Tuple--2--Tag_-123character-44-32float-125>
|
|
</Tuple--3--Tag_-123string-44-32int-44-32-123character-44-32float-125-125>
|
|
</a_tuple--1--write_xml-46mytype>
|
|
<Tag_List--1--write_xml-46mytype functor="List" type="write_xml.mytype" arity="1">
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">1</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">2</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<nothing--0--write_xml-46listPart functor="nothing" type="write_xml.listPart" arity="0" />
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">4</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<nothing--0--write_xml-46listPart functor="nothing" type="write_xml.listPart" arity="0" />
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">6</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">7</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">8</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<List--2--list-46list-40write_xml-46listPart-41 functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<nothing--0--write_xml-46listPart functor="nothing" type="write_xml.listPart" arity="0" />
|
|
<Nil--0--list-46list-40write_xml-46listPart-41 functor="[]" type="list.list(write_xml.listPart)" arity="0" />
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</List--2--list-46list-40write_xml-46listPart-41>
|
|
</Tag_List--1--write_xml-46mytype>
|
|
<a_map--1--write_xml-46mytype functor="a_map" type="write_xml.mytype" arity="1">
|
|
<four--10--tree234-46tree234-40int-44-32string-41 functor="four" type="tree234.tree234(int, string)" arity="10">
|
|
<Int type="int">2</Int>
|
|
<String type="string">hello1</String>
|
|
<Int type="int">4</Int>
|
|
<String type="string">hello3</String>
|
|
<Int type="int">6</Int>
|
|
<String type="string">hello5</String>
|
|
<two--4--tree234-46tree234-40int-44-32string-41 functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">1</Int>
|
|
<String type="string">hello</String>
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two--4--tree234-46tree234-40int-44-32string-41>
|
|
<two--4--tree234-46tree234-40int-44-32string-41 functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">3</Int>
|
|
<String type="string">hello2</String>
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two--4--tree234-46tree234-40int-44-32string-41>
|
|
<two--4--tree234-46tree234-40int-44-32string-41 functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">5</Int>
|
|
<String type="string">hello4</String>
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two--4--tree234-46tree234-40int-44-32string-41>
|
|
<three--7--tree234-46tree234-40int-44-32string-41 functor="three" type="tree234.tree234(int, string)" arity="7">
|
|
<Int type="int">7</Int>
|
|
<String type="string">hello6</String>
|
|
<Int type="int">8</Int>
|
|
<String type="string">hello7</String>
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</three--7--tree234-46tree234-40int-44-32string-41>
|
|
</four--10--tree234-46tree234-40int-44-32string-41>
|
|
</a_map--1--write_xml-46mytype>
|
|
<a-32-60-33-64-35-36-37-94-38-42-40-41-62-32functor-32name-33-33-33--1--write_xml-46mytype functor="a <!@#$%^&*()> functor name!!!" type="write_xml.mytype" arity="1">
|
|
<Int type="int">999</Int>
|
|
</a-32-60-33-64-35-36-37-94-38-42-40-41-62-32functor-32name-33-33-33--1--write_xml-46mytype>
|
|
<a_pred--1--write_xml-46mytype functor="a_pred" type="write_xml.mytype" arity="1">
|
|
<pred-40int-41 functor="p" type="pred(int)" arity="3">
|
|
<Int type="int">1</Int>
|
|
<Int type="int">2</Int>
|
|
<hello--5--write_xml-46mytype functor="hello" type="write_xml.mytype" arity="5">
|
|
<String type="string" field="field1">a string</String>
|
|
<Int type="int" field="Field<2>">1</Int>
|
|
<Char type="character">c</Char>
|
|
<Float type="float" field="another field">-1e-15</Float>
|
|
<yes--0--bool-46bool functor="yes" type="bool.bool" arity="0" />
|
|
</hello--5--write_xml-46mytype>
|
|
</pred-40int-41>
|
|
</a_pred--1--write_xml-46mytype>
|
|
<t--1--write_xml-46mytype functor="t" type="write_xml.mytype" arity="1">
|
|
<type_desc-46type_desc functor="tree234" type="type_desc.type_desc" arity="2">
|
|
<type_desc-46type_desc functor="int" type="type_desc.type_desc" arity="0" />
|
|
<type_desc-46type_desc functor="string" type="type_desc.type_desc" arity="0" />
|
|
</type_desc-46type_desc>
|
|
</t--1--write_xml-46mytype>
|
|
<ctor--1--write_xml-46mytype functor="ctor" type="write_xml.mytype" arity="1">
|
|
<type_desc-46type_ctor_desc functor="tree234.tree234/2" type="type_desc.type_ctor_desc" arity="0" />
|
|
</ctor--1--write_xml-46mytype>
|
|
<foreign--1--write_xml-46mytype functor="foreign" type="write_xml.mytype" arity="1">
|
|
<write_xml-46ftype functor="<<foreign(ftype, 0x1)>>" type="write_xml.ftype" arity="0" />
|
|
</foreign--1--write_xml-46mytype>
|
|
<pointer--1--write_xml-46mytype functor="pointer" type="write_xml.mytype" arity="1">
|
|
<c_pointer functor="c_pointer(0x0)" type="c_pointer" arity="0" />
|
|
</pointer--1--write_xml-46mytype>
|
|
</Array--array-46array-40write_xml-46mytype-41>
|
|
Result 2:
|
|
ok
|
|
|
|
<?xml version="1.0"?>
|
|
<?xml-stylesheet type="text/css" href="http://www.cs.mu.oz.au/a_css.css"?>
|
|
<!DOCTYPE wrap--1--write_xml-46wrap-40tree234-46tree234-40int-44-32string-41-41 [
|
|
|
|
<!-- Elements for functors of type "write_xml.wrap(tree234.tree234(int, string))" -->
|
|
|
|
<!ELEMENT wrap--1--write_xml-46wrap-40tree234-46tree234-40int-44-32string-41-41 (empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41)>
|
|
<!ATTLIST wrap--1--write_xml-46wrap-40tree234-46tree234-40int-44-32string-41-41 functor CDATA #FIXED "wrap">
|
|
<!ATTLIST wrap--1--write_xml-46wrap-40tree234-46tree234-40int-44-32string-41-41 field CDATA #IMPLIED>
|
|
<!ATTLIST wrap--1--write_xml-46wrap-40tree234-46tree234-40int-44-32string-41-41 type CDATA #FIXED "write_xml.wrap(tree234.tree234(int, string))">
|
|
<!ATTLIST wrap--1--write_xml-46wrap-40tree234-46tree234-40int-44-32string-41-41 arity CDATA #FIXED "1">
|
|
|
|
<!-- Elements for functors of type "tree234.tree234(int, string)" -->
|
|
|
|
<!ELEMENT empty--0--tree234-46tree234-40int-44-32string-41 EMPTY>
|
|
<!ATTLIST empty--0--tree234-46tree234-40int-44-32string-41 functor CDATA #FIXED "empty">
|
|
<!ATTLIST empty--0--tree234-46tree234-40int-44-32string-41 field CDATA #IMPLIED>
|
|
<!ATTLIST empty--0--tree234-46tree234-40int-44-32string-41 type CDATA #FIXED "tree234.tree234(int, string)">
|
|
<!ATTLIST empty--0--tree234-46tree234-40int-44-32string-41 arity CDATA #FIXED "0">
|
|
|
|
<!ELEMENT four--10--tree234-46tree234-40int-44-32string-41 (Int,String,Int,String,Int,String,(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41),(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41),(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41),(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41))>
|
|
<!ATTLIST four--10--tree234-46tree234-40int-44-32string-41 functor CDATA #FIXED "four">
|
|
<!ATTLIST four--10--tree234-46tree234-40int-44-32string-41 field CDATA #IMPLIED>
|
|
<!ATTLIST four--10--tree234-46tree234-40int-44-32string-41 type CDATA #FIXED "tree234.tree234(int, string)">
|
|
<!ATTLIST four--10--tree234-46tree234-40int-44-32string-41 arity CDATA #FIXED "10">
|
|
|
|
<!ELEMENT three--7--tree234-46tree234-40int-44-32string-41 (Int,String,Int,String,(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41),(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41),(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41))>
|
|
<!ATTLIST three--7--tree234-46tree234-40int-44-32string-41 functor CDATA #FIXED "three">
|
|
<!ATTLIST three--7--tree234-46tree234-40int-44-32string-41 field CDATA #IMPLIED>
|
|
<!ATTLIST three--7--tree234-46tree234-40int-44-32string-41 type CDATA #FIXED "tree234.tree234(int, string)">
|
|
<!ATTLIST three--7--tree234-46tree234-40int-44-32string-41 arity CDATA #FIXED "7">
|
|
|
|
<!ELEMENT two--4--tree234-46tree234-40int-44-32string-41 (Int,String,(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41),(empty--0--tree234-46tree234-40int-44-32string-41|four--10--tree234-46tree234-40int-44-32string-41|three--7--tree234-46tree234-40int-44-32string-41|two--4--tree234-46tree234-40int-44-32string-41))>
|
|
<!ATTLIST two--4--tree234-46tree234-40int-44-32string-41 functor CDATA #FIXED "two">
|
|
<!ATTLIST two--4--tree234-46tree234-40int-44-32string-41 field CDATA #IMPLIED>
|
|
<!ATTLIST two--4--tree234-46tree234-40int-44-32string-41 type CDATA #FIXED "tree234.tree234(int, string)">
|
|
<!ATTLIST two--4--tree234-46tree234-40int-44-32string-41 arity CDATA #FIXED "4">
|
|
|
|
<!-- Elements for functors of type "int" -->
|
|
|
|
<!ELEMENT Int (#PCDATA)>
|
|
<!ATTLIST Int type CDATA #FIXED "int">
|
|
<!ATTLIST Int field CDATA #IMPLIED>
|
|
|
|
<!-- Elements for functors of type "string" -->
|
|
|
|
<!ELEMENT String (#PCDATA)>
|
|
<!ATTLIST String type CDATA #FIXED "string">
|
|
<!ATTLIST String field CDATA #IMPLIED>
|
|
|
|
|
|
]>
|
|
<wrap--1--write_xml-46wrap-40tree234-46tree234-40int-44-32string-41-41 functor="wrap" type="write_xml.wrap(tree234.tree234(int, string))" arity="1">
|
|
<four--10--tree234-46tree234-40int-44-32string-41 functor="four" type="tree234.tree234(int, string)" arity="10">
|
|
<Int type="int">2</Int>
|
|
<String type="string">hello1</String>
|
|
<Int type="int">4</Int>
|
|
<String type="string">hello3</String>
|
|
<Int type="int">6</Int>
|
|
<String type="string">hello5</String>
|
|
<two--4--tree234-46tree234-40int-44-32string-41 functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">1</Int>
|
|
<String type="string">hello</String>
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two--4--tree234-46tree234-40int-44-32string-41>
|
|
<two--4--tree234-46tree234-40int-44-32string-41 functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">3</Int>
|
|
<String type="string">hello2</String>
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two--4--tree234-46tree234-40int-44-32string-41>
|
|
<two--4--tree234-46tree234-40int-44-32string-41 functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">5</Int>
|
|
<String type="string">hello4</String>
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two--4--tree234-46tree234-40int-44-32string-41>
|
|
<three--7--tree234-46tree234-40int-44-32string-41 functor="three" type="tree234.tree234(int, string)" arity="7">
|
|
<Int type="int">7</Int>
|
|
<String type="string">hello6</String>
|
|
<Int type="int">8</Int>
|
|
<String type="string">hello7</String>
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty--0--tree234-46tree234-40int-44-32string-41 functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</three--7--tree234-46tree234-40int-44-32string-41>
|
|
</four--10--tree234-46tree234-40int-44-32string-41>
|
|
</wrap--1--write_xml-46wrap-40tree234-46tree234-40int-44-32string-41-41>
|
|
Result 3:
|
|
ok
|
|
|
|
<?xml version="1.0"?>
|
|
<?xml-stylesheet type="text/css" href="http://www.cs.mu.oz.au/a_css.css"?>
|
|
<!DOCTYPE wrap [
|
|
|
|
<!-- Elements for functors of type "write_xml.wrap(tree234.tree234(int, string))" -->
|
|
|
|
<!ELEMENT wrap (empty|four|three|two)>
|
|
<!ATTLIST wrap functor CDATA #FIXED "wrap">
|
|
<!ATTLIST wrap field CDATA #IMPLIED>
|
|
<!ATTLIST wrap type CDATA #FIXED "write_xml.wrap(tree234.tree234(int, string))">
|
|
<!ATTLIST wrap arity CDATA #FIXED "1">
|
|
|
|
<!-- Elements for functors of type "tree234.tree234(int, string)" -->
|
|
|
|
<!ELEMENT empty EMPTY>
|
|
<!ATTLIST empty functor CDATA #FIXED "empty">
|
|
<!ATTLIST empty field CDATA #IMPLIED>
|
|
<!ATTLIST empty type CDATA #FIXED "tree234.tree234(int, string)">
|
|
<!ATTLIST empty arity CDATA #FIXED "0">
|
|
|
|
<!ELEMENT four (Int,String,Int,String,Int,String,(empty|four|three|two),(empty|four|three|two),(empty|four|three|two),(empty|four|three|two))>
|
|
<!ATTLIST four functor CDATA #FIXED "four">
|
|
<!ATTLIST four field CDATA #IMPLIED>
|
|
<!ATTLIST four type CDATA #FIXED "tree234.tree234(int, string)">
|
|
<!ATTLIST four arity CDATA #FIXED "10">
|
|
|
|
<!ELEMENT three (Int,String,Int,String,(empty|four|three|two),(empty|four|three|two),(empty|four|three|two))>
|
|
<!ATTLIST three functor CDATA #FIXED "three">
|
|
<!ATTLIST three field CDATA #IMPLIED>
|
|
<!ATTLIST three type CDATA #FIXED "tree234.tree234(int, string)">
|
|
<!ATTLIST three arity CDATA #FIXED "7">
|
|
|
|
<!ELEMENT two (Int,String,(empty|four|three|two),(empty|four|three|two))>
|
|
<!ATTLIST two functor CDATA #FIXED "two">
|
|
<!ATTLIST two field CDATA #IMPLIED>
|
|
<!ATTLIST two type CDATA #FIXED "tree234.tree234(int, string)">
|
|
<!ATTLIST two arity CDATA #FIXED "4">
|
|
|
|
<!-- Elements for functors of type "int" -->
|
|
|
|
<!ELEMENT Int (#PCDATA)>
|
|
<!ATTLIST Int type CDATA #FIXED "int">
|
|
<!ATTLIST Int field CDATA #IMPLIED>
|
|
|
|
<!-- Elements for functors of type "string" -->
|
|
|
|
<!ELEMENT String (#PCDATA)>
|
|
<!ATTLIST String type CDATA #FIXED "string">
|
|
<!ATTLIST String field CDATA #IMPLIED>
|
|
|
|
|
|
]>
|
|
<wrap functor="wrap" type="write_xml.wrap(tree234.tree234(int, string))" arity="1">
|
|
<four functor="four" type="tree234.tree234(int, string)" arity="10">
|
|
<Int type="int">2</Int>
|
|
<String type="string">hello1</String>
|
|
<Int type="int">4</Int>
|
|
<String type="string">hello3</String>
|
|
<Int type="int">6</Int>
|
|
<String type="string">hello5</String>
|
|
<two functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">1</Int>
|
|
<String type="string">hello</String>
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two>
|
|
<two functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">3</Int>
|
|
<String type="string">hello2</String>
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two>
|
|
<two functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">5</Int>
|
|
<String type="string">hello4</String>
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two>
|
|
<three functor="three" type="tree234.tree234(int, string)" arity="7">
|
|
<Int type="int">7</Int>
|
|
<String type="string">hello6</String>
|
|
<Int type="int">8</Int>
|
|
<String type="string">hello7</String>
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</three>
|
|
</four>
|
|
</wrap>
|
|
Result 3_1:
|
|
ok
|
|
|
|
<?xml version="1.0"?>
|
|
<?xml-stylesheet type="text/css" href="http://www.cs.mu.oz.au/a_css.css"?>
|
|
<!DOCTYPE Array--array-46array-40write_xml-46listPart-41 [
|
|
|
|
<!-- Elements for functors of type "array.array(write_xml.listPart)" -->
|
|
|
|
<!ELEMENT Array--array-46array-40write_xml-46listPart-41 ((listPart--1--write_xml-46listPart|nothing--0--write_xml-46listPart)*)>
|
|
<!ATTLIST Array--array-46array-40write_xml-46listPart-41 functor CDATA #IMPLIED>
|
|
<!ATTLIST Array--array-46array-40write_xml-46listPart-41 field CDATA #IMPLIED>
|
|
<!ATTLIST Array--array-46array-40write_xml-46listPart-41 type CDATA #FIXED "array.array(write_xml.listPart)">
|
|
<!ATTLIST Array--array-46array-40write_xml-46listPart-41 arity CDATA #IMPLIED>
|
|
|
|
<!-- Elements for functors of type "write_xml.listPart" -->
|
|
|
|
<!ELEMENT listPart--1--write_xml-46listPart (Int)>
|
|
<!ATTLIST listPart--1--write_xml-46listPart functor CDATA #FIXED "listPart">
|
|
<!ATTLIST listPart--1--write_xml-46listPart field CDATA #IMPLIED>
|
|
<!ATTLIST listPart--1--write_xml-46listPart type CDATA #FIXED "write_xml.listPart">
|
|
<!ATTLIST listPart--1--write_xml-46listPart arity CDATA #FIXED "1">
|
|
|
|
<!ELEMENT nothing--0--write_xml-46listPart EMPTY>
|
|
<!ATTLIST nothing--0--write_xml-46listPart functor CDATA #FIXED "nothing">
|
|
<!ATTLIST nothing--0--write_xml-46listPart field CDATA #IMPLIED>
|
|
<!ATTLIST nothing--0--write_xml-46listPart type CDATA #FIXED "write_xml.listPart">
|
|
<!ATTLIST nothing--0--write_xml-46listPart arity CDATA #FIXED "0">
|
|
|
|
<!-- Elements for functors of type "int" -->
|
|
|
|
<!ELEMENT Int (#PCDATA)>
|
|
<!ATTLIST Int type CDATA #FIXED "int">
|
|
<!ATTLIST Int field CDATA #IMPLIED>
|
|
|
|
|
|
]>
|
|
<Array--array-46array-40write_xml-46listPart-41 functor="<<array>>" type="array.array(write_xml.listPart)" arity="9">
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">1</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">2</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<nothing--0--write_xml-46listPart functor="nothing" type="write_xml.listPart" arity="0" />
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">4</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<nothing--0--write_xml-46listPart functor="nothing" type="write_xml.listPart" arity="0" />
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">6</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">7</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<listPart--1--write_xml-46listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">8</Int>
|
|
</listPart--1--write_xml-46listPart>
|
|
<nothing--0--write_xml-46listPart functor="nothing" type="write_xml.listPart" arity="0" />
|
|
</Array--array-46array-40write_xml-46listPart-41>
|
|
Result 4:
|
|
ok
|
|
|
|
<?xml version="1.0"?>
|
|
<!DOCTYPE List PUBLIC "test" "test.dtd">
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<Tag_Tag-45 functor="Tag-" type="write_xml.mytype" arity="1">
|
|
<Int type="int">44</Int>
|
|
</Tag_Tag-45>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<Tag_String functor="String" type="write_xml.mytype" arity="1">
|
|
<String type="string">a string</String>
|
|
</Tag_String>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<hello functor="hello" type="write_xml.mytype" arity="5">
|
|
<String type="string" field="field1">this
|
|
|
|
is a <string>&</String>
|
|
<Int type="int" field="Field<2>">-123</Int>
|
|
<Char type="character"><</Char>
|
|
<Float type="float" field="another field">1.123</Float>
|
|
<yes functor="yes" type="bool.bool" arity="0" />
|
|
</hello>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<a_tuple functor="a_tuple" type="write_xml.mytype" arity="1">
|
|
<Tuple functor="{}" type="{string, int, {character, float}}" arity="3">
|
|
<String type="string">some more stuf</String>
|
|
<Int type="int">123456</Int>
|
|
<Tuple functor="{}" type="{character, float}" arity="2">
|
|
<Char type="character">a</Char>
|
|
<Float type="float">1.2355322522e-97</Float>
|
|
</Tuple>
|
|
</Tuple>
|
|
</a_tuple>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<Tag_List functor="List" type="write_xml.mytype" arity="1">
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">1</Int>
|
|
</listPart>
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">2</Int>
|
|
</listPart>
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<nothing functor="nothing" type="write_xml.listPart" arity="0" />
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">4</Int>
|
|
</listPart>
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<nothing functor="nothing" type="write_xml.listPart" arity="0" />
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">6</Int>
|
|
</listPart>
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">7</Int>
|
|
</listPart>
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<listPart functor="listPart" type="write_xml.listPart" arity="1">
|
|
<Int type="int">8</Int>
|
|
</listPart>
|
|
<List functor="[|]" type="list.list(write_xml.listPart)" arity="2">
|
|
<nothing functor="nothing" type="write_xml.listPart" arity="0" />
|
|
<Nil functor="[]" type="list.list(write_xml.listPart)" arity="0" />
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</Tag_List>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<a_map functor="a_map" type="write_xml.mytype" arity="1">
|
|
<four functor="four" type="tree234.tree234(int, string)" arity="10">
|
|
<Int type="int">2</Int>
|
|
<String type="string">hello1</String>
|
|
<Int type="int">4</Int>
|
|
<String type="string">hello3</String>
|
|
<Int type="int">6</Int>
|
|
<String type="string">hello5</String>
|
|
<two functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">1</Int>
|
|
<String type="string">hello</String>
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two>
|
|
<two functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">3</Int>
|
|
<String type="string">hello2</String>
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two>
|
|
<two functor="two" type="tree234.tree234(int, string)" arity="4">
|
|
<Int type="int">5</Int>
|
|
<String type="string">hello4</String>
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</two>
|
|
<three functor="three" type="tree234.tree234(int, string)" arity="7">
|
|
<Int type="int">7</Int>
|
|
<String type="string">hello6</String>
|
|
<Int type="int">8</Int>
|
|
<String type="string">hello7</String>
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
<empty functor="empty" type="tree234.tree234(int, string)" arity="0" />
|
|
</three>
|
|
</four>
|
|
</a_map>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<a-32-60-33-64-35-36-37-94-38-42-40-41-62-32functor-32name-33-33-33 functor="a <!@#$%^&*()> functor name!!!" type="write_xml.mytype" arity="1">
|
|
<Int type="int">999</Int>
|
|
</a-32-60-33-64-35-36-37-94-38-42-40-41-62-32functor-32name-33-33-33>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<a_pred functor="a_pred" type="write_xml.mytype" arity="1">
|
|
<Unknown functor="<<predicate>>" type="pred(int)" arity="0" />
|
|
</a_pred>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<t functor="t" type="write_xml.mytype" arity="1">
|
|
<Unknown functor="tree234" type="type_desc.type_desc" arity="2">
|
|
<Unknown functor="int" type="type_desc.type_desc" arity="0" />
|
|
<Unknown functor="string" type="type_desc.type_desc" arity="0" />
|
|
</Unknown>
|
|
</t>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<ctor functor="ctor" type="write_xml.mytype" arity="1">
|
|
<Unknown functor="tree234.tree234/2" type="type_desc.type_ctor_desc" arity="0" />
|
|
</ctor>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<foreign functor="foreign" type="write_xml.mytype" arity="1">
|
|
<Unknown functor="<<foreign(ftype, 0x1)>>" type="write_xml.ftype" arity="0" />
|
|
</foreign>
|
|
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
|
|
<pointer functor="pointer" type="write_xml.mytype" arity="1">
|
|
<Unknown functor="c_pointer(0x0)" type="c_pointer" arity="0" />
|
|
</pointer>
|
|
<Nil functor="[]" type="list.list(write_xml.mytype)" arity="0" />
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
</List>
|
|
Result 5:
|
|
ok
|
|
|
|
<?xml version="1.0"?>
|
|
<!DOCTYPE X SYSTEM "test">
|
|
<X>
|
|
<X>666</X>
|
|
</X>
|
|
Result 6:
|
|
ok
|
|
|
|
Result 7:
|
|
duplicate_elements("X", [write_xml.listPart, write_xml.wrap(write_xml.listPart)])
|
|
|
|
Result 8:
|
|
multiple_functors_for_root
|
|
|
|
<?xml version="1.0"?>
|
|
<ext--1--write_xml-46ext functor="ext" type="write_xml.ext" arity="1">
|
|
<Int type="int" field="ext_field_1">1</Int>
|
|
</ext--1--write_xml-46ext>
|
|
Result 9:
|
|
ok
|
|
|
|
Result 10:
|
|
type_not_ground(tvar513)
|