Move to new Romain controller version

5 files changed, 54 insertions, 373 deletions

diff --git a/conf.d/project/etc/4a-softmixer-config.json b/conf.d/project/etc/4a-softmixer-config.json
index b094f2f..2b4db11 100644
--- a/conf.d/project/etc/4a-softmixer-config.json
+++ b/conf.d/project/etc/4a-softmixer-config.json
@@ -1,5 +1,5 @@
 {
-    "schema": "To Be Defined",
+    "schema": "http://iot.bzh/download/public/schema/json/ctl-schema.json",
     "metadata": {
         "uid": "Soft Mixer",
         "version": "1.0",
@@ -8,10 +8,12 @@
     },
     "plugins": [
         {
-            "uid": "alsa-router",
-            "ldpath": "./plugins/alsa",
-            "lua2c": ["snd_cards", "snd_zones", "snd_loops", "snd_streams"],
-            "info": "Map alsa-loop subdevices to 4A HAL streams"
+            "uid": "alsa-softmixer",
+            "info": "Map alsa-loop subdevices to 4A HAL streams",
+            "spath":"./plugins/alsa:../conf.d/project/lua.d",
+            "file": ["alsa-router.ctlso", "softmixer-simple.lua"],
+            "lua2c_prefix": "smix",
+            "lua2c": ["snd_cards", "snd_zones", "snd_loops", "snd_streams"]
         }
     ],
 
@@ -19,82 +21,26 @@
         {
             "uid": "init-soft-mixer",
             "info": "Initialise Audio Router",
-            "lua": "_init_softmixer_"
+            "uri": "lua://alsa-softmixer",
+            "function": "_init_softmixer_"
         }
     ],
 
-    "sndcards": [
-        {
-            "uid": "Focusrite_Scarlett_18i8",
-            "info": "Focusrite 18i8",
-            "device": "/dev/snd/by-id/usb-Focusrite_Scarlett_18i8_USB_10004EE6-00",
-            "action": {
-                "uid": "init-snd-card",
-                "function": "lua://init-focusrite"
-            },
-            "channels": {
-                "sink": [
-                    {
-                        "type": "FrontLeftFullRange",
-                        "port": 0
-                    },
-                    {
-                        "type": "FrontRightFullRange",
-                        "port": 1
-                    },
-                    {
-                        "type": "RearLeftFullRange",
-                        "port": 2
-                    },
-                    {
-                        "type": "FrontRightFullRange",
-                        "port": 3
-                    },
-                    {
-                        "type": "Center",
-                        "port": 4
-                    },
-                    {
-                        "type": "LFE",
-                        "port": 5
-                    }
-                ],
-                "source": [
-                    {
-                        "uid": "FrontRightMic",
-                        "type": "Directional",
-                        "port": 0
-                    }
-                ]
-            }
-        }
-    ],
-
-    "streams": [{
-            "uid": "alsa-loop",
-            "dev": "/dev/snd/by-path/platform-snd_aloop.0",
-            "subdev": 0,
-            "count": 8
-        }],
-
     "controls": [
         {
             "uid": "mixer-config",
-            "lua": "_mixer_config_"
+            "uri": "lua://alsa-softmixer",
+            "function": "_mixer_config_"
         },
         {
             "uid": "snd-cards",
-            "callback": {
-                "plugin": "alsa-router",
-                "function": "snd_cards"
-            }
+            "uri": "plugin://alsa-softmixer",
+            "function": "snd_cards"
         },
         {
             "uid": "snd-zone",
-            "callback": {
-                "plugin": "alsa-router",
-                "function": "snd_zones"
-            }
+            "uri": "plugin://alsa-softmixer",
+             "function": "snd_zones"
         }
     ]
 }
