Mercurial Hosting > luan

annotate src/luan/modules/parsers/LuanToString.java @ 1518:f989778ca9e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
stringify, json_string
author Franklin Schmidt <fschmidt@gmail.com>
date Fri, 19 Jun 2020 17:50:25 -0600
parents 6a24c8b33d6b
children 0dc3be25ad20
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;
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
5 import luan.Luan;
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
6 import luan.LuanTable;
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
7 import luan.LuanException;
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
8 import luan.LuanRuntimeException;
720
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
11 public final class LuanToString {
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
12 public boolean strict = false;
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
13 public boolean numberTypes = false;
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
14 public boolean compressed = false;
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
15
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
16 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
17 StringBuilder sb = new StringBuilder();
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
18 toString(obj,sb,0);
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
19 return sb.toString();
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
20 }
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
21
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
22 private void toString(Object obj,StringBuilder sb,int indented) throws LuanException {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
23 if( obj == null ) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
24 sb.append( "nil" );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
25 return;
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
26 }
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
27 if( obj instanceof Boolean ) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
28 sb.append( obj );
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 Number ) {
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
32 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
33 return;
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
34 }
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
35 if( obj instanceof String ) {
1190
Franklin Schmidt <fschmidt@gmail.com>
parents: 1189
diff changeset
36 sb.append( '"' );
Franklin Schmidt <fschmidt@gmail.com>
parents: 1189
diff changeset
37 sb.append( Luan.stringEncode((String)obj) );
Franklin Schmidt <fschmidt@gmail.com>
parents: 1189
diff changeset
38 sb.append( '"' );
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
39 return;
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
40 }
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
41 if( obj instanceof LuanTable ) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
42 toString((LuanTable)obj,sb,indented);
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
43 return;
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
44 }
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
45 if( strict )
1409
Franklin Schmidt <fschmidt@gmail.com>
parents: 1388
diff changeset
46 throw new LuanException("can't handle type "+Luan.type(obj));
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
47 sb.append( '<' );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
48 sb.append( obj );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
49 sb.append( '>' );
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
50 }
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
51
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
52 private void toString(LuanTable tbl,StringBuilder sb,int indented) throws LuanException {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
53 List list = tbl.asList();
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
54 Map map = tbl.rawMap();
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
55 sb.append( '{' );
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
56 boolean first = true;
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
57 for( Object obj : list ) {
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
58 if( !compressed )
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
59 indent(sb,indented+1);
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
60 else if( first )
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
61 first = false;
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
62 else
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
63 sb.append( ',' );
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
64 toString(obj,sb,indented+1);
758
c29d11d675fd added Json.toString() and rpc now sends tables as json
Franklin Schmidt <fschmidt@gmail.com>
parents: 720
diff changeset
65 }
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
66 for( Object obj : map.entrySet() ) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
67 Map.Entry entry = (Map.Entry)obj;
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
68 if( !compressed )
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
69 indent(sb,indented+1);
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
70 else if( first )
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
71 first = false;
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
72 else
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
73 sb.append( ',' );
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
74 toString(entry,sb,indented+1);
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
75 }
1419
59fd2e8b1b9d stringify and json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1409
diff changeset
76 if( !compressed && (!list.isEmpty() || !map.isEmpty()) )
1116
633ca24d4d6e fix JsonToString
Franklin Schmidt <fschmidt@gmail.com>
parents: 1115
diff changeset
77 indent(sb,indented);
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
78 sb.append( '}' );
1115
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
79 return;
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
80 }
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
81
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
82 private void toString(Map.Entry entry,StringBuilder sb,int indented) throws LuanException {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
83 Object key = entry.getKey();
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
84 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
85 sb.append( (String)key );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
86 } else {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
87 sb.append( '[' );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
88 toString( key, sb, indented );
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
89 sb.append( ']' );
1115
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
90 }
1518
f989778ca9e1 stringify, json_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1485
diff changeset
91 sb.append( compressed ? "=" : " = " );
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
92 toString( entry.getValue(), sb, indented );
1115
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
93 }
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
94
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
95 private void indent(StringBuilder sb,int indented) {
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
96 sb.append( '\n' );
1117
9a1aa6fc0b4e remove json_pretty_string and make json_string somewhat pretty
Franklin Schmidt <fschmidt@gmail.com>
parents: 1116
diff changeset
97 for( int i=0; i<indented; i++ ) {
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1132
diff changeset
98 sb.append( '\t' );
1117
9a1aa6fc0b4e remove json_pretty_string and make json_string somewhat pretty
Franklin Schmidt <fschmidt@gmail.com>
parents: 1116
diff changeset
99 }
9a1aa6fc0b4e remove json_pretty_string and make json_string somewhat pretty
Franklin Schmidt <fschmidt@gmail.com>
parents: 1116
diff changeset
100 }
1115
809d74db1415 add json_pretty_string
Franklin Schmidt <fschmidt@gmail.com>
parents: 1113
diff changeset
101
1388
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
102 private void toString(Number n,StringBuilder sb) throws LuanException {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
103 if( numberTypes ) {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
104 sb.append( n.getClass().getSimpleName().toLowerCase() );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
105 sb.append( '(' );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
106 }
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
107 sb.append( Luan.toString(n) );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
108 if( numberTypes )
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
109 sb.append( ')' );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
110 }
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
111
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
112 public static void addNumberTypes(LuanTable env) {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
113 try {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
114 LuanTable module = (LuanTable)env.luan().require("luan:Number.luan");
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
115 env.put( "double", module.fn("double") );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
116 env.put( "float", module.fn("float") );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
117 env.put( "integer", module.fn("integer") );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
118 env.put( "long", module.fn("long") );
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
119 } catch(LuanException e) {
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
120 throw new LuanRuntimeException(e);
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
121 }
2024d23ddd64 add restore_from_postgres
Franklin Schmidt <fschmidt@gmail.com>
parents: 1190
diff changeset
122 }
720
bdd766df1c17 add json parser
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
123 }