|
|
@@ -0,0 +1,238 @@
|
|
|
+package hide.comp.cdb;
|
|
|
+import hscript.Checker;
|
|
|
+
|
|
|
+typedef Formula = { name : String, type : String, call : Dynamic -> Null<Float> }
|
|
|
+
|
|
|
+class Formulas {
|
|
|
+
|
|
|
+ var ide : hide.Ide;
|
|
|
+ var editor : Editor;
|
|
|
+ var formulasFile : String;
|
|
|
+
|
|
|
+ var formulas : Array<Formula> = [];
|
|
|
+ var fmap : Map<String, Map<String, Formula>> = [];
|
|
|
+
|
|
|
+ public function new( editor : Editor ) {
|
|
|
+ ide = hide.Ide.inst;
|
|
|
+ this.editor = editor;
|
|
|
+ formulasFile = editor.config.get("cdb.formulasFile");
|
|
|
+ ide.fileWatcher.register(formulasFile, reloadFile, @:privateAccess editor.searchBox /* hack to handle end-of-life */);
|
|
|
+ load();
|
|
|
+ }
|
|
|
+
|
|
|
+ function reloadFile() {
|
|
|
+ load();
|
|
|
+ evaluateAll();
|
|
|
+ editor.save();
|
|
|
+ Editor.refreshAll();
|
|
|
+ }
|
|
|
+
|
|
|
+ public function evaluateAll( ?sheet : cdb.Sheet ) {
|
|
|
+ for( s in editor.base.sheets ) {
|
|
|
+ if( sheet != null && sheet != s ) continue;
|
|
|
+ var forms = fmap.get(s.name);
|
|
|
+ if( forms == null ) continue;
|
|
|
+ var columns = [for( c in s.columns ) if( c.type == TInt || c.type == TFloat ) c];
|
|
|
+ for( o in s.getLines() ) {
|
|
|
+ for( c in columns ) {
|
|
|
+ var fname = Reflect.field(o,c.name+"__f");
|
|
|
+ if( fname == null ) continue;
|
|
|
+ var f = forms.get(fname);
|
|
|
+ if( f == null ) continue;
|
|
|
+ var v = try f.call(o) catch( e : Dynamic ) Math.NaN;
|
|
|
+ if( v == null )
|
|
|
+ Reflect.deleteField(o, c.name);
|
|
|
+ else
|
|
|
+ Reflect.setField(o, c.name, v);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ function load() {
|
|
|
+ var code = try sys.io.File.getContent(ide.getPath(formulasFile)) catch( e : Dynamic ) return;
|
|
|
+ var parser = new hscript.Parser();
|
|
|
+ parser.allowTypes = true;
|
|
|
+ var expr = try parser.parseString(code) catch( e : Dynamic ) return;
|
|
|
+
|
|
|
+ var sheetNames = new Map();
|
|
|
+ for( s in editor.base.sheets )
|
|
|
+ if( s.idCol != null )
|
|
|
+ sheetNames.set(getTypeName(s), true);
|
|
|
+ function replaceRec( e : hscript.Expr ) {
|
|
|
+ switch( e.e ) {
|
|
|
+ case EField({ e : EIdent(s) }, name) if( sheetNames.exists(s) ):
|
|
|
+ e.e = EConst(CString(name)); // replace for faster eval
|
|
|
+ default:
|
|
|
+ hscript.Tools.iter(e, replaceRec);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ replaceRec(expr);
|
|
|
+
|
|
|
+ formulas = [];
|
|
|
+ fmap = new Map();
|
|
|
+ var interp = new hscript.Interp();
|
|
|
+ try interp.execute(expr) catch( e : hscript.Expr.Error ) {
|
|
|
+ ide.error(formulasFile+": "+e.toString());
|
|
|
+ return;
|
|
|
+ }
|
|
|
+ function browseRec(expr:hscript.Expr) {
|
|
|
+ switch( expr.e ) {
|
|
|
+ case EBlock(el):
|
|
|
+ for( e in el )
|
|
|
+ browseRec(e);
|
|
|
+ case EFunction([{ t : CTPath([t]) }],_, name) if( name != null && t != null ):
|
|
|
+ var value = interp.variables.get(name);
|
|
|
+ if( value == null ) return;
|
|
|
+ var sname = typeNameToSheet(t);
|
|
|
+ var tmap = fmap.get(sname);
|
|
|
+ if( tmap == null ) {
|
|
|
+ tmap = new Map();
|
|
|
+ fmap.set(sname, tmap);
|
|
|
+ }
|
|
|
+ var f : Formula = { name : name, type : t, call : value };
|
|
|
+ tmap.set(name, f);
|
|
|
+ formulas.push(f);
|
|
|
+ default:
|
|
|
+ }
|
|
|
+ }
|
|
|
+ browseRec(expr);
|
|
|
+ }
|
|
|
+
|
|
|
+ public function getList( c : Cell ) : Array<Formula> {
|
|
|
+ var type = getTypeName(c.table.sheet);
|
|
|
+ return [for( f in formulas ) if( f.type == type ) f];
|
|
|
+ }
|
|
|
+
|
|
|
+ public function get( c : Cell ) : Null<Formula> {
|
|
|
+ var f = Reflect.field(c.line.obj, c.column.name+"__f");
|
|
|
+ if( f == null )
|
|
|
+ return null;
|
|
|
+ var tmap = fmap.get(c.table.sheet.name);
|
|
|
+ if( tmap == null )
|
|
|
+ return null;
|
|
|
+ return tmap.get(f);
|
|
|
+ }
|
|
|
+
|
|
|
+ public function set( c : Cell, f : Formula ) {
|
|
|
+ var obj = c.line.obj;
|
|
|
+ var field = c.column.name+"__f";
|
|
|
+ if( f == null ) {
|
|
|
+ Reflect.deleteField(obj, field);
|
|
|
+ var def = c.table.editor.base.getDefault(c.column,c.table.sheet);
|
|
|
+ if( def == null ) Reflect.deleteField(obj, c.column.name) else Reflect.setField(obj, c.column.name, def);
|
|
|
+ } else
|
|
|
+ Reflect.setField(obj, field, f.name);
|
|
|
+ }
|
|
|
+
|
|
|
+ public inline function has(c:Cell) {
|
|
|
+ return Reflect.field(c.line.obj, c.column.name+"__f") != null;
|
|
|
+ }
|
|
|
+
|
|
|
+ public function removeFromValue( obj : Dynamic, c : cdb.Data.Column ) {
|
|
|
+ Reflect.deleteField(obj, c.name+"__f");
|
|
|
+ }
|
|
|
+
|
|
|
+ public function setForValue( obj : Dynamic, sheet : cdb.Sheet, c : cdb.Data.Column, fname : String ) {
|
|
|
+ Reflect.setField(obj, c.name+"__f", fname);
|
|
|
+ Reflect.deleteField(obj, c.name);
|
|
|
+ var tmap = fmap.get(sheet.name);
|
|
|
+ if( tmap != null ) {
|
|
|
+ var f = tmap.get(fname);
|
|
|
+ if( f != null ) {
|
|
|
+ var v = f.call(obj);
|
|
|
+ if( v != null ) Reflect.setField(obj, c.name, v);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ function getFormulaNameFromValue( obj : Dynamic, c : cdb.Data.Column ) {
|
|
|
+ return Reflect.field(obj, c.name+"__f");
|
|
|
+ }
|
|
|
+
|
|
|
+ public static function getTypeName( s : cdb.Sheet ) {
|
|
|
+ var name = s.name.split("@").join("_");
|
|
|
+ name = name.charAt(0).toUpperCase() + name.substr(1);
|
|
|
+ return name;
|
|
|
+ }
|
|
|
+
|
|
|
+ function typeNameToSheet( t : String ) {
|
|
|
+ for( s in editor.base.sheets )
|
|
|
+ if( getTypeName(s) == t )
|
|
|
+ return s.name;
|
|
|
+ return t;
|
|
|
+ }
|
|
|
+
|
|
|
+ public function createNew( c : Cell, ?onCreated : Formula -> Void ) {
|
|
|
+ var name = ide.ask("Formula name");
|
|
|
+ if( name == null ) return;
|
|
|
+ var t = getTypeName(c.table.sheet);
|
|
|
+ edit('function $name( v : $t ) {\n}\n');
|
|
|
+ }
|
|
|
+
|
|
|
+ public function edit( ?insert : String ) {
|
|
|
+ var fullPath = ide.getPath(formulasFile);
|
|
|
+ var created = false;
|
|
|
+ if( !sys.FileSystem.exists(fullPath) ) {
|
|
|
+ sys.io.File.saveContent(fullPath,"");
|
|
|
+ created = true;
|
|
|
+ }
|
|
|
+ ide.open("hide.comp.cdb.FormulasView",{ path : formulasFile }, (v) -> {
|
|
|
+ var script = @:privateAccess cast(v, hide.view.Script).script;
|
|
|
+ if( insert != null ) {
|
|
|
+ if( !created ) insert = "\n\n"+insert;
|
|
|
+ script.setCode(script.code + insert);
|
|
|
+ }
|
|
|
+ });
|
|
|
+ }
|
|
|
+
|
|
|
+}
|
|
|
+
|
|
|
+class FormulasView extends hide.view.Script {
|
|
|
+
|
|
|
+ override function getScriptChecker() {
|
|
|
+ var check = new hide.comp.ScriptEditor.ScriptChecker(config,"cdb formula");
|
|
|
+ check.checker.allowAsync = false;
|
|
|
+ var skind = new Map();
|
|
|
+ for( s in ide.database.sheets ) {
|
|
|
+ if( s.idCol != null )
|
|
|
+ skind.set(s.name, check.addCDBEnum(s.name.split("@").join(".")));
|
|
|
+ }
|
|
|
+ var tstring = check.checker.types.resolve("String");
|
|
|
+ var cdefs = new Map();
|
|
|
+ for( s in ide.database.sheets ) {
|
|
|
+ var cdef : CClass = {
|
|
|
+ name : Formulas.getTypeName(s),
|
|
|
+ fields : [],
|
|
|
+ statics : [],
|
|
|
+ params : [],
|
|
|
+ };
|
|
|
+ cdefs.set(s.name, cdef);
|
|
|
+ }
|
|
|
+ for( s in ide.database.sheets ) {
|
|
|
+ var cdef = cdefs.get(s.name);
|
|
|
+ for( c in s.columns ) {
|
|
|
+ var t = switch( c.type ) {
|
|
|
+ case TId: skind.get(s.name);
|
|
|
+ case TInt, TColor, TEnum(_), TFlags(_): TInt;
|
|
|
+ case TFloat: TFloat;
|
|
|
+ case TBool: TBool;
|
|
|
+ case TDynamic: TDynamic;
|
|
|
+ case TRef(other): skind.get(other);
|
|
|
+ case TCustom(_), TImage, TLayer(_), TTileLayer, TTilePos: null;
|
|
|
+ case TList, TProperties:
|
|
|
+ var t = TInst(cdefs.get(s.name+"@"+c.name),[]);
|
|
|
+ c.type == TList ? @:privateAccess check.checker.types.getType("Array",[t]) : t;
|
|
|
+ case TString, TFile:
|
|
|
+ tstring;
|
|
|
+ }
|
|
|
+ if( t == null ) continue;
|
|
|
+ cdef.fields.set(c.name, { t : t, name : c.name, isPublic : true, complete : true, canWrite : false, params : [] });
|
|
|
+ }
|
|
|
+ @:privateAccess check.checker.types.types.set(cdef.name, CTClass(cdef));
|
|
|
+ }
|
|
|
+ return check;
|
|
|
+ }
|
|
|
+
|
|
|
+ static var _ = hide.ui.View.register(FormulasView);
|
|
|
+}
|
Nicolas Cannasse