Changeset cce9369 for perlglue.xs

Timestamp:

Sep 30, 2011, 8:14:50 AM (13 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

e21b921

Parents:

b54b06a

git-author:

Jason Gross <jgross@mit.edu> (07/12/11 19:20:46)

git-committer:

Jason Gross <jgross@mit.edu> (09/30/11 08:14:50)

Message:

Allowed custom validsettings for other non-boolean perl variables.

File:

• perlglue.xs (modified) (3 diffs)

perlglue.xs

@@ -405 +405 @@
 
 void
-new_variable_string(name, ival, summ, desc)
+new_variable_string(name, ival, summ, desc, validset)
         const char * name
         const char * ival
         const char * summ
         const char * desc
+        const char * validset
         CODE:
         owl_variable_dict_newvar_string(owl_global_get_vardict(&g),
@@ -415 +416 @@
                                         summ,
                                         desc,
-                                        ival);
-
-void
-new_variable_int(name, ival, summ, desc)
+                                        ival,
+                                        validset);
+
+void
+new_variable_int(name, ival, summ, desc, validset)
         const char * name
         int ival
         const char * summ
         const char * desc
+        const char * validset
         CODE:
         owl_variable_dict_newvar_int(owl_global_get_vardict(&g),
@@ -428 +431 @@
                                      summ,
                                      desc,
-                                     ival);
-
-void
-new_variable_bool(name, ival, summ, desc)
+                                     ival,
+                                     validset);
+
+void
+new_variable_bool(name, ival, summ, desc, validset)
         const char * name
         int ival
         const char * summ
         const char * desc
-        CODE:
+        const char * validset
+        CODE:
+        if (strcmp(validset, "on,off")) /* gcc complains if we don't do anything with it, but the perl code isn't nice enough to let us get rid of it */
+                croak("Invalid bool variable valid settings: %s", validset);
         owl_variable_dict_newvar_bool(owl_global_get_vardict(&g),
                                       name,