flok 0.0.36 → 0.0.38

data/app/kern/services/rest.rb

@@ -1,310 +0,0 @@
-service("rest") do
-  on_init %{
-    //Code inserted here is put into the global space, add initialization
-    //procedures, functions that need to be called, etc.
-    //
-    //You may use the function respond(info) within here to 
-
-    //Store the in-progress requests as a list of hashes
-    //that contain an array in the order of [event_pointer, evenct_name]
-    var service_rest_tp_to_einfo = {}
-
-    function service_rest_callback(tp, success, info) {
-      ////Lookup event info
-      var einfo = service_rest_tp_to_einfo[tp];
-
-      ////Send info back to service
-      int_event(einfo[0], einfo[1], {success: success, info: info});
-
-      //Remove entries in telepointer table and rest service info
-      tel_del(tp);
-      delete service_rest_tp_to_einfo[tp];
-    }
-
-/*
-*  Secure Hash Algorithm (SHA512)
-*  http://www.happycode.info/
-*/
-
-function SHA512(str) {
-  function int64(msint_32, lsint_32) {
-    this.highOrder = msint_32;
-    this.lowOrder = lsint_32;
-  }
-
-  var H = [new int64(0x6a09e667, 0xf3bcc908), new int64(0xbb67ae85, 0x84caa73b),
-      new int64(0x3c6ef372, 0xfe94f82b), new int64(0xa54ff53a, 0x5f1d36f1),
-      new int64(0x510e527f, 0xade682d1), new int64(0x9b05688c, 0x2b3e6c1f),
-      new int64(0x1f83d9ab, 0xfb41bd6b), new int64(0x5be0cd19, 0x137e2179)];
-
-  var K = [new int64(0x428a2f98, 0xd728ae22), new int64(0x71374491, 0x23ef65cd),
-      new int64(0xb5c0fbcf, 0xec4d3b2f), new int64(0xe9b5dba5, 0x8189dbbc),
-      new int64(0x3956c25b, 0xf348b538), new int64(0x59f111f1, 0xb605d019),
-      new int64(0x923f82a4, 0xaf194f9b), new int64(0xab1c5ed5, 0xda6d8118),
-      new int64(0xd807aa98, 0xa3030242), new int64(0x12835b01, 0x45706fbe),
-      new int64(0x243185be, 0x4ee4b28c), new int64(0x550c7dc3, 0xd5ffb4e2),
-      new int64(0x72be5d74, 0xf27b896f), new int64(0x80deb1fe, 0x3b1696b1),
-      new int64(0x9bdc06a7, 0x25c71235), new int64(0xc19bf174, 0xcf692694),
-      new int64(0xe49b69c1, 0x9ef14ad2), new int64(0xefbe4786, 0x384f25e3),
-      new int64(0x0fc19dc6, 0x8b8cd5b5), new int64(0x240ca1cc, 0x77ac9c65),
-      new int64(0x2de92c6f, 0x592b0275), new int64(0x4a7484aa, 0x6ea6e483),
-      new int64(0x5cb0a9dc, 0xbd41fbd4), new int64(0x76f988da, 0x831153b5),
-      new int64(0x983e5152, 0xee66dfab), new int64(0xa831c66d, 0x2db43210),
-      new int64(0xb00327c8, 0x98fb213f), new int64(0xbf597fc7, 0xbeef0ee4),
-      new int64(0xc6e00bf3, 0x3da88fc2), new int64(0xd5a79147, 0x930aa725),
-      new int64(0x06ca6351, 0xe003826f), new int64(0x14292967, 0x0a0e6e70),
-      new int64(0x27b70a85, 0x46d22ffc), new int64(0x2e1b2138, 0x5c26c926),
-      new int64(0x4d2c6dfc, 0x5ac42aed), new int64(0x53380d13, 0x9d95b3df),
-      new int64(0x650a7354, 0x8baf63de), new int64(0x766a0abb, 0x3c77b2a8),
-      new int64(0x81c2c92e, 0x47edaee6), new int64(0x92722c85, 0x1482353b),
-      new int64(0xa2bfe8a1, 0x4cf10364), new int64(0xa81a664b, 0xbc423001),
-      new int64(0xc24b8b70, 0xd0f89791), new int64(0xc76c51a3, 0x0654be30),
-      new int64(0xd192e819, 0xd6ef5218), new int64(0xd6990624, 0x5565a910),
-      new int64(0xf40e3585, 0x5771202a), new int64(0x106aa070, 0x32bbd1b8),
-      new int64(0x19a4c116, 0xb8d2d0c8), new int64(0x1e376c08, 0x5141ab53),
-      new int64(0x2748774c, 0xdf8eeb99), new int64(0x34b0bcb5, 0xe19b48a8),
-      new int64(0x391c0cb3, 0xc5c95a63), new int64(0x4ed8aa4a, 0xe3418acb),
-      new int64(0x5b9cca4f, 0x7763e373), new int64(0x682e6ff3, 0xd6b2b8a3),
-      new int64(0x748f82ee, 0x5defb2fc), new int64(0x78a5636f, 0x43172f60),
-      new int64(0x84c87814, 0xa1f0ab72), new int64(0x8cc70208, 0x1a6439ec),
-      new int64(0x90befffa, 0x23631e28), new int64(0xa4506ceb, 0xde82bde9),
-      new int64(0xbef9a3f7, 0xb2c67915), new int64(0xc67178f2, 0xe372532b),
-      new int64(0xca273ece, 0xea26619c), new int64(0xd186b8c7, 0x21c0c207),
-      new int64(0xeada7dd6, 0xcde0eb1e), new int64(0xf57d4f7f, 0xee6ed178),
-      new int64(0x06f067aa, 0x72176fba), new int64(0x0a637dc5, 0xa2c898a6),
-      new int64(0x113f9804, 0xbef90dae), new int64(0x1b710b35, 0x131c471b),
-      new int64(0x28db77f5, 0x23047d84), new int64(0x32caab7b, 0x40c72493),
-      new int64(0x3c9ebe0a, 0x15c9bebc), new int64(0x431d67c4, 0x9c100d4c),
-      new int64(0x4cc5d4be, 0xcb3e42b6), new int64(0x597f299c, 0xfc657e2a),
-      new int64(0x5fcb6fab, 0x3ad6faec), new int64(0x6c44198c, 0x4a475817)];
-
-  var W = new Array(64);
-  var a, b, c, d, e, f, g, h, i, j;
-  var T1, T2;
-  var charsize = 8;
-
-  function utf8_encode(str) {
-    return unescape(encodeURIComponent(str));
-  }
-
-  function str2binb(str) {
-    var bin = [];
-    var mask = (1 << charsize) - 1;
-    var len = str.length * charsize;
-
-    for (var i = 0; i < len; i += charsize) {
-      bin[i >> 5] |= (str.charCodeAt(i / charsize) & mask) << (32 - charsize - (i % 32));
-    }
-
-    return bin;
-  }
-
-  function binb2hex(binarray) {
-    var hex_tab = "0123456789abcdef";
-    var str = "";
-    var length = binarray.length * 4;
-    var srcByte;
-
-    for (var i = 0; i < length; i += 1) {
-      srcByte = binarray[i >> 2] >> ((3 - (i % 4)) * 8);
-      str += hex_tab.charAt((srcByte >> 4) & 0xF) + hex_tab.charAt(srcByte & 0xF);
-    }
-
-    return str;
-  }
-
-  function safe_add_2(x, y) {
-    var lsw, msw, lowOrder, highOrder;
-
-    lsw = (x.lowOrder & 0xFFFF) + (y.lowOrder & 0xFFFF);
-    msw = (x.lowOrder >>> 16) + (y.lowOrder >>> 16) + (lsw >>> 16);
-    lowOrder = ((msw & 0xFFFF) << 16) | (lsw & 0xFFFF);
-
-    lsw = (x.highOrder & 0xFFFF) + (y.highOrder & 0xFFFF) + (msw >>> 16);
-    msw = (x.highOrder >>> 16) + (y.highOrder >>> 16) + (lsw >>> 16);
-    highOrder = ((msw & 0xFFFF) << 16) | (lsw & 0xFFFF);
-
-    return new int64(highOrder, lowOrder);
-  }
-
-  function safe_add_4(a, b, c, d) {
-    var lsw, msw, lowOrder, highOrder;
-
-    lsw = (a.lowOrder & 0xFFFF) + (b.lowOrder & 0xFFFF) + (c.lowOrder & 0xFFFF) + (d.lowOrder & 0xFFFF);
-    msw = (a.lowOrder >>> 16) + (b.lowOrder >>> 16) + (c.lowOrder >>> 16) + (d.lowOrder >>> 16) + (lsw >>> 16);
-    lowOrder = ((msw & 0xFFFF) << 16) | (lsw & 0xFFFF);
-
-    lsw = (a.highOrder & 0xFFFF) + (b.highOrder & 0xFFFF) + (c.highOrder & 0xFFFF) + (d.highOrder & 0xFFFF) + (msw >>> 16);
-    msw = (a.highOrder >>> 16) + (b.highOrder >>> 16) + (c.highOrder >>> 16) + (d.highOrder >>> 16) + (lsw >>> 16);
-    highOrder = ((msw & 0xFFFF) << 16) | (lsw & 0xFFFF);
-
-    return new int64(highOrder, lowOrder);
-  }
-
-  function safe_add_5(a, b, c, d, e) {
-    var lsw, msw, lowOrder, highOrder;
-
-    lsw = (a.lowOrder & 0xFFFF) + (b.lowOrder & 0xFFFF) + (c.lowOrder & 0xFFFF) + (d.lowOrder & 0xFFFF) + (e.lowOrder & 0xFFFF);
-    msw = (a.lowOrder >>> 16) + (b.lowOrder >>> 16) + (c.lowOrder >>> 16) + (d.lowOrder >>> 16) + (e.lowOrder >>> 16) + (lsw >>> 16);
-    lowOrder = ((msw & 0xFFFF) << 16) | (lsw & 0xFFFF);
-
-    lsw = (a.highOrder & 0xFFFF) + (b.highOrder & 0xFFFF) + (c.highOrder & 0xFFFF) + (d.highOrder & 0xFFFF) + (e.highOrder & 0xFFFF) + (msw >>> 16);
-    msw = (a.highOrder >>> 16) + (b.highOrder >>> 16) + (c.highOrder >>> 16) + (d.highOrder >>> 16) + (e.highOrder >>> 16) + (lsw >>> 16);
-    highOrder = ((msw & 0xFFFF) << 16) | (lsw & 0xFFFF);
-
-    return new int64(highOrder, lowOrder);
-  }
-
-  function maj(x, y, z) {
-    return new int64(
-      (x.highOrder & y.highOrder) ^ (x.highOrder & z.highOrder) ^ (y.highOrder & z.highOrder),
-      (x.lowOrder & y.lowOrder) ^ (x.lowOrder & z.lowOrder) ^ (y.lowOrder & z.lowOrder)
-    );
-  }
-
-  function ch(x, y, z) {
-    return new int64(
-      (x.highOrder & y.highOrder) ^ (~x.highOrder & z.highOrder),
-      (x.lowOrder & y.lowOrder) ^ (~x.lowOrder & z.lowOrder)
-    );
-  }
-
-  function rotr(x, n) {
-    if (n <= 32) {
-      return new int64(
-       (x.highOrder >>> n) | (x.lowOrder << (32 - n)),
-       (x.lowOrder >>> n) | (x.highOrder << (32 - n))
-      );
-    } else {
-      return new int64(
-       (x.lowOrder >>> n) | (x.highOrder << (32 - n)),
-       (x.highOrder >>> n) | (x.lowOrder << (32 - n))
-      );
-    }
-  }
-
-  function sigma0(x) {
-    var rotr28 = rotr(x, 28);
-    var rotr34 = rotr(x, 34);
-    var rotr39 = rotr(x, 39);
-
-    return new int64(
-      rotr28.highOrder ^ rotr34.highOrder ^ rotr39.highOrder,
-      rotr28.lowOrder ^ rotr34.lowOrder ^ rotr39.lowOrder
-    );
-  }
-
-  function sigma1(x) {
-    var rotr14 = rotr(x, 14);
-    var rotr18 = rotr(x, 18);
-    var rotr41 = rotr(x, 41);
-
-    return new int64(
-      rotr14.highOrder ^ rotr18.highOrder ^ rotr41.highOrder,
-      rotr14.lowOrder ^ rotr18.lowOrder ^ rotr41.lowOrder
-    );
-  }
-
-  function gamma0(x) {
-    var rotr1 = rotr(x, 1), rotr8 = rotr(x, 8), shr7 = shr(x, 7);
-
-    return new int64(
-      rotr1.highOrder ^ rotr8.highOrder ^ shr7.highOrder,
-      rotr1.lowOrder ^ rotr8.lowOrder ^ shr7.lowOrder
-    );
-  }
-
-  function gamma1(x) {
-    var rotr19 = rotr(x, 19);
-    var rotr61 = rotr(x, 61);
-    var shr6 = shr(x, 6);
-
-    return new int64(
-      rotr19.highOrder ^ rotr61.highOrder ^ shr6.highOrder,
-      rotr19.lowOrder ^ rotr61.lowOrder ^ shr6.lowOrder
-    );
-  }
-
-  function shr(x, n) {
-    if (n <= 32) {
-      return new int64(
-       x.highOrder >>> n,
-       x.lowOrder >>> n | (x.highOrder << (32 - n))
-      );
-    } else {
-      return new int64(
-       0,
-       x.highOrder << (32 - n)
-      );
-    }
-  }
-
-  str = utf8_encode(str);
-  strlen = str.length*charsize;
-  str = str2binb(str);
-
-  str[strlen >> 5] |= 0x80 << (24 - strlen % 32);
-  str[(((strlen + 128) >> 10) << 5) + 31] = strlen;
-
-  for (var i = 0; i < str.length; i += 32) {
-    a = H[0];
-    b = H[1];
-    c = H[2];
-    d = H[3];
-    e = H[4];
-    f = H[5];
-    g = H[6];
-    h = H[7];
-
-    for (var j = 0; j < 80; j++) {
-      if (j < 16) {
-       W[j] = new int64(str[j*2 + i], str[j*2 + i + 1]);
-      } else {
-       W[j] = safe_add_4(gamma1(W[j - 2]), W[j - 7], gamma0(W[j - 15]), W[j - 16]);
-      }
-
-      T1 = safe_add_5(h, sigma1(e), ch(e, f, g), K[j], W[j]);
-      T2 = safe_add_2(sigma0(a), maj(a, b, c));
-      h = g;
-      g = f;
-      f = e;
-      e = safe_add_2(d, T1);
-      d = c;
-      c = b;
-      b = a;
-      a = safe_add_2(T1, T2);
-    }
-
-    H[0] = safe_add_2(a, H[0]);
-    H[1] = safe_add_2(b, H[1]);
-    H[2] = safe_add_2(c, H[2]);
-    H[3] = safe_add_2(d, H[3]);
-    H[4] = safe_add_2(e, H[4]);
-    H[5] = safe_add_2(f, H[5]);
-    H[6] = safe_add_2(g, H[6]);
-    H[7] = safe_add_2(h, H[7]);
-  }
-
-  var binarray = [];
-  for (var i = 0; i < H.length; i++) {
-    binarray.push(H[i].highOrder);
-    binarray.push(H[i].lowOrder);
-  }
-  return binb2hex(binarray);
-}
-  }
-
-  on_request %{
-    //Code that handles a payload goes here.
-    //You have access to `info`, `ep`, and `ename` which was given in the ServiceRequest macro
-
-    //Create a GET request that will respond to the telepointer
-    var tp = tel_reg(service_rest_callback);
-
-    //Now register the event information to respond to when a callback is received
-    service_rest_tp_to_einfo[tp] = [ep, ename]
-
-    //Start the request
-    SEND("net", "if_net_req", "GET", info.url, info.params, tp)
-  }
-end

