Mercurial Hosting > luan

annotate src/luan/LuanException.java @ 1578:c922446f53aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
immutable threading
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 08 Feb 2021 14:16:19 -0700
parents adba594db0b4
children a9ff30fb5d89
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
2df768b926aa start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
1 package luan;
2df768b926aa start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
2
200
9fb218211763 add Package.block();
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
3 import java.io.StringWriter;
9fb218211763 add Package.block();
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
4 import java.io.PrintWriter;
1125
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
5 import java.io.PrintStream;
682
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
6 import java.util.List;
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
7 import java.util.ArrayList;
1335
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
8 import java.util.Map;
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
9 import java.util.HashMap;
1
2df768b926aa start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
10
200
9fb218211763 add Package.block();
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 171
diff changeset
11
1578
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
12 public final class LuanException extends Exception implements LuanMutable {
689
51a134a8c89b fix LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 683
diff changeset
13 private LuanTable table;
1335
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
14 private Map extra = new HashMap();
1578
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
15 private boolean immutable = false;
1
2df768b926aa start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
16
646
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
17 public LuanException(String msg,Throwable cause) {
481
5d4a78c93383 luan errors are now tables
Franklin Schmidt <fschmidt@gmail.com>
parents: 200
diff changeset
18 super(msg,cause);
42
786699c78837 implement try-catch
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 40
diff changeset
19 }
786699c78837 implement try-catch
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 40
diff changeset
20
646
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
21 public LuanException(String msg) {
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
22 super(msg);
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
23 }
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
24
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
25 public LuanException(Throwable cause) {
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
26 super(cause);
689
51a134a8c89b fix LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 683
diff changeset
27 }
51a134a8c89b fix LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 683
diff changeset
28
1578
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
29 @Override public boolean isImmutable() {
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
30 return immutable;
689
51a134a8c89b fix LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 683
diff changeset
31 }
51a134a8c89b fix LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 683
diff changeset
32
1578
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
33 @Override public void makeImmutable() {
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
34 if(immutable)
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
35 return;
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
36 immutable = true;
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
37 LuanMutable.makeImmutable(table);
c922446f53aa immutable threading
Franklin Schmidt <fschmidt@gmail.com>
parents: 1568
diff changeset
38 LuanMutable.makeImmutable(extra);
1561
e1a13e707bf3 start immutable
Franklin Schmidt <fschmidt@gmail.com>
parents: 1400
diff changeset
39 }
e1a13e707bf3 start immutable
Franklin Schmidt <fschmidt@gmail.com>
parents: 1400
diff changeset
40
1335
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
41 public void put(String key,Object value) throws LuanException {
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
42 if( table == null ) {
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
43 extra.put(key,value);
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
44 } else {
1562
b89212fd04b5 remove table.luan
Franklin Schmidt <fschmidt@gmail.com>
parents: 1561
diff changeset
45 table.rawPut(key,value);
1335
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
46 }
646
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
47 }
cdc70de628b5 simplify LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 645
diff changeset
48
1333
25746915a241 merge Luan and LuanState
Franklin Schmidt <fschmidt@gmail.com>
parents: 1330
diff changeset
49 public LuanTable table(Luan luan) {
783
Franklin Schmidt <fschmidt@gmail.com>
parents: 782
diff changeset
50 if( table==null ) {
Franklin Schmidt <fschmidt@gmail.com>
parents: 782
diff changeset
51 try {
1283
503bde9a7c80 add luan.require() and table.call()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1282
diff changeset
52 LuanTable Boot = (LuanTable)luan.require("luan:Boot.luan");
1563
8fbcc4747091 remove LuanFunction.luan
Franklin Schmidt <fschmidt@gmail.com>
parents: 1562
diff changeset
53 table = (LuanTable)Boot.fn("new_error_table").call(luan,this );
1335
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
54 for( Object stupid : extra.entrySet() ) {
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
55 Map.Entry entry = (Map.Entry)stupid;
1562
b89212fd04b5 remove table.luan
Franklin Schmidt <fschmidt@gmail.com>
parents: 1561
diff changeset
56 table.put( luan, entry.getKey(), entry.getValue() );
1335
e0cf0d108a77 major cleanup
Franklin Schmidt <fschmidt@gmail.com>
parents: 1333
diff changeset
57 }
1283
503bde9a7c80 add luan.require() and table.call()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1282
diff changeset
58 } catch(LuanException e) {
783
Franklin Schmidt <fschmidt@gmail.com>
parents: 782
diff changeset
59 throw new RuntimeException(e);
Franklin Schmidt <fschmidt@gmail.com>
parents: 782
diff changeset
60 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 782
diff changeset
61 }
689
51a134a8c89b fix LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 683
diff changeset
62 return table;
51a134a8c89b fix LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 683
diff changeset
63 }
51a134a8c89b fix LuanException
Franklin Schmidt <fschmidt@gmail.com>
parents: 683
diff changeset
64
481
5d4a78c93383 luan errors are now tables
Franklin Schmidt <fschmidt@gmail.com>
parents: 200
diff changeset
65 public void throwThis() throws LuanException {
5d4a78c93383 luan errors are now tables
Franklin Schmidt <fschmidt@gmail.com>
parents: 200
diff changeset
66 throw this;
5d4a78c93383 luan errors are now tables
Franklin Schmidt <fschmidt@gmail.com>
parents: 200
diff changeset
67 }
5d4a78c93383 luan errors are now tables
Franklin Schmidt <fschmidt@gmail.com>
parents: 200
diff changeset
68
682
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
69 public String getJavaStackTraceString() {
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
70 return getJavaStackTraceString(this);
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
71 }
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
72
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
73 private static String getJavaStackTraceString(Throwable th) {
645
859c0dedc8b6 remove LuanSource
Franklin Schmidt <fschmidt@gmail.com>
parents: 578
diff changeset
74 StringWriter sw = new StringWriter();
682
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
75 th.printStackTrace(new PrintWriter(sw));
645
859c0dedc8b6 remove LuanSource
Franklin Schmidt <fschmidt@gmail.com>
parents: 578
diff changeset
76 return sw.toString();
37
8a57ebfdfd78 add JavaLib
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents: 2
diff changeset
77 }
481
5d4a78c93383 luan errors are now tables
Franklin Schmidt <fschmidt@gmail.com>
parents: 200
diff changeset
78
772
bffbef96ca6d add public static methods to LuanException for building luan stack traces
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
79 public static List<StackTraceElement> justLuan(StackTraceElement[] orig) {
682
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
80 List<StackTraceElement> list = new ArrayList<StackTraceElement>();
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
81 for( int i=0; i<orig.length; i++ ) {
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
82 StackTraceElement ste = orig[i];
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
83 if( !ste.getClassName().startsWith("luan.impl.EXP") )
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
84 continue;
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
85 list.add(ste);
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
86 if( !ste.getMethodName().equals("doCall") )
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
87 i++;
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
88 }
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
89 return list;
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
90 }
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
91
1568
adba594db0b4 add rel scheme
Franklin Schmidt <fschmidt@gmail.com>
parents: 1563
diff changeset
92 public static LuanTable getLuanStackTrace() {
adba594db0b4 add rel scheme
Franklin Schmidt <fschmidt@gmail.com>
parents: 1563
diff changeset
93 return new LuanTable( justLuan( Thread.currentThread().getStackTrace() ) );
adba594db0b4 add rel scheme
Franklin Schmidt <fschmidt@gmail.com>
parents: 1563
diff changeset
94 }
adba594db0b4 add rel scheme
Franklin Schmidt <fschmidt@gmail.com>
parents: 1563
diff changeset
95
1400
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
96 public static String toLuanString(StackTraceElement ste) {
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
97 int line = ste.getLineNumber();
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
98 String method = ste.getMethodName();
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
99 boolean hasMethod = !method.equals("doCall");
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
100 if( hasMethod ) {
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
101 int i = method.indexOf('$');
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
102 if( i != -1 ) {
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
103 int n = Integer.parseInt(method.substring(i+1));
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
104 line -= n;
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
105 method = method.substring(0,i);
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
106 if( method.equals("_") )
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
107 hasMethod = false;
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
108 }
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
109 }
772
bffbef96ca6d add public static methods to LuanException for building luan stack traces
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
110 StringBuilder sb = new StringBuilder();
1400
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
111 sb.append( ste.getFileName() ).append( " line " ).append( line );
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
112 if( hasMethod )
772
bffbef96ca6d add public static methods to LuanException for building luan stack traces
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
113 sb.append( " in function '" ).append( method.substring(1) ).append( "'" );
bffbef96ca6d add public static methods to LuanException for building luan stack traces
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
114 return sb.toString();
bffbef96ca6d add public static methods to LuanException for building luan stack traces
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
115 }
bffbef96ca6d add public static methods to LuanException for building luan stack traces
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
116
1125
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
117 private StringBuilder luanStackTrace() {
682
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
118 StringBuilder sb = new StringBuilder();
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
119 sb.append( getMessage() );
772
bffbef96ca6d add public static methods to LuanException for building luan stack traces
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
120 for( StackTraceElement ste : justLuan(getStackTrace()) ) {
1400
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
121 sb.append( "\n\t" ).append( toLuanString(ste) );
682
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
122 }
1125
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
123 return sb;
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
124 }
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
125
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
126 public String getLuanStackTraceString() {
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
127 StringBuilder sb = luanStackTrace();
682
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
128 Throwable cause = getCause();
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
129 if( cause != null )
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
130 sb.append( "\nCaused by: " ).append( getJavaStackTraceString(cause) );
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
131 return sb.toString();
0c334975d526 finish stack trace
Franklin Schmidt <fschmidt@gmail.com>
parents: 646
diff changeset
132 }
1400
221eedb0f54e fix inner class gc bug
Franklin Schmidt <fschmidt@gmail.com>
parents: 1335
diff changeset
133
1125
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
134 @Override public void printStackTrace(PrintStream s) {
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
135 s.print("Luan: ");
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
136 s.println(luanStackTrace());
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
137 s.print("Caused by: ");
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
138 super.printStackTrace(s);
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
139 }
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
140
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
141 @Override public void printStackTrace(PrintWriter s) {
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
142 s.print("Luan: ");
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
143 s.println(luanStackTrace());
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
144 s.print("Caused by: ");
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
145 super.printStackTrace(s);
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
146 }
442abdfff437 include luan stack in LuanException.printStackTrace()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1122
diff changeset
147
1
2df768b926aa start Luan
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
148 }