diff --git a/conf.d/project/lua.d/softmixer-00.lua b/conf.d/project/lua.d/softmixer-00.lua
deleted file mode 100644
index 29d2c70..0000000
--- a/conf.d/project/lua.d/softmixer-00.lua
+++ /dev/null
@@ -1,86 +0,0 @@
---[[
-  Copyright (C) 2016 "IoT.bzh"
-  Author Fulup Ar Foll <fulup@iot.bzh>
-
-  Licensed under the Apache License, Version 2.0 (the "License");
-  you may not use this file except in compliance with the License.
-  You may obtain a copy of the License at
-
-    http://www.apache.org/licenses/LICENSE-2.0
-
-  Unless required by applicable law or agreed to in writing, software
-  distributed under the License is distributed on an "AS IS" BASIS,
-  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-  See the License for the specific language governing permissions and
-  limitations under the License.
-
-  Note: this file should be called before any other to assert declare function
-  is loaded before anything else.
-
-  References:
-    http://lua-users.org/wiki/DetectingUndefinedVariables
-
---]]
-
-
---===================================================
---=  Niklas Frykholm
--- basically if user tries to create global variable
--- the system will not let them!!
--- call GLOBAL_lock(_G)
---
---===================================================
-function GLOBAL_lock(t)
-  local mt = getmetatable(t) or {}
-  mt.__newindex = lock_new_index
-  setmetatable(t, mt)
-end
-
---===================================================
--- call GLOBAL_unlock(_G)
--- to change things back to normal.
---===================================================
-function GLOBAL_unlock(t)
-  local mt = getmetatable(t) or {}
-  mt.__newindex = unlock_new_index
-  setmetatable(t, mt)
-end
-
-function lock_new_index(t, k, v)
-  if (string.sub(k,1,1) ~= "_") then
-    GLOBAL_unlock(_G)
-    error("GLOBALS are locked -- " .. k ..
-          " must be declared local or prefix with '_' for globals.", 2)
-  else
-    rawset(t, k, v)
-  end
-end
-
-function unlock_new_index(t, k, v)
-  rawset(t, k, v)
-end
-
--- return serialised version of printable table
-function Dump_Table(o)
-   if type(o) == 'table' then
-      local s = '{ '
-      for k,v in pairs(o) do
-         if type(k) ~= 'number' then k = '"'..k..'"' end
-         s = s .. '['..k..'] = ' .. Dump_Table(v) .. ','
-      end
-      return s .. '} '
-   else
-      return tostring(o)
-   end
-end
-
-
--- simulate C prinf function
-printf = function(s,...)
-    io.write(s:format(...))
-    io.write("\n")
-    return
-end
-
--- lock global variable
-GLOBAL_lock(_G)
diff --git a/conf.d/project/lua.d/softmixer-01.lua b/conf.d/project/lua.d/softmixer-01.lua
deleted file mode 100644
index b11a252..0000000
--- a/conf.d/project/lua.d/softmixer-01.lua
+++ /dev/null
@@ -1,192 +0,0 @@
---[[
-  Copyright (C) 2016 "IoT.bzh"
-  Author Fulup Ar Foll <fulup@iot.bzh>
-
-  Licensed under the Apache License, Version 2.0 (the "License");
-  you may not use this file except in compliance with the License.
-  You may obtain a copy of the License at
-
-    http://www.apache.org/licenses/LICENSE-2.0
-
-  Unless required by applicable law or agreed to in writing, software
-  distributed under the License is distributed on an "AS IS" BASIS,
-  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-  See the License for the specific language governing permissions and
-  limitations under the License.
-
-
-  NOTE: strict mode: every global variables should be prefixed by '_'
---]]
-
--- Static variables should be prefixed with _
-_EventHandle={}
-
--- Call when AlsaCore return HAL active list
-function _AlsaPingCB_ (source, result, context)
-
-    AFB:notice (source, "--InLua-- PingCB: result='%s'", Dump_Table(result))
-
-end
-
-
--- Display receive arguments and echo them to caller
-function _mixer_config_ (source, args)
-    local error
-
-    local sndcard_0 = {
-        ["uid"]= "YAMAHA-APU70",
-        ["path"]= "/dev/snd/by-id/usb-YAMAHA_Corporation_YAMAHA_AP-U70_USB_Audio_00-00",
-        ["sink"] = {
-            [0]= {["uid"]= "front-right", ["port"]= 0},
-            [1]= {["uid"]= "front-left", ["port"]= 1},
-        }
-    }
-
-    local sndcard_1 = {
-        ["uid"]= "Jabra-Solemate",
-        ["path"]= "/dev/snd/by-id/usb-0b0e_Jabra_SOLEMATE_v1.34.0-00",
-        ["sink"] = {
-            [0]= {["uid"]= "front-right", ["port"]= 0},
-            [1]= {["uid"]= "front-left", ["port"]= 1},
-        }
-    }
-
-    local sndcard_2 = {
-        ["uid"]= "Jabra-410",
-        ["path"]= "/dev/snd/by-id/usb-0b0e_Jabra_SPEAK_410_USB_745C4B15BD11x010900-00",
-        ["sink"] = {
-            [0]= {["uid"]= "back-right", ["port"]= 0},
-            [1]= {["uid"]= "back-left",  ["port"]= 1},
-        }
-    }
-
-    local snd-aloop = {
-        ["uid"]= "Alsa-Loop",
-        ["path"]= "/dev/snd/by-path/platform-snd_aloop.0",
-        ["capture"] = 1,
-        ["playback"]= 0,
-        ["subdevs"] = {
-            [0]=  {["uid"]="musique"   ["subdev"]= 0, ["numid"]= 51},
-            [1]=  {["uid"]="guidance"  ["subdev"]= 1, ["numid"]= 57},
-            [2]=  {["uid"]="emergency" ["subdev"]= 2, ["numid"]= 63},
-            [3]=  {["uid"]="telephony" ["subdev"]= 3, ["numid"]= 69},
-            [4]=  {["uid"]="xxxx"      ["subdev"]= 4, ["numid"]= 75},
-            [5]=  {["uid"]="yyyy"      ["subdev"]= 5, ["numid"]= 81},
-            [6]=  {["uid"]="zzzz"      ["subdev"]= 6, ["numid"]= 87},
-            [7]=  {["uid"]="yyyy"      ["subdev"]= 7, ["numid"]= 93},
-        }
-    }
-
-    local sndcards= {
-        [0] = sndcard_0,
-        [1] = sndcard_2,
-    }
-
-    local zone_front= {
-        ["uid"]  = "front-seat",
-        ["type"] = "playback",
-        ["mapping"] = {
-            [0]= {["target"]="front-right",["channel"]=0},
-            [1]= {["target"]="front-left" ,["channel"]=1},
-        }
-    }
-
-    local zone_back= {
-        ["uid"]  = "back-seat",
-        ["type"] = "playback",
-        ["mapping"] = {
-            [0]= {["target"]="back-right",["channel"]=0},
-            [1]= {["target"]="back-left" ,["channel"]=1},
-        }
-    }
-
-    local zone_all= {
-        ["uid"]  = "all-seat",
-        ["type"] = "playback",
-        ["mapping"] = {
-            [0]= {["target"]="front-right",["channel"]=0},
-            [1]= {["target"]="front-left" ,["channel"]=1},
-            [3]= {["target"]="back-right" ,["channel"]=0},
-            [4]= {["target"]="back-left"  ,["channel"]=1},
-        }
-    }
-
-    local zones = {
-        [0] = zone-all,
-        [1] = zone-front,
-        [2] = zone-back,
-    }
-
-    local stream_music= {
-        ["uid"]   = "multimedia",
-        ["zone"]  = "zone-all",
-        ["volume"]= 70,
-        ["mute"]  = false;
-    }
-    
-    local stream_navigation= {
-        ["uid"]   = "navigation",
-        ["zone"]  = "zone-front",
-        ["volume"]= 80,
-        ["mute"]  = false;
-    }
-    
-    local stream_children= {
-        ["uid"]   = "children",
-        ["zone"]  = "zone-back",
-        ["volume"]= 50,
-        ["mute"]  = false;
-    }
-    
-    local streams = {
-        [0] = stream_music,
-        [1] = stream_navigation,
-        [2] = stream_children,
-    }
-
-    local params = {
-        ["rate"]= 48000,
-        --["rate"]= 44100,
-        ["channels"]= 2,
-    }
-
-
-
-    -- Call AlsaSoftRouter
-
-    error= L2C:snd_cards (source, sndcards)
-    if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:sndcards fail to attach sndcards=%s", Dump_Table(sndcards))
-        --goto OnErrorExit
-    else
-        AFB:notice (source, "--InLua-- L2C:sndcards done response=%s", Dump_Table(response))
-    end
-    
-    error= L2C:snd_zones (source, zones)
-    if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:zones fail to attach sndcards=%s", Dump_Table(sndcards))
-        --goto OnErrorExit
-    else
-        AFB:notice (source, "--InLua-- L2C:zones done response=%s", Dump_Table(response))
-    end
-    
-
-    error= L2C:snd_stream (source, {["devin"]= devin, ["devout"]= devout, ["params"]= params})
-
-    AFB:notice (source, "--InLua-- _mixer_config_ done")
-
-    do return 0 end -- happy end (hoops: lua syntax) --
-
-::OnErrorExit::
-    AFB:error (source, "--InLua-- snd_attach fail")
-    return 1 end -- unhappy end --
-
--- Display receive arguments and echo them to caller
-function _init_softmixer_ (source, args)
-
-    -- create event to push change audio roles to potential listeners
-    _EventHandle=AFB:evtmake(source, "control")
-
-    _mixer_config_ (source, args)
-
-end
diff --git a/conf.d/project/samples/softmixer-multi-01.lua b/conf.d/project/lua.d/softmixer-double.lua
index 1b8ba02..8f7a20a 100644
--- a/conf.d/project/samples/softmixer-multi-01.lua
+++ b/conf.d/project/lua.d/softmixer-double.lua
@@ -54,12 +54,12 @@ function _mixer_config_ (source, args)
         }
     }
 
