8de5b49cdf 2010-11-09 kinaba: /** 4198578702 2010-11-07 kinaba: * Authors: k.inaba 4198578702 2010-11-07 kinaba: * License: NYSL 0.9982 http://www.kmonos.net/nysl/ 4198578702 2010-11-07 kinaba: * 4198578702 2010-11-07 kinaba: * Evaluator for Polemy programming language. 423f308350 2010-11-07 kinaba: */ 4198578702 2010-11-07 kinaba: module polemy.eval; 4198578702 2010-11-07 kinaba: import polemy._common; 3464a035ec 2010-11-20 kinaba: import polemy.failure; 423f308350 2010-11-07 kinaba: import polemy.ast; 3f5dc76a75 2010-11-07 kinaba: import polemy.parse; b0d8d7875b 2010-11-08 kinaba: import polemy.value; 435fa085ec 2010-11-21 kinaba: import polemy.layer; 36c517dfc4 2010-11-23 kinaba: import polemy.value; 36c517dfc4 2010-11-23 kinaba: import polemy.valueconv; 552d43f567 2010-11-26 kinaba: import std.signals; 1c01f44f52 2010-11-13 kinaba: b97bd4f713 2010-11-23 kinaba: /// Objects for maitaining global environment and evaluation of expression on it 6ac127ddd0 2010-11-23 kinaba: class Evaluator 423f308350 2010-11-07 kinaba: { 6ac127ddd0 2010-11-23 kinaba: public: b97bd4f713 2010-11-23 kinaba: /// Initialize evaluator with empty context 6ac127ddd0 2010-11-23 kinaba: this() { theContext = new Table; } 6ac127ddd0 2010-11-23 kinaba: b97bd4f713 2010-11-23 kinaba: /// Evaluate the AST 6ac127ddd0 2010-11-23 kinaba: Value evalAST(AST e) 6ac127ddd0 2010-11-23 kinaba: { 6760e0dd02 2010-11-26 kinaba: return macroAndEval(e, ValueLayer, theContext, OverwriteCtx); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: b97bd4f713 2010-11-23 kinaba: /// Evaluate the string 6ac127ddd0 2010-11-23 kinaba: Value evalString(S,T...)(S str, T fn_ln_cn) 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: return evalAST(parseString(str,fn_ln_cn)); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: b97bd4f713 2010-11-23 kinaba: /// Evaluate the file 6ac127ddd0 2010-11-23 kinaba: Value evalFile(S,T...)(S filename, T ln_cn) 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: return evalAST(parseFile(filename,ln_cn)); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: b97bd4f713 2010-11-23 kinaba: /// Get the global context 6ac127ddd0 2010-11-23 kinaba: Table globalContext() 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: return theContext; 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: private: 6ac127ddd0 2010-11-23 kinaba: Table theContext; 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: enum : bool { CascadeCtx=false, OverwriteCtx=true }; ba11f1d551 2010-11-23 kinaba: 6760e0dd02 2010-11-26 kinaba: LayerEval getLayerEvaluator(Layer lay) ba11f1d551 2010-11-23 kinaba: { 6760e0dd02 2010-11-26 kinaba: if( lay == ValueLayer ) 6760e0dd02 2010-11-26 kinaba: return new ValueLayerEval; 6760e0dd02 2010-11-26 kinaba: if( lay == RawMacroLayer ) 6760e0dd02 2010-11-26 kinaba: return new RawMacroLayerEval; 6760e0dd02 2010-11-26 kinaba: if( lay == MacroLayer ) 6760e0dd02 2010-11-26 kinaba: return new MacroLayerEval; 6760e0dd02 2010-11-26 kinaba: return new UserDefinedLayerEval(lay); ba11f1d551 2010-11-23 kinaba: } ba11f1d551 2010-11-23 kinaba: 6760e0dd02 2010-11-26 kinaba: abstract class LayerEval a5fe6233c1 2010-11-21 kinaba: { 6760e0dd02 2010-11-26 kinaba: /// Concrete layers should implement these 6760e0dd02 2010-11-26 kinaba: Layer currentLayer(); 6760e0dd02 2010-11-26 kinaba: Value eval_( Die e, Table ctx, bool ctxMod );/// 6760e0dd02 2010-11-26 kinaba: Value eval_( Str e, Table ctx, bool ctxMod );/// 6760e0dd02 2010-11-26 kinaba: Value eval_( Int e, Table ctx, bool ctxMod );/// 6760e0dd02 2010-11-26 kinaba: Value eval_( Var e, Table ctx, bool ctxMod );/// 6760e0dd02 2010-11-26 kinaba: Value eval_( Lay e, Table ctx, bool ctxMod );/// 6760e0dd02 2010-11-26 kinaba: Value eval_( Let e, Table ctx, bool ctxMod );/// 6760e0dd02 2010-11-26 kinaba: Value eval_( App e, Table ctx, bool ctxMod );/// 6760e0dd02 2010-11-26 kinaba: Value eval_( Fun e, Table ctx, bool ctxMod );/// 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: /// dynamic-overload-resolution 6760e0dd02 2010-11-26 kinaba: Value eval( AST e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: enum funName = "eval_"; // modify here to customize 6760e0dd02 2010-11-26 kinaba: alias TypeTuple!(e,ctx,ctxMod) params; // modify here to customize 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: alias typeof(__traits(getOverloads, this, funName)) ovTypes; 6760e0dd02 2010-11-26 kinaba: alias staticMap!(firstParam, ovTypes) fstTypes; 6760e0dd02 2010-11-26 kinaba: alias DerivedToFront!(fstTypes) fstTypes_sorted; 6760e0dd02 2010-11-26 kinaba: foreach(i, T; fstTypes_sorted) 6760e0dd02 2010-11-26 kinaba: static if( is(T == typeof(params[0])) ) {} else if( auto _x = cast(T)params[0] ) 6760e0dd02 2010-11-26 kinaba: return __traits(getOverloads, this, funName)[i](_x, params[1..$]); 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: // modify here to customize the default behavior 6760e0dd02 2010-11-26 kinaba: assert(false, text("eval() for ",typeid(e)," [",e.pos,"] is not defined")); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: /// 6760e0dd02 2010-11-26 kinaba: Value invokeFunction(Value _f, AST[] args, Table ctx, LexPosition pos, string callstackmsg) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: if(auto f = cast(FunValue)_f) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Table newCtx = new Table(f.definitionContext(), Table.Kind.NotPropagateSet); 6760e0dd02 2010-11-26 kinaba: foreach(i,p; f.params()) 6760e0dd02 2010-11-26 kinaba: if( p.layers.empty ) { 6760e0dd02 2010-11-26 kinaba: Value v = this.eval(args[i], ctx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: if(v is null) v = ast2table(args[i]); 6760e0dd02 2010-11-26 kinaba: newCtx.set(p.name, currentLayer(), v); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: else 6760e0dd02 2010-11-26 kinaba: foreach(argLay; p.layers) { 6760e0dd02 2010-11-26 kinaba: Layer ll = argLay; 6760e0dd02 2010-11-26 kinaba: if( isMacroLayer(argLay) && typeid(this)!=typeid(MacroLayerEval) ) 6760e0dd02 2010-11-26 kinaba: ll = RawMacroLayer; // explicit @macro invokes (rawmacro) 6760e0dd02 2010-11-26 kinaba: Value v = getLayerEvaluator(ll).eval(args[i], ctx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: if(v is null) v = ast2table(args[i]); 6760e0dd02 2010-11-26 kinaba: newCtx.set(p.name, argLay, v); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: scope _ = new PushCallStack(pos, callstackmsg); 6760e0dd02 2010-11-26 kinaba: return f.invoke(currentLayer(), newCtx, pos); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: throw genex!RuntimeException(pos, text("tried to call non-function: ",_f)); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: /// 6760e0dd02 2010-11-26 kinaba: Value lift(Value v, Table ctx, LexPosition pos) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Layer lay = currentLayer(); 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: // functions are automatically lifterd 6760e0dd02 2010-11-26 kinaba: if( cast(FunValue) v ) 6760e0dd02 2010-11-26 kinaba: return v; 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: if( !ctx.has(lay, LiftLayer) ) 6760e0dd02 2010-11-26 kinaba: throw genex!RuntimeException(pos, "lift function for "~lay~" is not registered" ); 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: // similar to invokeFunction, but with only one argument bound to ValueLayer 6760e0dd02 2010-11-26 kinaba: auto _f = ctx.get(lay, LiftLayer, pos); 6760e0dd02 2010-11-26 kinaba: if(auto f = cast(FunValue)_f) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Table newCtx = new Table(f.definitionContext(), Table.Kind.NotPropagateSet); 6760e0dd02 2010-11-26 kinaba: auto ps = f.params(); 6760e0dd02 2010-11-26 kinaba: if( ps.length != 1 ) 6760e0dd02 2010-11-26 kinaba: throw genex!RuntimeException(pos, 6760e0dd02 2010-11-26 kinaba: text("lift function for", lay, " must take exactly one argument of ", ValueLayer)); 6760e0dd02 2010-11-26 kinaba: if( ps[0].layers.length==0 || ps[0].layers.length==1 && ps[0].layers[0]==ValueLayer ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: newCtx.set(ps[0].name, ValueLayer, v); 6760e0dd02 2010-11-26 kinaba: scope _ = new PushCallStack(pos, lay); 6760e0dd02 2010-11-26 kinaba: return f.invoke(ValueLayer, newCtx, pos); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: else 6760e0dd02 2010-11-26 kinaba: throw genex!RuntimeException(pos, 6760e0dd02 2010-11-26 kinaba: text("lift function for", lay, " must take exactly one argument of ", ValueLayer)); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: throw genex!RuntimeException(pos, 6760e0dd02 2010-11-26 kinaba: text("non-function ", _f, " is registered as the lift function for ", lay)); 6760e0dd02 2010-11-26 kinaba: } f86026acb8 2010-11-21 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6760e0dd02 2010-11-26 kinaba: /// Evaluator for standard @value semantics 6760e0dd02 2010-11-26 kinaba: class ValueLayerEval : LayerEval 6ac127ddd0 2010-11-23 kinaba: { 6760e0dd02 2010-11-26 kinaba: override Layer currentLayer() 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return ValueLayer; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Die e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: throw genex!RuntimeException(e.pos, "undefined case"); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Str e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return new StrValue(e.data); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Int e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return new IntValue(e.data); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Var e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return ctx.get(e.name, currentLayer(), e.pos); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Lay e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: auto le = getLayerEvaluator(e.layer); 6760e0dd02 2010-11-26 kinaba: auto v = le.eval(e.expr,ctx,CascadeCtx); 6760e0dd02 2010-11-26 kinaba: if( (v is null) && (cast(MacroLayerEval)le !is null) ) 6760e0dd02 2010-11-26 kinaba: return ast2table(e.expr); 6760e0dd02 2010-11-26 kinaba: else 6760e0dd02 2010-11-26 kinaba: return v; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Let e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Table newCtx = ctxMod ? ctx : new Table(ctx, Table.Kind.NotPropagateSet); 6760e0dd02 2010-11-26 kinaba: Value ri = this.eval(e.init, newCtx, CascadeCtx); f8684f4d69 2010-11-26 kinaba: if(e.name!="_") 6760e0dd02 2010-11-26 kinaba: newCtx.set(e.name, e.layer.empty ? currentLayer() : e.layer, ri); 6760e0dd02 2010-11-26 kinaba: return this.eval(e.expr, newCtx, OverwriteCtx); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( App e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Value f = this.eval( e.fun, ctx, CascadeCtx ); 6760e0dd02 2010-11-26 kinaba: return this.invokeFunction(f, e.args, ctx, e.pos, getNameIfPossible(e.fun)); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Fun e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return createNewFunction(e, ctx); f7e9e77316 2010-11-26 kinaba: } f7e9e77316 2010-11-26 kinaba: } f7e9e77316 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: /// Evaluator for user-defined layer 6760e0dd02 2010-11-26 kinaba: class UserDefinedLayerEval : ValueLayerEval f7e9e77316 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Layer layerID; 6760e0dd02 2010-11-26 kinaba: mixin SimpleConstructor; 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: override Layer currentLayer() 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return layerID; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Die e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { f7e9e77316 2010-11-26 kinaba: return new UndefinedValue; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Str e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return this.lift(new StrValue(e.data), ctx, e.pos); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Int e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return this.lift(new IntValue(e.data), ctx, e.pos); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Var e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: if( ctx.has(e.name, currentLayer()) ) 6760e0dd02 2010-11-26 kinaba: return ctx.get(e.name, currentLayer()); 6760e0dd02 2010-11-26 kinaba: return this.lift(ctx.get(e.name, ValueLayer, e.pos), ctx, e.pos); 6760e0dd02 2010-11-26 kinaba: } 552d43f567 2010-11-26 kinaba: } 552d43f567 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: // Convention!! 6760e0dd02 2010-11-26 kinaba: // returns null if never used macro-like feature 6760e0dd02 2010-11-26 kinaba: class MacroLayerEval : LayerEval 552d43f567 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: override Layer currentLayer() 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return MacroLayer; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Die e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return null; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Str e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return null; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Int e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: return null; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Var e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: if( ctx.has(e.name, currentLayer()) ) 6760e0dd02 2010-11-26 kinaba: return ctx.get(e.name, currentLayer(), e.pos); 6760e0dd02 2010-11-26 kinaba: else 6760e0dd02 2010-11-26 kinaba: return null; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Lay e, Table ctx, bool ctxMod ) 552d43f567 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: auto le = getLayerEvaluator(e.layer); 6760e0dd02 2010-11-26 kinaba: return le.eval(e.expr,ctx,CascadeCtx); 552d43f567 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Let e, Table ctx, bool ctxMod ) 552d43f567 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Table newCtx = ctxMod ? ctx : new Table(ctx, Table.Kind.NotPropagateSet); 6760e0dd02 2010-11-26 kinaba: Value ai = this.eval(e.init, newCtx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: newCtx.set(e.name, NoopLayer, null); 6760e0dd02 2010-11-26 kinaba: Value ae = this.eval(e.expr, newCtx, OverwriteCtx); 6760e0dd02 2010-11-26 kinaba: if( ai is null && ae is null ) 6760e0dd02 2010-11-26 kinaba: return null; 6760e0dd02 2010-11-26 kinaba: if( ai is null ) ai = ast2table(e.init); 6760e0dd02 2010-11-26 kinaba: if( ae is null ) ae = ast2table(e.expr); 6760e0dd02 2010-11-26 kinaba: return ast2table(e, delegate Value (AST _){ 6760e0dd02 2010-11-26 kinaba: if(_ is e.init) { return ai; } 6760e0dd02 2010-11-26 kinaba: if(_ is e.expr) { return ae; } 6760e0dd02 2010-11-26 kinaba: assert(false); 6760e0dd02 2010-11-26 kinaba: }); 552d43f567 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( App e, Table ctx, bool ctxMod ) 552d43f567 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Value f = this.eval( e.fun, ctx, CascadeCtx ); 6760e0dd02 2010-11-26 kinaba: if(auto ff = cast(FunValue)f) 6760e0dd02 2010-11-26 kinaba: return this.invokeFunction(ff, e.args, ctx, e.pos, getNameIfPossible(e.fun)); 552d43f567 2010-11-26 kinaba: else { 6760e0dd02 2010-11-26 kinaba: bool allNull = (f is null); 6760e0dd02 2010-11-26 kinaba: Value[] vas; 6760e0dd02 2010-11-26 kinaba: foreach(a; e.args) { 6760e0dd02 2010-11-26 kinaba: Value va = this.eval(a, ctx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: if(va !is null) allNull = false; 6760e0dd02 2010-11-26 kinaba: vas ~= va; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: if( allNull ) 6760e0dd02 2010-11-26 kinaba: return null; 6760e0dd02 2010-11-26 kinaba: return ast2table(e, delegate Value (AST _){ 6760e0dd02 2010-11-26 kinaba: if(_ is e.fun) return (f is null ? ast2table(e.fun) : f); 6760e0dd02 2010-11-26 kinaba: foreach(i,a; e.args) if(_ is a) return (vas[i] is null ? ast2table(a) : vas[i]); 6760e0dd02 2010-11-26 kinaba: assert(false); 6760e0dd02 2010-11-26 kinaba: }); 552d43f567 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: override Value eval_( Fun e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Table newCtx = new Table(ctx, Table.Kind.NotPropagateSet); 6760e0dd02 2010-11-26 kinaba: foreach(p; e.params) 6760e0dd02 2010-11-26 kinaba: newCtx.set(p.name, NoopLayer, null); 6760e0dd02 2010-11-26 kinaba: Value af = this.eval(e.funbody, newCtx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: if( af is null ) 6760e0dd02 2010-11-26 kinaba: return null; 6760e0dd02 2010-11-26 kinaba: return ast2table(e, (AST _){if(_ is e.funbody)return af; assert(false);}); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: class RawMacroLayerEval : MacroLayerEval 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: override Value eval_( Lay e, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Value ae = this.eval(e.expr, ctx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: return ae is null ? null 6760e0dd02 2010-11-26 kinaba: : ast2table(e, delegate Value (AST _){if(_ is e.expr)return ae; assert(false);}); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: private: 6760e0dd02 2010-11-26 kinaba: Value macroAndEval( AST e_, Layer lay, Table ctx, bool ctxMod ) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: assert( !isASTLayer(lay) ); 6760e0dd02 2010-11-26 kinaba: if(auto e = cast(Let)e_) 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Value vai = getLayerEvaluator(RawMacroLayer).eval(e.init, ctx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: AST ai = (vai is null ? e.init : polemy2d!(AST)(vai, e.pos)); 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: if( !ctxMod ) 6760e0dd02 2010-11-26 kinaba: ctx = new Table(ctx, Table.Kind.NotPropagateSet); 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: Value vi = getLayerEvaluator(lay).eval(ai, ctx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: string theLayer = e.layer.empty ? lay : e.layer; 6760e0dd02 2010-11-26 kinaba: ctx.set(e.name, theLayer, vi); 6760e0dd02 2010-11-26 kinaba: 6760e0dd02 2010-11-26 kinaba: return macroAndEval( e.expr, lay, ctx, OverwriteCtx ); 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: else 6760e0dd02 2010-11-26 kinaba: { 6760e0dd02 2010-11-26 kinaba: Value va = getLayerEvaluator(RawMacroLayer).eval(e_, ctx, ctxMod); 6760e0dd02 2010-11-26 kinaba: AST a = (va is null ? e_ : polemy2d!(AST)(va, e_.pos)); 6760e0dd02 2010-11-26 kinaba: return getLayerEvaluator(lay).eval(a, ctx, ctxMod); 6ac127ddd0 2010-11-23 kinaba: } 2134cd44cc 2010-11-23 kinaba: } 2134cd44cc 2010-11-23 kinaba: 2134cd44cc 2010-11-23 kinaba: private: 2134cd44cc 2010-11-23 kinaba: string getNameIfPossible(AST e) 2134cd44cc 2010-11-23 kinaba: { 2134cd44cc 2010-11-23 kinaba: if(auto v = cast(Var)e) 2134cd44cc 2010-11-23 kinaba: return v.name; 2134cd44cc 2010-11-23 kinaba: return ""; 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: Value createNewFunction(Fun e, Table ctx) 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: class UserDefinedFunValue : FunValue 6ac127ddd0 2010-11-23 kinaba: { 20be503cae 2010-11-24 kinaba: Fun ast; 20be503cae 2010-11-24 kinaba: Table defCtx; 6ac127ddd0 2010-11-23 kinaba: override const(Parameter[]) params() { return ast.params; } 20be503cae 2010-11-24 kinaba: override Table definitionContext() { return defCtx; } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: this(Fun ast, Table defCtx) { this.ast=ast; this.defCtx=defCtx; } 153a14cec0 2010-11-24 kinaba: override string toString() const 153a14cec0 2010-11-24 kinaba: { return sprintf!"(function:%x:%x)"(cast(void*)ast, cast(void*)defCtx); } 20be503cae 2010-11-24 kinaba: override int opCmp(Object rhs) { 20be503cae 2010-11-24 kinaba: if(auto r = cast(UserDefinedFunValue)rhs) { b993a8ad16 2010-11-24 kinaba: if(auto c = typeid(void*).compare(cast(void*)ast, cast(void*)r.ast)) b993a8ad16 2010-11-24 kinaba: return c; b993a8ad16 2010-11-24 kinaba: if(auto c = typeid(void*).compare(cast(void*)defCtx, cast(void*)r.defCtx)) b993a8ad16 2010-11-24 kinaba: return c; b993a8ad16 2010-11-24 kinaba: return 0;// [TODO] avoid using pointer value... 20be503cae 2010-11-24 kinaba: } 153a14cec0 2010-11-24 kinaba: if(auto r = cast(Value)rhs) return typeid(this).opCmp(typeid(r)); 20be503cae 2010-11-24 kinaba: throw genex!RuntimeException("comparison with value and something other"); 20be503cae 2010-11-24 kinaba: } b993a8ad16 2010-11-24 kinaba: override hash_t toHash() { b993a8ad16 2010-11-24 kinaba: return (cast(hash_t)cast(void*)ast) + (cast(hash_t)cast(void*)defCtx); b993a8ad16 2010-11-24 kinaba: } 20be503cae 2010-11-24 kinaba: b993a8ad16 2010-11-24 kinaba: AST macroCache; 552d43f567 2010-11-26 kinaba: AST[void*] mandeCache; b993a8ad16 2010-11-24 kinaba: static class MemokeyType b993a8ad16 2010-11-24 kinaba: { b993a8ad16 2010-11-24 kinaba: void* a; Layer b; Tuple!(string,Layer,Value)[] c; b993a8ad16 2010-11-24 kinaba: hash_t toHash() { b993a8ad16 2010-11-24 kinaba: hash_t h = structuralHash(a) + structuralHash(b); b993a8ad16 2010-11-24 kinaba: foreach(e; c) b993a8ad16 2010-11-24 kinaba: h += structuralHash(e[0])+structuralHash(e[1])+structuralHash(e[2]); b993a8ad16 2010-11-24 kinaba: return h; b993a8ad16 2010-11-24 kinaba: } b993a8ad16 2010-11-24 kinaba: mixin SimpleToString; b993a8ad16 2010-11-24 kinaba: mixin SimpleConstructor; b993a8ad16 2010-11-24 kinaba: mixin SimpleCompareWithoutToHash; b993a8ad16 2010-11-24 kinaba: } b993a8ad16 2010-11-24 kinaba: static Tuple!(Value,int)[MemokeyType] memo; b993a8ad16 2010-11-24 kinaba: b97bd4f713 2010-11-23 kinaba: override Value invoke(Layer lay, Table ctx, LexPosition pos) 6ac127ddd0 2010-11-23 kinaba: { 6760e0dd02 2010-11-26 kinaba: if( isASTLayer(lay) ) { 6760e0dd02 2010-11-26 kinaba: Value v = getLayerEvaluator(lay).eval(ast.funbody, ctx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: if( v is null ) v = ast2table(ast.funbody); 6760e0dd02 2010-11-26 kinaba: return v; 6760e0dd02 2010-11-26 kinaba: } 6760e0dd02 2010-11-26 kinaba: return macroAndEval(ast.funbody, lay, ctx, CascadeCtx); 6760e0dd02 2010-11-26 kinaba: /* b993a8ad16 2010-11-24 kinaba: auto nonMemoizedRun = (){ b993a8ad16 2010-11-24 kinaba: if( macroCache is null ) b993a8ad16 2010-11-24 kinaba: { 552d43f567 2010-11-26 kinaba: auto va = macroAndEval(e.funbody, lay, ctx, CascadeCtx, mandeCache); b993a8ad16 2010-11-24 kinaba: macroCache = va[1]; b993a8ad16 2010-11-24 kinaba: return va[0]; b993a8ad16 2010-11-24 kinaba: } b993a8ad16 2010-11-24 kinaba: else b993a8ad16 2010-11-24 kinaba: return eval(macroCache, lay, ctx); b993a8ad16 2010-11-24 kinaba: }; b993a8ad16 2010-11-24 kinaba: b993a8ad16 2010-11-24 kinaba: if( !isUserDefinedLayer(lay) ) b993a8ad16 2010-11-24 kinaba: return nonMemoizedRun(); b993a8ad16 2010-11-24 kinaba: b993a8ad16 2010-11-24 kinaba: MemokeyType memokey = new MemokeyType(cast(void*)ast, lay, ctx.direct_entries()); b993a8ad16 2010-11-24 kinaba: b993a8ad16 2010-11-24 kinaba: if(auto p = memokey in memo) ba11f1d551 2010-11-23 kinaba: { b993a8ad16 2010-11-24 kinaba: (*p)[1] ++; b993a8ad16 2010-11-24 kinaba: return (*p)[0]; 2134cd44cc 2010-11-23 kinaba: } ba11f1d551 2010-11-23 kinaba: else b993a8ad16 2010-11-24 kinaba: memo[memokey] = tuple(lift(new UndefinedValue, lay, ctx, pos), 0); b993a8ad16 2010-11-24 kinaba: b993a8ad16 2010-11-24 kinaba: Value r = nonMemoizedRun(); b993a8ad16 2010-11-24 kinaba: b993a8ad16 2010-11-24 kinaba: int touched = memo[memokey][1]; b993a8ad16 2010-11-24 kinaba: memo[memokey] = tuple(r, 12345678); b993a8ad16 2010-11-24 kinaba: //if(touched) {DBG("rerun :: ",r);r = nonMemoizedRun();} // twice!! b993a8ad16 2010-11-24 kinaba: return r; 6760e0dd02 2010-11-26 kinaba: */ 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: return new UserDefinedFunValue(e,ctx); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: public: b97bd4f713 2010-11-23 kinaba: /// Add primitive function to the global context b97bd4f713 2010-11-23 kinaba: void addPrimitive(R,T...)(string name, Layer defLay, R delegate (T) dg) 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: class NativeFunValue : FunValue 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: override const(Parameter[]) params() { return params_data; } b97bd4f713 2010-11-23 kinaba: override Table definitionContext() { return theContext; } b97bd4f713 2010-11-23 kinaba: b97bd4f713 2010-11-23 kinaba: override string toString() { return sprintf!"(native:%x)"(dg.funcptr); } b97bd4f713 2010-11-23 kinaba: override int opCmp(Object rhs) { b97bd4f713 2010-11-23 kinaba: if(auto r = cast(NativeFunValue)rhs) return typeid(typeof(dg)).compare(&dg,&r.dg); b97bd4f713 2010-11-23 kinaba: if(auto r = cast(Value)rhs) return typeid(this).opCmp(typeid(r)); 153a14cec0 2010-11-24 kinaba: throw genex!RuntimeException("comparison with value and something other"); b97bd4f713 2010-11-23 kinaba: } b993a8ad16 2010-11-24 kinaba: override hash_t toHash() const { b993a8ad16 2010-11-24 kinaba: return typeid(dg).getHash(&dg); b993a8ad16 2010-11-24 kinaba: } b97bd4f713 2010-11-23 kinaba: b97bd4f713 2010-11-23 kinaba: R delegate(T) dg; b97bd4f713 2010-11-23 kinaba: Parameter[] params_data; b97bd4f713 2010-11-23 kinaba: b97bd4f713 2010-11-23 kinaba: this(R delegate(T) dg) b97bd4f713 2010-11-23 kinaba: { b97bd4f713 2010-11-23 kinaba: this.dg = dg; 6ac127ddd0 2010-11-23 kinaba: foreach(i, Ti; T) 6ac127ddd0 2010-11-23 kinaba: params_data ~= new Parameter(text(i), []); 6ac127ddd0 2010-11-23 kinaba: } b97bd4f713 2010-11-23 kinaba: b97bd4f713 2010-11-23 kinaba: override Value invoke(Layer lay, Table ctx, LexPosition pos) 6ac127ddd0 2010-11-23 kinaba: { b97bd4f713 2010-11-23 kinaba: if( lay != defLay ) 153a14cec0 2010-11-24 kinaba: throw genex!RuntimeException(pos, 153a14cec0 2010-11-24 kinaba: text("only ", defLay, " layer can call native function: ", name)); 6ac127ddd0 2010-11-23 kinaba: T typed_args; 6ac127ddd0 2010-11-23 kinaba: foreach(i, Ti; T) { b97bd4f713 2010-11-23 kinaba: typed_args[i] = cast(Ti) ctx.get(text(i), ValueLayer, pos); 6ac127ddd0 2010-11-23 kinaba: if( typed_args[i] is null ) 153a14cec0 2010-11-24 kinaba: throw genex!RuntimeException(pos, 153a14cec0 2010-11-24 kinaba: sprintf!"type mismatch on the argument %d of native function: %s"(i+1,name)); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: try { 6ac127ddd0 2010-11-23 kinaba: return dg(typed_args); 6ac127ddd0 2010-11-23 kinaba: } catch( RuntimeException e ) { 6ac127ddd0 2010-11-23 kinaba: throw e.pos is null ? new RuntimeException(pos, e.msg, e.file, e.line) : e; 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: } b97bd4f713 2010-11-23 kinaba: theContext.set(name, defLay, new NativeFunValue(dg)); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: version(unittest) import polemy.runtime; 6ac127ddd0 2010-11-23 kinaba: unittest 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: auto e = new Evaluator; 6ac127ddd0 2010-11-23 kinaba: enrollRuntimeLibrary(e); 6ac127ddd0 2010-11-23 kinaba: auto r = assert_nothrow( e.evalString(`var x = 21; x + x*x;`) ); 6ac127ddd0 2010-11-23 kinaba: assert_eq( r, new IntValue(BigInt(21+21*21)) ); 6ac127ddd0 2010-11-23 kinaba: assert_eq( e.globalContext.get("x",ValueLayer), new IntValue(BigInt(21)) ); 6ac127ddd0 2010-11-23 kinaba: assert_nothrow( e.globalContext.get("x",ValueLayer) ); 6ac127ddd0 2010-11-23 kinaba: assert_throw!RuntimeException( e.globalContext.get("y",ValueLayer) ); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: unittest 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: auto e = new Evaluator; 6ac127ddd0 2010-11-23 kinaba: enrollRuntimeLibrary(e); 6ac127ddd0 2010-11-23 kinaba: auto r = assert_nothrow( e.evalString(`var x = 21; var x = x + x*x;`) ); 6ac127ddd0 2010-11-23 kinaba: assert_eq( r, new IntValue(BigInt(21+21*21)) ); ba11f1d551 2010-11-23 kinaba: assert_eq( e.globalContext.get("x",ValueLayer), new IntValue(21+21*21) ); 6ac127ddd0 2010-11-23 kinaba: assert_nothrow( e.globalContext.get("x",ValueLayer) ); 6ac127ddd0 2010-11-23 kinaba: assert_throw!RuntimeException( e.globalContext.get("y",ValueLayer) ); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: unittest 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: auto e = new Evaluator; 6ac127ddd0 2010-11-23 kinaba: enrollRuntimeLibrary(e); ba11f1d551 2010-11-23 kinaba: assert_eq( e.evalString(`let x=1; let y=(let x=2); x`), new IntValue(1) ); ba11f1d551 2010-11-23 kinaba: assert_eq( e.evalString(`let x=1; let y=(let x=2;fun(){x}); y()`), new IntValue(2) ); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: unittest 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: auto e = new Evaluator; 6ac127ddd0 2010-11-23 kinaba: enrollRuntimeLibrary(e); 6ac127ddd0 2010-11-23 kinaba: assert_eq( e.evalString(`@a x=1; @b x=2; @a(x)`), new IntValue(BigInt(1)) ); 6ac127ddd0 2010-11-23 kinaba: assert_eq( e.evalString(`@a x=1; @b x=2; @b(x)`), new IntValue(BigInt(2)) ); 6ac127ddd0 2010-11-23 kinaba: assert_eq( e.evalString(`let x=1; let _ = (@a x=2;2); x`), new IntValue(BigInt(1)) ); 6ac127ddd0 2010-11-23 kinaba: e = new Evaluator; 6ac127ddd0 2010-11-23 kinaba: assert_throw!Throwable( e.evalString(`let x=1; let _ = (@a x=2;2); @a(x)`) ); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: unittest 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: auto e = new Evaluator; 6ac127ddd0 2010-11-23 kinaba: enrollRuntimeLibrary(e); 6ac127ddd0 2010-11-23 kinaba: assert_eq( e.evalString(` 6ac127ddd0 2010-11-23 kinaba: @@s(x){x}; 6ac127ddd0 2010-11-23 kinaba: @s "+" = fun(x, y) {@value( 6ac127ddd0 2010-11-23 kinaba: @s(x) - @s(y) 6ac127ddd0 2010-11-23 kinaba: )}; 6ac127ddd0 2010-11-23 kinaba: @s(1 + 2) 6ac127ddd0 2010-11-23 kinaba: `), new IntValue(BigInt(-1)) ); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: unittest 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: auto e = new Evaluator; 6ac127ddd0 2010-11-23 kinaba: enrollRuntimeLibrary(e); 6ac127ddd0 2010-11-23 kinaba: assert_eq( e.evalString(` 6ac127ddd0 2010-11-23 kinaba: @@3(x){x}; 6ac127ddd0 2010-11-23 kinaba: def incr(x) { x+1 }; 3ae09b8cbf 2010-11-24 kinaba: @ 3 incr(x) {@value( if @ 3(x)+1< 3 then @3(x)+1 else 0 )}; 6ac127ddd0 2010-11-23 kinaba: def fb(n @value @3) { @3(n) }; 6ac127ddd0 2010-11-23 kinaba: fb(incr(incr(incr(0)))) 6ac127ddd0 2010-11-23 kinaba: `), new IntValue(BigInt(0)) ); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: 6ac127ddd0 2010-11-23 kinaba: unittest 6ac127ddd0 2010-11-23 kinaba: { 6ac127ddd0 2010-11-23 kinaba: auto e = new Evaluator; 6ac127ddd0 2010-11-23 kinaba: enrollRuntimeLibrary(e); 6ac127ddd0 2010-11-23 kinaba: assert_nothrow( e.evalString(` 6ac127ddd0 2010-11-23 kinaba: @macro twice(x) { x; x }; 6ac127ddd0 2010-11-23 kinaba: def main() { twice(1) }; 6ac127ddd0 2010-11-23 kinaba: main() 6ac127ddd0 2010-11-23 kinaba: `) ); 6ac127ddd0 2010-11-23 kinaba: } 6ac127ddd0 2010-11-23 kinaba: unittest 6ac127ddd0 2010-11-23 kinaba: { f9c31f3cd8 2010-11-24 kinaba: auto e = new Evaluator; f9c31f3cd8 2010-11-24 kinaba: enrollRuntimeLibrary(e); f7e9e77316 2010-11-26 kinaba: assert_throw!RuntimeException( e.evalString(`case 1`) ); f9c31f3cd8 2010-11-24 kinaba: assert_nothrow( e.evalString(`case 1 when 1: 2`) ); f8684f4d69 2010-11-26 kinaba: f8684f4d69 2010-11-26 kinaba: // this is a shorthand for f8684f4d69 2010-11-26 kinaba: // @macro x = fun(){} in @macro(x) f8684f4d69 2010-11-26 kinaba: // so it is ok to fail, but it is really incovenient on REPL f8684f4d69 2010-11-26 kinaba: assert_nothrow( e.evalString(`@macro x=fun(){}`) ); f7e9e77316 2010-11-26 kinaba: } f7e9e77316 2010-11-26 kinaba: f7e9e77316 2010-11-26 kinaba: unittest f7e9e77316 2010-11-26 kinaba: { f7e9e77316 2010-11-26 kinaba: auto e = new Evaluator; f7e9e77316 2010-11-26 kinaba: enrollRuntimeLibrary(e); f7e9e77316 2010-11-26 kinaba: assert_throw!RuntimeException( e.evalString(`...`) ); f7e9e77316 2010-11-26 kinaba: assert_eq( e.evalString(`@@foo(x){x}; @foo(...)`), new UndefinedValue ); 6ac127ddd0 2010-11-23 kinaba: }