annotate core/src/luan/impl/ThemeParser.java @ 635:c83b8cefd922

better error handling in theme code
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 01 Mar 2016 07:01:58 -0700
parents 3dde072c3420
children 859c0dedc8b6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 package luan.impl;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 import java.util.Map;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 import java.util.HashMap;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 import java.util.List;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 import java.util.ArrayList;
635
c83b8cefd922 better error handling in theme code
Franklin Schmidt <fschmidt@gmail.com>
parents: 634
diff changeset
7 import luan.Luan;
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 import luan.LuanSource;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 import luan.LuanTable;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 import luan.LuanElement;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 import luan.LuanState;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 import luan.LuanFunction;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 import luan.LuanException;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14 import luan.modules.PackageLuan;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 public final class ThemeParser {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 public static LuanFunction compile(LuanState luan,LuanSource source) throws LuanException {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 try {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 FnDef fnDef = new ThemeParser(source).parse();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 final LuanStateImpl luanImpl = (LuanStateImpl)luan;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 return new Closure(luanImpl,fnDef);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 } catch(ParseException e) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25 //e.printStackTrace();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 throw new LuanException(luan, e.getFancyMessage() );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
27 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
29
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
30 private static final class Frame {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
31 final Frame parent;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
32 final List<String> symbols = new ArrayList<String>();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
33 int stackSize = 0;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
34 final boolean isVarArg;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
35 final List<String> upValueSymbols = new ArrayList<String>();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
36 final List<UpValue.Getter> upValueGetters = new ArrayList<UpValue.Getter>();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
37
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
38 Frame() {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
39 this.parent = null;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
40 isVarArg = true;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
41 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
42
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
43 Frame(Frame parent) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
44 this.parent = parent;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
45 isVarArg = false;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
46 if( upValueIndex(MOD) != 0 )
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
47 throw new RuntimeException();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
48 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
49
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
50 int stackIndex(String name) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
51 int i = symbols.size();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
52 while( --i >= 0 ) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
53 if( symbols.get(i).equals(name) )
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
54 return i;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
55 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
56 return -1;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
57 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
58
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
59 int upValueIndex(String name) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
60 int i = upValueSymbols.size();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
61 while( --i >= 0 ) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
62 if( upValueSymbols.get(i).equals(name) )
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
63 return i;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
64 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
65 if( parent==null )
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
66 return -1;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
67 i = parent.stackIndex(name);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
68 if( i != -1 ) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
69 upValueGetters.add(new UpValue.StackGetter(i));
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
70 } else {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
71 i = parent.upValueIndex(name);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
72 if( i == -1 )
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
73 return -1;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
74 upValueGetters.add(new UpValue.NestedGetter(i));
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
75 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
76 upValueSymbols.add(name);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
77 return upValueSymbols.size() - 1;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
78 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
79
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
80 void addUpValueGetter(String name,UpValue.Getter upValueGetter) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
81 upValueSymbols.add(name);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
82 upValueGetters.add(upValueGetter);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
83 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
84 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
85
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
86 private static final String IO = "-IO-";
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
87 private static final String MOD = "-MOD-";
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
88 private static final String ENV = "-ENV-";
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
89 private static final String INDENT = "-INDENT-";
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
90 private static final UpValue.Getter[] NO_UP_VALUE_GETTERS = new UpValue.Getter[0];
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
91
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
92 private final LuanSource source;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
93 private final Parser parser;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
94 private Frame frame = new Frame();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
95
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
96 private ThemeParser(LuanSource source) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
97 this.source = source;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
98 this.parser = new Parser(this.source);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
99 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
100
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
101 private LuanElement se(int start) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
102 return se(start,null);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
103 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
104
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
105 private LuanElement se(int start,String text) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
106 return new LuanElement(source,start,parser.currentIndex(),text);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
107 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
108
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
109 private int symbolsSize() {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
110 return frame.symbols.size();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
111 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
112
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
113 private void addSymbol(String name) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
114 frame.symbols.add(name);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
115 if( frame.stackSize < symbolsSize() )
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
116 frame.stackSize = symbolsSize();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
117 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
118
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
119 private FnDef newFnDef(int start,Stmt stmt) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
120 return new FnDef( se(start), stmt, frame.stackSize, symbolsSize(), frame.isVarArg, frame.upValueGetters.toArray(NO_UP_VALUE_GETTERS) );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
121 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
122
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
123 private int stackIndex(String name) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
124 return frame.stackIndex(name);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
125 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
126
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
127 private void popSymbols(int n) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
128 List<String> symbols = frame.symbols;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
129 while( n-- > 0 ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
130 symbols.remove(symbols.size()-1);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
131 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
132 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
133
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
134 private int upValueIndex(String name) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
135 return frame.upValueIndex(name);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
136 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
137
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
138 private ParseException exception(String msg) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
139 parser.failure();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
140 return parser.exception(msg);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
141 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
142
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
143 private Expr env() {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
144 return new GetLocalVar(null,stackIndex(ENV));
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
145 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
146
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
147 private FnDef parse() throws ParseException {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
148 List<Stmt> stmts = new ArrayList<Stmt>();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
149 int stackStart = symbolsSize();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
150 {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
151 addSymbol(IO);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
152 LuanElement se = se(0,"require 'luan:Io'");
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
153 FnCall requireCall = new FnCall( se, new ConstExpr(se,PackageLuan.requireFn), new ConstExpr(se,"luan:Io") );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
154 SetStmt setStmt = new SetStmt( new SetLocalVar(stackIndex(IO)), new ExpressionsExpr(requireCall) );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
155 stmts.add(setStmt);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
156 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
157 {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
158 addSymbol(MOD);
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
159 LuanElement se = se(0,"local M = {['-INDENT-']=''}");
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
160 TableExpr.Field indent = new TableExpr.Field(new ConstExpr(null,INDENT),new ConstExpr(null,""));
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
161 TableExpr tableExpr = new TableExpr( se, new TableExpr.Field[]{indent}, ExpList.emptyExpList );
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
162 SetStmt setStmt = new SetStmt( new SetLocalVar(stackIndex(MOD)), tableExpr );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
163 stmts.add(setStmt);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
164 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
165 while( !parser.endOfInput() ) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
166 Stmt def = parseDef();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
167 if( def != null ) {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
168 stmts.add(def);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
169 } else {
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
170 parser.anyChar();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
171 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
172 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
173 stmts.add( new ReturnStmt(null,new GetLocalVar(null,stackIndex(MOD))) );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
174 Stmt block = new Block( stmts.toArray(new Stmt[0]), stackStart, symbolsSize() );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
175 FnDef fnDef = newFnDef(0,block);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
176 return fnDef;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
177 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
178
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
179 private Stmt parseDef() throws ParseException {
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
180 int start = parser.begin();
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
181 if( !parser.match("{define:") )
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
182 return parser.failure(null);
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
183 String name = parseName();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
184 if( name==null )
600
b926e53910dd change theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 595
diff changeset
185 throw parser.exception("invalid block name");
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
186 if( !parser.match('}') )
600
b926e53910dd change theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 595
diff changeset
187 throw parser.exception("unclosed define tag");
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
188 String spaces = "";
600
b926e53910dd change theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 595
diff changeset
189 boolean indent = BlankLine();
b926e53910dd change theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 595
diff changeset
190 if( indent ) {
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
191 int startSpaces = parser.currentIndex();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
192 InlineSpaces();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
193 spaces = parser.textFrom(startSpaces);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
194 }
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
195 Expr table = new GetLocalVar(null,stackIndex(MOD));
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
196 Settable fnName = new SetTableEntry(se(start),table,new ConstExpr(null,name));
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
197 frame = new Frame(frame);
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
198 addSymbol(ENV);
600
b926e53910dd change theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 595
diff changeset
199 Stmt block = parseBody("define:"+name,spaces,indent);
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
200 FnDef fnDef = newFnDef(start,block);
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
201 frame = frame.parent;
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
202 Stmt rtn = new SetStmt(fnName,fnDef);
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
203 return parser.success(rtn);
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
204 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
205
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
206 private Stmt parseBody(String tagName,final String spaces,boolean afterIndent) throws ParseException {
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
207 List<Stmt> stmts = new ArrayList<Stmt>();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
208 int stackStart = symbolsSize();
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
209 int start = parser.currentIndex();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
210 {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
211 addSymbol(INDENT);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
212 final Expr env = env();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
213 Expr exp = new ExprImpl(se(start,"indent")) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
214 @Override public Object eval(LuanStateImpl luan) throws LuanException {
635
c83b8cefd922 better error handling in theme code
Franklin Schmidt <fschmidt@gmail.com>
parents: 634
diff changeset
215 Object obj = env.eval(luan);
c83b8cefd922 better error handling in theme code
Franklin Schmidt <fschmidt@gmail.com>
parents: 634
diff changeset
216 if( !(obj instanceof LuanTable) )
c83b8cefd922 better error handling in theme code
Franklin Schmidt <fschmidt@gmail.com>
parents: 634
diff changeset
217 throw new LuanException(luan,"bad argument (table expected, got "+Luan.type(obj)+")");
c83b8cefd922 better error handling in theme code
Franklin Schmidt <fschmidt@gmail.com>
parents: 634
diff changeset
218 LuanTable tbl = (LuanTable)obj;
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
219 String indent = (String)tbl.get(luan,INDENT);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
220 if( indent==null ) throw new NullPointerException();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
221 return indent;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
222 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
223 };
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
224 // Expr exp = new IndexExpr( se(start,"indent"), env(), new ConstExpr(null,INDENT) );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
225 SetStmt setStmt = new SetStmt( new SetLocalVar(stackIndex(INDENT)), exp );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
226 stmts.add(setStmt);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
227 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
228 int end = start;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
229 while( !matchEndTag(tagName) ) {
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
230 if( parser.endOfInput() )
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
231 throw exception("unclosed block");
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
232 Stmt block = parseBlock(spaces,afterIndent);
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
233 if( block != null ) {
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
234 addText(start,end,stmts,false);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
235 start = parser.currentIndex();
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
236 stmts.add(block);
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
237 afterIndent = false;
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
238 continue;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
239 }
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
240 {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
241 String extraSpaces = null;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
242 if( afterIndent ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
243 int startSpaces = parser.currentIndex();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
244 InlineSpaces();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
245 extraSpaces = parser.textFrom(startSpaces);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
246 end = parser.currentIndex();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
247 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
248 Stmt simpleTag = parseSimpleTag(extraSpaces);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
249 if( simpleTag != null ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
250 addText(start,end,stmts,false);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
251 start = parser.currentIndex();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
252 stmts.add(simpleTag);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
253 afterIndent = false;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
254 continue;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
255 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
256 if( extraSpaces!=null && extraSpaces.length() > 0 )
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
257 continue;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
258 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
259 if( EndOfLine() ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
260 end = parser.currentIndex();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
261 afterIndent = false;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
262 if( parser.match(spaces) ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
263 addText(start,end,stmts,true);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
264 start = parser.currentIndex();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
265 afterIndent = true;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
266 }
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
267 continue;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
268 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
269 parser.anyChar();
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
270 end = parser.currentIndex();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
271 afterIndent = false;
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
272 }
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
273 addText(start,end,stmts,false);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
274 Stmt block = new Block( stmts.toArray(new Stmt[0]), stackStart, symbolsSize() );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
275 popSymbols(1);
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
276 return block;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
277 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
278
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
279 private boolean matchEndTag(String tagName) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
280 parser.begin();
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
281 /*
600
b926e53910dd change theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 595
diff changeset
282 if( tagName.startsWith("define:") )
b926e53910dd change theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 595
diff changeset
283 EndOfLine();
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
284 */
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
285 if( EndOfLine() )
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
286 InlineSpaces();
600
b926e53910dd change theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 595
diff changeset
287 return parser.match("{/") && parser.match(tagName) && parser.match('}') ? parser.success() : parser.failure();
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
288 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
289
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
290 private void addText(int start,int end,List<Stmt> stmts,boolean indent) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
291 List<Expressions> args = new ArrayList<Expressions>();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
292 if( start < end ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
293 String text = parser.text.substring(start,end);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
294 args.add( new ConstExpr(null,text) );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
295 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
296 if( indent ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
297 args.add( new GetLocalVar(null,stackIndex(INDENT)) );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
298 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
299 if( !args.isEmpty() ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
300 Expr io = new GetUpVar(null,upValueIndex(IO));
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
301 Expr stdoutExp = new IndexExpr( se(start,"stdout"), io, new ConstExpr(null,"stdout") );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
302 Expr writeExp = new IndexExpr( se(start,"write"), stdoutExp, new ConstExpr(null,"write") );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
303 FnCall writeCall = new FnCall( se(start), writeExp, ExpList.build(args) );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
304 stmts.add( new ExpressionsStmt(writeCall) );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
305 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
306 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
307
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
308 private Stmt parseBlock(String spaces,boolean afterIndent) throws ParseException {
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
309 int start = parser.begin();
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
310 String tagSpaces = null;
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
311 if( afterIndent ) {
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
312 tagSpaces = spaces;
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
313 } else if( EndOfLine() ) {
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
314 int startSpaces = parser.currentIndex();
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
315 InlineSpaces();
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
316 tagSpaces = parser.textFrom(startSpaces);
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
317 }
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
318 if( !parser.match("{block:") )
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
319 return parser.failure(null);
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
320 String name = parseName();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
321 if( name==null )
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
322 throw exception("invalid block name");
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
323 if( !parser.match('}') )
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
324 return null;
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
325 if( tagSpaces != null ) {
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
326 parser.begin();
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
327 InlineSpaces();
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
328 if( EndOfLine() ) {
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
329 int startSpaces = parser.currentIndex();
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
330 InlineSpaces();
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
331 String line1Spaces = parser.textFrom(startSpaces);
608
Franklin Schmidt <fschmidt@gmail.com>
parents: 607
diff changeset
332 if( line1Spaces.startsWith(tagSpaces) ) {
Franklin Schmidt <fschmidt@gmail.com>
parents: 607
diff changeset
333 String newSpaces = spaces + line1Spaces.substring(tagSpaces.length());
Franklin Schmidt <fschmidt@gmail.com>
parents: 607
diff changeset
334 if( line1Spaces.startsWith(newSpaces) )
Franklin Schmidt <fschmidt@gmail.com>
parents: 607
diff changeset
335 spaces = newSpaces;
Franklin Schmidt <fschmidt@gmail.com>
parents: 607
diff changeset
336 }
607
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
337 }
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
338 parser.failure(); // rollback
c5ad80f869da improve theming indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 600
diff changeset
339 }
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
340 frame = new Frame(frame);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
341 addSymbol(ENV);
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
342 Stmt block = parseBody("block:"+name,spaces,false);
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
343 FnDef fnDef = newFnDef(start,block);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
344 frame = frame.parent;
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
345 // String rtn = "<% env." + tag.name + "(" + (tag.attrs.isEmpty() ? "nil" : table(tag.attrs)) + ",env,function(env) %>" + block + "<% end) %>";
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
346 Expr env = env();
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
347 Expr fn = new IndexExpr( se(start,"block:"+name), env, new ConstExpr(null,name) );
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
348 List<Expressions> args = new ArrayList<Expressions>();
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
349 args.add( env );
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
350 args.add( fnDef );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
351 FnCall fnCall = new FnCall( se(start), fn, ExpList.build(args) );
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
352 Stmt rtn = new ExpressionsStmt(fnCall);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
353 return parser.success(rtn);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
354 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
355
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
356 private Stmt parseSimpleTag(String spaces) throws ParseException {
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
357 int start = parser.begin();
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
358 if( !parser.match('{') )
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
359 return parser.failure(null);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
360 String name = parseName();
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
361 if( name==null )
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
362 return parser.failure(null);
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
363 if( !parser.match('}') )
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
364 return parser.failure(null);
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
365 // rtn = "<% env." + name + (attrs.isEmpty() ? "()" : table(attrs)) + " %>";
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
366 Expr env = env();
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
367 Expr fn = new IndexExpr( se(start,name), env, new ConstExpr(null,name) );
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
368 if( spaces!=null && spaces.length() > 0 ) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
369 final Expr oldEnv = env;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
370 final Expr oldIndentExpr = new GetLocalVar(null,stackIndex(INDENT));
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
371 final String addSpaces = spaces;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
372 env = new ExprImpl(se(start,"indent_env")) {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
373 @Override public Object eval(LuanStateImpl luan) throws LuanException {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
374 LuanTable mt = new LuanTable();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
375 mt.rawPut("__index",oldEnv.eval(luan));
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
376 LuanTable tbl = new LuanTable();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
377 tbl.setMetatable(mt);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
378 String oldIndent = (String)oldIndentExpr.eval(luan);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
379 String newIndent = oldIndent + addSpaces;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
380 tbl.rawPut(INDENT,newIndent);
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
381 return tbl;
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
382 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
383 };
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
384 }
595
8370c4009cce remove theme attributes
Franklin Schmidt <fschmidt@gmail.com>
parents: 594
diff changeset
385 FnCall fnCall = new FnCall( se(start), fn, env );
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
386 Stmt rtn = new ExpressionsStmt(fnCall);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
387 return parser.success(rtn);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
388 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
389
594
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
390 private void InlineSpaces() {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
391 while( parser.anyOf(" \t") );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
392 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
393
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
394 private boolean BlankLine() {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
395 parser.begin();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
396 while( parser.anyOf(" \t") );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
397 return EndOfLine() ? parser.success() : parser.failure();
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
398 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
399
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
400 private boolean EndOfLine() {
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
401 return parser.match( "\r\n" ) || parser.match( '\r' ) || parser.match( '\n' );
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
402 }
e91e476186c7 theme indentation
Franklin Schmidt <fschmidt@gmail.com>
parents: 593
diff changeset
403
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
404 private String parseName() throws ParseException {
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
405 int start = parser.begin();
616
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
406 if( parser.match('/') )
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
407 throw exception("bad closing tag");
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
408 if( parser.match("define:") )
56b0b9018319 improve ThemeParser error handling
Franklin Schmidt <fschmidt@gmail.com>
parents: 608
diff changeset
409 throw exception("unexpected definition");
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
410 if( !NameChar() )
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
411 return parser.failure(null);
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
412 while( NameChar() );
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
413 String match = parser.textFrom(start);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
414 return parser.success(match);
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
415 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
416
593
92c9fa5e39e6 remove theme "Get" and "Set", and add "define"
Franklin Schmidt <fschmidt@gmail.com>
parents: 587
diff changeset
417 private boolean NameChar() {
587
Franklin Schmidt <fschmidt@gmail.com>
parents: 586
diff changeset
418 return parser.inCharRange('a', 'z') || parser.inCharRange('A', 'Z')
634
3dde072c3420 allow "." in theme function name
Franklin Schmidt <fschmidt@gmail.com>
parents: 616
diff changeset
419 || parser.inCharRange('0', '9') || parser.anyOf("-_.");
584
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
420 }
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
421
0742ac78fa69 add Luan.load_theme
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
422 }