enables automatic network setup on bindinginit
[apps/agl-service-unicens.git] / ucs2-afb / ucs_binding.c
1 /*
2  * Copyright (C) 2016 "IoT.bzh"
3  * Author Fulup Ar Foll <fulup@iot.bzh>
4  *
5  * Licensed under the Apache License, Version 2.0 (the "License");
6  * you may not use this file except in compliance with the License.
7  * You may obtain a copy of the License at
8  *
9  *   http://www.apache.org/licenses/LICENSE-2.0
10  *
11  * Unless required by applicable law or agreed to in writing, software
12  * distributed under the License is distributed on an "AS IS" BASIS,
13  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14  * See the License for the specific language governing permissions and
15  * limitations under the License.
16  *
17  * references:
18  *   https://gist.github.com/ghedo/963382
19  *   http://alsa-utils.sourcearchive.com/documentation/1.0.15/aplay_8c-source.html
20  */
21
22 #define _GNU_SOURCE
23
24 #define BUFFER_FRAME_COUNT 10 /* max frames in buffer */
25 #define WAIT_TIMER_US 1000000 /* default waiting timer 1s */
26 #define I2C_MAX_DATA_SZ    32 /* max. number of bytes to be written to i2c */
27
28 #include <systemd/sd-event.h>
29 #include <sys/types.h>
30 #include <sys/stat.h>
31 #include <stdio.h>
32 #include <fcntl.h>
33 #include <string.h>
34 #include <unistd.h>
35 #include <time.h>
36 #include <assert.h>
37 #include <errno.h>
38 #include <dirent.h> 
39
40 #include "ucs_binding.h"
41 #include "ucs_interface.h"
42
43 #define MAX_FILENAME_LEN (100)
44 #define RX_BUFFER (64)
45 #define XML_CONFIG_FOLDER "/data/"
46 #define XML_CONFIG_FILE "config_multichannel_audio_kit.xml"
47
48 /** Internal structure, enabling multiple instances of this component.
49  * \note Do not access any of this variables.
50  *  */
51 typedef struct {
52     int fileHandle;
53     int fileFlags;
54     char fileName[MAX_FILENAME_LEN];
55     uint8_t rxBuffer[RX_BUFFER];
56     uint32_t rxLen;
57 } CdevData_t;
58
59
60 typedef struct {
61   CdevData_t rx;
62   CdevData_t tx;
63   UCSI_Data_t ucsiData;
64 } ucsContextT;
65
66 typedef struct {
67     struct afb_event node_event;
68     
69 } EventData_t;
70
71 static ucsContextT *ucsContextS;
72 static EventData_t *eventData = NULL;
73
74 PUBLIC void UcsXml_CB_OnError(const char format[], uint16_t vargsCnt, ...) {
75     /*AFB_DEBUG (afbIface, format, args); */
76     va_list args;
77     va_start (args, vargsCnt);
78     vfprintf (stderr, format, args);
79     va_end(args);
80     
81     va_list argptr;
82     char outbuf[300];
83     va_start(argptr, vargsCnt);
84     vsprintf(outbuf, format, argptr);
85     va_end(argptr);
86     AFB_WARNING (outbuf);
87 }
88
89 PUBLIC uint16_t UCSI_CB_OnGetTime(void *pTag) {
90     struct timespec currentTime;
91     uint16_t timer;
92     pTag = pTag;
93
94     if (clock_gettime(CLOCK_MONOTONIC_RAW, &currentTime))   {
95         assert(false);
96         return 0;
97     }
98
99     timer = (uint16_t) ((currentTime.tv_sec * 1000 ) + ( currentTime.tv_nsec / 1000000 ));
100     return(timer);
101 }
102
103 STATIC int onTimerCB (sd_event_source* source,uint64_t timer, void* pTag) {
104     ucsContextT *ucsContext = (ucsContextT*) pTag;
105
106     sd_event_source_unref(source);
107     UCSI_Timeout(&ucsContext->ucsiData);
108
109     return 0;
110 }
111
112 void UCSI_CB_OnNetworkState(void *pTag, bool isAvailable, uint16_t packetBandwidth, uint8_t amountOfNodes)
113 {
114 }
115
116 /* UCS2 Interface Timer Callback */
117 PUBLIC void UCSI_CB_OnSetServiceTimer(void *pTag, uint16_t timeout) {
118   uint64_t usec;
119   /* set a timer with  250ms accuracy */
120   sd_event_now(afb_daemon_get_event_loop(), CLOCK_BOOTTIME, &usec);
121   sd_event_add_time(afb_daemon_get_event_loop(), NULL, CLOCK_MONOTONIC, usec + (timeout*1000), 250, onTimerCB, pTag);
122
123 }
124
125 /**
126  * \brief Callback when ever an Unicens forms a human readable message.
127  *        This can be error events or when enabled also debug messages.
128  * \note This function must be implemented by the integrator
129  * \param pTag - Pointer given by the integrator by UCSI_Init
130  * \param format - Zero terminated format string (following printf rules)
131  * \param vargsCnt - Amount of parameters stored in "..."
132  */
133 void UCSI_CB_OnUserMessage(void *pTag, bool isError, const char format[],
134     uint16_t vargsCnt, ...) {
135     va_list argptr;
136     char outbuf[300];
137     pTag = pTag;
138     va_start(argptr, vargsCnt);
139     vsprintf(outbuf, format, argptr);
140     va_end(argptr);
141     if (isError)
142         AFB_NOTICE (outbuf);
143 }
144
145 /** UCSI_Service cannot be called directly within UNICENS context, need to service stack through mainloop */
146 STATIC int OnServiceRequiredCB (sd_event_source *source, uint64_t usec, void *pTag) {
147     ucsContextT *ucsContext = (ucsContextT*) pTag;
148
149     sd_event_source_unref(source);
150     UCSI_Service(&ucsContext->ucsiData);
151     return (0);
152 }
153
154 /* UCS Callback fire when ever UNICENS needs to be serviced */
155 PUBLIC void UCSI_CB_OnServiceRequired(void *pTag) {
156
157    /* push an asynchronous request for loopback to call UCSI_Service */
158    sd_event_add_time(afb_daemon_get_event_loop(), NULL, CLOCK_MONOTONIC, 0, 0, OnServiceRequiredCB, pTag);
159 }
160
161 /* Callback when ever this UNICENS wants to send a message to INIC. */
162 PUBLIC void UCSI_CB_OnTxRequest(void *pTag, const uint8_t *pData, uint32_t len) {
163     ucsContextT *ucsContext = (ucsContextT*) pTag;
164     CdevData_t *cdevTx = &ucsContext->tx;
165     uint32_t total = 0;
166
167     if (NULL == pData || 0 == len) return;
168
169     if (O_RDONLY == cdevTx->fileFlags) return;
170     if (-1 == cdevTx->fileHandle)
171         cdevTx->fileHandle = open(cdevTx->fileName, cdevTx->fileFlags);
172     if (-1 == cdevTx->fileHandle)
173         return;
174
175     while(total < len) {
176         ssize_t written = write(cdevTx->fileHandle, &pData[total], (len - total));
177         if (0 >= written)
178         {
179             /* Silently ignore write error (only occur in non-blocking mode) */
180             break;
181         }
182         total += (uint32_t) written;
183     }
184 }
185
186 /**
187  * \brief Callback when UNICENS instance has been stopped.
188  * \note This event can be used to free memory holding the resources
189  *       passed with UCSI_NewConfig
190  * \note This function must be implemented by the integrator
191  * \param pTag - Pointer given by the integrator by UCSI_Init
192  */
193 void UCSI_CB_OnStop(void *pTag) {
194     AFB_NOTICE ("UNICENS stopped");
195
196 }
197
198 /** This callback will be raised, when ever an applicative message on the control channel arrived */
199 void UCSI_CB_OnAmsMessageReceived(void *pTag)
200 {
201         /* If not interested, just ignore this event.
202            Otherwise UCSI_GetAmsMessage may now be called asynchronous (mainloop) to get the content. 
203            Don't forget to call UCSI_ReleaseAmsMessage after that */
204 }
205
206 void UCSI_CB_OnRouteResult(void *pTag, uint16_t routeId, bool isActive, uint16_t connectionLabel)
207 {
208 }
209
210 void UCSI_CB_OnGpioStateChange(void *pTag, uint16_t nodeAddress, uint8_t gpioPinId, bool isHighState)
211 {
212 }
213
214 PUBLIC void UCSI_CB_OnMgrReport(void *pTag, Ucs_MgrReport_t code, uint16_t nodeAddress, Ucs_Rm_Node_t *pNode){
215
216     bool available;
217     
218     if (code == UCS_MGR_REP_AVAILABLE) {
219         available = true;
220     }
221     else if (code == UCS_MGR_REP_NOT_AVAILABLE) {
222         available = false;
223     }
224     else {
225         /*untracked event - just exit*/
226         return;
227     }
228     
229     if (eventData) {
230         
231         json_object *j_event_info = json_object_new_object();
232         json_object_object_add(j_event_info, "node", json_object_new_int(nodeAddress));
233         json_object_object_add(j_event_info, "available", json_object_new_boolean(available));
234         
235         afb_event_push(eventData->node_event, j_event_info);
236     }     
237 }
238
239 bool Cdev_Init(CdevData_t *d, const char *fileName, bool read, bool write)
240 {
241     if (NULL == d || NULL == fileName)  goto OnErrorExit;
242
243     memset(d, 0, sizeof(CdevData_t));
244     strncpy(d->fileName, fileName, MAX_FILENAME_LEN);
245     d->fileHandle = -1;
246
247     if (read && write)
248         d->fileFlags = O_RDWR | O_NONBLOCK;
249     else if (read)
250         d->fileFlags = O_RDONLY | O_NONBLOCK;
251     else if (write)
252         d->fileFlags = O_WRONLY | O_NONBLOCK;
253
254     /* open file to enable event loop */
255     d->fileHandle = open(d->fileName, d->fileFlags);
256     if (d->fileHandle  <= 0) goto OnErrorExit;
257
258     return true;
259
260  OnErrorExit:
261     return false;
262 }
263
264 static bool InitializeCdevs(ucsContextT *ucsContext)
265 {
266     if(!Cdev_Init(&ucsContext->tx, CONTROL_CDEV_TX, false, true))
267         return false;
268     if(!Cdev_Init(&ucsContext->rx, CONTROL_CDEV_RX, true, false))
269         return false;
270     return true;
271 }
272
273 /* Callback fire when something is avaliable on MOST cdev */
274 int onReadCB (sd_event_source* src, int fileFd, uint32_t revents, void* pTag) {
275     ucsContextT *ucsContext =( ucsContextT*) pTag;
276     ssize_t len;
277     uint8_t pBuffer[RX_BUFFER];
278     int ok;
279
280     len = read (ucsContext->rx.fileHandle, &pBuffer, sizeof(pBuffer));
281     if (0 == len)
282         return 0;
283     ok= UCSI_ProcessRxData(&ucsContext->ucsiData, pBuffer, (uint16_t)len);
284     if (!ok) {
285         AFB_DEBUG ("Buffer overrun (not handle)");
286         /* Buffer overrun could replay pBuffer */
287     }
288     return 0;
289 }
290
291
292 STATIC char* GetDefaultConfig(void) {
293     
294     char const *data_path = getenv("AFM_APP_INSTALL_DIR");
295
296     if (!data_path) {
297         AFB_ERROR("AFM_APP_INSTALL_DIR is not defined");
298     }
299     else {
300         size_t size;
301         char * config_path;
302         
303         AFB_NOTICE("AFM_APP_INSTALL_DIR is: %s", data_path);
304         size = strlen(data_path) + strlen(XML_CONFIG_FOLDER) + strlen(XML_CONFIG_FILE) + 2;
305         config_path = malloc(size);
306         if (config_path != NULL) {
307             snprintf(config_path, size, "%s%s%s", data_path, XML_CONFIG_FOLDER, XML_CONFIG_FILE);
308             if(access(config_path, R_OK ) == 0) {
309                 AFB_NOTICE("Default configuration: %s", config_path);
310                 return config_path;
311             }
312         }
313     }
314     
315     return NULL;
316 }
317
318 STATIC UcsXmlVal_t* ParseFile(const char *filename) {
319     char *xmlBuffer;
320     ssize_t readSize;
321     int fdHandle ;
322     struct stat fdStat;
323     UcsXmlVal_t* ucsConfig;
324
325     fdHandle = open(filename, O_RDONLY);
326     if (fdHandle <= 0) {
327         AFB_ERROR("File not accessible: '%s' err=%s", filename, strerror(fdHandle));
328         goto OnErrorExit;
329     }
330
331     /* read file into buffer as a \0 terminated string */
332     fstat(fdHandle, &fdStat);
333     xmlBuffer = (char*)alloca(fdStat.st_size + 1);
334     readSize = read(fdHandle, xmlBuffer, fdStat.st_size);
335     close(fdHandle);
336     xmlBuffer[readSize] = '\0'; /* In any case, terminate it. */
337
338     if (readSize != fdStat.st_size)  {
339         AFB_ERROR("File to read fullfile '%s' size(%d!=%d)", filename, (int)readSize, (int)fdStat.st_size);
340         goto OnErrorExit;
341     }
342
343     ucsConfig = UcsXml_Parse(xmlBuffer);
344     if (!ucsConfig)  {
345         AFB_ERROR("File XML invalid: '%s'", filename);
346         goto OnErrorExit;
347     }
348
349     return (ucsConfig);
350
351  OnErrorExit:
352     return NULL;
353 }
354
355 PUBLIC int StartConfiguration(const char *filename) {
356     static UcsXmlVal_t *ucsConfig;
357     static ucsContextT ucsContext;
358
359     sd_event_source *evtSource;
360     int err;
361     
362     /* Read and parse XML file */
363     ucsConfig = ParseFile(filename);
364     if (NULL == ucsConfig) {
365         AFB_ERROR ("Cannot access or load file: '%s'", filename);
366         goto OnErrorExit;
367     }
368
369     /* When ucsContextS is set, do not initalize UNICENS, CDEVs or system hooks, just load new XML */
370     if (!ucsContextS)
371     {
372         if (!ucsContextS && !InitializeCdevs(&ucsContext))  {
373             AFB_ERROR ("Fail to initialise device [rx=%s tx=%s]", CONTROL_CDEV_RX, CONTROL_CDEV_TX);
374             goto OnErrorExit;
375         }
376
377         /* Initialise UNICENS Config Data Structure */
378         UCSI_Init(&ucsContext.ucsiData, &ucsContext);
379
380         /* register aplayHandle file fd into binder mainloop */
381         err = sd_event_add_io(afb_daemon_get_event_loop(), &evtSource, ucsContext.rx.fileHandle, EPOLLIN, onReadCB, &ucsContext);
382         if (err < 0) {
383             AFB_ERROR ("Cannot hook events to mainloop");
384             goto OnErrorExit;
385         }
386
387         /* save this in a statical variable until ucs2vol move to C */
388         ucsContextS = &ucsContext;
389     }
390     /* Initialise UNICENS with parsed config */
391     if (!UCSI_NewConfig(&ucsContext.ucsiData, ucsConfig))   {
392         AFB_ERROR ("Fail to initialize UNICENS");
393         goto OnErrorExit;
394     }
395     
396     return 0;
397
398  OnErrorExit:
399     return -1;
400 }
401
402 PUBLIC void ucs2_initialise (struct afb_req request) {
403     const char *filename = afb_req_value(request, "filename");
404     
405     if (!filename) {
406         afb_req_fail_f (request, "filename-missing", "No filename given");
407         goto OnErrorExit;
408     }
409     
410     if (StartConfiguration(filename) != 0) {
411         afb_req_fail_f (request, "load-failed", "Cannot parse file and start UNICENS");
412         goto OnErrorExit;
413     }
414     
415     afb_req_success(request,NULL,"UNICENS-active");
416
417  OnErrorExit:
418     return;
419 }
420
421
422 // List Avaliable Configuration Files
423 PUBLIC void ucs2_listconfig (struct afb_req request) {
424     struct json_object *queryJ, *tmpJ, *responseJ;
425     DIR  *dirHandle;
426     char *dirPath, *dirList;
427     int error=0;
428
429     queryJ = afb_req_json(request);
430     if (queryJ && json_object_object_get_ex (queryJ, "cfgpath" , &tmpJ)) {
431         dirList = strdup (json_object_get_string(tmpJ));
432     } else {    
433         dirList = strdup (UCS2_CFG_PATH); 
434         AFB_NOTICE ("fgpath:missing uses UCS2_CFG_PATH=%s", UCS2_CFG_PATH);
435     }
436
437     responseJ = json_object_new_array();
438     for (dirPath= strtok(dirList, ":"); dirPath && *dirPath; dirPath=strtok(NULL,":")) {
439          struct dirent *dirEnt;
440          
441         dirHandle = opendir (dirPath);
442         if (!dirHandle) {
443             AFB_NOTICE ("ucs2_listconfig dir=%s not readable", dirPath);
444             error++;
445             continue;
446         } 
447         
448         AFB_NOTICE ("ucs2_listconfig scanning: %s", dirPath);
449         while ((dirEnt = readdir(dirHandle)) != NULL) {
450             // Unknown type is accepted to support dump filesystems
451             if (dirEnt->d_type == DT_REG || dirEnt->d_type == DT_UNKNOWN) {
452                 struct json_object *pathJ = json_object_new_object();
453                 json_object_object_add(pathJ, "dirpath", json_object_new_string(dirPath));
454                 json_object_object_add(pathJ, "basename", json_object_new_string(dirEnt->d_name));
455                 json_object_array_add(responseJ, pathJ);
456             }
457         }
458     }
459     
460     free (dirList);
461    
462     if (!error)  afb_req_success(request,responseJ,NULL);
463     else {
464         char info[40];
465         snprintf (info, sizeof(info), "[%d] where not scanned", error); 
466          afb_req_success(request,responseJ, info);
467     } 
468     
469     return;
470 }
471
472 PUBLIC void ucs2_subscribe (struct afb_req request) {
473     
474     if (!eventData) {
475         
476         eventData = malloc(sizeof(EventData_t));
477         if (eventData) {
478             eventData->node_event = afb_daemon_make_event ("node-availibility");
479         }
480         
481         if (!eventData || !afb_event_is_valid(eventData->node_event)) {
482             afb_req_fail_f (request, "create-event", "Cannot create or register event");
483             goto OnExitError;
484         }
485     }
486     
487     if (afb_req_subscribe(request, eventData->node_event) != 0) {
488         
489         afb_req_fail_f (request, "subscribe-event", "Cannot subscribe to event");
490         goto OnExitError;
491     }
492     
493     afb_req_success(request,NULL,"event subscription successful"); 
494     
495 OnExitError:
496     return;
497 }
498
499 STATIC void ucs2_writei2c_CB (void *result_ptr, void *request_ptr) {
500     
501     if (request_ptr){
502         afb_req *req = (afb_req *)request_ptr;
503         Ucs_I2c_ResultCode_t *res = (Ucs_I2c_ResultCode_t *)result_ptr;
504         
505         if (!res) {
506             afb_req_fail(*req, "processing","busy or lost initialization");
507         }
508         else if (*res != UCS_I2C_RES_SUCCESS){
509             afb_req_fail_f(*req, "error-result", "result code: %d", *res);
510         }
511         else {
512             afb_req_success(*req, NULL, "success");
513         }
514         
515         afb_req_unref(*req);
516         free(request_ptr);
517     } 
518     else {
519         AFB_NOTICE("write_i2c: ambiguous response data");
520     }
521 }
522
523 /* write a single i2c command */
524 STATIC void ucs2_writei2c_cmd(struct afb_req request, json_object *j_obj) {
525     
526     static uint8_t i2c_data[I2C_MAX_DATA_SZ];
527     uint8_t i2c_data_sz = 0;
528     uint16_t node_addr = 0;
529     struct afb_req *async_req_ptr = NULL;
530     
531     node_addr = (uint16_t)json_object_get_int(json_object_object_get(j_obj, "node"));
532     AFB_NOTICE("node_address: 0x%02X", node_addr);
533     
534     if (node_addr == 0) {
535         afb_req_fail_f(request, "query-params","params wrong or missing");
536         goto OnErrorExit;
537     }
538        
539     if (json_object_get_type(json_object_object_get(j_obj, "data"))==json_type_array) {
540         int size = json_object_array_length(json_object_object_get(j_obj, "data"));
541         if ((size > 0) && (size <= I2C_MAX_DATA_SZ)) {
542             
543             int32_t i;
544             int32_t val;
545             struct json_object *j_elem;
546             struct json_object *j_arr = json_object_object_get(j_obj, "data");
547
548             for (i = 0; i < size; i++) {
549                 
550                 
551                 j_elem = json_object_array_get_idx(j_arr, i);
552                 val = json_object_get_int(j_elem);
553                 if ((val < 0) && (val > 0xFF)){
554                     i = 0;
555                     break;
556                 }
557                 i2c_data[i] = (uint8_t)json_object_get_int(j_elem);
558             }
559             
560             i2c_data_sz = (uint8_t)i;
561         }
562     }
563     
564     if (i2c_data_sz == 0) {
565         AFB_NOTICE("data: invalid or not found");
566         afb_req_fail_f(request, "query-params","params wrong or missing");
567         goto OnErrorExit;
568     }
569    
570     async_req_ptr = malloc(sizeof(afb_req));
571     *async_req_ptr = request;
572     
573     if (UCSI_I2CWrite(  &ucsContextS->ucsiData,   /* UCSI_Data_t *pPriv*/
574                         node_addr,                /* uint16_t targetAddress*/
575                         false,                    /* bool isBurst*/
576                         0u,                       /* block count */
577                         0x2Au,                    /* i2c slave address */
578                         0x03E8u,                  /* timeout 1000 milliseconds */
579                         i2c_data_sz,              /* uint8_t dataLen */
580                         &i2c_data[0],             /* uint8_t *pData */
581                         &ucs2_writei2c_CB,        /* callback*/
582                         (void*)async_req_ptr      /* callback argument */
583                   )) {
584         /* asynchronous command is running */
585         afb_req_addref(request);
586     }
587     else {
588         AFB_NOTICE("i2c write: scheduling command failed");
589         afb_req_fail_f(request, "query-command-queue","command queue overload");
590         free(async_req_ptr);
591         async_req_ptr = NULL;
592         goto OnErrorExit;
593     }
594     
595 OnErrorExit:
596     return;
597 }
598
599 /* parse array or single command */
600 PUBLIC void ucs2_writei2c (struct afb_req request) {
601     
602     struct json_object *j_obj;
603     
604     /* check UNICENS is initialised */
605     if (!ucsContextS) {
606         afb_req_fail_f(request, "unicens-init","Should Load Config before using setvol");
607         goto OnErrorExit;
608     }
609
610     j_obj = afb_req_json(request);
611     if (!j_obj) {
612         afb_req_fail_f(request, "query-notjson","query=%s not a valid json entry", afb_req_value(request,""));
613         goto OnErrorExit;
614     };
615     
616     AFB_DEBUG("request: %s", json_object_to_json_string(j_obj));
617     
618     if (json_object_get_type(j_obj)==json_type_array) {
619         
620         int cnt;
621         int len = json_object_array_length(j_obj);
622         
623         if (len != 1) {
624             afb_req_fail_f(request, "query-array","query of multiple commands is not supported");
625             goto OnErrorExit;
626         }
627         
628         for (cnt = 0; cnt < len; cnt++) {
629             
630             json_object *j_cmd = json_object_array_get_idx(j_obj, cnt);
631             ucs2_writei2c_cmd(request, j_cmd);
632         }
633     }
634     else {
635         ucs2_writei2c_cmd(request, j_obj);
636     }
637     
638  OnErrorExit:
639     return;
640 }
641
642 PUBLIC int ucs2_initbinding(void) {
643 #ifndef DISABLE_AUTOSTART
644     char *filename = GetDefaultConfig();
645     if (filename != NULL) {
646         
647         AFB_NOTICE("AUTO-LOAD configuration: %s", filename);
648         if (StartConfiguration(filename) == 0) {
649             AFB_NOTICE("AUTO-LOAD successful");
650         } else {
651             AFB_NOTICE("AUTO-LOAD failed");
652         }
653         free(filename);
654     }
655 #endif   
656     return 0;
657 }