data/app/kern/services/timer.rb

@@ -1,30 +0,0 @@
-service("timer") do
-  on_init %{
-    //Entries in the timer event table are stored as an array of arrays, each array
-    //contains [N, bp, event_name]
-
-    var timer_evt = [];
-    //Call an event N times per second
-    function reg_timer_ev(n, bp, ename) {
-      timer_evt.push([n, bp, ename]);
-    }
-
-    //Timer position
-    var ttick = 0;
-    function int_timer() {
-      ttick += 1;
-
-      for (var i = 0; i < timer_evt.length; ++i) {
-        if (ttick % timer_evt[i][0] == 0) {
-          var bp = timer_evt[i][1];
-          var ename = timer_evt[i][2];
-          int_event(bp, ename, {});
-        }
-      }
-    }
-  }
-
-  on_request %{
-    timer_evt.push([info.ticks, ep, ename]);
-  }
-end

data/docs/services/timer.md

@@ -1,21 +0,0 @@
-#Timer service
-This service manages the `int_timer` function (which is a little different than how most modules work). When an `int_timer` request
-comes in, the timer service dispatches it to an apprpriate controller event handler.
-
-Timer service mantains an `timer_evt` which contains an array of arrays for interval timers that will be called (recurring) periodically.
-The elements of `timer_evt` are an array with the following information: `[tps, base_pointer, event_name]`.  When `int_timer` is called,
-it will send events to all entries in `timer_evt` which have a `ticks` that is a modulo of `ttick`; the global tick counter.
-
-###Info to start a request
-```js
-var info = {
-  ticks: 4,
-}
-```
-`ticks` the number of ticks to wait between fires.
-
-When you receive a request back, you will receive 
-```js
-{
-}
-```

