Changeset acef4ad9

Timestamp:

Feb 26, 2013, 2:00:48 PM (11 years ago)

Author:

David Benjamin <davidben@mit.edu>

Children:

fbe04c6

Parents:

230e8ff

git-author:

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

git-committer:

David Benjamin <davidben@mit.edu> (02/26/13 14:00:48)

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

@@ -359 +359 @@
                 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

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