Changeset 3b9ca71 for perlglue.xs

Timestamp:

Feb 19, 2013, 8:29:38 PM (11 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10

Children:

4584d1f

Parents:

69f74c2

git-author:

David Benjamin <davidben@mit.edu> (06/09/12 23:16:53)

git-committer:

David Benjamin <davidben@mit.edu> (02/19/13 20:29:38)

Message:

Allow perl variables to participate in argumentless set/unset

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -406 +406 @@
 
 void
-new_variable(name, summary, description, validsettings, get_tostring_fn, set_fromstring_fn, data)
+new_variable(name, summary, description, validsettings, takes_on_off, get_tostring_fn, set_fromstring_fn, data)
     const char *name
     const char *summary
     const char *description
     const char *validsettings
+    int takes_on_off
     SV *get_tostring_fn
     SV *set_fromstring_fn
@@ -426 +427 @@
 
         owl_variable_dict_newvar_other(owl_global_get_vardict(&g),
-                                       name, summary, description, validsettings,
+                                       name, summary, description, validsettings, takes_on_off,
                                        perl_closure_new(get_tostring_fn, data, false),
                                        perl_closure_new(set_fromstring_fn, data, false));