Changeset 81e93c3

Timestamp:

Aug 5, 2017, 5:54:22 PM (7 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Branches:

master

Children:

1f92f39

Parents:

a95b564

git-author:

David Benjamin <davidben@mit.edu> (02/25/13 17:19:40)

git-committer:

Jason Gross <jasongross9@gmail.com> (08/05/17 17:54:22)

Message:

Add BarnOwl::get_variable_info

Returns a dictionary about a given variable.

Files:

• perlglue.xs (modified) (1 diff)
• variable.c (modified) (1 diff)

perlglue.xs

@@ -385 +385 @@
                 RETVAL
 
+SV *
+get_variable_info(name)
+        const char *name;
+        PREINIT:
+                owl_variable *var;
+                HV *h;
+        CODE:
+                var = owl_variable_get_var(owl_global_get_vardict(&g), name);
+                if (var == NULL) {
+                        croak("No such variable");
+                }
+                h = newHV();
+                (void)hv_store(h, "name", strlen("name"),
+                               owl_new_sv(owl_variable_get_name(var)), 0);
+                (void)hv_store(h, "description", strlen("description"),
+                               owl_new_sv(owl_variable_get_description(var)),
+                               0);
+                (void)hv_store(h, "summary", strlen("summary"),
+                               owl_new_sv(owl_variable_get_summary(var)), 0);
+                (void)hv_store(h, "validsettings", strlen("validsettings"),
+                               owl_new_sv(owl_variable_get_validsettings(var)),
+                               0);
+                (void)hv_store(h, "takes_on_off", strlen("takes_on_off"),
+                               newSViv(owl_variable_takes_on_off(var)), 0);
+                RETVAL = newRV_noinc((SV*)h);
+        OUTPUT:
+                RETVAL
+
 
 MODULE = BarnOwl                PACKAGE = BarnOwl::Zephyr

variable.c

@@ -814 +814 @@
 }
 
+bool owl_variable_takes_on_off(const owl_variable *v) {
+  return v->takes_on_off;
+}
+
 int owl_variable_get_type(const owl_variable *v)
 {