-    error,response= L2C:snd_loops (source, snd_aloop)
+    error,response= smix:snd_loops (source, snd_aloop)
     if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:snd_loops fail to attach sndcards=%s", Dump_Table(aloop))
+        AFB:error (source, "--InLua-- smix:snd_loops fail to attach sndcards=%s", Dump_Table(aloop))
         goto OnErrorExit
     else
-        AFB:notice (source, "--InLua-- L2C:snd_loops done response=%s\n", Dump_Table(response))
+        AFB:notice (source, "--InLua-- smix:snd_loops done response=%s\n", Dump_Table(response))
     end
     
 
@@ -106,12 +106,12 @@ function _mixer_config_ (source, args)
         sndcard_2,
     }
 
-    error,response= L2C:snd_cards (source, sndcards)
+    error,response= smix:snd_cards (source, sndcards)
     if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:snd_cards fail to attach sndcards=%s", Dump_Table(sndcards))
+        AFB:error (source, "--InLua-- smix:snd_cards fail to attach sndcards=%s", Dump_Table(sndcards))
         goto OnErrorExit
     else
-        AFB:notice (source, "--InLua-- L2C:snd_cards done response=%s\n", Dump_Table(response))
+        AFB:notice (source, "--InLua-- smix:snd_cards done response=%s\n", Dump_Table(response))
     end
  
     -- ============================= Zones ===================    
