Mercurial Hosting > luan

annotate src/luan/modules/parsers/LuanToString.java @ 1552:46d4baaad64d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add long_string_keys
author Franklin Schmidt <fschmidt@gmail.com>
date Sun, 04 Oct 2020 20:26:49 -0600
parents 0dc3be25ad20
children 26c51acf00f3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
1 package luan.modules.parsers;
720
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 import java.util.List;
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 import java.util.Map;
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
5 import java.util.Set;
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
6 import java.util.Collections;
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
7 import luan.Luan;
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
8 import luan.LuanTable;
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
9 import luan.LuanException;
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
10 import luan.LuanRuntimeException;
720
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
13 public final class LuanToString {
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
14 public boolean strict = false;
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
15 public boolean numberTypes = false;
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
16 public boolean compressed = false;
1550
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
17 public boolean useLongStrings = false;
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
18 public Set longStringKeys = Collections.emptySet();
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
19
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
20 public String toString(Object obj) throws LuanException {
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
21 StringBuilder sb = new StringBuilder();
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
22 toString(obj,sb,0,useLongStrings);
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
23 return sb.toString();
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
24 }
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
25
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
26 private void toString(Object obj,StringBuilder sb,int indented,boolean longStrings) throws LuanException {
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
27 if( obj == null ) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
28 sb.append( "nil" );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
29 return;
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
30 }
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
31 if( obj instanceof Boolean ) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
32 sb.append( obj );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
33 return;
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
34 }
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
35 if( obj instanceof Number ) {
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
36 toString((Number)obj,sb);
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
37 return;
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
38 }
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
39 if( obj instanceof String ) {
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
40 toString((String)obj,sb,longStrings);
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
41 return;
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
42 }
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
43 if( obj instanceof LuanTable ) {
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
44 toString((LuanTable)obj,sb,indented,longStrings);
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
45 return;
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
46 }
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
47 if( strict )
1409
Franklin Schmidt <fschmidt@gmail.com>
parents: 1388
diff changeset
48 throw new LuanException("can't handle type "+Luan.type(obj));
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
49 sb.append( '<' );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
50 sb.append( obj );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
51 sb.append( '>' );
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
52 }
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
53
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
54 private void toString(LuanTable tbl,StringBuilder sb,int indented,boolean longStrings) throws LuanException {
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
55 List list = tbl.asList();
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
56 Map map = tbl.rawMap();
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
57 sb.append( '{' );
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
58 boolean first = true;
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
59 for( Object obj : list ) {
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
60 if( !compressed )
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
61 indent(sb,indented+1);
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
62 else if( first )
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
63 first = false;
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
64 else
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
65 sb.append( ',' );
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
66 toString(obj,sb,indented+1,longStrings);
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
67 }
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
68 for( Object obj : map.entrySet() ) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
69 Map.Entry entry = (Map.Entry)obj;
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
70 if( !compressed )
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
71 indent(sb,indented+1);
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
72 else if( first )
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
73 first = false;
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
74 else
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
75 sb.append( ',' );
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
76 toString(entry,sb,indented+1);
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
77 }
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
78 if( !compressed && (!list.isEmpty() || !map.isEmpty()) )
1116
633ca24d4d6e fix JsonToString
Franklin Schmidt <fschmidt@gmail.com>
parents: 1115
diff changeset
79 indent(sb,indented);
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
80 sb.append( '}' );
1115
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
81 return;
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
82 }
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
83
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
84 private void toString(Map.Entry entry,StringBuilder sb,int indented) throws LuanException {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
85 Object key = entry.getKey();
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
86 if( key instanceof String && ((String)key).matches("[a-zA-Z_][a-zA-Z_0-9]*") ) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
87 sb.append( (String)key );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
88 } else {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
89 sb.append( '[' );
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
90 toString( key, sb, indented, false );
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
91 sb.append( ']' );
1115
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
92 }
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
93 sb.append( compressed ? "=" : " = " );
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
94 toString( entry.getValue(), sb, indented, longStringKeys.contains(key) );
1115
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
95 }
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
96
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
97 private void indent(StringBuilder sb,int indented) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
98 sb.append( '\n' );
1117
9a1aa6fc0b4e remove json_pretty_string and make json_string somewhat pretty
Franklin Schmidt <fschmidt@gmail.com>
parents: 1116
diff changeset
99 for( int i=0; i<indented; i++ ) {
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
100 sb.append( '\t' );
1117
9a1aa6fc0b4e remove json_pretty_string and make json_string somewhat pretty
Franklin Schmidt <fschmidt@gmail.com>
parents: 1116
diff changeset
101 }
9a1aa6fc0b4e remove json_pretty_string and make json_string somewhat pretty
Franklin Schmidt <fschmidt@gmail.com>
parents: 1116
diff changeset
102 }
1115
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
103
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
104 private void toString(Number n,StringBuilder sb) throws LuanException {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
105 if( numberTypes ) {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
106 sb.append( n.getClass().getSimpleName().toLowerCase() );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
107 sb.append( '(' );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
108 }
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
109 sb.append( Luan.toString(n) );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
110 if( numberTypes )
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
111 sb.append( ')' );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
112 }
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
113
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
114 public static void addNumberTypes(LuanTable env) {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
115 try {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
116 LuanTable module = (LuanTable)env.luan().require("luan:Number.luan");
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
117 env.put( "double", module.fn("double") );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
118 env.put( "float", module.fn("float") );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
119 env.put( "integer", module.fn("integer") );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
120 env.put( "long", module.fn("long") );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
121 } catch(LuanException e) {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
122 throw new LuanRuntimeException(e);
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
123 }
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
124 }
1550
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
125
1552
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
126 private void toString(String s,StringBuilder sb,boolean longStrings) {
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
127 if( longStrings ) {
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
128 StringBuilder start = new StringBuilder("[[");
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
129 if( s.indexOf('\n') != -1 )
46d4baaad64d add long_string_keys
Franklin Schmidt <fschmidt@gmail.com>
parents: 1550
diff changeset
130 start.append('\n');
1550
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
131 StringBuilder end = new StringBuilder("]]");
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
132 while( s.contains(end) ) {
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
133 start.insert(1,'=');
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
134 end.insert(1,'=');
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
135 }
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
136 sb.append(start);
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
137 sb.append(s);
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
138 sb.append(end);
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
139 return;
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
140 }
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
141 sb.append( '"' );
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
142 sb.append( Luan.stringEncode(s) );
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
143 sb.append( '"' );
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
144 }
0dc3be25ad20 use_long_strings
Franklin Schmidt <fschmidt@gmail.com>
parents: 1518
diff changeset
145
720
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
146 }