Mercurial Hosting > luan

annotate src/luan/modules/parsers/LuanToString.java @ 1485:6a24c8b33d6b

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