Changeset 3b9ca71 for perlglue.xs


Ignore:
Timestamp:
Feb 19, 2013, 8:29:38 PM (8 years ago)
Author:
David Benjamin <davidben@mit.edu>
Branches:
master
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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    r69f74c2 r3b9ca71  
    406406
    407407void
    408 new_variable(name, summary, description, validsettings, get_tostring_fn, set_fromstring_fn, data)
     408new_variable(name, summary, description, validsettings, takes_on_off, get_tostring_fn, set_fromstring_fn, data)
    409409    const char *name
    410410    const char *summary
    411411    const char *description
    412412    const char *validsettings
     413    int takes_on_off
    413414    SV *get_tostring_fn
    414415    SV *set_fromstring_fn
     
    426427
    427428        owl_variable_dict_newvar_other(owl_global_get_vardict(&g),
    428                                        name, summary, description, validsettings,
     429                                       name, summary, description, validsettings, takes_on_off,
    429430                                       perl_closure_new(get_tostring_fn, data, false),
    430431                                       perl_closure_new(set_fromstring_fn, data, false));
Note: See TracChangeset for help on using the changeset viewer.