@@ -151,12 +151,12 @@ function _mixer_config_ (source, args)
         zone_back,
     }
 
-    error,response= L2C:snd_zones (source, multi_zones)
+    error,response= smix:snd_zones (source, multi_zones)
     if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:snd_zones fail to attach sndcards=%s", Dump_Table(multi_zones))
+        AFB:error (source, "--InLua-- smix:snd_zones fail to attach sndcards=%s", Dump_Table(multi_zones))
         goto OnErrorExit
     else
-        AFB:notice (source, "--InLua-- L2C:snd_zones done response=%s\n", Dump_Table(response))
+        AFB:notice (source, "--InLua-- smix:snd_zones done response=%s\n", Dump_Table(response))
     end
 
     -- =================== Audio Stream ============================
@@ -193,12 +193,12 @@ function _mixer_config_ (source, args)
         stream_children,
     }
 
-    error,response= L2C:snd_streams (source, snd_streams)
+    error,response= smix:snd_streams (source, snd_streams)
     if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:snd_streams fail to attach sndcards=%s", Dump_Table(aloop))
+        AFB:error (source, "--InLua-- smix:snd_streams fail to attach sndcards=%s", Dump_Table(aloop))
         goto OnErrorExit
     else
-        AFB:notice (source, "--InLua-- L2C:streams_loops done response=%s\n", Dump_Table(response))
+        AFB:notice (source, "--InLua-- smix:streams_loops done response=%s\n", Dump_Table(response))
     end
 
 
