Fixes other small bugs in the Lua generator for VCV-Prototype

src/core/env.ml

@@ -612,7 +612,7 @@ let builtin_table extensions =
      ; [ "cos" ], Scope.Function, Typ.Const.freal_freal (), false
      ; [ "floor" ], Scope.Function, Typ.Const.freal_freal (), false
      ; [ "tanh" ], Scope.Function, Typ.Const.freal_freal (), false
-     ; [ "pow" ], Scope.Function, Typ.Const.real_real_real (), false
+     ; [ "pow" ], Scope.Function, Typ.Const.freal_freal_freal (), false
      ; [ "cosh" ], Scope.Function, Typ.Const.freal_freal (), false
      ; [ "sinh" ], Scope.Function, Typ.Const.freal_freal (), false
      ; [ "tan" ], Scope.Function, Typ.Const.freal_freal (), false

src/core/typ.ml

@@ -385,6 +385,11 @@ module Const = struct
       t |-> t
 
 
+   let freal_freal_freal () =
+      let t = freal_type () in
+      t |-> (t |-> t)
+
+
    let real_real () = real_type |-> real_type
 
    let real_real_real () = real_type |-> (real_type |-> real_type)

src/generators/codeJs.ml

@@ -48,6 +48,7 @@ module Templates = struct
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

src/generators/codeLua.ml

@@ -71,6 +71,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end
@@ -113,7 +114,7 @@ config = { inputs = <#nprocess_inputs#i>, outputs = <#nprocess_outputs#i>, noteo
       in
       let readInputs inputs =
          match inputs with
-         | [] -> Pla.string "processor"
+         | [] -> Pla.unit
          | IContext :: args ->
             let args =
                Pla.string "processor"
@@ -143,14 +144,16 @@ config = { inputs = <#nprocess_inputs#i>, outputs = <#nprocess_outputs#i>, noteo
             let bindings =
                List.mapi
                   (fun i _ ->
-                      let i = i + 1 in
-                      {pla|      block.outputs[<#i#i>][i] = 10.0 * processor.process_ret_<#i#i>|pla})
+                      let li = i + 1 in
+                      {pla|      block.outputs[<#li#i>][i] = 10.0 * processor.process_ret_<#i#i>|pla})
                   outputs
             in
             Pla.unit, Pla.join_sep_all Pla.newline bindings
       in
       let process_inputs = readInputs config.process_inputs in
       let process_lhs, bindings = bindOutputs config.process_outputs in
+      let update_inputs = readInputs config.update_inputs in
+
       {pla|
 local global_block = {}
 
@@ -213,7 +216,7 @@ config.bufferSize = 32
 function process(block)
    global_block = block
 
-   <#module_name#s>_update()
+   <#module_name#s>_update(<#update_inputs#>)
 
    for i=1,block.bufferSize do
       <#process_lhs#><#module_name#s>_process(<#process_inputs#>)

src/generators/defaultReplacements.ml

@@ -139,6 +139,7 @@ module Default = struct
          ; ("cosh", "float"), "coshf"
          ; ("sinh", "float"), "sinhf"
          ; ("sqrt", "float"), "sqrtf"
+         ; ("pow", "float"), "powf"
          ; ("clip", "float"), "float_clip"
          ; ("clip", "int"), "int_clip"
          ; ("set", "float"), "float_set"

src/version.ml

@@ -1 +1 @@
-let version = "\nv0.4.5\n"
+let version = "\nv0.4.8\n"

test/code/ad.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/adsr.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/af_f.js.base.browser

@@ -15,6 +15,7 @@ function vultProcess() {
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/af_f.js.base.webaudio

@@ -17,6 +17,7 @@
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/aff_f.js.base.browser

@@ -15,6 +15,7 @@ function vultProcess() {
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/aff_f.js.base.webaudio

@@ -17,6 +17,7 @@
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/aff_ff.js.base.browser

@@ -15,6 +15,7 @@ function vultProcess() {
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/aff_ff.js.base.webaudio

@@ -17,6 +17,7 @@
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/afi_fi.js.base.browser

@@ -15,6 +15,7 @@ function vultProcess() {
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/afi_fi.js.base.webaudio

@@ -17,6 +17,7 @@
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/ahr.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/array_defined_type.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/bitcrush.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/blit.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/defined_types.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/delay.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/gates.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/kick.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/ladder.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/lfo.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/log.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/monocv.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/noise.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/phase.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/phasedist.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/phd.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/polycv.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/rescomb.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/saturate.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/saturate_soft.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/saw_eptr.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/saw_ptr1.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/saw_ptr2.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/saw_r.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/sawcore.lua.base

@@ -16,6 +16,7 @@ function exp(x)             return math.exp(x); end
 function floor(x)           return math.floor(x); end
 function tan(x)             return math.tan(x); end
 function tanh(x)            return math.tanh(x); end
+function pow(a,b)           return math.pow(a,b); end
 function sqrt(x)            return x; end
 function set(a, i, v)       a[i+1]=v; end
 function get(a, i)          return a[i+1]; end

test/code/sf_f.js.base.browser

@@ -15,6 +15,7 @@ function vultProcess() {
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };

test/code/sf_f.js.base.webaudio

@@ -17,6 +17,7 @@
             this.floor= function(x)          { return Math.floor(x); };
             this.tan  = function(x)          { return Math.tan(x); };
             this.tanh = function(x)          { return Math.tanh(x); };
+            this.pow = function(a,b)         { return Math.pow(a,b); };
             this.sqrt = function(x)          { return x; };
             this.set  = function(a, i, v)    { a[i]=v; };
             this.get  = function(a, i)       { return a[i]; };