|
584
|
1 package luan.impl;
|
|
|
2
|
|
|
3 import java.util.Map;
|
|
|
4 import java.util.HashMap;
|
|
|
5 import java.util.List;
|
|
|
6 import java.util.ArrayList;
|
|
|
7 import luan.LuanSource;
|
|
|
8 import luan.LuanTable;
|
|
|
9 import luan.LuanElement;
|
|
|
10 import luan.LuanState;
|
|
|
11 import luan.LuanFunction;
|
|
|
12 import luan.LuanException;
|
|
|
13 import luan.modules.PackageLuan;
|
|
|
14
|
|
|
15
|
|
|
16 public final class ThemeParser {
|
|
|
17
|
|
|
18 public static LuanFunction compile(LuanState luan,LuanSource source) throws LuanException {
|
|
|
19 try {
|
|
|
20 FnDef fnDef = new ThemeParser(source).parse();
|
|
|
21 final LuanStateImpl luanImpl = (LuanStateImpl)luan;
|
|
|
22 return new Closure(luanImpl,fnDef);
|
|
|
23 } catch(ParseException e) {
|
|
|
24 //e.printStackTrace();
|
|
|
25 throw new LuanException(luan, e.getFancyMessage() );
|
|
|
26 }
|
|
|
27 }
|
|
|
28
|
|
|
29 private static final class Frame {
|
|
|
30 final Frame parent;
|
|
|
31 final List<String> symbols = new ArrayList<String>();
|
|
|
32 int stackSize = 0;
|
|
|
33 final boolean isVarArg;
|
|
|
34 final List<String> upValueSymbols = new ArrayList<String>();
|
|
|
35 final List<UpValue.Getter> upValueGetters = new ArrayList<UpValue.Getter>();
|
|
|
36
|
|
|
37 Frame() {
|
|
|
38 this.parent = null;
|
|
|
39 isVarArg = true;
|
|
|
40 }
|
|
|
41
|
|
|
42 Frame(Frame parent) {
|
|
|
43 this.parent = parent;
|
|
|
44 isVarArg = false;
|
|
|
45 if( upValueIndex(MOD) != 0 )
|
|
|
46 throw new RuntimeException();
|
|
|
47 }
|
|
|
48
|
|
|
49 int stackIndex(String name) {
|
|
|
50 int i = symbols.size();
|
|
|
51 while( --i >= 0 ) {
|
|
|
52 if( symbols.get(i).equals(name) )
|
|
|
53 return i;
|
|
|
54 }
|
|
|
55 return -1;
|
|
|
56 }
|
|
|
57
|
|
|
58 int upValueIndex(String name) {
|
|
|
59 int i = upValueSymbols.size();
|
|
|
60 while( --i >= 0 ) {
|
|
|
61 if( upValueSymbols.get(i).equals(name) )
|
|
|
62 return i;
|
|
|
63 }
|
|
|
64 if( parent==null )
|
|
|
65 return -1;
|
|
|
66 i = parent.stackIndex(name);
|
|
|
67 if( i != -1 ) {
|
|
|
68 upValueGetters.add(new UpValue.StackGetter(i));
|
|
|
69 } else {
|
|
|
70 i = parent.upValueIndex(name);
|
|
|
71 if( i == -1 )
|
|
|
72 return -1;
|
|
|
73 upValueGetters.add(new UpValue.NestedGetter(i));
|
|
|
74 }
|
|
|
75 upValueSymbols.add(name);
|
|
|
76 return upValueSymbols.size() - 1;
|
|
|
77 }
|
|
|
78
|
|
|
79 void addUpValueGetter(String name,UpValue.Getter upValueGetter) {
|
|
|
80 upValueSymbols.add(name);
|
|
|
81 upValueGetters.add(upValueGetter);
|
|
|
82 }
|
|
|
83 }
|
|
|
84
|
|
|
85 private static final String IO = "-IO-";
|
|
|
86 private static final String MOD = "-MOD-";
|
|
|
87 private static final String ENV = "-ENV-";
|
|
|
88 private static final UpValue.Getter[] NO_UP_VALUE_GETTERS = new UpValue.Getter[0];
|
|
|
89
|
|
|
90 private final LuanSource source;
|
|
|
91 private final Parser parser;
|
|
|
92 private Frame frame = new Frame();
|
|
|
93
|
|
|
94 private ThemeParser(LuanSource source) {
|
|
|
95 this.source = source;
|
|
|
96 this.parser = new Parser(this.source);
|
|
|
97 }
|
|
|
98
|
|
|
99 private LuanElement se(int start) {
|
|
|
100 return se(start,null);
|
|
|
101 }
|
|
|
102
|
|
|
103 private LuanElement se(int start,String text) {
|
|
|
104 return new LuanElement(source,start,parser.currentIndex(),text);
|
|
|
105 }
|
|
|
106
|
|
|
107 private int symbolsSize() {
|
|
|
108 return frame.symbols.size();
|
|
|
109 }
|
|
|
110
|
|
|
111 private void addSymbol(String name) {
|
|
|
112 frame.symbols.add(name);
|
|
|
113 if( frame.stackSize < symbolsSize() )
|
|
|
114 frame.stackSize = symbolsSize();
|
|
|
115 }
|
|
|
116
|
|
|
117 private FnDef newFnDef(int start,Stmt stmt) {
|
|
|
118 return new FnDef( se(start), stmt, frame.stackSize, symbolsSize(), frame.isVarArg, frame.upValueGetters.toArray(NO_UP_VALUE_GETTERS) );
|
|
|
119 }
|
|
|
120
|
|
|
121 private int stackIndex(String name) {
|
|
|
122 return frame.stackIndex(name);
|
|
|
123 }
|
|
|
124
|
|
|
125 private int upValueIndex(String name) {
|
|
|
126 return frame.upValueIndex(name);
|
|
|
127 }
|
|
|
128
|
|
|
129 private ParseException exception(String msg) {
|
|
|
130 parser.failure();
|
|
|
131 return parser.exception(msg);
|
|
|
132 }
|
|
|
133
|
|
|
134 private Expr env() {
|
|
|
135 return new GetLocalVar(null,stackIndex(ENV));
|
|
|
136 }
|
|
|
137
|
|
|
138 private FnDef parse() throws ParseException {
|
|
|
139 List<Stmt> stmts = new ArrayList<Stmt>();
|
|
|
140 int stackStart = symbolsSize();
|
|
|
141 {
|
|
|
142 addSymbol(IO);
|
|
|
143 LuanElement se = se(0,"require 'luan:Io'");
|
|
|
144 FnCall requireCall = new FnCall( se, new ConstExpr(se,PackageLuan.requireFn), new ConstExpr(se,"luan:Io") );
|
|
|
145 SetStmt setStmt = new SetStmt( new SetLocalVar(stackIndex(IO)), new ExpressionsExpr(requireCall) );
|
|
|
146 stmts.add(setStmt);
|
|
|
147 }
|
|
|
148 {
|
|
|
149 addSymbol(MOD);
|
|
|
150 LuanElement se = se(0,"local M = {}");
|
|
|
151 TableExpr tableExpr = new TableExpr( se, new TableExpr.Field[0], ExpList.emptyExpList );
|
|
|
152 SetStmt setStmt = new SetStmt( new SetLocalVar(stackIndex(MOD)), tableExpr );
|
|
|
153 stmts.add(setStmt);
|
|
|
154 }
|
|
|
155 while( !parser.endOfInput() ) {
|
|
|
156 Stmt def = parseDef();
|
|
|
157 if( def != null ) {
|
|
|
158 stmts.add(def);
|
|
|
159 } else {
|
|
|
160 parser.anyChar();
|
|
|
161 }
|
|
|
162 }
|
|
|
163 stmts.add( new ReturnStmt(null,new GetLocalVar(null,stackIndex(MOD))) );
|
|
|
164 Stmt block = new Block( stmts.toArray(new Stmt[0]), stackStart, symbolsSize() );
|
|
|
165 FnDef fnDef = newFnDef(0,block);
|
|
|
166 return fnDef;
|
|
|
167 }
|
|
|
168
|
|
|
169 private static class Tag {
|
|
|
170 final String name;
|
|
|
171 final Map<String,String> attrs;
|
|
|
172
|
|
|
173 Tag(String name,Map<String,String> attrs) {
|
|
|
174 this.name = name;
|
|
|
175 this.attrs = attrs;
|
|
|
176 }
|
|
|
177 }
|
|
|
178
|
|
|
179 private Stmt parseDef() throws ParseException {
|
|
|
180 int start = parser.begin();
|
|
|
181 Tag tag = parseBlockTag();
|
|
|
182 if( tag == null )
|
|
|
183 return parser.failure(null);
|
|
586
|
184 parser.match('\r'); parser.match('\n'); // ignore newline
|
|
584
|
185 Stmt rtn = null;
|
|
|
186 if( tag.name.equals("Set") ) {
|
|
|
187 String name = tag.attrs.remove("name");
|
|
|
188 if( name == null )
|
|
|
189 throw exception("block:Set missing required attribute 'name'");
|
|
|
190 if( !tag.attrs.isEmpty() )
|
|
|
191 throw exception("block:Set has unrecognized attributes: "+tag.attrs);
|
|
|
192 if( !validateName(name) )
|
|
|
193 throw exception("invalid Set name: "+name);
|
|
|
194 addSymbol( name );
|
|
|
195 frame = new Frame(frame);
|
|
|
196 addSymbol(ENV);
|
|
|
197 Stmt block = parseBody(tag);
|
|
|
198 FnDef fnDef = newFnDef(start,block);
|
|
|
199 frame = frame.parent;
|
|
|
200 rtn = new SetStmt( new SetLocalVar(symbolsSize()-1), fnDef );
|
|
|
201 } else {
|
|
|
202 if( !tag.attrs.isEmpty() )
|
|
|
203 throw exception("this block should have no attributes");
|
|
|
204 Expr table = new GetLocalVar(null,stackIndex(MOD));
|
|
|
205 Settable fnName = new SetTableEntry(se(start),table,new ConstExpr(null,tag.name));
|
|
|
206 frame = new Frame(frame);
|
|
|
207 addSymbol(ENV);
|
|
|
208 Stmt block = parseBody(tag);
|
|
|
209 FnDef fnDef = newFnDef(start,block);
|
|
|
210 frame = frame.parent;
|
|
|
211 rtn = new SetStmt(fnName,fnDef);
|
|
|
212 }
|
|
|
213 return parser.success(rtn);
|
|
|
214 }
|
|
|
215
|
|
|
216 private Stmt parseBody(Tag tag) throws ParseException {
|
|
|
217 String endTag = "{/block:" + tag.name + "}";
|
|
|
218 List<Stmt> stmts = new ArrayList<Stmt>();
|
|
|
219 int stackStart = symbolsSize();
|
|
|
220 StringBuilder sb = new StringBuilder();
|
|
|
221 int start = -1;
|
|
|
222 while( !parser.match(endTag) ) {
|
|
|
223 if( parser.endOfInput() )
|
|
|
224 throw exception("unclosed block");
|
|
|
225 Stmt block = parseBlock();
|
|
|
226 if( block != null ) {
|
|
|
227 addText(start,stmts,sb);
|
|
|
228 stmts.add(block);
|
|
|
229 continue;
|
|
|
230 }
|
|
|
231 Stmt simpleTag = parseSimpleTag();
|
|
|
232 if( simpleTag != null ) {
|
|
|
233 addText(start,stmts,sb);
|
|
|
234 stmts.add(simpleTag);
|
|
|
235 continue;
|
|
|
236 }
|
|
|
237 if( sb.length() == 0 )
|
|
|
238 start = parser.currentIndex();
|
|
|
239 sb.append( parser.currentChar() );
|
|
|
240 parser.anyChar();
|
|
|
241 }
|
|
|
242 addText(start,stmts,sb);
|
|
|
243 Stmt block = new Block( stmts.toArray(new Stmt[0]), 0, symbolsSize() );
|
|
|
244 return block;
|
|
|
245 }
|
|
|
246
|
|
|
247 private void addText(int start,List<Stmt> stmts,StringBuilder sb) {
|
|
|
248 if( sb.length() == 0 )
|
|
|
249 return;
|
|
|
250 Expr io = new GetUpVar(null,upValueIndex(IO));
|
|
|
251 Expr stdoutExp = new IndexExpr( se(start,"stdout"), io, new ConstExpr(null,"stdout") );
|
|
|
252 Expr writeExp = new IndexExpr( se(start,"write"), stdoutExp, new ConstExpr(null,"write") );
|
|
|
253 FnCall writeCall = new FnCall( se(start), writeExp, new ConstExpr(null,sb.toString()) );
|
|
|
254 stmts.add( new ExpressionsStmt(writeCall) );
|
|
|
255 sb.setLength(0);
|
|
|
256 }
|
|
|
257
|
|
|
258 private Stmt parseBlock() throws ParseException {
|
|
|
259 int start = parser.begin();
|
|
|
260 Tag tag = parseBlockTag();
|
|
|
261 if( tag == null )
|
|
|
262 return parser.failure(null);
|
|
|
263 if( tag.name.equals("Set") )
|
|
|
264 throw exception("block:Set not allowed here");
|
|
|
265 frame = new Frame(frame);
|
|
|
266 addSymbol(ENV);
|
|
|
267 Stmt block = parseBody(tag);
|
|
|
268 FnDef fnDef = newFnDef(start,block);
|
|
|
269 frame = frame.parent;
|
|
|
270 // String rtn = "<% env." + tag.name + "(" + (tag.attrs.isEmpty() ? "nil" : table(tag.attrs)) + ",env,function(env) %>" + block + "<% end) %>";
|
|
|
271 Expr env = env();
|
|
|
272 Expr fn = new IndexExpr( se(start,"block:"+tag.name), env, new ConstExpr(null,tag.name) );
|
|
|
273 List<Expressions> args = new ArrayList<Expressions>();
|
|
|
274 args.add( tag.attrs.isEmpty() ? new ConstExpr(null,null) : table(tag.attrs) );
|
|
|
275 args.add( env );
|
|
|
276 args.add( fnDef );
|
|
|
277 FnCall fnCall = new FnCall( se(start), fn, ExpList.build(args) );
|
|
|
278 Stmt rtn = new ExpressionsStmt(fnCall);
|
|
|
279 return parser.success(rtn);
|
|
|
280 }
|
|
|
281
|
|
|
282 private Tag parseBlockTag() throws ParseException {
|
|
|
283 parser.begin();
|
|
|
284 if( !parser.match("{block:") )
|
|
|
285 return parser.failure(null);
|
|
|
286 String name = parseName();
|
|
|
287 if( name==null )
|
|
|
288 throw exception("invalid block name");
|
|
|
289 Map<String,String> attrs = parseAttrs();
|
|
|
290 if( !parser.match("}") )
|
|
|
291 return parser.failure(null);
|
|
|
292 Tag tag = new Tag(name,attrs);
|
|
|
293 return parser.success(tag);
|
|
|
294 }
|
|
|
295
|
|
|
296 private Stmt parseSimpleTag() throws ParseException {
|
|
|
297 int start = parser.begin();
|
|
|
298 if( !parser.match("{") )
|
|
|
299 return parser.failure(null);
|
|
|
300 String name = parseName();
|
|
|
301 if( name==null )
|
|
|
302 return parser.failure(null);
|
|
|
303 Map<String,String> attrs = parseAttrs();
|
|
|
304 if( !parser.match("}") )
|
|
|
305 return parser.failure(null);
|
|
|
306 FnCall fnCall;
|
|
|
307 if( name.equals("Get") ) {
|
|
|
308 name = attrs.remove("name");
|
|
|
309 if( name == null )
|
|
|
310 throw exception("Get missing required attribute 'name'");
|
|
|
311 if( !attrs.isEmpty() )
|
|
|
312 throw exception("Get has unrecognized attributes: "+attrs);
|
|
|
313 if( !validateName(name) )
|
|
|
314 throw exception("invalid Get name: "+name);
|
|
|
315 // rtn = "<% " + name + "(env) %>";
|
|
|
316 int index = upValueIndex(name);
|
|
|
317 if( index == -1 )
|
|
|
318 throw exception("name '"+name+"' not defined");
|
|
|
319 Expr fn = new GetUpVar(se(start,name),index);
|
|
|
320 fnCall = new FnCall( se(start), fn, env() );
|
|
|
321 } else {
|
|
|
322 // rtn = "<% env." + name + (attrs.isEmpty() ? "()" : table(attrs)) + " %>";
|
|
|
323 Expr fn = new IndexExpr( se(start,name), env(), new ConstExpr(null,name) );
|
|
|
324 Expressions args = attrs.isEmpty() ? ExpList.emptyExpList : table(attrs);
|
|
|
325 fnCall = new FnCall( se(start), fn, args );
|
|
|
326 }
|
|
|
327 Stmt rtn = new ExpressionsStmt(fnCall);
|
|
|
328 return parser.success(rtn);
|
|
|
329 }
|
|
|
330
|
|
|
331 private TableExpr table(Map<String,String> attrs) {
|
|
|
332 List<TableExpr.Field> fields = new ArrayList<TableExpr.Field>();
|
|
|
333 for( Map.Entry<String,String> entry : attrs.entrySet() ) {
|
|
|
334 ConstExpr key = new ConstExpr(null,entry.getKey());
|
|
|
335 ConstExpr value = new ConstExpr(null,entry.getValue());
|
|
|
336 fields.add( new TableExpr.Field(key,value) );
|
|
|
337 }
|
|
|
338 return new TableExpr( null, fields.toArray(new TableExpr.Field[0]), ExpList.emptyExpList );
|
|
|
339 }
|
|
|
340
|
|
|
341 private Map<String,String> parseAttrs() {
|
|
|
342 Map<String,String> attrs = new HashMap<String,String>();
|
|
|
343 while( parseAttr(attrs) );
|
|
|
344 Spaces();
|
|
|
345 return attrs;
|
|
|
346 }
|
|
|
347
|
|
|
348 private boolean parseAttr(Map<String,String> attrs) {
|
|
|
349 parser.begin();
|
|
|
350 Spaces();
|
|
|
351 String name = parseName();
|
|
|
352 if( name==null )
|
|
|
353 return parser.failure();
|
|
|
354 Spaces();
|
|
|
355 if( !parser.match('=') )
|
|
|
356 return parser.failure();
|
|
|
357 Spaces();
|
|
|
358 if( !parser.match('"') )
|
|
|
359 return parser.failure();
|
|
|
360 int start = parser.currentIndex();
|
|
|
361 while( parser.noneOf("\"}") );
|
|
|
362 String val = parser.textFrom(start);
|
|
|
363 if( !parser.match('"') )
|
|
|
364 return parser.failure();
|
|
|
365 attrs.put(name,val);
|
|
|
366 return parser.success();
|
|
|
367 }
|
|
|
368
|
|
|
369 private void Spaces() {
|
|
|
370 while( parser.anyOf(" \t\r\n") );
|
|
|
371 }
|
|
|
372
|
|
|
373 private String parseName() {
|
|
|
374 return parseName(parser);
|
|
|
375 }
|
|
|
376
|
|
|
377 private static boolean validateName(String name) {
|
|
|
378 return name.equals(parseName(new Parser(new LuanSource("NAME",name))));
|
|
|
379 }
|
|
|
380
|
|
|
381 private static String parseName(Parser parser) {
|
|
|
382 int start = parser.begin();
|
|
|
383 if( !NameFirstChar(parser) )
|
|
|
384 return parser.failure(null);
|
|
|
385 while( NameChar(parser) );
|
|
|
386 String match = parser.textFrom(start);
|
|
|
387 return parser.success(match);
|
|
|
388 }
|
|
|
389
|
|
|
390 private static boolean NameChar(Parser parser) {
|
|
|
391 return NameFirstChar(parser) || parser.inCharRange('0', '9');
|
|
|
392 }
|
|
|
393
|
|
|
394 private static boolean NameFirstChar(Parser parser) {
|
|
|
395 return parser.inCharRange('a', 'z') || parser.inCharRange('A', 'Z') || parser.match('_');
|
|
|
396 }
|
|
|
397
|
|
|
398 }
|
