ncd: add var::set module

ncd/modules/var.c

@@ -26,6 +26,8 @@
  * Synopsis: var(value)
  * Variables:
  *   (empty) - value
+ * 
+ * Synopsis: var::set(value)
  */
 
 #include <stdlib.h>
@@ -39,7 +41,11 @@
 
 struct instance {
     NCDModuleInst *i;
-    NCDValue *arg;
+    NCDValue value;
+};
+
+struct set_instance {
+    NCDModuleInst *i;
 };
 
 static void func_new (NCDModuleInst *i)
@@ -56,11 +62,18 @@ static void func_new (NCDModuleInst *i)
     o->i = i;
     
     // read argument
-    if (!NCDValue_ListRead(o->i->args, 1, &o->arg)) {
+    NCDValue *value_arg;
+    if (!NCDValue_ListRead(o->i->args, 1, &value_arg)) {
         ModuleLog(o->i, BLOG_ERROR, "wrong arity");
         goto fail1;
     }
     
+    // copy to value
+    if (!NCDValue_InitCopy(&o->value, value_arg)) {
+        ModuleLog(o->i, BLOG_ERROR, "NCDValue_InitCopy failed");
+        goto fail1;
+    }
+    
     // signal up
     NCDModuleInst_Backend_Event(o->i, NCDMODULE_EVENT_UP);
     
@@ -78,6 +91,9 @@ static void func_die (void *vo)
     struct instance *o = vo;
     NCDModuleInst *i = o->i;
     
+    // free value
+    NCDValue_Free(&o->value);
+    
     // free instance
     free(o);
     
@@ -89,7 +105,7 @@ static int func_getvar (void *vo, const char *name, NCDValue *out)
     struct instance *o = vo;
     
     if (!strcmp(name, "")) {
-        if (!NCDValue_InitCopy(out, o->arg)) {
+        if (!NCDValue_InitCopy(out, &o->value)) {
             ModuleLog(o->i, BLOG_ERROR, "NCDValue_InitCopy failed");
             return 0;
         }
@@ -100,12 +116,71 @@ static int func_getvar (void *vo, const char *name, NCDValue *out)
     return 0;
 }
 
+static void set_func_new (NCDModuleInst *i)
+{
+    // allocate instance
+    struct set_instance *o = malloc(sizeof(*o));
+    if (!o) {
+        ModuleLog(i, BLOG_ERROR, "failed to allocate instance");
+        goto fail0;
+    }
+    NCDModuleInst_Backend_SetUser(i, o);
+    
+    // init arguments
+    o->i = i;
+    
+    // read argument
+    NCDValue *value_arg;
+    if (!NCDValue_ListRead(o->i->args, 1, &value_arg)) {
+        ModuleLog(o->i, BLOG_ERROR, "wrong arity");
+        goto fail1;
+    }
+    
+    // get method object
+    struct instance *mo = i->method_object->inst_user;
+    
+    // set
+    NCDValue v;
+    if (!NCDValue_InitCopy(&v, value_arg)) {
+        ModuleLog(o->i, BLOG_ERROR, "NCDValue_InitCopy failed");
+        goto fail1;
+    }
+    NCDValue_Free(&mo->value);
+    mo->value = v;
+    
+    // signal up
+    NCDModuleInst_Backend_Event(o->i, NCDMODULE_EVENT_UP);
+    
+    return;
+    
+fail1:
+    free(o);
+fail0:
+    NCDModuleInst_Backend_SetError(i);
+    NCDModuleInst_Backend_Event(i, NCDMODULE_EVENT_DEAD);
+}
+
+static void set_func_die (void *vo)
+{
+    struct set_instance *o = vo;
+    NCDModuleInst *i = o->i;
+    
+    // free instance
+    free(o);
+    
+    NCDModuleInst_Backend_Event(i, NCDMODULE_EVENT_DEAD);
+}
+
 static const struct NCDModule modules[] = {
     {
         .type = "var",
         .func_new = func_new,
         .func_die = func_die,
         .func_getvar = func_getvar
+    }, {
+        .type = "var::set",
+        .func_new = set_func_new,
+        .func_die = set_func_die
     }, {
         .type = NULL
     }