/**

  * Back 2 Browser Bytecode Translator

  * Copyright (C) 2012 Jaroslav Tulach <jaroslav.tulach@apidesign.org>

  *

  * This program is free software: you can redistribute it and/or modify

  * it under the terms of the GNU General Public License as published by

  * the Free Software Foundation, version 2 of the License.

  *

  * This program is distributed in the hope that it will be useful,

  * but WITHOUT ANY WARRANTY; without even the implied warranty of

  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

  * GNU General Public License for more details.

  *

  * You should have received a copy of the GNU General Public License

  * along with this program. Look for COPYING file in the top folder.

  * If not, see http://opensource.org/licenses/GPL-2.0.

  */

 package org.apidesign.bck2brwsr.htmlpage;

 import java.io.BufferedReader;

 import java.io.IOException;

 import java.io.InputStreamReader;

 import java.lang.reflect.Method;

 import java.util.List;

 import java.util.logging.Level;

 import java.util.logging.Logger;

 import javafx.scene.web.WebEngine;

 import netscape.javascript.JSObject;

 import org.apidesign.bck2brwsr.core.ExtraJavaScript;

 import org.apidesign.bck2brwsr.core.JavaScriptBody;

 /** Provides binding between models and 

  *

  * @author Jaroslav Tulach <jtulach@netbeans.org>

  */

 @ExtraJavaScript(resource = "/org/apidesign/bck2brwsr/htmlpage/knockout-2.2.1.js")

 public class Knockout {

     private static final Logger LOG = Logger.getLogger(Knockout.class.getName());

     /** used by tests */

     static Knockout next;

     private final Object model;

     static {

         BufferedReader r = new BufferedReader(new InputStreamReader(Knockout.class.getResourceAsStream("knockout-2.2.1.js")));

         StringBuilder sb = new StringBuilder();

         for (;;) {

             try {

                 String l = r.readLine();

                 if (l == null) {

                     break;

                 }

                 sb.append(l).append('\n');

             } catch (IOException ex) {

                 throw new IllegalStateException(ex);

             }

         }

         web().executeScript(sb.toString());

         Object ko = web().executeScript("ko");

         assert ko != null : "Knockout library successfully defined 'ko'";

         Console.register(web());

     }

     Knockout(Object model) {

         this.model = model == null ? this : model;

     }

     public Object koData() {

         return model;

     }

     private static final JSObject KObject;

     static {

         KObject = (JSObject) web().executeScript(

             "(function(scope) {"

             + "  var kCnt = 0; "

             + "  scope.KObject = {};"

             + "  scope.KObject.create= function(value) {"

             + "    var cnt = ++kCnt;"

             + "    var ret = {};"

             + "    ret.toString = function() { return 'KObject' + cnt + ' value: ' + value + ' props: ' + Object.keys(this); };"

             + "    return ret;"

             + "  };"

             + "  scope.KObject.array= function() {"

             + "    return Array.prototype.slice.call(arguments);"

             + "  };"

             + "  scope.KObject.expose = function(bindings, model, prop, sig) {"

             + "    bindings[prop] = function(data, ev) {"

             + "         console.log(\"  callback on prop: \" + prop);"

             + "      model[sig](data, ev);"

             + "    };"

             + "  };"

             + "})(window); window.KObject"

             );

     }

     static Object toArray(Object[] arr) {

         return KObject.call("array", arr);

     }

     public static <M> Knockout applyBindings(

         Object model, String[] propsGettersAndSetters,

         String[] methodsAndSignatures

     ) {

         Object bindings = KObject.call("create", model);

         applyImpl(propsGettersAndSetters, model.getClass(), bindings, model, methodsAndSignatures);

         return new Knockout(bindings);

     }

     public static <M> Knockout applyBindings(

         Class<M> modelClass, M model, String[] propsGettersAndSetters,

         String[] methodsAndSignatures

     ) {

         Object bindings = next;

         next = null;

         if (bindings == null) {

             bindings = KObject.call("create", model);

         }

         applyImpl(propsGettersAndSetters, modelClass, bindings, model, methodsAndSignatures);

         applyBindings(bindings);

         return new Knockout(bindings);

     }

     public void valueHasMutated(String prop) {

         LOG.log(Level.INFO, "property mutated: {0}", prop);

         try {

             JSObject koProp = (JSObject) ((JSObject) model).getMember(prop);

             koProp.call("valueHasMutated");

         } catch (Throwable t) {

             LOG.log(Level.WARNING, "valueHasMutated failed for {0}", model);

         }

     }

     @JavaScriptBody(args = { "id", "ev" }, body = "ko.utils.triggerEvent(window.document.getElementById(id), ev.substring(2));")

     public static void triggerEvent(String id, String ev) {

     }

     @JavaScriptBody(args = { "bindings", "model", "prop", "getter", "setter", "primitive", "array" }, body =

           "var bnd = {\n"

         + "  'read': function() {\n"

         + "    var v = model[getter]();\n"

         + "    if (array) v = v.koArray();\n"

         + "    return v;\n"

         + "  },\n"

         + "  'owner': bindings\n"

         + "};\n"

         + "if (setter != null) {\n"

         + "  bnd['write'] = function(val) {\n"

         + "    model[setter](primitive ? new Number(val) : val);\n"

         + "  };\n"

         + "}\n"

         + "bindings[prop] = ko['computed'](bnd);"

     )

     private static void bind(

         Object bindings, Object model, String prop, String getter, String setter, boolean primitive, boolean array

     ) {

         WebEngine e = web();

         JSObject bnd = (JSObject) e.executeScript("var x = {}; x.bnd = "

         + "new Function('ko', 'bindings', 'model', 'prop', 'getter', 'setter', 'primitive', 'array', '"

         + "var bnd = {"

         + "  read: function() {"

         + "    try {"

         + "      var v = model[getter]();"

         + "      console.log(\" getter value \" + v + \" for property \" + prop);"

         + "      try { v = v.koData(); } catch (ignore) {"

         + "        console.log(\"Cannot convert to koData: \" + ignore);"

         + "      };"

         + "      console.log(\" getter ret value \" + v);"

         + "      for (var pn in v) {"

         + "         console.log(\"  prop: \" + pn + \" + in + \" + v + \" = \" + v[pn]);"

         + "         if (typeof v[pn] == \"function\") console.log(\"  its function value:\" + v[pn]());"

         + "      }"

         + "      console.log(\" all props printed for \" + (typeof v));"

         + "      return v;"

         + "    } catch (e) {"

         + "      alert(\"Cannot call \" + getter + \" on \" + model + \" error: \" + e);"

         + "    }"

         + "  },"

         + "  owner: bindings,"

         + "  deferEvaluation: true"

         + "};"

         + "if (setter != null) {"

         + "  bnd.write = function(val) {"

         + "    model[setter](primitive ? new Number(val) : val);"

         + "  };"

         + "};"

         + "bindings[prop] = ko.computed(bnd);'"

         + "); x;");

         Object ko = e.executeScript("ko");

         try {

             KOProperty kop = new KOProperty(model, strip(getter), strip(setter));

             bnd.call("bnd", ko, bindings, kop, prop, "get", "set", primitive, array);

             ((JSObject)bindings).setMember("koModel", model);

             LOG.log(Level.INFO, "binding defined for {0}: {1}", new Object[]{prop, ((JSObject)bindings).getMember(prop)});

         } catch (Throwable ex) {

             LOG.log(Level.INFO, "binding failed for {0} on {1}", new Object[]{prop, bindings});

         }

     }

     private static String strip(String mangled) {

         if (mangled == null) {

             return null;

         }

         int under = mangled.indexOf("__");

         return mangled.substring(0, under);

     }

     @JavaScriptBody(args = { "bindings", "model", "prop", "sig" }, body = 

         "bindings[prop] = function(data, ev) { model[sig](data, ev); };"

     )

     private static void expose(

         Object bindings, Object model, String prop, String sig

     ) {

         try {

             KOFunction f = new KOFunction(model, strip(sig));

             KObject.call("expose", bindings, f, prop, "call");

         } catch (Throwable ex) {

             LOG.log(Level.SEVERE, "Cannot define binding for " + prop + " in model " + model, ex);

         }

     }

     @JavaScriptBody(args = { "bindings" }, body = "ko.applyBindings(bindings);")

     private static void applyBindings(Object bindings) {

         JSObject ko = (JSObject) web().executeScript("ko");

         ko.call("applyBindings", bindings);

     }

     private static WebEngine web() {

         return (WebEngine) System.getProperties().get("webEngine");

     }

     private static void applyImpl(

         String[] propsGettersAndSetters,

         Class<?> modelClass,

         Object bindings,

         Object model,

         String[] methodsAndSignatures

     ) throws IllegalStateException, SecurityException {

         for (int i = 0; i < propsGettersAndSetters.length; i += 4) {

             try {

                 Method getter = modelClass.getMethod(propsGettersAndSetters[i + 3]);

                 bind(bindings, model, propsGettersAndSetters[i],

                     propsGettersAndSetters[i + 1],

                     propsGettersAndSetters[i + 2],

                     getter.getReturnType().isPrimitive(),

                     List.class.isAssignableFrom(getter.getReturnType()));

             } catch (NoSuchMethodException ex) {

                 throw new IllegalStateException(ex.getMessage());

             }

         }

         for (int i = 0; i < methodsAndSignatures.length; i += 2) {

             expose(

                 bindings, model, methodsAndSignatures[i], methodsAndSignatures[i + 1]);

         }

     }

 }