data/spec/kern/assets/rest_service.rb

@@ -1,20 +0,0 @@
-controller :my_controller do
-  spots "hello", "world"
-
-  action :my_action do
-    on_entry %{
-    }
-
-    on "start_request", %{
-      var payload = {
-        url: "http://test.services.fittr.com/ping",
-        params: {},
-      };
-      Request("rest", payload, "request_response");
-    }
-
-    on "request_response", %{
-      response = params;
-    }
-  end
-end

data/spec/kern/assets/timer_service.rb

@@ -1,19 +0,0 @@
-controller :my_controller do
-  spots "hello", "world"
-
-  action :my_action do
-    on_entry %{
-    }
-
-    on "start_request", %{
-      var payload = {
-        ticks: 4
-      };
-      Request("timer", payload, "tick");
-    }
-
-    on "tick", %{
-      did_tick = true;
-    }
-  end
-end

data/spec/kern/timer_service_spec.rb

@@ -1,40 +0,0 @@
-Dir.chdir File.join File.dirname(__FILE__), '../../'
-require './spec/env/kern.rb'
-require './spec/lib/helpers.rb'
-require './spec/lib/io_extensions.rb'
-require './spec/lib/rspec_extensions.rb'
-
-RSpec.describe "kern:timer_service_spec" do
-  include_context "kern"
-
-  #Can initialize a controller via embed and have the correct if_dispatch messages
-  it "Can initiate a controller via _embed" do
-    #Compile the controller
-    ctx = flok_new_user File.read('./spec/kern/assets/timer_service.rb')
-
-    #Run the embed function
-    ctx.eval %{
-      //Call embed on main root view
-      base = _embed("my_controller", 0, {}, null);
-
-      //Drain queue with a test event
-      int_dispatch([3, "int_event", base, "start_request", {}]);
-    }
-
-    base = ctx.eval("base")
-
-    @driver.mexpect("if_init_view", ["my_controller", {}, base+1, ["main", "hello", "world"]])
-    @driver.mexpect("if_controller_init", [base, base+1, "my_controller", {}])
-    @driver.mexpect("if_attach_view", [base+1, 0])
-    @driver.mexpect("if_event", [base, "action", {"from" => nil, "to" => "my_action"}])
-
-    #Emulate the if_timer driver
-    @driver.int("int_timer")
-    @driver.int("int_timer")
-    @driver.int("int_timer")
-    @driver.int("int_timer")
-
-    response = ctx.eval("did_tick")
-    expect(response).to eq(true)
-  end
-end