annotate src/luan/modules/parsers/Xml.java @ 1495:2e8a5df45d56

better xml
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 05 May 2020 11:03:48 -0600
parents f5b8c7e1ac82
children b89212fd04b5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 package luan.modules.parsers;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 import java.util.Collections;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 import java.util.Map;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 import java.util.LinkedHashMap;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 import java.util.List;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 import java.util.ArrayList;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 import goodjava.parser.ParseException;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 import goodjava.xml.XmlElement;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 import goodjava.xml.XmlParser;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 import luan.Luan;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 import luan.LuanTable;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 import luan.LuanException;
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
14 import luan.modules.BasicLuan;
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 public final class Xml {
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 public static String toString(LuanTable tbl) throws LuanException {
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
20 XmlElement[] elements = elements(tbl);
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
21 if( elements.length != 1 )
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
22 throw new LuanException("XML must have 1 root element");
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
23 return elements[0].toString();
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 }
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
26 private static final String ATTRIBUTES = "xml_attributes";
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
27 private static final String TEXT = "xml_text";
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
28
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
29 private static XmlElement[] elements(LuanTable tbl) throws LuanException {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
30 List<XmlElement> list = new ArrayList<XmlElement>();
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
31 for( Map.Entry entry : tbl.iterable() ) {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
32 Object key = entry.getKey();
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
33 if( !(key instanceof String) )
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
34 throw new LuanException("XML key must be string");
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
35 String name = (String)key;
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
36 Object value = entry.getValue();
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
37 if( name.equals(ATTRIBUTES) )
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
38 continue;
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
39 if( name.equals(TEXT) )
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
40 throw new LuanException("Can't mix text and elements");
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
41 LuanTable t = (LuanTable)value;
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
42 if( t.isMap() ) {
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
43 list.add( element(name,t) );
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
44 } else {
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
45 for( Object obj : t.asList() ) {
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
46 list.add( element(name,obj) );
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
47 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
48 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
49 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
50 return list.toArray(new XmlElement[0]);
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
51 }
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
52
1471
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
53 private static XmlElement element(String name,Object obj) throws LuanException {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
54 if( obj instanceof String ) {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
55 return new XmlElement( name, Collections.emptyMap(), (String)obj );
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
56 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
57 LuanTable t = (LuanTable)obj;
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
58 Map<String,String> attributes = attributes(t);
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
59 String s = (String)t.get(TEXT);
1471
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
60 if( s != null ) {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
61 return new XmlElement(name,attributes,s);
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
62 } else {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
63 XmlElement[] elements = elements(t);
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
64 if( elements.length==0 ) {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
65 return new XmlElement(name,attributes);
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
66 } else {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
67 return new XmlElement(name,attributes,elements);
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
68 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
69 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
70 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
71
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
72 private static Map<String,String> attributes(LuanTable tbl) throws LuanException {
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
73 Object obj = tbl.get(ATTRIBUTES);
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
74 if( obj==null )
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
75 return Collections.emptyMap();
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
76 LuanTable t = (LuanTable)obj;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
77 Map<String,String> map = new LinkedHashMap<String,String>();
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
78 for( Map.Entry entry : t.iterable() ) {
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
79 String name =(String)entry.getKey();
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
80 String value =(String)entry.getValue();
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
81 map.put(name,value);
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
82 }
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
83 return map;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
84 }
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
85
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
86
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
87 public static LuanTable parse(Luan luan,String s) throws ParseException, LuanException {
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
88 XmlElement element = XmlParser.parse(s);
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
89 LuanTable tbl = new LuanTable(luan);
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
90 addElements(tbl,new XmlElement[]{element});
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
91 return tbl;
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
92 }
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
93
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
94 private static LuanTable addElements(LuanTable tbl,XmlElement[] elements) throws LuanException {
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
95 for( XmlElement element : elements ) {
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
96 LuanTable t = new LuanTable(tbl.luan());
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
97 if( !element.attributes.isEmpty() ) {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
98 LuanTable attrs = new LuanTable(tbl.luan());
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
99 for( Map.Entry<String,String> entry : element.attributes.entrySet() ) {
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
100 attrs.put(entry.getKey(),entry.getValue());
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
101 }
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
102 t.put( ATTRIBUTES, attrs );
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
103 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
104 if( element.content == null ) {
1471
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
105 // nothing
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
106 } else if( element.content instanceof String ) {
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
107 t.put( TEXT, element.content );
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
108 } else {
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
109 XmlElement[] els = (XmlElement[])element.content;
1468
Franklin Schmidt <fschmidt@gmail.com>
parents: 1466
diff changeset
110 addElements(t,els);
1471
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
111 }
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
112 LuanTable old = (LuanTable)tbl.get(element.name);
1471
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
113 if( old==null ) {
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
114 tbl.put(element.name,t);
1471
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
115 } else {
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
116 if( !old.isList() ) {
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
117 LuanTable list = new LuanTable(tbl.luan());
1471
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
118 list.rawAdd(old);
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
119 old = list;
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
120 tbl.put(element.name,old);
1471
Franklin Schmidt <fschmidt@gmail.com>
parents: 1468
diff changeset
121 }
1495
2e8a5df45d56 better xml
Franklin Schmidt <fschmidt@gmail.com>
parents: 1471
diff changeset
122 old.rawAdd(t);
1466
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
123 }
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
124 }
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
125 return tbl;
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
126 }
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
127
670b7d089699 xml support
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
128 }