diff --git a/conf.d/project/lua.d/softmixer-02.lua b/conf.d/project/lua.d/softmixer-simple.lua
index 5ea52de..9f00ce1 100644
--- a/conf.d/project/lua.d/softmixer-02.lua
+++ b/conf.d/project/lua.d/softmixer-simple.lua
@@ -60,12 +60,12 @@ function _mixer_config_ (source, args)
         }
     }
 
-    error,response= L2C:snd_loops (source, snd_aloop)
+    error,response= smix:snd_loops (source, snd_aloop)
     if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:snd_loops fail to attach sndcards=%s", Dump_Table(aloop))
+        AFB:error (source, "--InLua-- smix:snd_loops fail to attach sndcards=%s", Dump_Table(aloop))
         goto OnErrorExit
     else
-        AFB:notice (source, "--InLua-- L2C:snd_loops done response=%s\n", Dump_Table(response))
+        AFB:notice (source, "--InLua-- smix:snd_loops done response=%s\n", Dump_Table(response))
     end
     
 
@@ -81,17 +81,27 @@ function _mixer_config_ (source, args)
         }
     }
 
+    local sndcard_1 = {
+        ["uid"]= "Jabra-Solemate",
+        ["devpath"]= "/dev/snd/by-id/usb-0b0e_Jabra_SOLEMATE_v1.34.0-00",
+        ["params"] = snd_params,
+        ["sink"] = {
+            [0]= {["uid"]= "front-right", ["port"]= 0},
+            [1]= {["uid"]= "front-left", ["port"]= 1},
+        }
+    }
+
      -- group sound card as one multi channels card
     local sndcards= {
-        sndcard_0,
+        sndcard_1,
     }
 
-    error,response= L2C:snd_cards (source, sndcards)
+    error,response= smix:snd_cards (source, sndcards)
     if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:snd_cards fail to attach sndcards=%s", Dump_Table(sndcards))
+        AFB:error (source, "--InLua-- smix:snd_cards fail to attach sndcards=%s", Dump_Table(sndcards))
         goto OnErrorExit
     else
-        AFB:notice (source, "--InLua-- L2C:snd_cards done response=%s\n", Dump_Table(response))
+        AFB:notice (source, "--InLua-- smix:snd_cards done response=%s\n", Dump_Table(response))
     end
  
     -- ============================= Zones ===================    
@@ -109,12 +119,12 @@ function _mixer_config_ (source, args)
         zone_front,
     }
 
-    error,response= L2C:snd_zones (source, multi_zones)
+    error,response= smix:snd_zones (source, multi_zones)
     if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:snd_zones fail to attach sndcards=%s", Dump_Table(multi_zones))
+        AFB:error (source, "--InLua-- smix:snd_zones fail to attach sndcards=%s", Dump_Table(multi_zones))
         goto OnErrorExit
     else
-        AFB:notice (source, "--InLua-- L2C:snd_zones done response=%s\n", Dump_Table(response))
+        AFB:notice (source, "--InLua-- smix:snd_zones done response=%s\n", Dump_Table(response))
     end
 
     -- =================== Audio Stream ============================
@@ -138,12 +148,12 @@ function _mixer_config_ (source, args)
         stream_navigation,
     }
 
-    error,response= L2C:snd_streams (source, snd_streams)
+    error,response= smix:snd_streams (source, snd_streams)
     if (error ~= 0) then 
-        AFB:error (source, "--InLua-- L2C:snd_streams fail to attach sndcards=%s", Dump_Table(aloop))
+        AFB:error (source, "--InLua-- smix:snd_streams fail to attach sndcards=%s", Dump_Table(aloop))
         goto OnErrorExit
     else
-        AFB:notice (source, "--InLua-- L2C:streams_loops done response=%s\n", Dump_Table(response))
+        AFB:notice (source, "--InLua-- smix:streams_loops done response=%s\n", Dump_Table(response))
     end
 
 
@@ -159,10 +169,13 @@ end
 
 -- Display receive arguments and echo them to caller
 function _init_softmixer_ (source, args)
-
+    
+    printf ("*********** in print ")
     -- create event to push change audio roles to potential listeners
     _EventHandle=AFB:evtmake(source, "control")
 
     _mixer_config_ (source, args)
 
 end
+
+printf ("*********** load done ")